A. 按鍵精靈加密腳本怎麼用
一些腳本是作者用大量心血和汗水編寫的，下面是一種利用小精靈加密限制用戶使用的方法。需要作者授權才能單機使用，拷貝到別的電腦無法運行。注冊步驟是發給用戶編譯後的小精靈文件，用戶運行生成注冊碼文件，發給作者者，作者根據注冊碼文件（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