狂风汉化百宝箱 XP v2.00a 算号器 算法分析

‘[原创]狂风汉化百宝箱 XP v2.00a 算号器

============================

Dim I,MSN,SN

MSN=cstr(InputBox("在这里输入机器码:","狂风汉化百宝箱 XP v2.00a 算号器"))

If MSN="" then Wscript.Quit

For i=len(MSN) to 1 step -1

SN=SN & Chr(Asc(Mid(MSN,i,1))+I+20)

Next

MsgBox "注册码是:" & SN & vbCrlf & "你可以随后拷贝密码！", _

vbOKOnly+vbInformation,"请支持国产优秀软件!"

Inputbox "你可以在这里拷贝注册号：","请支持国产优秀软件!",SN

========================================

‘开心字典转换工具V2.41算号器

Dim MSN,SN

msn=InputBox("输入你的机器码！","开心字典转换工具V2.41算号器","")

if msn="" or (not isnumeric(msn)) or len(msn)<>8 then

MsgBox "错了吧，试着再输入一遍!",vbOkonly+vbinformation,"呵呵，重来!"

Wscript.quit

end if

dim I

for i=1 to 20

randomize

sn=cstr(sn)&cstr(clng(9*rnd))

next

Dim Detect1,Detect2,subMath

subMath=mid(msn,8,1) & mid(msn,1,1)

Detect1=mid(msn,2,3)

Detect2=mid(msn,5,3)

sn=mid(sn,1,11) & clng(detect1)-clng(submath) _

& mid(sn,15,2) & clng(detect2)-clng(subMath) _

& mid(sn,20,1)

msgbox "OK!用户名随意!" & vbcrlf & "SN:" & SN & vbcrlf & "随后可以拷贝注册码!", _

vbokonly+vbinformation,"开心字典转换工具V2.41注册码"

InputBox "请拷贝密码：" ,"开心字典转换工具V2.41注册码",SN（出处：赢政天下整理收藏）

相关资讯：

·语音界面2.0算法分析及注册机源码！

·侠客系统修改器1.21破解手记--算法分析

·中文拨号上网计时计费器 V4.12注册算法分析

·ClockWise 3.22e注册码算法分析

·CoolClock V1.02注册算法分析

·Directory Scanner v1.5 注册算法分析

·Disk Chief 1.2 简单注册算法分析

·EffeTech HTTP Sniffer 3.2注册算法分析

·eLib2.01算法分析

·EZ MP3 Recorder 1.15 注册算法分析

相关软件：

→ 特别推荐

→ 热点TOP10

我为人人《《==》》人人为我

关于我们 |

帮助(？)

| 广告服务 |

版权声明 |

商业合作 |

发展历程 |

加盟我们 |

联系我们

Copyright ? 1998-2003 winzheng.com

All Rights Reserved.

特别感谢 蓝芒科技 提供下载站及论坛服务器