Ⅰ 按键精灵加密脚本怎么用
一些脚本是作者用大量心血和汗水编写的，下面是一种利用小精灵加密限制用户使用的方法。需要作者授权才能单机使用，拷贝到别的电脑无法运行。注册步骤是发给用户编译后的小精灵文件，用户运行生成注册码文件，发给作者者，作者根据注册码文件（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
Ⅱ 按键精灵加密脚本怎么使用啊
加密脚本直接启动就可以,按照脚本内容执行,只是用户看不到脚本内的代码也无法修改而已~~
Ⅲ 按键精灵怎么把加密脚本解密呢
在按键启动时读入加密脚本在编译器中.分两套处理.一套为不加密的脚本一套是遇到PK开头符号的加密脚本处理
加解密算法的还没有空进行分析.估计都不是太难.就是MD5和河豚算法了
Ⅳ 按键精灵加密脚本怎么用
你直接制作小精灵不就好了，脚本就不会泄漏了。而且就算是加密脚本也是输入密码打开，而没办法绑定固定的电脑的，就算是密码一样可以互相泄漏啊。
希望能对您有帮助
Ⅳ 关于按键精灵如何给小精灵加密注册码。
呵呵，正好我刚学会你的问题，
有两个工程，是注册机的。
工程1是生成注册码的，就是别人把硬盘码（机器码）告诉你，你用这个工程1生成个注册码告诉别人。别人拿着注册码到工程2里使用。
工程2是给别人的，别人运行后就会自动读取硬盘码然后告诉你，拿到你给的注册码后输入注册后，就弹出你所做的按键精灵脚本，就是说这个注册码只能在一个电脑上用，（每个电脑的机器码不同）。
流程是这样的，工程2和你做的软件绑到一起发个别人--->别人打开工程2就会在text1里显示机器码---->别人把机器码发给你问你索要注册码---->你把他的机器码输入工程1里的text1里，txet2里就生成注册码---->给别人，别人在工程2里输入正确的注册码后就弹出和它一起打包的软件。
我还有种方法，让你的软件在别人电脑上只能用3次（或N次）就自删除。
如果你需要，加137350795，注明来意。我把那两工程给你，悬赏分要多给点哦