image28

CD Key Cracker AutoHotKey

May 7th, 2016
151
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ; Image28
  2. ; Can recover the cd key for any windows game/software with some adjustments
  3. ; very slow if you don't already have most of your key.
  4. ; 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
  5. ; away their ability to play the game key they payed for.
  6. ; Lost my prey game cd key, found a linux install but was missing the last two hex values ( a checksum or sorts )
  7.  
  8. ; Setup KEY VARABLES
  9. KEY := Object()
  10. KEY.MinIndex(0)
  11. KEY.MaxIndex(18)
  12. KEY[0]:=71
  13. KEY[1]:=85
  14. KEY[2]:=65
  15. KEY[3]:=65
  16. KEY[4]:=65
  17. KEY[5]:=65
  18. KEY[6]:=65
  19. KEY[7]:=65
  20. KEY[8]:=65
  21. KEY[9]:=65
  22. KEY[10]:=65
  23. KEY[11]:=65
  24. KEY[12]:=65
  25. KEY[13]:=65
  26. KEY[14]:=65
  27. KEY[15]:=65
  28. KEY[16]:=65
  29. KEY[17]:=65
  30. KEY[18]:=65
  31. INVAL:="OK`r`nThe CD Key you entered was not valid.  Please re-enter."
  32.  
  33. IfWinExist Prey - InstallShield Wizard
  34. {
  35.     WinActivate
  36.  
  37. Send {enter}
  38. sleep 5
  39.  
  40. ; Main Loop
  41. while ( KEY[18] < 66 )
  42. {
  43.     ; Bruteforce code here
  44.  
  45.         KEY[0]++
  46.     COUNT:=0
  47.     COUNT2:=1
  48.  
  49.         while ( COUNT <= 17 )
  50.     {
  51.  
  52.         if ( KEY[COUNT] == 91 )
  53.         {
  54.             KEY[COUNT]:=48
  55.         }
  56.  
  57.  
  58.         if ( KEY[COUNT] == 58 )
  59.         {
  60.             KEY[COUNT2]++
  61.             KEY[COUNT]:=65
  62.            
  63.         }
  64.  
  65.         COUNT++
  66.         COUNT2++   
  67.     }
  68.  
  69.     COUNT:=0
  70.     sTRING:=""
  71.     while ( COUNT <= 17 )
  72.     {
  73.         STRING.=chr(KEY[COUNT])
  74.         COUnt++
  75.     }
  76.  
  77.     send %STRING%{enter}
  78.  
  79.     sleep 20
  80.  
  81.     ifWinExist CD Key Check
  82.     {
  83.         WinGetText TEXT
  84.         ifInString TEXT,%INVAL%
  85.         {
  86.             sleep 20
  87.             Send {enter}{tab}{tab}{enter}{enter}
  88.             sleep 20
  89.         }else{
  90.             FileAppend, %STRING%`n, C:\keys.txt
  91.             sleep 50
  92.             Send {enter}
  93.             Sleep 20
  94.             Send {tab}
  95.             sleep 20
  96.             Send {tab}
  97.             Sleep 20
  98.             send {tab}
  99.             sleep 20
  100.             send {enter}
  101.             sleep 20
  102.             Send {enter}
  103.             sleep 20
  104.             Send {enter}
  105.             sleep 20
  106.         }
  107.     }
  108.  
  109.  
  110.  
  111. }
  112. }
  113. Exit
Add Comment
Please, Sign In to add comment