September 25, 2009

【按鍵精靈-中級篇】小精靈加密方案(轉貼)

資料來源:兄弟論壇
作者: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

0推薦此文章
Today's Visitors: 0 Total Visitors: 15010
[Trackback URL]

Reply
  • 1樓

    1樓搶頭香

    哈摟 這篇 我看不懂耶

  • @@ at December 22, 2009 12:08 AM comment
  • 看不懂很正常,因為要先從初級的腳本開始學習囉!一起加入寫按鍵精靈腳本的行列吧!

  • Blog Owner at December 22, 2009 10:58 PM Reply
  • 2樓

    2樓頸推

    請問這是要貼在哪裡的?

  • @@ at January 7, 2010 09:29 PM comment
  • 想貼那裡就貼那裡囉

  • Blog Owner at January 7, 2010 11:31 PM Reply
  • 3樓

    3樓坐沙發

    想問一下!
    這是取得系統獨特的地方驗證嗎?
    是什麼地方?

  • love22822436 at April 26, 2010 04:05 AM comment | prosecute
  • 4樓

    福樓

    是在哪裡驗證呢?

    按鍵精靈做的出來驗證的地方 ?

  • SOR!! at May 15, 2010 08:44 AM comment | email
  • 5樓

    專業的5樓

    貼在小精靈那之後 如何驗證那個認證碼 才允許 他能使用呢!

  • ! at August 2, 2011 01:43 PM comment
Post A Comment









Yes No



Please input the magic number:

( Prevent the annoy garbage messages )
( What if you cannot see the numbers? )
Please input the magic number

誰來收藏
Loading ...
unlog_NVPO 0