Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ; Image28
- ; Can recover the cd key for any windows game/software with some adjustments
- ; very slow if you don't already have most of your key.
- ; Don't use if you don't own the game and have most of the key, using other peoples keys is stealing as it is taking
- ; away their ability to play the game key they payed for.
- ; Lost my prey game cd key, found a linux install but was missing the last two hex values ( a checksum or sorts )
- ; Setup KEY VARABLES
- KEY := Object()
- KEY.MinIndex(0)
- KEY.MaxIndex(18)
- KEY[0]:=71
- KEY[1]:=85
- KEY[2]:=65
- KEY[3]:=65
- KEY[4]:=65
- KEY[5]:=65
- KEY[6]:=65
- KEY[7]:=65
- KEY[8]:=65
- KEY[9]:=65
- KEY[10]:=65
- KEY[11]:=65
- KEY[12]:=65
- KEY[13]:=65
- KEY[14]:=65
- KEY[15]:=65
- KEY[16]:=65
- KEY[17]:=65
- KEY[18]:=65
- INVAL:="OK`r`nThe CD Key you entered was not valid. Please re-enter."
- IfWinExist Prey - InstallShield Wizard
- {
- WinActivate
- Send {enter}
- sleep 5
- ; Main Loop
- while ( KEY[18] < 66 )
- {
- ; Bruteforce code here
- KEY[0]++
- COUNT:=0
- COUNT2:=1
- while ( COUNT <= 17 )
- {
- if ( KEY[COUNT] == 91 )
- {
- KEY[COUNT]:=48
- }
- if ( KEY[COUNT] == 58 )
- {
- KEY[COUNT2]++
- KEY[COUNT]:=65
- }
- COUNT++
- COUNT2++
- }
- COUNT:=0
- sTRING:=""
- while ( COUNT <= 17 )
- {
- STRING.=chr(KEY[COUNT])
- COUnt++
- }
- send %STRING%{enter}
- sleep 20
- ifWinExist CD Key Check
- {
- WinGetText TEXT
- ifInString TEXT,%INVAL%
- {
- sleep 20
- Send {enter}{tab}{tab}{enter}{enter}
- sleep 20
- }else{
- FileAppend, %STRING%`n, C:\keys.txt
- sleep 50
- Send {enter}
- Sleep 20
- Send {tab}
- sleep 20
- Send {tab}
- Sleep 20
- send {tab}
- sleep 20
- send {enter}
- sleep 20
- Send {enter}
- sleep 20
- Send {enter}
- sleep 20
- }
- }
- }
- }
- Exit
Add Comment
Please, Sign In to add comment