按键精灵绑定机器硬盘的注册码怎么根据错误的机器码查找出正确的注册码?
第一步、发送给未授权用户用于产生注册码小精灵 第二步、把取得的包含注册码文件,用专用脚本提取出处册码 第三步、把提取到的注册码放入脚本,把功能脚本也放入脚本 第四步、把完整脚本编译为小精灵文件。 第一步的脚本以及说明: VBS Dim fso,dr,sn,snt,i,regstring,file,temp,vaid,serialnumber,len1 VBS Set fso=CreateObject("Scripting。 FileSystemObject") serialnumber="B2"&"B1"&"3D"&"6" //此处的B2B13D6是用户c盘序列号,分...全部
第一步、发送给未授权用户用于产生注册码小精灵 第二步、把取得的包含注册码文件,用专用脚本提取出处册码 第三步、把提取到的注册码放入脚本,把功能脚本也放入脚本 第四步、把完整脚本编译为小精灵文件。
第一步的脚本以及说明: VBS Dim fso,dr,sn,snt,i,regstring,file,temp,vaid,serialnumber,len1 VBS Set fso=CreateObject("Scripting。
FileSystemObject") serialnumber="B2"&"B1"&"3D"&"6" //此处的B2B13D6是用户c盘序列号,分开写可以避免工具容易查找。 //每个序列号与该电脑对应,根据用户发来的注册文件提取,修改该句得到只能在该 //电脑运行的脚本,编译为小精灵即可 Rem checkreginfo Gosub checkreg If vaid=0 Goto outdoor EndIf Rem mainscript //此处放置需要加密的脚本 Rem outdoor EndScript Sub checkreg VBS Set dr=fso。
GetDrive("c:") VBS snt=dr。SerialNumber VBS sn=Clng("&H"&serialnumber) If StrComp(sn,snt)<>0 VBS vaid=0 Gosub creatregtxt VBSCall Call MessageBox("非法用户或未注册版本,注册文件已经产生:c:
eginfo。
tdt,请注册!") Goto checkover EndIf VBS vaid=1 Rem checkover Return checkreg Sub creatregtxt VBS Set file=fso。
OpenTextFile("C:
eginfo。tdt",2,True) VBS Set dr=fso。GetDrive("c:") VBS sn=Hex(dr。SerialNumber) VBS len1=Len(sn) Gosub rand VBS regstring=temp VBS i=1 While i VBS regstring=regstring&Mid(sn,i,1) Gosub rand VBS regstring=regstring&temp VBS i=i 1 EndWhile VBS file。
WriteLine(regstring) VBS file。Close Return creatregtxt Sub rand Randomize VBS temp=Int((65535 -4096 1)*Rnd 4096) VBS temp=Hex(temp) Return rand 此部分是检查是否合法用户和产生注册文件部分。
第3行是授权给的硬盘序列号,如果运行时读取的注册号和 该号码相同,那么是授权用户,比如目前的序列号是我的C盘的序列号,别的电脑运行会提示非法用户或未注 册版本,并在运行电脑的C盘的根目录下产生注册文件reginfo。
tdt。 如果在我的电脑上运行则没有任何提示也就是验证通过。 先把上面部分编译成小精灵,然后发给要授权的用户,让他运行,并让他把在C盘的根目录下产生的文件 reginfo。tdt发给你,放到你的C盘根目录下。
第二步的脚本及说明: VBS Dim fso,dr,sn,i,regstring,file,serialnumber VBS Set fso=CreateObject("Scripting。
FileSystemObject") Rem checkreginfo If fso。FileExists("C:
eginfo。tdt")=0 VBSCall Call MessageBox("没有找到注册文件!") Goto checkover EndIf VBS Set file=fso。
OpenTextFile("C:
eginfo。tdt",1) VBS regstring=file。ReadLine VBS file。Close VBS i=1 VBS sn="" While i VBS sn=sn&Mid(regstring,5*i,1) VBS i=i 1 EndWhile VBS regstring=sn VBS i=3 VBS sn=""""&Mid(regstring,1,2)&"""" While i VBS sn=sn&"&"&""""&Mid(regstring,i,2)&"""" VBS i=i 2 EndWhile VBS Set file=fso。
OpenTextFile("C:serial。txt",2,True) VBS file。WriteLine("serialnumber="&sn) VBS file。Close VBSCall Call MessageBox("提取序列号成功!保存在C盘根目录下serial。
txt中") Rem checkover EndScript 该部分脚本运行时在C盘根目录下找reginfo。tdt文件,如果没有找到就报错退出。 如果找到就按加密的逆运算提取出等待授权用户C盘的序列号,并保存到C盘根目录下serial。
txt中。 第三步说明: 如果前面两部分操作成功,就可以进行这一部分。 打开C盘根目录下serial。txt,复制第一行,然后打开第一部分的脚本,把第三行 serialnumber="B2"&"B1"&"3D"&"6" 替换掉,也就是换为待授权用户的硬盘C盘的序列号。
然后在脚本的 "Rem mainscript" 和"Rem outdoor"之间放入要加密的脚本。 第四步说明: 紧接着第三步,把产生的脚本编译成小精灵文件,这样就产生了仅能在发送给你注册文件的那个用户 的电脑上运行的小精灵文件,你可以试一下在自己的电脑上运行就会报错。
----------------- 你觉得能破解么?。收起