|
| |
Исходник crack-а
<<< Назад
Данный сорс предназначен для программы Ulead Cool 3D 2.5
unit CrackMe;
interface
uses SysUtils, Forms, Controls, StdCtrls, Classes;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
f:TFileStream;
s:byte;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
f:=TFileStream.Create('U3DEDIT2.exe',fmOpenReadWrite);
//открываем файл для чтения и записи
f.Seek($05F0A2,sofrombeginning);
//ищем адрес $05F0A2 и переходим на него
f.Read(s,sizeof(s));
//читаем значение адреса $05F0A2
if s=$74 then begin
// если значение адреса равно $74 тогда исправляем его на $75
s:=$75;
// т.е. мы исправили je на jne
f.Seek($05F0A2,sofrombeginning);
//возвращаемся обратно на адрес
f.Write(s,sizeof(s));
//и записываем новое значение
end;
f.Free;
//закрываем файл
end;
end.
// The END =)
<<< Назад |
|
|
|
|
