好友
阅读权限10
听众
最后登录1970-1-1
|
Global $sinfo = _getmachineinfo(), $bdecrypted, $beecrypted, $sanswer
Global $scryptkey = "fengxuezhuanyong"
Global $salgid = $calg_aes_256
Global $shardwareinfo = RegRead("HKEY_CURRENT_USER\Software", "sInfo")
If @Error Then
$bdecrypted = _ver_encryptdiskserialnumber($sinfo, $scryptkey & "en", False, $salgid)
If @error Then
MsgBox(0, "警告", "无法取得机器码,请检测程序是否能正常联网。")
Exit
Else
ClipPut($bdecrypted)
EndIf
While 1
$sanswer = InputBox("提示", "硬件码已经复制到剪贴板中,把硬件码发给作者获取激活码。", '', "*")
If @error = 1 Then
Exit
ElseIf $sanswer = "nigedashabikannimabine" Then
$beecrypted = _ver_encryptnetwork($sinfo, $scryptkey, 3650, "d", $salgid)
RegWrite("HKEY_CURRENT_USER\Software", "sInfo", "REG_SZ", $beecrypted)
MsgBox(0, "恭喜", "激活码正确,进入程序。")
ExitLoop
Else
$beecrypted = _ver_decryptnetwork($sanswer, $scryptkey, "d", $salgid)
If @error Then
Switch @error
Case 1
MsgBox(0, "警告", "激活失败,请检测程序是否能正常联网。")
Case 2
MsgBox(0, "警告", "激活失败,缺少激活文件。")
Case 3
MsgBox(0, "警告", "激活失败,激活码无效。")
EndSwitch
Else
If $beecrypted > 0 Then
MsgBox(0, "恭喜", "激活码正确,进入程序。" & @CRLF & "可以使用:" & $beecrypted & "天")
RegWrite("HKEY_CURRENT_USER\Software", "sInfo", "REG_SZ", $sanswer)
ExitLoop
Else
MsgBox(0, "警告", "激活码已过期,请重新申请。")
EndIf
EndIf
EndIf
WEnd
Else
$beecrypted = _ver_decryptnetwork($shardwareinfo, $scryptkey, "d", $salgid)
If @error Then
Switch @error
Case 1
MsgBox(0, "警告", "请检测程序是否能正常联网。")
Case 2
MsgBox(0, "警告", "缺少激活文件。")
Case 3
MsgBox(0, "警告", "激活码无效。")
EndSwitch
RegDelete("HKEY_CURRENT_USER\Software", "sInfo")
Exit Run(@AutoItExe)
Else
If $beecrypted > 0 Then
MsgBox(0, "恭喜", "软件可以使用:" & $beecrypted & "天")
Else
MsgBox(0, "警告", "激活码无效,请重新申请。")
RegDelete("HKEY_CURRENT_USER\Software", "sInfo")
Exit Run(@AutoItExe)
EndIf
EndIf
EndIf
大佬,这种脚本怎么改成不要激活码直接登录··要改哪里 |
|