按键精灵 注册码按键精灵绑定机器硬盘的注册码怎么根据错误的机器码查找出正确的注册码?
按键精灵 注册码 时间:2022-02-28 阅读:(
)
按键精灵绑定机器硬盘的注册码怎么根据错误的机器码查找出正确的注册码?
第一步、发送给未授权用户用于产生注册码小精灵 第二步、把取得的包含注册码文件,用专用脚本提取出处册码 第三步、把提取到的注册码放入脚本,把功能脚本也放入脚本 第四步、把完整脚本编译为小精灵文件。 第一步的脚本以及说明: 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"之间放入要加密的脚本。 第四步说明: 紧接着第三步,把产生的脚本编译成小精灵文件,这样就产生了仅能在发送给你注册文件的那个用户 的电脑上运行的小精灵文件,你可以试一下在自己的电脑上运行就会报错。 ----------------- 你觉得能破解么?
如何低价香港服务器购买?想要做一个个人博客,想用香港服务器,避免繁琐备案,性能不需要多高,只是记录一些日常而已,也没啥视频之类的东西,想问问各位大佬有没有低价的香港服务器推荐?香港距大陆近,相比美国服务器最大的优势在于延迟低,ping值低,但是带宽紧张,普遍都是1M,一般戏称其为“毛细血管”。同时价格普遍高,优质稳定的一般价格不菲。大厂云梯队阿里云、腾讯云两家都有香港服务器,要注意的是尽量不要选择...
WHloud Date(鲸云数据),原做大数据和软件开发的团队,现在转变成云计算服务,面对海内外用户提供中国大陆,韩国,日本,香港等多个地方节点服务。24*7小时的在线支持,较为全面的虚拟化构架以及全方面的技术支持!官方网站:https://www.whloud.com/WHloud Date 韩国BGP云主机少量补货随时可以开通,随时可以用,两小时内提交退款,可在工作日期间全额原路返回!支持pa...
racknerd在促销美国洛杉矶multacom数据中心的一款大硬盘服务器,用来做存储、数据备份等是非常划算的,而且线路还是针对亚洲有特别优化处理的。双路e5+64G内存,配一个256G的SSD做系统盘,160T SAS做数据盘,200T流量每个月,1Gbps带宽,5个IPv4,这一切才389美元...洛杉矶大硬盘服务器CPU:2 * e5-2640v2内存:64G(可扩展至128G,+$64)硬...
按键精灵 注册码为你推荐
好享购物我国省级电视台有哪些权限表什么是DRM权限列表,怎么使用权限表帮忙设计个用户权限表互联网接入计算机接入因特网的方式有哪几种监控设备安装家庭如何安装监控设备色空间色差仪中L值a值b值是什么意思现在网现在网上买东西安全吗,2021年武汉发的货安全吗?背投广告搜狐的广告类型有哪些?报价多少?封包是什么dnf封包是什么最好的电脑操作系统主流的电脑操作系统都有哪些?
企业域名备案 ipage vps.net Vultr 谷歌香港 免费静态空间 ibox官网 howfile 谁的qq空间最好看 789电视网 ntfs格式分区 qq对话框 服务器合租 酷番云 360云服务 路由跟踪 美国盐湖城 秒杀品 中国电信宽带测速 学生机 更多