Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС ВЗЛОМ
выпущен 8 октября!


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

АРХИВ ФОРУМА eXeL@B
https://exelab.ru/f/

   

MaZaFaKeR t0 CReg [TSRh] ... ... В продолжении темы «Конвертик, мутафака...»...


MaZaFaKeR t0 CReg [TSRh] ... ... В продолжении темы «Конвертик, мутафака...»
Крег, в ^ теме ты писал, что закейгенил данную утилиту. Не мог бы ты поделиться сорцом кейгена? Чисто для ознакомления, не для рипа. Я новичёк в этом деле, хотелось бы знать алгоритм генерации... ;)
maza@nc.ru
Kerghan :: а на мыло это все написать нельзя было?

CReg [TSRh] :: Kerghan пишет:
цитата:
а на мыло это все написать нельзя было?


Моего мыла здесь нет.

MaZaFaKeR
Вечером вышлю - сейчас убегаю :)

Runtime_err0r :: CReg [TSRh]

Ну раз уж пошла раздача, то можно и мне на Runtime_err0r-АТ-KpTeam.com

P.S. Релизить не буду

ZX :: И так разбиваем мыло на две части до и после собаки обозначим StrDO и StrPosle
CODE:00490503 lea eax, [ebp+var_8]
CODE:00490506 push eax
CODE:00490507 mov ecx, ebx
CODE:00490509 dec ecx
CODE:0049050A xor edx, edx
CODE:0049050C mov eax, [ebp+var_4]
CODE:0049050F call sub_404BD0
CODE:00490514 lea eax, [ebp+var_C]
CODE:00490517 push eax
CODE:00490518 mov eax, [ebp+var_4]
CODE:0049051B call sub_404970
CODE:00490520 mov ecx, eax
CODE:00490522 lea edx, [ebx+1]
CODE:00490525 mov eax, [ebp+var_4]
CODE:00490528 call sub_404BD0
CODE:0049052D xor eax, eax
CODE:0049052F mov ds:dword_4EDB34, eax
CODE:00490534 mov eax, [ebp+var_8]
CODE:00490537 call sub_404970
CODE:0049053C test eax, eax
CODE:0049053E jle short loc_490557
CODE:00490540 mov ebx, 1
Здесь складываем часть строки до собаки
Цикл на паскале выглядит так:

For I := 1 to Length(StrDo) do
SumDo := SumDo + Ord(StrDo[ I ])

CODE:00490545 loc_490545:
CODE:00490545 mov edx, [ebp+var_8]
CODE:00490548 movzx edx, byte ptr [edx+ebx-1]
CODE:0049054D add ds:dword_4EDB34, edx
CODE:00490553 inc ebx
CODE:00490554 dec eax
CODE:00490555 jnz short loc_490545
CODE:00490557
CODE:00490557 loc_490557
CODE:00490557 xor eax, eax
CODE:00490559 mov ds:dword_4EDB38, eax
CODE:0049055E mov eax, [ebp+var_C]
CODE:00490561 call sub_404970
CODE:00490566 test eax, eax
CODE:00490568 jle short loc_490581
CODE:0049056A mov ebx, 1
Здесь складываем часть строки после собаки

For I := 1 to Length(StrPosle) do
SumPosle := SumPosle + Ord(StrPosle[ I ])

CODE:0049056F loc_49056F
CODE:0049056F mov edx, [ebp+var_C]
CODE:00490572 movzx edx, byte ptr [edx+ebx-1]
CODE:00490577 add ds:dword_4EDB38, edx
CODE:0049057D inc ebx
CODE:0049057E dec eax
CODE:0049057F jnz short loc_49056F
CODE:00490581
CODE:00490581 loc_490581:
CODE:00490581 imul eax, ds:dword_4EDB34, 6Fh умножаем сумму до собаки на 6F

Key := SumDo * 6F;

CODE:00490588 mov edx, ds:dword_4EDB38
CODE:0049058E add edx, edx
CODE:00490590 add eax, edx

Key := Key + 2*SumPosle;

Все теперь вывод Ключа :

WriteLN(IntToStr(Key))

Так как сам писать кейгены не могу, то пришлось рипнуть это дело у создателей сайта /softTR narod ru/

CReg [TSRh] :: Так мне слать или нет? Тут вроде написал все ZX. Правда мой кейген «is written in pure win32asm» :)))

ZX :: Ну дзен он и в африке дзен
Я думаю размеры особо отличаться не будут, конечно, в относительных величинах.

CReg [TSRh] :: имхо паскаль - это не дзен :)
Переходи на асм :)

RottingCorpse :: fortran - реальный дзен.... аж в нирвану хочется ...

ZX :: CReg [TSRh] пишет:
цитата:
Переходи на асм :)


У меня проекты большие, на асме нужны наработки, а у меня их на асме нет, хотя естественно когда есть время всегда стараюсь впихнуть процю на асме, но оно не всегда бывает! Я в принципе делфёй доволен, ну этот быстро, удобно, можно ужать код не хуже чем в сях(ну чуть хуже ) со спидом само собой не спорим, но какие щас процы? Разницы не будет заметно. А вот скорость написания продукта и вследствии этого оборот уе покрывают все минусы. Так что могу поспорить, ну а дзен это для души!

SouL :: CReg [TSRh] пишет:
цитата:
Так мне слать или нет? Тут вроде написал все ZX. Правда мой кейген «is written in pure win32asm» :)))


Ну если идет расдача, то если не трудно вышли мне. art_a(at)bk.ru:)

CReg [TSRh] :: Так а нах, если все тут написано?
Вы мне назовите объективную причину :)

Dred :: Обьективная причина(несостоявшегося крякера ) - нех..ра не ясно чо там ваще написано, буть то хоть асм(там я знаю пару команд ) или Delphi (вот я ее как раз и мучаю с февраля где-то ).
Вот буду колдовать с кодом - всмысле разбираться.

2 Kerghan если не трудно и сюда плиз -› crack2000@list.ru

Кстати никому не надо игруху весит 96 килобайт, а графика как в Doom3
наверно на асме написана но Peid говорит чо нечего не найдено....
может она упакована чем то?

Runtime_err0r :: CReg [TSRh]

цитата:
Так а нах, если все тут написано?
Вы мне назовите объективную причину :)


Шли, не жмись! То что тут написано я и так в IDA могу посмотреть, а мне интересно взглянуть на твой «pure win32asm»

ZX :: Блин... что хоть там не ясно, вы чё издеваетесь?
Писал же специально - человек сказал, что асм плохо знает нк на делфях все разжевано или это непонятно:

И так разбиваем мыло на две части до и после собаки обозначим StrDO и StrPosle

StrDo := Delete(StrEMail, pos(’@’, StrEMail), 100); наверняка у вас мыло меньше 100 знаков(ну по-приколу)
StrPosle := Delete(StrEMail, 1,pos(’@’, StrEMail));

дальше - убираете асмовский листинг и вот вам кейген, да и еще В самом начале надо считать строку StrEMail и обнулить SumDo и SumPosle.
ну хоть это вы должны сделать сами.
Во блин...

CReg [TSRh] :: Короче разослал всем, кто просил. Не знаю, зачем это все вам, но мне не жалко.
Только если чего, про кредитсы не забывайте.

CReg [TSRh] :: И вот еще, забыл: не выкладывайте нигде в инете этот кейген.
Я не хочу нанести вреда автору «Конвертика». Поддержи отечественного производителя! :)
Тем более, идея хорошая.

Runtime_err0r :: CReg [TSRh]
Получил - спасибо !

цитата:
И вот еще, забыл: не выкладывайте нигде в инете этот кейген.
Я не хочу нанести вреда автору «Конвертика». Поддержи отечественного производителя! :)
Тем более, идея хорошая.


Поздняк я же писАл, что давно уже серийник зарелизил ...
а кейген выкладывать не буду, раз обещал.

MaZaFaKeR :: CReg [TSRh], большое спасибо! Риппать не буду! ;)






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


Вы находитесь на EXELAB.rU
Проект ReactOS