Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.19;
Скачать: CL | DM;

Вниз

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

 
НАИВый панк   (2002-08-04 19:09) [0]

так... ну вопрос вот в чём...мне нужно в файле file.exe поменять например по смещению 00014521h , 85 на 84... как это сделать?... наверное нужно нетипизированные файлы использовать или как?...т.е надо что то типа кряка зделать... за ранее спасибо...


 
Song ©   (2002-08-04 19:13) [1]

Читайте файл в TFileStream/TMemoryStream


 
tsarevep ©   (2002-08-04 19:43) [2]

Все крякаем!


 
int64 ©   (2002-08-04 19:44) [3]

За правильность не ручаюсь. Наглаз написал.

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;


 
НАИВый панк   (2002-08-04 20:40) [4]

2 tsarevep ...хе хе...эт не для кряка... :))))))..по собственным нужджам!.. :)))))


 
Aydar   (2002-08-05 03:04) [5]

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-06 01:11) [6]

ой спасибки большие... :о)



Страницы: 1 вся ветка

Текущий архив: 2002.08.19;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.013 c
7-60873
allrussia
2002-06-06 12:43
2002.08.19
И все-таки, как подсчитать размер диска более 2 ГБ?


6-60777
elgato
2002-06-06 19:55
2002.08.19
Socket - асинхронный


14-60824
Alx2
2002-07-24 09:49
2002.08.19
На Землю летит двухкилометровый астероид


1-60697
proc
2002-08-05 15:19
2002.08.19
if Var1(0.01) > Var2(0.01) = True


3-60497
Виталий Панасенко
2002-07-19 09:14
2002.08.19
Работа с полями типа