-
-
[原创]Dll Show 4.7 汉化版注册算法
-
发表于: 2006-11-12 15:12
-
|
|
|---|---|
|
|
|
|
|
易语言注册机没能成功。主要是因为DB95DB95这个常数数值太大。一转换成10进制就是有符号的-610935915。而我不知道如何用易语言实现转成无符号的3684031381。
它和888或出来的结果也是很大。所以... 谁会的告诉我啊。谢谢了  .版本 2 .程序集 窗口程序集1 .子程序 _按钮1_被单击 .局部变量 string1, 文本型 .局部变量 string2, 文本型 .局部变量 name, 文本型 .局部变量 org, 文本型 .局部变量 len1, 整数型 .局部变量 len2, 整数型 .局部变量 i, 整数型 .局部变量 ebx, 长整数型 .局部变量 ebp, 长整数型 .局部变量 j, 整数型 .局部变量 k, 整数型 .局部变量 l, 整数型 .局部变量 n, 整数型 .局部变量 m, 整数型 .局部变量 ename, 长整数型 .局部变量 sum1, 长整数型 .局部变量 sum2, 长整数型 .局部变量 code, 长整数型 .局部变量 eorg, 长整数型 .局部变量 sum3, 长整数型 .局部变量 sum4, 文本型 .局部变量 sum5, 长整数型 string1 ＝ “|b!pz*ls;rn|lf$vi^Axpe)rx5aic&9/2m5lsi4@0dmZw94cmqpfhw” string2 ＝ “#serB&nz|mfM1/5(!sd$Mq.{s]+sFjtKpzSdtzoXqmb^Al@dv:s?x/” name ＝ 编辑框1.内容 org ＝ 编辑框2.内容 len1 ＝ 取文本长度 (name) len2 ＝ 取文本长度 (org) .计次循环首 (len1, i) ebx ＝ 取代码 (string1, i) j ＝ i ＋ len1 .计次循环首 (i, j) ebp ＝ 取代码 (string2, j) ebx ＝ ebx × ebp .计次循环首 (len1, k) ename ＝ 取代码 (name, k) ename ＝ ebx × ename .计次循环尾 () .计次循环尾 () sum1 ＝ sum1 ＋ ename .计次循环尾 () .计次循环首 (len1, l) ebx ＝ 取代码 (string1, l) n ＝ i ＋ len1 .计次循环首 (i, n) ebp ＝ 取代码 (string2, n) ebx ＝ ebx × ebp .计次循环首 (len1, m) eorg ＝ 取代码 (name, m) eorg ＝ ebx × eorg .计次循环尾 () .计次循环尾 () sum2 ＝ sum2 ＋ eorg .计次循环尾 () sum3 ＝ 位或 (3684031381, 888) sum4 ＝ 取十六进制文本 (sum3) sum5 ＝ 十六进制到十进制 (sum4) 这样不行的。 sum3 ＝ 到整数 (sum5) 这样也是不行的。到底该如何转成无符号的数呢？谁懂啊 code ＝ sum1 ＋ sum2 ＋ sum3 编辑框3.内容 ＝ 到文本 (code) .子程序 十六进制到十进制, 整数型 .参数 十六进制文本, 文本型 .局部变量 文本, 文本型 .局部变量 最终值, 整数型 .局部变量 p, 整数型, , , 中间循环变量 .局部变量 临时数值, 文本型, , , 每一位上的值 文本 ＝ 到小写 (十六进制文本) .变量循环首 (1, 取文本长度 (文本), 1, p) 临时数值 ＝ 取文本中间 (文本, p, 1) .如果 (取代码 (临时数值, ) ≥ 取代码 (“a”, ) 且 取代码 (临时数值, ) ≤ 取代码 (“f”, )) 最终值 ＝ 最终值 ＋ (取代码 (临时数值, ) － 取代码 (“a”, ) ＋ 10) × 求次方 (16, 取文本长度 (文本) － p) .否则 最终值 ＝ 最终值 ＋ 到数值 (临时数值) × 求次方 (16, 取文本长度 (文本) － p) .如果结束 .变量循环尾 () 返回 (最终值) |
|
|
好文,支持你!
|
|
|
|
|
|
|
