Написание кейгена к Ad Muncher 4.3d

0057C5E3 030D7FD04000            add ecx, dword ptr [0040D07F]
0057C5E9 6A00                    push 00000000
0057C5EB 51                      push ecx
0057C5EC 50                      push eax
0057C5ED FF7508                  push [ebp+08]
0057C5F0 6A5C                    push 0000005C
0057C5F2 E819AAFFFF              call 00407010
0057C5F7 EB2E                    jmp 0040C627
0057C5F9 663D6B00                cmp ax, 006B
0057C5FD 7513                    jne 0040C612

* Referenced by a (U)nconditional or (C)onditional Jump at Addresses:
|:0040C4D4(U), :0040C4E7(C), :0040C529(C)

:0040C4D9 BF7B484600     mov edi, 0046487B
:0040C4DE B02D           mov al, 2D          <- Символ "-"
:0040C4E0 B914000000     mov ecx, 00000014   <- 14 символов
:0040C4E5 F2             repnz
:0040C4E6 AE             scasb
:0040C4E7 0F85E6000000   jne 0040C5D3        <- если не найден MessageBox
:0040C4ED C647FF00       mov [edi-01], 00    <- Найден, заменяем его 0

:0057C4FC E8B1070000      call 0040CCB2

:0057CCB2 33DB      xor ebx, ebx           <- Обнуление регистров
:0057CCB4 33C0      xor eax, eax           <- перед
:0057CCB6 33D2      xor edx, edx           <- использованием
:0057CCB8 8A1E      mov bl, byte ptr [esi] <-Первый байт кода (ESI указывает на код)
:0057CCBA 46        inc esi                <-Увеличиваем указатель
:0057CCBB F7E7      mul edi                <-Умножаем eax на edi (edi=10h)
:0057CCBD 83EB30    sub ebx, 00000030      <-Получаем реальное цисло из кода
:0057CCC0 83FB09    cmp ebx, 00000009      <-Если число больше 9 (в пароле
:0057CCC3 7603      jbe 0057CCC8           <- это цифры). Переходим
:0057CCC5 83EB07    sub ebx, 00000007      <-Если буквы - вычитаем еще 7
:0057CCC8 03C3      add eax, ebx           <-Добавляем к eax ebx
:0057CCCA 8A1E      mov bl, byte ptr [esi] <-Второй байт кода
:0057CCCC 83D200    adc edx, 00000000      <-Бессмыслица
:0057CCCF 80FB00    cmp bl, 00             <-Если 2-й байт 0, то
:0057CCD2 7426      je 0057CCFA            <-выход из процедуры
:0057CCD4 85D2      test edx, edx          <-Если edx<>0, то снова
:0057CCD6 75E2      jne 0057CCBA           <-то снова
:0057CCD8 8BC8      mov ecx, eax           <- ecx=eax
:0057CCDA 8BC2      mov eax, edx           <-eax=edx=0
:0057CCDC 46        inc esi                <-Увелич.указаеля на код
:0057CCDD F7E7      mul edi                <-Умножаем eax на edi (edi=10h)
:0057CCDF 91        xchg eax,ecx           <-Меняем местами ecx и eax
:0057CCE0 33D2      xor edx, edx           <-edx=0
:0057CCE2 F7E7      mul edi                <-Умножаем eax на edi (edi=10h)
:0057CCE4 83EB30    sub ebx, 00000030      <-Получаем реальное цисло из кода
:0057CCE7 83FB09    cmp ebx, 00000009      <-Если число больше 9 (в пароле
:0057CCEA 7603      jbe 0057CCEF           <- это цифры). Переходим
:0057CCEC 83EB07    sub ebx, 00000007      <-Если буквы - вычитаем еще 7
:0057CCEF 03C3      add eax, ebx           <- eax=eax+ebx
:0057CCF1 8A1E      mov bl, byte ptr [esi] <-Следующие байты кода
:0057CCF3 13D1      adc edx, ecx           <-edx=edx+ecx
:0057CCF5 80FB00    cmp bl, 00             <-Если еще есть символы в коде
:0057CCF8 75DE      jne 0057CCD8           <-То повторяем
:0057CCFA C3        ret                    <-Иначе выход из процедуры

edx=0,eax=0
метка:
bl=один байт из адреса кода
если bl=00 (все символы кончились) то метка 3
eax=eax*10h
bl=bl-30
если это число (т.е. bl<=9),то метка2
иначе bl=bl-7
метка2:
иди к метке

:0057C501 8BD8        mov ebx, eax       <-Результат процедуры поместили в ebx
:0057C503 BE7B474600  mov esi, 0046477B  <-Указатель на имя
:0057C508 33C9        xor ecx, ecx       <-Обнуляем
:0057C50A 33C0        xor eax, eax       <-регистры
:0057C50C AC          lodsb              <-Берем 1 байт кода и указатель
                                         < увеличиваем на 1 (eax=байт,esi=esi+1)
:0057C50D 03C8        add ecx, eax       <- ecx=ecx+eax
:0057C50F C1C908      ror ecx, 08        <- Сдвиг вправо на 8 байт
:0057C512 03CB        add ecx, ebx       <- ecx=ecx+ebx(результат предыдущей
                                         < процедуры)
:0057C514 3C00        cmp al, 00         < Символы кончились?
:0057C516 75F4        jne 0040C50C       < Нет. Следующий символ
:0057C518 F7D1        not ecx            < Да. Инверсия ecx.

:0057C51A 5E             pop esi
:0057C51B 51             push ecx          <-Сохраняется результат 2-го подсчета
:0057C51C BF10000000     mov edi, 00000010
:0057C521 E88C070000     call 0040CCB2     <-Вызываем еще раз функцию подсчета
                                           < аналогична первой за исколючением
                                           < считается 2-я часть кода
:0057C526 59             pop ecx
:0057C527 3BC8           cmp ecx, eax      <-Сравнение результата 2-го подсчета
                                           < и последней процедуры.
:0057C529 0F85A4000000   jne 0040C5D3

procedure TForm1.Button1Click(Sender: TObject);
Var
  B:Byte;               // Щетчик цикла
  Col: Dword;           // Переменная для хранения котрольной суммы
  Name_: String;        // Переменная для хранения имени
begin
   COl:=0;                       //Обнуление переменной контрольной суммы
   Name_:=LowerCase(Name.Text);  //Все буквы в имени строчные (Помните)
   For B:=1 To Length(Name_)+1 Do  //
   Begin                           //
     Col := Col + Ord(Name_[B]);   //
     asm                           // Цикл генерации котрольной суммы
     mov ecx, Col                  // из имени
     ror ecx, 08                   //
     add ecx, 1                    //
     mov Col, Ecx                  //
     end;                          //
   End;                            //
   Col:= not Col;               // Инвертирование контрольной суммы

  Code.Text := "1-"+IntToHex(Col,8); //Вывод на экран полученного ключа
end;