Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

как поменять байтики в файле...

НАИВый панк © (2002-08-04 19:09:00)
так... ну вопрос вот в чём...мне нужно в файле file.exe поменять например по смещению 00014521h , 85 на 84... как это сделать?... наверное нужно нетипизированные файлы использовать или как?...т.е надо что то типа кряка зделать... за ранее спасибо...

просто панк (2002-08-06 01:11:00) [1]
ой спасибки большие... :о)

Aydar (2002-08-05 03:04:00) [2]
var
F:YFileStream;
S:Byte
begin
F:=TFileStream.Create("file.exe",fmOpenReadWrite);
F.Seek($00014521,soFromBeginning);
S:=$84; F.Write(S,SizeOf(S));
F.Free;
end;

НАИВый панк (2002-08-04 20:40:00) [3]
2 tsarevep ...хе хе...эт не для кряка... :))))))..по собственным нужджам!.. :)))))

int64 (2002-08-04 19:44:00) [4]
За правильность не ручаюсь. Наглаз написал.

Var Ch:Char;
F:File;
Begin
Assign(F,"CrackMy.EXE");
Reset(F,1);
Seek(F, $00014521);
Ch:=Char($84);
Blockwrite(F,Ch,1);
CloseFile(f);
End;

tsarevep (2002-08-04 19:43:00) [5]
Все крякаем!

Song (2002-08-04 19:13:00) [6]
Читайте файл в TFileStream/TMemoryStream

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »