Сейчас на форуме: asfa, _MBK_, Adler (+8 невидимых)

 eXeL@B —› Вопросы новичков —› помогите с кейгеном
Посл.ответ Сообщение

Ранг: 30.8 (посетитель)
Активность: 0.02↘0
Статус: Участник

 Создано: 18 декабря 2012 17:15
· Личное сообщение · #1

Здравсвуйте форумчане!!!
помогите с кегеном! прога написана на autoit 3, декомпильнул, нашел проверку регистрации, а вот кейген сделать опыт не позволяет! подтолкните на нужную мыслю!

проверка реги
Code:
  1. $keygui = GUICreate("Registration", 300, 350, -1, -1, $gui_ss_default_gui - $ws_minimizebox)
  2.                  GUISetOnEvent($gui_event_close, "KeyOff")
  3.                  $keylabel = GUICtrlCreateLabel("The program is distributed 'AS IS'." & @CRLF & "The author is not liable if a user gets banned for using this program." & @CRLF & @CRLF & "The program has created the code: " & @CRLF & @CRLF & $key, 10, 10, 280, 120)
  4.                  GUICtrlCreateLabel("Send this code to e-mail (or PM):" & @CRLF & "bf3.zorki.glaz@gmail.com" & @CRLF & @CRLF & "The response letter will contain a serial number, enter it (without spaces) into the box below: ", 10, 125, 280, 75)
  5.                  $keyinput = GUICtrlCreateInput("", 10, 200, 280, 70, $es_multiline)
  6.                  $keycopy = GUICtrlCreateButton("Copy ALL data", 10, 280, 140, 25)
  7.                  GUICtrlSetOnEvent(-1, "KeyCopy")
  8.                  $keyok = GUICtrlCreateButton("Insert the key", 150, 280, 140, 25)
  9.                  GUICtrlSetOnEvent(-1, "KeyPaste")
  10.                  $keyok = GUICtrlCreateButton("Register", 90, 315, 120, 25)
  11.                  GUICtrlSetOnEvent(-1, "KeyOk")
  12.                  GUISetState()
  13.                  While 1
  14.                         If $keychoose = 1
  15.                               $entered = GUICtrlRead($keyinput)
  16.                               $entered = $entered & $username & $userpass
  17.                               If $entered = $restore
  18.                                    IniWrite($guid_key, $dllinisection, encrypt("GeneratedKey"), encrypt($key))
  19.                                    IniWrite($guid_key, $dllinisection, encrypt("UserEntrie"), $username)
  20.                                    IniWrite($guid_key, $dllinisection, encrypt("PassEntrie"), $userpass)
  21.                                    GUIDelete($keygui)
  22.                                    MsgBox(262144, $applicationname, "Hmm ... strange, but the code is correct.")
  23.                                    ExitLoop 
  24.                               Else
  25.                                    Sleep(50)
  26.                                    GUIDelete($keygui)
  27.                                    MsgBox(262144, "Error", "The code is not valid.")
  28.                                    Exit 
  29.                               EndIf
  30.                         EndIf
  31.                         Sleep(5)
  32.                  WEnd
  33.          EndIf
  34. EndFunc
  35.  
  36. Func keycopy()
  37.          $keychoose = 0
  38.          ClipPut($key & @CRLF & decrypt($username) & @CRLF & decrypt($userpass))
  39. EndFunc
  40.  
  41. Func keypaste()
  42.          $keychoose = 0
  43.          GUICtrlSetData($keyinput, ClipGet())
  44. EndFunc
  45.  
  46. Func keyok()
  47.          $keychoose = 1
  48. EndFunc
  49.  
  50. Func user_passok()
  51.          $user_pass = 1
  52. EndFunc
  53.  
  54. Func keyru()
  55.          $lang = "rus"
  56.          $langkey = 1
  57. EndFunc
  58.  
  59. Func keyen()
  60.          $lang = "eng"
  61.          $langkey = 1
  62. EndFunc
  63.  
  64. Func keyoff()
  65.          Exit 
  66. EndFunc
  67.  
  68. Func checkvalidation()
  69.          $recordedreg = decrypt(IniRead($guid_key, $dllinisection, encrypt("GeneratedKey"), "NewKey"))
  70.          If $recordedreg <> $key
  71.                  If FileExists($guid_key)FileDelete($guid_key)
  72.                  enternewcode()
  73.                  Return  - 1
  74.          EndIf
  75.          Return 1
  76. EndFunc
  77.  
  78. Func encrypt($string)
  79.          Return _stringencrypt(1, $string, $inienckey, 1)
  80. EndFunc
  81.  
  82. Func decrypt($string)
  83.          If $string <> ""
  84.                  Return _stringencrypt(0, $string, $inienckey, 1)
  85.          Else
  86.                  Return "NoN"
  87.          EndIf
  88. EndFunc
  89.  
  90. Func _getgiud()
  91.          $valkey = _winapi_uniquehardwareid(BitOR($uhid_mb, $uhid_bios))
  92.          $valkey = StringReplace($valkey, "{", "", 0)
  93.          $valkey = StringReplace($valkey, "}", "", 0)
  94.          $valkey = StringReplace($valkey, "-", "", 0)
  95.          If $valkey <> ""
  96.                  $valkey = $valkey & DriveGetSerial(@HomeDrive)
  97.                  Return $valkey
  98.          Else
  99.                  Return  - 1
  100.          EndIf
  101. EndFunc
  102.  
  103. #EndRegion


Заранее спасибо за любую помощь!



Ранг: 617.3 (!), 677thx
Активность: 0.54↘0
Статус: Участник

 Создано: 18 декабря 2012 17:23
· Личное сообщение · #2

Это полный исходник?
$restore непонятно откуда берется.



Ранг: 30.8 (посетитель)
Активность: 0.02↘0
Статус: Участник

 Создано: 18 декабря 2012 17:42
· Личное сообщение · #3

Vovan666 пишет:
Это полный исходник?$restore непонятно откуда берется.
нет не полный!

полный в аттаче!

1e4c_18.12.2012_EXELAB.rU.tgz - a_.rar



Ранг: 617.3 (!), 677thx
Активность: 0.54↘0
Статус: Участник

 Создано: 18 декабря 2012 18:07
· Личное сообщение · #4

Autoit ставить неохото, но вот это вроде интересно
Code:
  1. $key = _getgiud() ; предположительно получаем ID компа
  2. Global $securitycodeencryptionkey = "bkey";ключ шифрования
  3. $restore = _stringencrypt(1, $key, $securitycodeencryptionkey, 1) ;ключ активации

Ранг: 30.8 (посетитель)
Активность: 0.02↘0
Статус: Участник

 Создано: 18 декабря 2012 18:27
· Личное сообщение · #5

Vovan666
обязательно нужно на автоите писать кейген? можно как нибудь простеньки скрипт сделать например на питоне сделать, чтобы генерировал серийник!
там получается при входе проги нужно ввести имя и ключ а потом в следующем окне нужно ввести серийник



Ранг: 30.8 (посетитель)
Активность: 0.02↘0
Статус: Участник

 Создано: 20 декабря 2012 01:16
· Личное сообщение · #6

Vovan666
а этот код к регистрации дело не имеет???

Code:
  1. #EndRegion
  2. #Region Start Security
  3. Global $keychoose = 0, $keyinput, $keygui, $keylabel, $keycopy, $keypaste, $keyok
  4. Global $securitycodeencryptionkey = "bkey"
  5. Global $key = "", $valkey = "", $restore = "", $validation, $entered = "", $recordedreg = "", $keycheck, $user_passok, $user_pass = 0, $username, $userpass, $usergui, $userok, $restoreuser = "", $restorepass = "", $recordeduser = -1, $recordedpass = -1, $username_input, $userpass_input, $lang = "rus"
  6. Global $guid_key = @ScriptDir & "\user_key." & @OSArch
  7. Global $applicationname = " 538AB@0F8O CA?5H=0"
  8. Global $inienckey = "inicryptb"
  9. Global $dllinisection = encrypt("ini")
  10. If $lang = "rus"
  11.          Global $applicationname = " 538AB@0F8O CA?5H=0"
  12. Else
  13.          Global $applicationname = "Registration Successful"
  14. EndIf
 eXeL@B —› Вопросы новичков —› помогите с кейгеном
:: Ваш ответ
Жирный  Курсив  Подчеркнутый  Перечеркнутый  {mpf5}  Код  Вставить ссылку 
:s1: :s2: :s3: :s4: :s5: :s6: :s7: :s8: :s9: :s10: :s11: :s12: :s13: :s14: :s15: :s16:


Максимальный размер аттача: 500KB.
Ваш логин: german1505 » Выход » ЛС
   Для печати Для печати