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

Оформил: DeeCo
Автор: http://www.cracklab.narod.ru

Автор: 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. {конец}
На таком простом примере я показал, что даже на паскале (народном языке) возможно написание нормального крака, без необходимости изучения других языков.

ВСЁ!

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