eXeLab
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС ВЗЛОМ
выпущен 2 августа!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

Русский / Russian English / Английский

Сейчас на форуме: (+4 невидимых)
 · Начало · Статистика · Регистрация · Поиск · ПРАВИЛА ФОРУМА · Язык · RSS · SVN ·

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

Ранг: 0.3 (гость)
Статус: Участник

Создано: 17 июля 2013 21:33 New!
Цитата · Личное сообщение · #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 (!)
Статус: Uploader
retired

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

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


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

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


Ранг: 0.3 (гость)
Статус: Участник

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

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

Ранг: 10.4 (новичок)
Статус: Участник

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

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

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

Оригинальный DVD-ROM: eXeL@B DVD !

Вы находитесь на форуме сайта EXELAB.RU
Проект ReactOS