Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Кейген для 3dflyind v2.28
Автор: Fess

imsho-imho-imo-ho-ho-ho-hey-yo-hey-ho-hip-hop-hooray...

Target: 3dflyind v2.28

Tools:

  • Some brains
  • Soft-Ice
  • Win32Dasm 8.93
  • RegMon 4.13
  • Delphi 3 или выше

Все, кроме мозгов и Delphi, можно найти на www.exetools.com

Вступление

Как это начиналось:

Я тут вспомнил, что уже месяц не пишу тьюториалов. И решил тряхнуть стариной и вот он... Накачал я софта с Инета среди прочего мусора была и эта прога. К глубокому моему глубокому сожалению, аддоны в незарегеной версии использовать было нельзя, а я накачал и их тоже. В таких случаях для простых смертных есть два пути: Заплатить или Забыть(Забить). Но мы не принадлежим к ним, у нас есть свой особенный путь - Исследовать эту программу и зарегиться нахаляву. Кстати, в проге предусмотрено несколько видов регистрации: Deluxe, Basic, Test. За самую лучшую, просят всего ничаво 29.90 американских вафель. У меня таких денег отродясь не бывало. На мою степендию эту прогу можно купить, покопив денюшки месяцков с 13.

Что за прога:

Какой-то хитрый скринсавер, типа эмуляция полета самолета. Им можно даже порулить, но полчается фигово. Вообщем, за такие деньги можно было сделать и получше, но у них там за бугром свои правила. В архиве занимает ~ 1700 Kb. Я тут поглядел на системные требования и матерь божья: Display Card: Direct3D compatible 3D accelerated card with 16M display memory CPU: Pentium II 400 or higher with 64M system memory Короче обнаглели в конец. Пользоваться или не юзать решать вам, а мы приступаем...

Начало

Сегодня я поставил перед собой цель не только вместе с вами написать кейген, но и научить вам крэкерскому мышлению и методу действий. Если у меня это получиться, значит я старался не зря.

Посмотрев, в таблицу секций я прикинул, что это скорее всего сбацано на С++. Как это я определил? У С++ стандартно первый раздел называется .text. Я видел, только одну прогу на Делфи, у которой первый раздел назывался бы так же. Если не верите можете проверить, я проверил это оказался Visual C++ 6.0. А я что говорил? делаем вывод, что нам повезло - у С++ обычно очень хороший и чистый код.

Для начала кинем ее в Win32Dasm и посмотрим на результат. Все прошло нормально, значит нам повезло в двойне - прога ничем не запакована. Лезем в секцию строк и ищем, что-нибудь интересненькое. Первое на что натыкается взгляд это...


"%s Basic"
"%s Deluxe"
"%s Normal"
"%s Once"
"%s -This product is licensed to "
"%s -This product is unregistered"
"%s Unregistered"

Жмем два раза на Deluxe и попадаем сюда.


:00473152 A1E0FC4E00   mov eax, dword ptr [004EFCE0]
:00473157 83C408       add esp, 00000008
:0047315A 8B805C010000 mov eax, dword ptr [eax+0000015C]
:00473160 3D89BC3A74   cmp eax, 743ABC89
:00473165 7513         jne 0047317A

* Possible StringData Ref from Data Obj ->"3dflyingsaver v2.28"
                                  |
:00473167 8B0DDC764C00 mov ecx, dword ptr [004C76DC]
:0047316D 8D542400     lea edx, dword ptr [esp]
:00473171 51           push ecx

* Possible StringData Ref from Data Obj ->"%s Normal"
                                  |
:00473172 687C7B4C00   push 004C7B7C
:00473177 52           push edx
:00473178 EB58         jmp 004731D2

* Referenced by a (U)nconditional or (C)onditional Jump at Address:
|:00473165(C)
|
:0047317A 3DAA457782   cmp eax, 827745AA
:0047317F 750D         jne 0047318E

* Possible StringData Ref from Data Obj ->"3dflyingsaver v2.28"
                                  |
:00473181 A1DC764C00   mov eax, dword ptr [004C76DC]
:00473186 50           push eax

* Possible StringData Ref from Data Obj ->"%s Deluxe"
                                  |
:00473187 68707B4C00   push 004C7B70
:0047318C EB3F         jmp 004731CD
(и так далее)

Как видно, что если в нужной ячейке памяти будет число 827745AAh, то программа выполнит любой ваш приказ, который сможет. И не будет посылать вас ко всем разработчикам. Две строки определяющие адрес памяти выделены красным. На этом месте я вошел в ступор. И решил попробовать ввести код. Полез в настройки савера, но там никаких кнопок регистрации не было. На самом деле она есть, но об этом после.

Потом я решил проверить реестр, многие проги кидают туда регистрационную инфу. Я запустил RegMon и опять зашел в настройки скринсавера.


???	QueryValueEx	HKCU\Software\Longgame\3dflyingsaver\regserial	NOTFOUND
???	QueryValueEx	HKCU\Software\Longgame\3dflyingsaver\regname	NOTFOUND
???	QueryValueEx	HKCU\Software\Longgame\3dflyingsaver\regtype	NOTFOUND

Это сподвигло меня на мысль, и я отбалды создал эти параметры. Зайдя очередной раз в настройки я увидел, что прога зарегена на меня, но сверху почему-то все еще торчит Unregistred. Тогда меня осенило, в параметре regtype(двоичный) я написал буквально следующее 827745AA. Но опяти ничаво не произошло. Но в голову лезли всякие мысли и я вспомнил, что в памяти числовая информация храниться в обратном порядке и я написал AA457782. Каково же было мое удивление, когда вместо привычной строки Unregistred, я увидал Deluxe. Теперь стал возможен выбор всего барахла. Вроде бы все в порядке, но дабы насладиться плодами своего труда я решил запустить савер и что... после нескольких секунд всплыла надпись, утверждающая, что я не зареген и предлогалось нажать F2, чтобы сделать эту процедуру. Что делать, нажал. Всплыло тоже окно, что и в настройках, но с хорошей кнопочкой Registrer. Нажав ее, вам откроется обычное окошко с двумя полями для ввода. Тут-то и начинается основная сказка....

Для выявления места, я воспользовался старым, как мир способом: написал любой пароль, выдалась строка "invalid code". Затем в Win32Dasm'e я ее нашел и отправился, к нужной точке.


* Referenced by a (U)nconditional or (C)onditional Jump at Addresses:
|:004729ED(C), :004729F1(C)
|

* Possible StringData Ref from Data Obj ->"invalid code"
                                  |
:00472A54 6894784C00   push 004C7894
:00472A59 6A00         push 00000000
:00472A5B 6A0C         push 0000000C

Как обычно поднимаемся выше по ссылкам.


* Referenced by a (U)nconditional or (C)onditional Jump at Address:
|:00472839(C)
|
:00472996 8D942428010000 lea edx, dword ptr [esp+00000128]

* Possible StringData Ref from Data Obj ->"have a try"
                                  |
:0047299D 68F8784C00     push 004C78F8
:004729A2 52             push edx
(куча пропущено)
:004729CA E8E1560200     call 004980B0
:004729CF 8D542440       lea edx, dword ptr [esp+40]
:004729D3 8BF0           mov esi, eax

* Possible StringData Ref from Data Obj ->"test"
                                  |
:004729D5 68CC784C00     push 004C78CC  <- Сравнение с тестовой версией
:004729DA 52             push edx
:004729DB 0FAFF7         imul esi, edi
:004729DE E8CD560200     call 004980B0
:004729E3 0FAF442430     imul eax, dword ptr [esp+30]
:004729E8 83C420         add esp, 00000020
:004729EB 85F6           test esi, esi
:004729ED 7565           jne 00472A54 <- Вот переходы к предыдущему блоку
:004729EF 85C0           test eax, eax
:004729F1 7561           jne 00472A54 <-
:004729F3 A1E0FC4E00     mov eax, dword ptr [004EFCE0]
:004729F8 56             push esi

Опять ничего определенного, только сравнение на тестовую версию. Теперь идем к 472839.


:00472818 8D442428       lea eax, dword ptr [esp+28]    <- Берем имя
:0047281C 8D8C2428010000 lea ecx, dword ptr [esp+00000128] <- Берем пароль
(!!! Я могу ошибаться с именем и паролем, я не проверял)
:00472823 50             push eax <- Заносим
:00472824 51             push ecx <- Их в стек

* Possible Reference to String Resource ID=00001: "3dflyingsaver 2.28"
                                  |
:00472825 6A01           push 00000001
:00472827 E8C4FDFFFF     call 004725F0 <- Процедура проверки
:0047282C 83C40C         add esp, 0000000C
:0047282F 89442414       mov dword ptr [esp+14], eax <- Записываем результат проверки

* Referenced by a (U)nconditional or (C)onditional Jump at Addresses:
|:00472812(C), :00472816(C)
|
:00472833 8B442414       mov eax, dword ptr [esp+14] <- Берем результат в eax
:00472837 85C0           test eax, eax <- Проверяем, если результат не 0, то все отлично
:00472839 0F8457010000   je 00472996 <- Вот отсюда делался скачок на предыдущий блок
   (Дальше идет запись в реестр правильных данных)

Теперь, как вы понимаете идем к процедуре проверки имени и пароля, и будем с ней разбираться.


:004725F0 81EC14010000  sub esp, 00000114
....
(Выброшены строки, где имя копируется на новое место)
....
:0047262B 8D4C2410     lea ecx, dword ptr [esp+10] <- Имя
:0047262F BF89BC3A74   mov edi, 743ABC89  <- Указание на нормальную регистрацию
(поскольку нормальная ругистрация нам не нужна пропускаем эту процедуру)
:00472634 51           push ecx
:00472635 55           push ebp
:00472636 53           push ebx
:00472637 E884FBFFFF   call 004721C0
:0047263C 8BB4243C010000 mov esi, dword ptr [esp+0000013C]
:00472643 8D54241C     lea edx, dword ptr [esp+1C] <- По адресу в edx лежит правильный код
для нормальной регистрации (можно просто посмотреть)
:00472647 83C40C       add esp, 0000000C
:0047264A 33C0         xor eax, eax
:0047264C 2BF2         sub esi, edx

* Referenced by a (U)nconditional or (C)onditional Jump at Address:
|:0047265F(C)
|
:0047264E 8D4C0410   lea ecx, dword ptr [esp+eax+10]
:00472652 8A140E     mov dl, byte ptr [esi+ecx]      < Сравнение правильного кода с введенным
:00472655 3A11       cmp dl, byte ptr [ecx]          < вами
:00472657 7402       je 0047265B
:00472659 33FF       xor edi, edi
(всякий мусор)
:00472676 BFAA457782 mov edi, 827745AA <- А вот это уже Deluxe
:0047267B 50         push eax
:0047267C 55         push ebp
:0047267D 6A03       push 00000003  <- Запомните это число
:0047267F E83CFBFFFF call 004721C0
:00472684 83C40C     add esp, 0000000C
:00472687 33C9       xor ecx, ecx

* Referenced by a (U)nconditional or (C)onditional Jump at Address:
|:0047269E(C)
|
:00472689 8A5C0C10   mov bl, byte ptr [esp+ecx+10]
:0047268D 8D440C10   lea eax, dword ptr [esp+ecx+10] < Тут идет проверка и можно
:00472691 8A1406     mov dl, byte ptr [esi+eax]      < подсмотреть настоящий s/n
:00472694 3AD3       cmp dl, bl                      < и на этом закончить.
:00472696 7402       je 0047269A

Теперь заходим в основную процедуру генерации, обитающую по адресу 4721C0.


(выкинут лишний код)

* Referenced by a (U)nconditional or (C)onditional Jump at Address:
|:0047221E(U)
|
:00472214 803820  cmp byte ptr [eax], 20 <- Если у имени имеется пробел, он заменяется на байт с кодом 0
:00472217 7507    jne 00472220
:00472219 C60000  mov byte ptr [eax], 00
:0047221C 4D      dec ebp
:0047221D 48      dec eax
:0047221E EBF4    jmp 00472214

(куча лишнего кода, общий смысл которого сводился к подстановке числа
посланного в процедуру в конец имени. Помните я вам говорил запомнить )

* Referenced by a (U)nconditional or (C)onditional Jump at Address:
|:00472228(C)
|
:00472289 8B84242C020000 mov eax, dword ptr [esp+0000022C]
:00472290 83F802         cmp eax, 00000002 < Сравнение с Basic-регистрацией
:00472293 0F8587010000   jne 00472420 <- Переходим

(Весь код связанный с Basic-регистрациейбыл вырезан, если Вам интересно, то исследуйте
код сами)

* Referenced by a (U)nconditional or (C)onditional Jump at Address:
|:00472293(C)
|
:00472420 83F803 cmp eax, 00000003 <- Сравнение с Deluxe-регистрацией
:00472423 742A   je 0047244F < Если не она, то улететь

(Здесь вырез код, общий смысл которого. Если регистрация Делюкс, то последний символ
(который вставили раньше) удаляется, т.е. какое имя было, такое и осталось)

(Далее идет основная процедура генерации кода)
(Перед входом в процедуру значение регистров равны EBP = 0A77C5523h, EDI = 45FA4323h, EDX = 0)
(В адресе [esp+14] в начале храниться значение 0A77C5523h, а [esp+18] в начале равно 35DCA890h)

* Referenced by a (U)nconditional or (C)onditional Jump at Address:
|:004724FA(C)
|
:004724A6 0FBE9C1428010000 movsx ebx, byte ptr [esp+edx+00000128] <- Берем edx-ный символ имени
:004724AE 0FBE44141C movsx eax, byte ptr [esp+edx+1C] <- Берем тот же edx-ный символ имени
:004724B3 8BF3       mov esi, ebx     <- esi=ebx
:004724B5 8BC8       mov ecx, eax     <- ecx=eax
:004724B7 0FAFF3     imul esi, ebx    <- esi = esi*ebx;
:004724BA 0FAFCD     imul ecx, ebp    <- ecx = ecx*ebp;
:004724BD 0FAFF2     imul esi, edx    <- esi = esi*edx;
:004724C0 03CE       add ecx, esi     <- ecx = ecx+esi
:004724C2 0FAFCA     imul ecx, edx    <- ecx = ecx*edx
:004724C5 8D2C39     lea ebp, dword ptr [ecx+edi] <- ebp = ecx+edi
:004724C8 0FAFEB     imul ebp, ebx    <- ebp = ebp*ebx
:004724CB 03FD       add edi, ebp     <- edi = edi+ebp
:004724CD 8B6C2414   mov ebp, dword ptr [esp+14] <- ebp = значение из адреса памяти [esp+14]
:004724D1 03CF       add ecx, edi     <- ecx = ecx+edi
:004724D3 0FAFCB     imul ecx, ebx    <- ecx = ecx*ebx
:004724D6 03E9       add ebp, ecx     <- ebp = ebp+ecx
:004724D8 0FAFC5     imul eax, ebp    <- eax = eax*ebp
:004724DB 03C6       add eax, esi     <- eax = eax+esi
:004724DD 896C2414   mov dword ptr [esp+14], ebp <-  Записываем в адрес [esp+14] значение ebp
:004724E1 0FAFC2     imul eax, edx    <- eax = eax*edx
:004724E4 03C7       add eax, edi     <- eax = eax+edi
:004724E6 0FAFC3     imul eax, ebx    <- eax = eax*ebx
:004724E9 8B5C2418   mov ebx, dword ptr [esp+18] <- Берем в ebx значение из [esp+18]
:004724ED 03D8       add ebx, eax     <- ebx = ebx+eax
:004724EF 8B442410   mov eax, dword ptr [esp+10] <- Берем общую длинну имени
:004724F3 42         inc edx          <- Увеличивам счетчик на единицу
:004724F4 895C2418   mov dword ptr [esp+18], ebx <- Записываем из ebx значение в [esp+18]
:004724F8 3BD0       cmp edx, eax   <- Если еще не все буквы прошли
:004724FA 72AA       jb 004724A6    <- то повторяем

* Referenced by a (U)nconditional or (C)onditional Jump at Address:
|:004724A4(C)
|
:004724FC 8BC7           mov eax, edi      <- eax = edi
:004724FE 33D2           xor edx, edx      <- edx = 0
:00472500 B923000000     mov ecx, 00000023 <- ecx = 23h
:00472505 8BB42434020000 mov esi, dword ptr [esp+00000234] <- В esi адрес буфера правильного кода
:0047250C F7F1           div ecx           <- eax = eax div ecx, edx = eax mod ecx

(Прим: После операции деления, в eax остается целая часть, а в edx остаток. В Паскале
такой остаток можно вычислить с помощью команды mod и поэтому, я ее здесь применил)

:0047250E B8D5411DD4     mov eax, D41D41D5 <- eax = 0D41D41D5h
:00472513 80C230         add dl, 30        <- dl = dl+30h
:00472516 8816           mov byte ptr [esi], dl <- Записываем первый символ кода
:00472518 F7E7           mul edi           <-

(После такой операции умножения, значеник распределиться в два регистра edx:eax. В Паскале
аналогов этому нет, и поэтому в кейгене, я применил вставку на ассемблере)

:0047251A 8BC7           mov eax, edi      <- eax = edi
:0047251C BF23000000     mov edi, 00000023 <- edi = 23h
:00472521 2BC2           sub eax, edx      <- eax = eax-edx
:00472523 D1E8           shr eax, 1        <- eax = eax div 2

(Прим: shr - логический сдвиг вправо, здесь сдвигается регистр eax на 1 бит. )
Аналогичен  целочисленному делению на 2.                                     )
Т.к. в Паскале div это операция целочисленного деления, я ее здесь применил  )

:00472525 03C2           add eax, edx      <- eax = eax+edx
:00472527 33D2           xor edx, edx      <- edx = 0
:00472529 C1E805         shr eax, 05       < eax = eax div 32

(Прим: shr - логический сдвиг вправо, здесь сдвигается регистр eax на 5 бит. )
Это аналогично делению на 2 пять раз. Т.е. надо делить на 32                 )

Далее идет код аналогичный рассмотренному ранее, поэтому попробуйте проанализировать его
сами. ИМХО, ничего трудного в этом нет. А если вы не будете знать элементраных команд
ассемблера наизусть, то какой из Вас крэкер?

:0047252C F7F1           div ecx
:0047252E B8D5411DD4     mov eax, D41D41D5
:00472533 8BCD           mov ecx, ebp
:00472535 80C230         add dl, 30
:00472538 885601         mov byte ptr [esi+01], dl
:0047253B F7E5           mul ebp
:0047253D 2BCA           sub ecx, edx
:0047253F 8BC5           mov eax, ebp
:00472541 D1E9           shr ecx, 1
:00472543 03CA           add ecx, edx
:00472545 33D2           xor edx, edx
:00472547 F7F7           div edi
:00472549 C1E905         shr ecx, 05
:0047254C 8BC1           mov eax, ecx
:0047254E 80C230         add dl, 30
:00472551 885602         mov byte ptr [esi+02], dl
:00472554 33D2           xor edx, edx
:00472556 F7F7           div edi
:00472558 B8D5411DD4     mov eax, D41D41D5
:0047255D 80C230         add dl, 30
:00472560 885603         mov byte ptr [esi+03], dl
:00472563 F7E1           mul ecx
:00472565 8BC1           mov eax, ecx
:00472567 8BCF           mov ecx, edi
:00472569 2BC2           sub eax, edx
:0047256B D1E8           shr eax, 1
:0047256D 03C2           add eax, edx
:0047256F 33D2           xor edx, edx
:00472571 C1E805         shr eax, 05
:00472574 F7F1           div ecx
:00472576 B8D5411DD4     mov eax, D41D41D5
:0047257B 8BCB           mov ecx, ebx
:0047257D 80C230         add dl, 30
:00472580 885604         mov byte ptr [esi+04], dl
:00472583 F7E3           mul ebx
:00472585 2BCA           sub ecx, edx
:00472587 8BC3           mov eax, ebx
:00472589 D1E9           shr ecx, 1
:0047258B 03CA           add ecx, edx
:0047258D 33D2           xor edx, edx
:0047258F F7F7           div edi
:00472591 C1E905         shr ecx, 05
:00472594 8BC1           mov eax, ecx
:00472596 80C230         add dl, 30
:00472599 885605         mov byte ptr [esi+05], dl
:0047259C 33D2           xor edx, edx
:0047259E F7F7           div edi
:004725A0 B8D5411DD4     mov eax, D41D41D5
:004725A5 80C230         add dl, 30
:004725A8 885606         mov byte ptr [esi+06], dl
:004725AB F7E1           mul ecx
:004725AD 8BC1           mov eax, ecx
:004725AF 8BCF           mov ecx, edi
:004725B1 2BC2           sub eax, edx
:004725B3 D1E8           shr eax, 1
:004725B5 03C2           add eax, edx
:004725B7 33D2           xor edx, edx
:004725B9 C1E805         shr eax, 05
:004725BC F7F1           div ecx
:004725BE 80C230         add dl, 30
:004725C1 33C9           xor ecx, ecx              <- ecx =0
:004725C3 885607         mov byte ptr [esi+07], dl <- Записываем последний 8 символ

* Referenced by a (U)nconditional or (C)onditional Jump at Address:
|:004725D6(C)
|
:004725C6 8A0431  mov al, byte ptr [ecx+esi] <- Берем ecx-ный символ имени
:004725C9 3C39    cmp al, 39                 <- Сравниваем его с кодом 39h (символ '9')
:004725CB 7E05    jle 004725D2               <- Если меньше или равно, то переход
:004725CD 0407    add al, 07                 <- Иначе добавляем к его коду 7
:004725CF 880431  mov byte ptr [ecx+esi], al <- И записываем обратно

* Referenced by a (U)nconditional or (C)onditional Jump at Address:
|:004725CB(C)
|
:004725D2 41       inc ecx             <- Увеличиваем счетчик на единицу
:004725D3 83F908   cmp ecx, 00000008   <- Сравниваем счетчик с 8
:004725D6 72EE     jb 004725C6         <- Если меньше, то повторяем
:004725D8 C6460800 mov [esi+08], 00    <- Записываем в конец сгенерированного кода символ 0
                                          тем самым получая настоющую null-строку
...(Выполняем стандартные процедуры)
:004725E6 C3       ret                 <- Выходим из процедуры

Вся процедура генерации рассмотрена и проверена, теперь осталось простое занятие - написать кейген. Сегодня я напишу кейген на Делфи, который будет занимать < 20Kb. Тем самым давая понять, что на Дельфях тоже можно делать такое. За предоставленный образец огромнейшее спасибо Dr. Golova без его разъяснений ничего бы не получилось.

Как этим воспользоваться? Сохраняем весь этот кусок, как проэктный файл, т.е файл с расширением ".dpr". Затем открываем Делфой и запускаем.


program KG;
uses Windows, Messages;
const WindowTitle : PChar = '3Dflyingsaver v2.28 KeyGen by Fess [PTDS]';
      AboutStr    : PChar = '3Dflyingsaver v2.28' +
                            ' KeyGen by Fess [PTDS]' + #13#10+
                           '   Прога: http://www.longgame.net' + #13#10+
                           '   Мыль мне lomovskih@yandex.ru' + #13#10+
                           '   Наша урла: vallkor.chat.ru' + #13#10+
                           '   Специальное спасибо Dr.Golova '+#0;
var WinClass: TWndClassA;
    Inst, Handle, Button1, Button2, Label1, Label2, Edit1, Edit2: Integer;
    Msg: TMsg;
    hFont: Integer;
////////////////////////////////////////////////////////////////////////////////

{ Собственно расчет ключиков. Без комментариев. }
function KeyGen(Name: string): string;
var
   s,s1: String;
   B: Byte;
   M1,M2,M3,M4,M5,M6,M7,M8: Char;
   dx_ : Word;
   ebx_,eax_, edi_, edx_, esp14, esp18, esi_, ecx_, ebp_:Dword;
begin

   s:=Name;
   esp14:=$A77C5523;
   esp18:=$35DCA890;
   edi_ :=$45FA432B;
  For B:=1 To Length(S) Do
  Begin
    ebx_ := Ord(S[B]);
    edx_ := B-1;
    eax_ := Ord(S[B]);
    esi_ := ebx_;
    ecx_ := eax_;
    esi_ := esi_*ebx_;
    ecx_ := ecx_*ebp_;
    esi_ := esi_*edx_;
    ecx_ := ecx_+esi_;
    ecx_ := ecx_*edx_;
    ebp_ := ecx_;
    ebp_ := ebp_+edi_;
    ebp_ := ebp_*ebx_;
    edi_ := edi_+ebp_;
    ebp_ := esp14;
    ecx_ := ecx_+ edi_;
    ecx_ := ecx_*ebx_;
    ebp_ := ebp_+ecx_;
   eax_ := eax_*ebp_;
   eax_ := eax_+esi_;
   esp14 := ebp_;
   eax_ := eax_*edx_;
   eax_ := eax_+edi_;
   eax_ := eax_*ebx_;
   ebx_ := esp18;
   ebx_ := ebx_+eax_;
   esp18 := ebx_;
   end;

   eax_ := edi_;
   edx_ := 0;
   ecx_ := $00000023;
   dx_:= eax_ mod ecx_;
   eax_ := $D41D41D5;
   M1 := Chr(Lo(dx_)+$30);
   asm
     mov eax, eax_
     mov ecx, edi_
     mul ecx
     mov edx_,edx
   end;
   eax_ := edi_;
   edi_ := $00000023;
   eax_ := eax_-edx_;
   eax_ := eax_ div 2;
   eax_ := eax_+edx_;
   edx_:=0;
   eax_ := eax_ div 32; //shr eax, 5
   dx_ := eax_ mod ecx_;
   eax_ := $D41D41D5;
   ecx_ := ebp_;
   M2 := Chr(Lo(dx_)+$30);

   asm
     mov eax, eax_
     mov ecx, ebp_
     mul ecx
     mov edx_,edx
   end;

   ecx_ := ecx_-edx_;
   eax_ := ebp_;
   ecx_ := ecx_ div 2;
   ecx_ := ecx_+edx_;
   edx_ :=0;
   dx_ := eax_ mod edi_;
   ecx_ := ecx_ div 32; //shr ecx,5
   eax_ := ecx_;
   M3 := Chr(Lo(dx_)+$30);
   edx_ :=0;
   dx_:= eax_ mod edi_;
   eax_ := $D41D41D5;
   M4 := Chr(Lo(dx_)+$30);

   asm
     mov eax, eax_
     mov ecx, ecx_
     mul ecx
     mov edx_,edx
   end;

   eax_ := ecx_;
   ecx_ := edi_;
   eax_ := eax_-edx_;
   eax_ := eax_ div 2;
   eax_ := eax_+edx_;
   edx_:=0;
   eax_ := eax_ div 32;
   dx_ := eax_ mod ecx_;
   eax_ := $D41D41D5;
   ecx_ := ebx_;
   M5 := Chr(Lo(dx_)+$30);

   asm
     mov eax, eax_
     mov ecx, ebx_
     mul ecx
     mov edx_,edx
   end;

   ecx_ := ecx_-edx_;
   eax_ := ebx_;
   ecx_ := ecx_ div 2;
   ecx_ := ecx_+edx_;
   edx_ :=0;
   dx_ := eax_ mod edi_;
   ecx_ := ecx_ div 32;
   eax_ := ecx_;
   M6 := Chr(Lo(dx_)+$30);
   edx_ := 0;
   dx_ := eax_ mod edi_;
   eax_ := $D41D41D5;
   M7 := Chr(Lo(dx_)+$30);
   asm
     mov eax, eax_
     mov ecx, ecx_
     mul ecx
     mov edx_,edx
   end;
   eax_ := ecx_;
   ecx_ := edi_;
   eax_ := eax_-edx_;
   eax_ := eax_ div 2;
   eax_ := eax_+edx_;
   edx_:=0;
   eax_ := eax_ div 32;
   dx_ := eax_ mod ecx_;
   M8 := Chr(Lo(dx_)+$30);
   ecx_:=0;

  S1:=M1+M2+M3+M4+M5+M6+M7+M8;
  For B:=1 To 8 Do
   if Ord(S1[B])>$39 then S1[B]:=Chr( Ord(S1[B])+7 );

  Result:=S1;
end;

{ Процедура генерации рег.номера, вызывается при нажатии Button1. }
{ Сама обрабатывает непредвиденные ситуации и пишет результвт в Edit2 }
procedure Generate;
var Name : PChar;
begin
{ Выделяем память для текстового буффера, и получаем рег.имя из Edit1}
  GetMem(Name, 1024);
  GetWindowText(Edit1, Name, 1024);

{ Если длина имени не подходит - уведомим об этом пользователя }
  if length(Name) < 4 then begin
     SetWindowText(Edit2, PChar('Введите имя подлинней !!!'));
     FreeMem(Name);
     Exit;
  end;

{ Выводим посчитанный рег.номер в Edit2, и освобождаем текстовый буффер }
  SetWindowText(Edit2, PChar(KeyGen(String(Name))));
  FreeMem(Name);
end;

{ Личная оконная функция :) Обрабатывает события в нашем окне }
{ Эта функция вызывается операционной системой, потому и stdcall }
function WindowProc(hWnd, uMsg, wParam, lParam: Integer): Integer; stdcall;
begin
  Result := DefWindowProc(hWnd, uMsg, wParam, lParam);
  if uMsg = WM_COMMAND then begin
     if lParam = Button1 then MessageBox(hWnd, AboutStr, 'О кейгене...', 0);
     if lParam = Button2 then Halt;
     if (HIWORD(wParam) = EN_CHANGE) and (lParam = Edit1) then Generate;
  end else
  if uMsg = WM_DESTROY then Halt;
end;

////////////////////////////////////////////////////////////////////////////////
begin
{$R *.res}

{ Зарегистрируем свой собственный класс окна }
  Inst := hInstance;
  with WinClass do
  begin
    style         := CS_CLASSDC or CS_PARENTDC;       // Стиль окна
    lpfnWndProc   := @WindowProc;                     // Адрес оконной функции
    hInstance     := Inst;
    hbrBackground := color_btnface + 1;
    lpszClassname := 'KG_WINDOW';                     // Имя нового класса
    hCursor       := LoadCursor(0, IDC_ARROW);        // Стандартный курсор
    hIcon         := LoadIcon(Inst, 'MAINICON');      // Моя иконка
  end;
  RegisterClass(WinClass);

{ Создаем главное окно программы }
  Handle := CreateWindowEx(WS_EX_WINDOWEDGE, 'KG_WINDOW', WindowTitle,
                           WS_VISIBLE or WS_CAPTION or WS_SYSMENU,
                           (GetSystemMetrics(SM_CXSCREEN) - 305) div 2,
                           (GetSystemMetrics(SM_CYSCREEN) - 083) div 2,
                           305, 83, 0, 0, Inst, nil);

{ На этом окне делаем все прочие элементы - кнопку, текста, окна редактирования }
  Button1 := CreateWindow('Button', 'Об этом.', WS_VISIBLE or WS_CHILD or BS_PUSHLIKE or BS_TEXT,
                           227, 9, 65, 19, Handle, 0, Inst, nil);

  Button2 := CreateWindow('Button', 'Закрыть.', WS_VISIBLE or WS_CHILD or BS_PUSHLIKE or BS_TEXT,
                           227, 31, 65, 19, Handle, 0, Inst, nil);

  Label1 := CreateWindow('Static', '', WS_VISIBLE or WS_CHILD or SS_LEFT,
                         8, 12, 176, 13, Handle, 0, Inst, nil);

  Label2 := CreateWindow('Static', '', WS_VISIBLE or WS_CHILD or SS_LEFT,
                         8, 34, 176, 13, Handle, 0, Inst, nil);

  Edit1 := CreateWindowEx(WS_EX_CLIENTEDGE, 'Edit', '', WS_CHILD or WS_VISIBLE or
                          WS_BORDER or ES_AUTOHSCROLL, 80, 8, 140, 21, Handle, 0, Inst, nil);

  Edit2 := CreateWindowEx(WS_EX_CLIENTEDGE, 'Edit', '', WS_CHILD or WS_VISIBLE or
                          WS_BORDER or ES_READONLY or ES_AUTOHSCROLL, 80, 30, 140, 21, Handle, 0, Inst, nil);

{ Создаем приемлимый для нас шрифт для всех элементов. }
  hFont := CreateFont(-11, 0, 0, 0, 400, 0, 0, 0, DEFAULT_CHARSET,
                      OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY,
                      DEFAULT_PITCH or FF_DONTCARE, 'MS Sans Serif');

{ Устанавливаем созданный шрифт для всех элементов }
  if hFont <> 0 then
  begin
    SendMessage(Button1, WM_SETFONT, hFont, 0);
    SendMessage(Button2, WM_SETFONT, hFont, 0);
    SendMessage(Label1, WM_SETFONT, hFont, 0);
    SendMessage(Label2, WM_SETFONT, hFont, 0);
    SendMessage(Edit1, WM_SETFONT, hFont, 0);
    SendMessage(Edit2, WM_SETFONT, hFont, 0);
  end;

{ Прописываем текст на метках (Label) }
  SetWindowText(Label1, 'Ваше имя:');
  SetWindowText(Label2, 'Рег.номер:');

{ Пусть поле ввода имени будет активизировано по умолчанию }
  SetFocus(Edit1);

{ Показать окно, и перерисовать содержимое }
  ShowWindow(Handle, 1);
  UpdateWindow(Handle);

{ Типа цикл обработки сообщений, он и будет все время крутиться }
  while(GetMessage(Msg, Handle, 0, 0)) do
  begin
    TranslateMessage(msg);
    DispatchMessage(msg);
  end;

end.

Процедура генерации опробована и проверена!! Так что ошибок нет. Сделана на Delphi 4.

Для имени Fess код должен быть N08L6PWR.

Спасибо за интерес к моему творчеству!

Удачи в Reversing Engeneering!

Послесловие

Спасибо автору за предоставленный для исследования продукт. Было очень интересно. Спасибо фирме Borland за превосходный Паскаль, без которого я жить не могу. :)

Господа Авторы: Защита стандартна. Перед тем, как делать защиту можно было и почитать мануалы, написанные в этом направлении. Извините меня, но $30 для России это не дела. Крэкеров в Росии много. Россия рулез!

Братья Крэкеры: Не стоит сильно ругать авторов, они там за бугром не ведают, что творят.

P.S. Запомните все материалы публикуются только в учебных целях и автор за их использование ответственности не несет!!

P.P.S. Возможно имеют место опечатки, заранее извините!

With best wishes Fess Member of the group PTDS

И да пребудет с вами великий дух bad-сектора.

Проект Delphi World © Выпуск 2002 - 2024
Автор проекта: USU Software
Вы можете выкупить этот проект.