按键精灵绑定机器硬盘的注册码怎么根据错误的机器码查找出正确的注册码?
第一步、发送给未授权用户用于产生注册码小精灵
第二步、把取得的包含注册码文件,用专用脚本提取出处册码
第三步、把提取到的注册码放入脚本,把功能脚本也放入脚本
第四步、把完整脚本编译为小精灵文件。
第一步的脚本以及说明:
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<=len1
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<=8
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<=8
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"之间放入要加密的脚本。
第四步说明:
紧接着第三步,把产生的脚本编译成小精灵文件,这样就产生了仅能在发送给你注册文件的那个用户
的电脑上运行的小精灵文件,你可以试一下在自己的电脑上运行就会报错。
-----------------
你觉得能破解么?
按键精灵7.21注册码?
推荐下载:按键精灵Quick Macro V7.21.5900简体中文绿色免费版
下载地址: /soft/14920.html
推荐理由:1、简体中文绿色免费,省去破解;2、目前最新的版本。
按键精灵,安卓绑定注册码
Dim 密码,ID
密码 = ReadUIConfig("注册码")
ID = GetDeviceID()
If 密码 = ID Then
ShowMessage "密码正确, 验证通过!"
TracePrint "密码正确, 验证通过!"
Do
Call 找图点击("1.png")
Call 找图点击("2.png")
Call 找图点击("3.png")
Call 找图点击("4.png")
Loop
Else
ShowMessage "你的IMEI是:" & ID & ",请联系xxx"
TracePrint "你的IMEI是:" & ID & ",请联系xxx"
End If
Sub 找图点击(图片名)
Dim intX,intY
FindPic 0, 0, 0, 0, "Attachment:" & 图片名, "000000", 0, 0.9, intX, intY
If intX > -1 Then
For 250
Tap 350, 1150
Next
End If
End Sub
//把sub放外面