Dim deviceID
deviceID = GetDeviceID()
TracePrint "本机的ID是:"&deviceID
Dim 用户输入的注册码,正确口令
用户输入的注册码 = ReadUIConfig("注册码")
TracePrint "用户输入的注册码是:" & 用户输入的注册码
正确口令 = 加密算法(deviceID)
TracePrint "正确口令是:" & 正确口令
If 用户输入的注册码 = 正确口令 Then
TracePrint "口令正确"
Else
TracePrint "口令失败,退出脚本"
EndScript
End If
Function 加密算法(参数)
Dim MyVar = Mid(参数, 2, 5)
Dim var(5)
For i=1 to 5
Dim Str = Mid(MyVar,i, 1)
Dim Str1 = Asc(Str)
var(i - 1) = Str1
Next
Dim MyString = Join(var, "")
Dim fanzhuan = StrReverse(MyString)
Dim fanzhuanjiequ = Mid(fanzhuan,1, 7)
Dim strtonum = CInt(fanzhuanjiequ)
Dim z = strtonum - 65535
加密算法 = CStr(z)
End Function