我从网上下了一个加密脚本，给自己的小精灵加密后，需要注册码才能运行，但是不知道怎么做注册码，谁能教下我，下面是我下的加密脚本，
VBS Dim fso,dr,sn,snt,i,regstring,regstring1,file,path,temp,vaid,serialnumber,filename1,filename2,filename3,retv,reg,try
VBS set fso=CreateObject("Scripting.Filesystemobject")
VBS set Obj=createobject("WScript.Shell")
VBS reg=0
VBS try=1
VBS filename1=".\机器码.txt"
VBS filename2=".\注册信息.txt"
VBS filename3=".\试用次数.txt"
Rem checkreginfo
Gosub checkreg
If vaid=0
VBSCall retv1=Obj.Popup(" 你好，是否试用？",0,"加密！",36)
If retv1=7
Goto outdoor
EndIf
Gosub 使用次数限制
EndIf
Rem mainscript
//此处放置需要加密的脚本
//------------------------------------脚本区--------------------------------------
MessageBox 脚本区
//------------------------------------脚本区--------------------------------------
Rem outdoor
If reg=0
VBSCall retv=Obj.Popup(" 你好，是否注册？",0,"加密",36)
If retv=6
Gosub 注册
EndIf
EndIf
//这里是没注册试用后弹出的网页
MessageBox 作者：浩孑
EndScript
Sub checkreg
If fso.FileExists(filename2)=0
VBS vaid=0
Gosub creatregtxt
VBSCall Call MessageBox("你的机器码为:"&sn&" 请注册，谢谢！")
VBS reg=0
Goto checkover
EndIf
VBS Set file=fso.OpenTextFile(filename2,1,True)
VBS regstring=file.ReadLine
VBS file.Close
VBS i=1
VBS serialnumber=""
While i<=(Len(regstring)-4)/5
VBS serialnumber=serialnumber&Mid(regstring,5*i,1)
VBS i=i+1
EndWhile
VBS Set dr=fso.GetDrive("d:")
VBS sn=Hex(dr.SerialNumber)
VBS sn=int("&H"&sn)
//解密算法，是加密的可逆（更加复杂的就得自己去设计了！）
VBS snt=int(serialnumber)/3
If snt=sn
VBS vaid=1
VBS reg=1
Else
VBS vaid=0
VBS reg=0
Gosub creatregtxt
VBSCall Call MessageBox("一机一码哦，你的机器码为:"&sn&" 请注册，谢谢！^-^")
EndIf
Rem checkover
Return checkreg
EndScript
Sub creatregtxt
VBS Set file=fso.CreateTextFile(filename1,2)
VBS Set dr=fso.GetDrive("d:")
VBS sn=Hex(dr.SerialNumber)
VBS file.WriteLine(sn)
VBS file.Close
Return creatregtxt
Sub 注册
VBSCall regstring1=inputbox("请输入你的注册码：")
VBS i1=1
VBS sn1=""
While i1<=(Len(regstring1)-4)/5
VBS sn1=sn1&Mid(regstring1,5*i1,1)
VBS i1=i1+1
EndWhile
VBS Set dr=fso.GetDrive("d:")
VBS sn=Hex(dr.SerialNumber)
VBS sn=int("&H"&sn)
//解密算法，是加密的可逆（更加复杂的就得自己去设计了！）
VBS sn1=int(sn1)/3
If sn=sn1
VBS Set file=fso.CreateTextFile(filename2,True)
VBS file.WriteLine(regstring1)
VBS file.Close
MessageBox 注册成功！
Else
MessageBox 注册码错误！
EndIf
Return
Sub 使用次数限制
If fso.FileExists(filename3)=-1
VBS Set file=fso.OpenTextFile(filename3,1)
VBS try=file.readline
VBS file.close
Else
VBS Set file=fso.CreateTextFile(filename3,2)
VBS file.WriteLine(try)
VBS file.close
EndIf
//试用次数
If try<=8
VBSCall call messagebox("你的未注册用户,还能试用"&(8-try)&"次!!请尽快注册!!谢谢!!")
VBS set file=fso.createtextfile(filename3,2)
try=try+1
VBS file.writeline(try)
VBS file.close
Else
VBSCall call messagebox("你的试用次数已到,请注册,谢谢!")
Goto outdoor
EndIf
Return