‘[原创]狂风汉化百宝箱 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进入讨论组讨论。
精品推荐