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

 eXeL@B —› Вопросы новичков —› как создать кеуген
Посл.ответ Сообщение

Ранг: 5.7 (гость)
Активность: 0.01↘0
Статус: Участник

 Создано: 28 марта 2009 17:20
· Личное сообщение · #1

народ как создать кейген тоесть генератор ключеи скачал прогу отсюда www.akoff.com/composer.zip из темы Ссылки на программы с простой защитой v2 прога генерирует ключ из маила при воде вот например mail@mail.ru пароль PC14P3P70070 или dgdf@fgdfg.ru пароль GD03GD0KC131 расмотрел сам а как кейген создать не подскажете




Ранг: 533.6 (!), 232thx
Активность: 0.45↘0
Статус: Uploader
retired

 Создано: 28 марта 2009 17:34 · Поправил: BoRoV
· Личное сообщение · #2

а зачем тебе код, вместо кода напиши подарок, и прога будет зарегана

Почему никто не хочет разбератся сам, пусть это зайиет неделю, месяц и т.д., но зато сам, потом же будет легче

Code:
  2. function GetCode(mail: string): string;
  3. var
  4.   code: string;
  5.   i, n: integer;
  6.   m: array[0..5] of DWORD;
  7. const
  8.   h = 'K35A7C2G041P96D8';
  10. function sar(i: integer): integer;
  11. asm
  12.   sar eax,4
  13. end;
  15. begin
  16.   code := '';
  17.   n := 0;
  18.   for i := 0 to length(mail) - 1 do
  19.     inc(n, ord(mail[i + 1]));
  21.   m[5] := n mod $7b;
  22.   for i := 0 to 4 do
  23.     m[i] := ord(mail[i + 1]) + m[5];
  25.   for i := 0 to 5 do
  26.     code := code + h[sar(m[i]) + 1] + h[(m[i] and $8000000F) + 1];
  28.   Result := code;
  29. end;


-----
Лучше быть одиноким, но свободным © $me


Ранг: 355.4 (мудрец), 55thx
Активность: 0.32↘0
Статус: Uploader
5KRT

 Создано: 28 марта 2009 18:06 · Поправил: Coderess
· Личное сообщение · #3

У kaiZer'а, был кейген с сорцом к этой проге

Тож кейгенил эту прогу:


Code:
  1. ///////////////////////////////////////////////////////////////// ///////////////////////
  3. const char K35A7C2G041P96D8[] = "K35A7C2G041P96D8";
  4. char  Email[24];
  6. ////////////////////////////////////////////////////////////////////// //////////////////
  8. BOOL CALLBACK KeygenProc(HWND hWnd)
  9. {
  10.          unsigned char lpbuf[160];
  11.          unsigned char lpbuf1[160];
  12.          
  13.          int len = GetDlgItemText(hWnd, IDC_EDIT1, (LPTSTR)Email, sizeof(Email));
  14.          if (len <= 5)
  15.          {
  16.                  MessageBox(0,"Email must be atleast 5 chars","Email length error",0);
  17.                  return (FALSE);
  18.          }
  20.          int sum = 0;
  21.          int i = 0;
  22.          for (i = 0; i < len; i++)
  23.          {
  24.                  sum += Email[i];
  25.          }
  27.          int sum1 = sum % 0x7b;
  28.          int sum2 = 0, c = 0;
  30.          for (i = 0; i < 5; i++)
  31.          {
  32.                  sum2 = Email[i] + sum1;
  33.                  lpbuf[i] = sum2;
  34.          }
  36.          lpbuf[5] = sum1;
  38.          memset(&lpbuf1, 0, sizeof(lpbuf1));
  40.          int j = 0;
  41.          unsigned int sum3 = 0;
  42.          for (i = 0; i <= 10; i+=2)
  43.          {
  44.                  
  45.                  sum3 = lpbuf[j];
  47.                  sum3 >>= 4;
  49.                  lpbuf1[i] = K35A7C2G041P96D8[sum3];
  50.                  
  51.                  int x = lpbuf[j] & 0x8000000F;
  53.                  lpbuf1[i+1] = K35A7C2G041P96D8[x];
  54.                  
  55.                  j++;
  56.          }
  58.          SetDlgItemText(hWnd, IDC_EDIT2, (LPTSTR)lpbuf1);
  60.          return (FALSE);
  61. }


-----
Gutta cavat lapidem. Feci, quod potui. Faciant meliora potentes


Ранг: 355.4 (мудрец), 55thx
Активность: 0.32↘0
Статус: Uploader
5KRT

 Создано: 28 марта 2009 19:10
· Личное сообщение · #4

BoRoV ха, с подарком прикольно

-----
Gutta cavat lapidem. Feci, quod potui. Faciant meliora potentes

Ранг: 5.7 (гость)
Активность: 0.01↘0
Статус: Участник

 Создано: 29 марта 2009 16:28
· Личное сообщение · #5

BoRoV пишет:
Почему никто не хочет разбератся сам, пусть это зайиет неделю, месяц и т.д., но зато сам, потом же будет легче
ну вот я и расматриваю сам




Ранг: 533.6 (!), 232thx
Активность: 0.45↘0
Статус: Uploader
retired

 Создано: 29 марта 2009 17:13
· Личное сообщение · #6

AET пишет:
ну вот я и расматриваю сам
что-то по шапке не видно
AET пишет:
народ как создать кейген тоесть генератор ключеи

если б ты сам разберался, то написал бы не так

-----
Лучше быть одиноким, но свободным © $me


Ранг: 355.4 (мудрец), 55thx
Активность: 0.32↘0
Статус: Uploader
5KRT

 Создано: 29 марта 2009 18:25
· Личное сообщение · #7

Есть проги и попроще этой, лучше начни с них

-----
Gutta cavat lapidem. Feci, quod potui. Faciant meliora potentes

Ранг: 5.7 (гость)
Активность: 0.01↘0
Статус: Участник

 Создано: 02 апреля 2009 13:20
· Личное сообщение · #8

К примеру вот -> audiomp3maker.exe скачал здесь www.mjjsoft.com/index.htm выложил его Dr3dоткрыл в олге нашол какие слова выходят после вода ключа поставил там бряк и увидел что в стеке идет сравнение с сгенерированым ключом и моим ключом которую я вел теперь вопрос подскажите после вода ключа создается фаил с ключом если убрать ключ то прога запрашивает обратно вести ключ как можно узнать где идет считывание данного файла тоесть ключа



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

 Создано: 02 апреля 2009 13:55
· Личное сообщение · #9

AET пишет:
как можно узнать где идет считывание данного файла тоесть ключа
ставь бряк на CreateFileA



Ранг: 5.7 (гость)
Активность: 0.01↘0
Статус: Участник

 Создано: 02 апреля 2009 15:14
· Личное сообщение · #10

Lampik пишет:
ставь бряк на CreateFileA блогодарен


 eXeL@B —› Вопросы новичков —› как создать кеуген
:: Ваш ответ
Жирный  Курсив  Подчеркнутый  Перечеркнутый  {mpf5}  Код  Вставить ссылку 
:s1: :s2: :s3: :s4: :s5: :s6: :s7: :s8: :s9: :s10: :s11: :s12: :s13: :s14: :s15: :s16:


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