- UID
- 1874
注册时间2005-6-3
阅读权限30
最后登录1970-1-1
龙战于野
该用户从未签到
|
发表于 2006-7-3 15:05:51
|
显示全部楼层
原帖由 黑夜彩虹 于 2006-7-3 13:42 发表
【算法小结】
1、取硬盘的序列号作为产品编号 MRG254KBEDXE1P
2、取产品编号的ASCII码(16进制) 4D52473235344B42454458453150
3、ASCII码,重尾到头重新排列 05135485 ...
- .版本 2
- .程序集 窗口程序集1
- .子程序 _按钮1_被单击
- .局部变量 HDD, 文本型
- .局部变量 LEN, 整数型
- .局部变量 I, 整数型
- .局部变量 C, 字节型
- .局部变量 N, 整数型
- .局部变量 STR0, 文本型
- .局部变量 STR1, 文本型
- HDD = 编辑框1.内容
- LEN = 取文本长度 (HDD)
- STR1 = “”
- .变量循环首 (1, LEN, 1, I)
- N = 取代码 (HDD, I)
- STR0 = 取十六进制文本 (N)
- STR1 = STR1 + STR0
- .变量循环尾 ()
- STR0 = “CA9D-”
- LEN = 取文本长度 (STR1)
- .变量循环首 (LEN, LEN - 3, -1, I)
- STR0 = STR0 + 取文本中间 (STR1, I, 1)
- .变量循环尾 ()
- STR0 = STR0 + “-36Q8-”
- .变量循环首 (LEN - 4, LEN - 7, -1, I)
- STR0 = STR0 + 取文本中间 (STR1, I, 1)
- .变量循环尾 ()
- 编辑框2.内容 = STR0
-
复制代码
[ 本帖最后由 快雪时晴 于 2006-7-3 15:08 编辑 ] |
-
注册机图片
-
|