按键精灵加密脚本怎么用？

答案:3 悬赏:0 手机版

解决时间 2021-02-01 14:43

提问者网友：未信
2021-01-31 19:26

脚本是作者辛苦编辑的，送给别人少数当然可以，但难保送的人再转送给别人，进而损害自己权利，所以急求个怎么让脚本或生成的exe格式文件只能在一台机子上用（即一机一码），那个脚本加密也许就这个用途，但加密了脚本，被加密的脚本怎么运行，点什么都没反应这个到底怎么弄，上网查了好久还是不会，哪个高手帮下忙

最佳答案

五星知识达人网友：枭雄戏美人
2021-01-31 20:32

一些脚本是作者用大量心血和汗水编写的，下面是一种利用小精灵加密限制用户使用的方法。需要作者授权才能单机使用，拷贝到别的电脑无法运行。注册步骤是发给用户编译后的小精灵文件，用户运行生成注册码文件，发给作者者，作者根据注册码文件（Script目录），生成仅能在此用户电脑上运行的小精灵文件。加密思路：利用用户C盘硬盘序列号的唯一性与一些随机码混合。下面是脚本代码 VBS Dim fso,dr,sn,snt,i,regstring,file,temp,vaid,serialnumber VBS Set fso=CreateObject("Scripting.FileSystemObject") VBS serialnumber="28"&"3F"&"12"&"02" //此处的283F1202是用户c盘序列号，分开写可以避免工具容易查找。 //每个序列号与该电脑对应，根据用户发来的注册文件提取，修改该句得到只能在该 //电脑运行的脚本，编译为小精灵即可 Rem checkreginfo Gosub checkreg If vaid=0 Goto outdoor EndIf Rem mainscript //此处放置需要加密的脚本 Rem outdoor EndScript Sub checkreg If fso.FileExists(".\reginfo.tdt")=0 VBS vaid=0 Gosub creatregtxt VBSCall Call MessageBox("Invaid Register information ,reginfo file created!") Goto checkover EndIf VBS Set file=fso.OpenTextFile(".\reginfo.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 sn=Clng("&H"&sn) VBS snt=Clng("&H"&serialnumber) If snt=sn VBS vaid=1 VBSCall Call MessageBox("Vaid User!") Else VBS vaid=0 Gosub creatregtxt VBSCall Call MessageBox("Invaid Register information ,reginfo file created!") EndIf Rem checkover Return checkreg EndScript Sub creatregtxt VBS Set file=fso.OpenTextFile(".\reginfo.tdt",2,True) VBS Set dr=fso.GetDrive("c:") VBS sn=Hex

全部回答

1楼网友：患得患失的劫
2021-01-31 22:57

一些脚本是作者用大量心血和汗水编写的，下面是一种利用小精灵加密限制用户使用的方法。需要作者授权才能单机使用，拷贝到别的电脑无法运行。注册步骤是发给用户编译后的小精灵文件，用户运行生成注册码文件，发给作者者，作者根据注册码文件（script目录），生成仅能在此用户电脑上运行的小精灵文件。加密思路：利用用户c盘硬盘序列号的唯一性与一些随机码混合。下面是脚本代码 vbs dim fso,dr,sn,snt,i,regstring,file,temp,vaid,serialnumber vbs set fso=createobject("scripting.filesystemobject") vbs serialnumber="28"

2楼网友：鸠书
2021-01-31 21:55

打开按键精灵软件，选择一个脚本，双击打开。点调试，再点绿色三角就可执行脚本。

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息