里诺进销存管理系统(单机版)V5.11(追码版)

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

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

帐号		自动登录	找回密码
密码			注册[Register]

fzxlcom fzxlcom 当前离线好友阅读权限 0 听众最后登录 1970-1-1 头像被屏蔽	fzxlcom 发表于 2013-1-26 00:58 提示: 作者被禁止或删除内容自动屏蔽
	发帖前要善用【论坛搜索】功能，那里可能会有你要找的答案或者已经有人发布过相同内容了，请勿重复发帖。
	回复举报

fzxlcom fzxlcom 当前离线好友阅读权限 0 听众最后登录 1970-1-1 头像被屏蔽	楼主\| fzxlcom 发表于 2013-1-26 01:37 提示: 作者被禁止或删除内容自动屏蔽

	回复支持举报

[分享] 里诺进销存管理系统(单机版)V5.11(追码版)