Сейчас на форуме: Magister Yoda, site-pro, Rio (+6 невидимых)

 eXeL@B —› Крэки, обсуждения —› Трабла с кейгеном от diablo2oo2
Посл.ответ Сообщение

Ранг: 0.3 (гость), 1thx
Активность: 0=0
Статус: Участник

 Создано: 17 июля 2013 21:33
· Личное сообщение · #1

Здравствуйте, уважаемые, форумчане пишу кейген (патчить и искать правильные серийники к имени уже не интересно) к 1 - ому крекми diablo2oo2. На скринах думаю всё видно и понятно, сначала хотелд забить на это дело, но захотелось разобратся.


сорец кейгена:
Code:
  1. procedure TForm1.Button1Click(Sender: TObject);
  2. var
  3.   cl, al, i: Integer;
  4. begin
  5.   al := 5;
  6.   i := 1;
  7.   while al > 0 do
  8.   begin
  9.     cl := ord(Edit1.text[i]);
  10.     cl := cl xor $29;
  11.     cl := cl + al;
  12.     if (cl < $41) or (cl > $5A) then
  13.     begin
  14.       cl := $52;
  15.       cl := cl + al;
  16.     end;
  17.     Dec(al);
  18.     inc(i);
  19.     Edit2.Text := Edit2.Text + chr(cl);
  20.     if al = 0 then
  21.     begin
  22.       al := 5;
  23.       i := 1;
  24.       while al > 0 do
  25.       begin
  26.         cl := ord(Edit1.Text[i]);
  27.         cl := cl xor $27;
  28.         cl := cl + al + 1;
  29.         if (cl < $41) or (cl > $5A) then
  30.         begin
  31.           cl := $4D;
  32.           cl := cl + al;
  33.         end;
  34.         Dec(al);
  35.         inc(i);
  36.         Edit2.Text := Edit2.Text + chr(cl);
  37.       end;
  38.     end;
  39.   end;
  40. end;

Вроде всё как и правильно, но тем не менее не работает.

| Сообщение посчитали полезным: Hellspawn


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

 Создано: 17 июля 2013 21:41 · Поправил: BoRoV
· Личное сообщение · #2

Попробуй объявить
Code:
  1. cl, al: byte;


А вобще там после получения серийника идет еще один круг преобразований, который ты не учитываешь.
И вытащи код по условию al=0 с цикла за его пределы (это так, для красоты).

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

| Сообщение посчитали полезным: Max Payne

Ранг: 0.3 (гость), 1thx
Активность: 0=0
Статус: Участник

 Создано: 17 июля 2013 22:58
· Личное сообщение · #3

Borov, ты прав там действительно есть ещё один круг преобразований, недосмотрел.
По поводу вытащить al с цикла, уже сделано
В принципе вопрос решён но если модеры посчитают должным тему удалить то так и сделайте, ну или пусть висит может кому окажется полезным.



Ранг: 10.4 (новичок), 12thx
Активность: 0.03↘0
Статус: Участник

 Создано: 18 июля 2013 16:55
· Личное сообщение · #4

тоже решил сделать первый в жизни кейген хотябы для крякми) нашёл где-то в нете пример крякми. немного переделал, вставил иконку. код передрал почти полностью с помощью multiline ultimate assembler (очень удобно кстати - почти не вникал в алгоритмы генерации)
наделал пример кейгена на MASM32 с исходниками(и проект для RadAsm *.rap) см. аттач

c979_18.07.2013_EXELAB.rU.tgz - KeyGEN.zip


 eXeL@B —› Крэки, обсуждения —› Трабла с кейгеном от diablo2oo2
Эта тема закрыта. Ответы больше не принимаются.
   Для печати Для печати