|
////////////////////////////////////////////////////////
dim stRegCmp,stRegAdd
stRegCmp = "A1"&"77"&"1F"&"48"&"8B"&"21"&"96"&"48"&"F9"&"E8"&"96"&"B1"&"47"&"B5"&"92AB"
stRegAdd = "伏"&"智"&"勇"&"66"&"88"
Plugin GetSN = Sys.GetHDDSN()
GetSN = Hex(GetSN)
GetSN = Mid(GetSN,1,8)
stReg = GetSN & stRegAdd
Plugin stReg = Encrypt.Md5String(stReg)
//////////////////////////////////////////
//第81行
Gosub CheckReg
Sub CheckReg
If stReg = stRegCmp
//MessageBox "这是你的机器,谢谢!"
Else
//Msg = stReg & vbCr & stRegCmp
//MessageBox Msg
MessageBox "程序非正常结束,请与作者联系"
Goto InvalidRegInfo
EndIf
Return |
|