【按鍵精靈-中級篇】小精靈加密方案(轉貼)
資料來源:兄弟論壇
作者:yytk
方案有Bug,能發現的就回帖指出來吧。
===============================
#這是按鍵精靈生成的腳本源文件
#在理解各條命令的基礎上,您可以修改這個文件的內容
#您修改的結果將會在普通視圖上有所反映
UserVar ms=DropList{獲取本機授權碼:0|測試授權碼:1|根據序列號計算授權碼:2}=1 工作模式選擇
UserVar mima=5457118 請輸入授權密碼
Plugin s0=GetSysInfo.GetHDDSerialNumber()
If ms=0
Gosub 計算本機密碼
ElseIf ms=2
Gosub 根據序列號計算授權碼
Else
Goto 註冊
EndIf
Rem 註冊
Plugin s=GetSysInfo.GetHDDSerialNumber()
x=Abs(Int(s/95+123876))
If x=mima
Delay 1000
Goto 主腳本
Else
VBSCall RunApp("notepad.exe")
Delay 2000
SayString "本機序列號是:"&s
Delay 1000
KeyPress 13,1
SayString "請聯繫作者索取授權密碼 QQ:399104662 芝華士"
Delay 1000
MessageBox "本機序列號是:"&s&" 請聯繫作者索取授權密碼 QQ:399104662 芝華士"
Gosub 結束腳本
EndIf
Sub 計算本機密碼
Plugin s=GetSysInfo.GetHDDSerialNumber()
x=Abs(Int(s/95+123876))
VBSCall RunApp("notepad.exe")
Delay 2000
SayString "本機授權密碼是:"&x
Delay 1000
MessageBox "本機授權密碼是:"&x
EndScript
Return 計算本機密碼
Sub 根據序列號計算授權碼
s=InputBox("請輸入硬碟序列號")
x=Abs(Int(s/95+123876))
VBSCall RunApp("notepad.exe")
Delay 2000
SayString "此序列號授權密碼是:"&x
Delay 1000
MessageBox "此序列號授權密碼是:"&x
EndScript
Return 根據序列號計算授權碼
Sub 結束腳本
EndScript
Return
Rem 主腳本
MessageBox "密碼驗證成功,您可以正常使用腳本了!"
EndScript
Previous in This Category: 【按鍵精靈-初級篇】教你如何快速高效地製作遊戲所需要的圖片(轉貼) Next in This Category: 【按鍵精靈-初級篇】後台取色找色(轉貼)











1樓
1樓搶頭香
哈摟 這篇 我看不懂耶
看不懂很正常,因為要先從初級的腳本開始學習囉!一起加入寫按鍵精靈腳本的行列吧!
2樓
2樓頸推
請問這是要貼在哪裡的?
想貼那裡就貼那裡囉
3樓
3樓坐沙發
想問一下!
這是取得系統獨特的地方驗證嗎?
是什麼地方?
4樓
福樓
是在哪裡驗證呢?
按鍵精靈做的出來驗證的地方 ?
5樓
專業的5樓
貼在小精靈那之後 如何驗證那個認證碼 才允許 他能使用呢!