Как написать программу-патч на делфи

| Сообщение посчитали полезным:

А смысл? юзай DUP, там уже все сделано!

Смысл везде простой открыть файл перейти на смещение и поменять байты, после чего закрыть файл!

Если возникнут еще вопросы, то См. справку по Win API

| Сообщение посчитали полезным:

RSI пишет:
А смысл? юзай DUP, там уже все сделано!
Не над0. Пусть учится, а не юзает г0т0в0е.
Юзай TFileStream. А ваще п0гугль х0р0шеньк0.

| Сообщение посчитали полезным:

sniperZ пишет:
Юзай TFileStream.

юзай апи лучше...
PE:=CreateFile(PChar(F_PEFilePath),GENERIC_READ or GENERIC_WRITE,FILE_SHARE_READ or
FILE_SHARE_WRITE,nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);

CreateFileMapping(PE, nil,PAGE_READWRITE, 0, MEMSZ, nil);
MEMPTR:=MapViewOfFile(FM,FILE_MAP_ALL_ACCESS, 0, 0, MEMSZ);

и понеслась)))

-----
[nice coder and reverser]

| Сообщение посчитали полезным:

Hellspawn пишет:
юзай апи лучше...
.Я знаю, чт0 эт0 лучше. Н0 если аффтар задаёт такие глупые в0пр0сы, т0 пусть с TFileStream начинает.
В0пр0с0в будет меньше задавать.

| Сообщение посчитали полезным:

Link[3D] Вот пример без оболочки:


program cdrwincrk;
{$APPTYPE CONSOLE}
uses Windows;

var iByteWrt:Cardinal;
hFile:THandle;
const JmpByte:integer=$EB;

Begin
Writeln('Crack for CDRWin v5.01 - 5.02 by Over G[DWC Gr0up]');
hFile:=CreateFile('cdrwin5.exe', GENERIC_WRITE, FILE_SHARE_READ, nil, OPEN_EXISTING, 0, 0);
SetFilePointer(hFile, $3D99, nil, 0); //Смещение на 003D99
WriteFile(hFile, JmpByte, 1, iByteWrt, nil); //Пишем байт $EB по адресу 003D99
SetFilePointer(hFile, $18871, nil, 0); //Смещение на 0018871
WriteFile(hFile, JmpByte, 1, iByteWrt, nil); //Пишем байт $EB по адресу 0018871
CloseHandle(hFile);//Закрываем файл
Writeln('File Successfull cracked!'+#13#10+'Press ENTER to exit');
Readln;
End.

| Сообщение посчитали полезным:

N0iD пишет:
const JmpByte:integer=$EB;
гык, тогда уж
const JmpByte:byte=$EB;

-----
Yann Tiersen best and do not fuck

| Сообщение посчитали полезным: