里诺进销存管理系统(单机版)V5.11(追码版) - 吾爱破解 - 52pojie.cn

fzxlcom 发表于 2013-1-26 00:58

yutao531315 发表于 2014-3-16 20:58

建议楼主努力写追出算法给我们分享下...........话说这个注册码有点像我上次找到的算法真的很相识...............
现在没时间研究把我上次用od 分析出的算法给楼主撸下..
Dim 字符串A
字符串A = "DEPw245d54k"//跟汇编里面一样压入固定字符串DEPw245d54k
机器码 = Form1.InputBox1.Text/// 嘿嘿这里面当然是用户的机器码了，需要算码的
//接着在将机器码转换为ASCll码
xx = UCase(机器码)//将机器码全部转换为大写
For M = 1 To len(xx)//逐个进行换算罗
   ps = Mid(xx, m, 1)
   //接着在逐个字母转换为 ASCLL码
   AA = HEX(ASC(ps))//转换为ANSI字符代码
   pz = pz & AA
Next
PZ = StrReverse(PZ)
字符串一 = Left(PZ, 4)
字符串二 = Mid(PZ, 5, 4)
Dim bl
bl = Mid(字符串A, 1, 4)
bl2 = mid(字符串A, 5, 5)
jg = bl & "-" & 字符串一 & bl2 &"-"&字符串二//将一系列字符串进行连接
Call Plugin.Sys.SetCLB(jg)
MsgBox "算出注册码为：" & jg&"已经为您保存在剪切板，请直接Ctrl+V粘贴使用即可"

yutao531315 发表于 2014-3-16 21:02

哈哈随便告诉大家，我把着算法搞出来我加在自己的软件里面的了哈哈哈哈 ..........算不算侵犯作者版权呢不要来抓我啊没，哈哈哈

chersmon 发表于 2013-1-26 01:11

好犀利。。支持下

动物凶猛 发表于 2013-1-26 01:15

好像还是有两个小红点啊。

fzxlcom 发表于 2013-1-26 01:37

360522561 发表于 2013-1-26 02:11

好东西谢谢楼主分享啊

nofriend 发表于 2013-1-26 02:20

这个东东我做过内存注册机，发现注册后还是2红。

nofriend 发表于 2013-1-26 02:21

恳请大牛指出暗桩的地方，愿意以5CB一个交换。谢过。

1354669803 发表于 2013-1-26 07:37

意思就是说可以做内存注册机？

pojie668 发表于 2013-1-26 08:10

不错支持下楼主，谢谢分享呀

bob123 发表于 2013-1-26 09:35

单用你追出来的注册码注册，是有暗桩的。印象中，这个软件论坛有人做过分析的。楼主可以找找看。

页: [1] 2

吾爱破解 - 52pojie.cn's Archiver