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

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


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

Пример написания Крака на паскале.

Обсудить статью на форуме

Массу крэкерских инструментов, видеоуроков и статей вы сможете найти на видеокурсе от нашего сайта. Подробнее здесь.
Автор: vallkor (vallkor@chat.ru)

Многие не верят в возможность написания нормального крака
на паскале. Я решил разбить этот стереотип в этой статье.
Итак, я привожу пример такого крака для Opera 3.5 и
коментарии ко всем строкам:

Uses Crt;
Const A: Array[1..1] of Record {таблица может состоять из сколько угодно элементов - один эл-т таблицы - один изменяемый байт}
A : Longint;
B : Byte;
End =
((A:$0005BF31;B:$EB)); {здесь А - адрес изменяемого байта, В - новое значение этого байта}

Var Ch:Char;
I:Byte;
F:File;
FN:file of Byte;
Size:Longint;


Begin
clrscr;
Writeln('Hello!'); {здесь идёт вывод информации о краке}
Writeln(#3,' This is an Opera 3.5 Crack! ',#3); {рекомендовано использовать всякие приколы}
Writeln(' It`s REmove the REmember window in the start '); {шутки}
Writeln(' And Trial stay in forever!'); {прибаутки}
Writeln(' Cracked by vallkor'); {и имя создателя}
writeln(' Cracking Opera.exe .......'); {обязательно укажем имя кракаемого файла}
Assign(F,'opera.EXE'); {открываем}
{$I-} Reset(F,1); {$I+}
If IOResult <> 0 then {если файла такого нет}
begin
TextColor(4);
Writeln(' ');
Writeln(' File not found !!!'); {выводим сообщение об ошибке}
Writeln(' This file must be in the same folder with target file !!!', #7); {и то, что крак должен быть в этой дирректории}
Halt(1); {выходим из программы}
end;
Size:=FileSize(f); {получаем размер кракаемого файла}
If Size<>1228800 then {если он не равен нужному}
Begin {то}
TextColor(4);
Writeln(' ');
Writeln(' Error !!!'); {выводим сообщение об ошибке}
Writeln(' Filesize Mismatch', #7);
Halt(1);
end;
For I:=1 to 1 do {проходим по таблице}
Begin
Seek(F,A[I].A); {и патчим}
Ch:=Char(A[I].B); {все}
Blockwrite(F,Ch,1); {байтики}
End;
TextColor(9);
Writeln(' ');
Writeln(' Everything went OK. Enjoy !!!', #7); {если всё прошло успешно - сообщение об этом}
End. {конец}

На таком простом примере я показал, что даже на паскале (народном языке)
возможно написание нормального крака, без необходимости изучения других языков.

ВСЁ!



Обсуждение статьи: Пример написания Крака на паскале. >>>


Материалы находятся на сайте https://exelab.ru



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


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