CM 过来玩玩哈！ 换了写法，易语言制作，无壳 无毒 可能360误报。
本帖最后由 dazong 于 2017-7-27 22:24 编辑@zbnysjwsnd8 大神来玩玩！！
成功的图片
查毒链接：http://r.virscan.org/report/5c1dc3e570c9ed39aef59a7bfb6e62e8
易语言制作，无壳 无毒 可能360误报
温馨提示：下载cm 不需要CB
@ShadowTeam @离不开好 @治愈先生 @苏紫方璇 @664330793@_Spider @byh3025@wangsheng66@crack5 本帖最后由 zbnysjwsnd8 于 2017-7-27 23:19 编辑
唔。。。这次花了点时间看了一下机器码的生成
注册码的算法:
设机器码为a1(文本型)
则注册码 = 到文本(到数值(a1) * 4252 + 3244 / 2)
机器码的算法:
先执行这个脚本:
Function Getcpuid()
Dim cpuSet,cpu
Set cpuSet = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_Processor")
For Each cpu In cpuSet
Getcpuid=cpu.ProcessorId
exit for
Next
end Function
这个脚本返回一串字符串(根据函数名来看的话应该是返回CPUID)
然后按照从左到右的顺序取出这个字符串中的所有的数字类的字符('0' ~ '9')并按照顺序连接在一起(记为m1)。
最后 机器码 = m1 + "53"
注册码生成器源码(我测试的时候不知道因为什么原因 只有编译后才能读取出正确的机器码。):
PS：感觉我预测的蛮准的233 谢谢楼主分享！ 厉害了111 还是被秒了，，，，，，，，，，，，，， 太明显了，，，都不用F8直接改了几个跳转一运行果然好了
SeriousSnow 发表于 2017-7-27 22:43
还是被秒了，，，，，，，，，，，，，， 太明显了，，，都不用F8直接改了几个跳转一运行果然好了
答案隐藏 ！让新手 自己找！ 我会偷！
谢谢楼主分享！ 0040262C E8 2F180000 call 123123.00403E60
00402631 83C4 04 add esp,0x4
00402634 68 01030080 push 0x80000301
00402639 6A 00 push 0x0
0040263B 68 9C100000 push 0x109C ; 4252
00402640 68 01000000 push 0x1
00402645 BB A0424000 mov ebx,123123.004042A0
0040264A E8 05180000 call 123123.00403E54
0040264F 83C4 10 add esp,0x10
00402652 8945 EC mov dword ptr ss:,eax
00402655 8955 F0 mov dword ptr ss:,edx
00402658 DD45 F4 fld qword ptr ss:
0040265B DC4D EC fmul qword ptr ss:
0040265E DD5D E4 fstp qword ptr ss:
00402661 68 01030080 push 0x80000301
00402666 6A 00 push 0x0
00402668 68 AC0C0000 push 0xCAC ; 3244
0040266D 68 01000000 push 0x1
00402672 BB A0424000 mov ebx,123123.004042A0
00402677 E8 D8170000 call 123123.00403E54
0040267C 83C4 10 add esp,0x10
0040267F 8945 DC mov dword ptr ss:,eax
00402682 8955 E0 mov dword ptr ss:,edx
00402685 68 01030080 push 0x80000301
0040268A 6A 00 push 0x0
0040268C 68 02000000 push 0x2 ; 2
00402691 68 01000000 push 0x1 ; INT A *4252+3244/2
算法是
int a = 机器码;
int b = 4252;
int c = 3244;
return a*b+c/2 得出的数据则是注册码 不会破解超级小白