Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)
-   -   Билдер на Delphi (https://forum.antichat.xyz/showthread.php?t=199344)

Voland-791 26.04.2010 11:44

Билдер на Delphi
 
Приветствую! короче мне нужно создать билдер на делфи,например если билдире была введена команда "dir C: >%WINDIR%\7.txt" то он создавал .exe и выполнял это, я знаю что эта тема была до меня
прошу ссылки или пример исходника))

НTL 26.04.2010 12:05

Не понял, причем здесь команда???

Билдер на делфи не напишешь, только патч

Сredo 26.04.2010 12:21

Это легко!Скоро я напишу про это статью!
А сейчас просто возьми в своей программе напиши примерно вот так:
dir C: >%WINDIR%\777777777777777777777.txt
скомпелируй проект,открой его через винхешь,найди в поиске эту строку и перепиши адресс памяти каждого сивола,после чего сотри их( что бы стереть прописывай 0)
Все,теперь тебе осталось самое легкое...создай ресурс этого "стертого проекта",а потом просто найти любую функцию для патча байт и прописать ее....Это будет выглядить примерно вот так

var
fileName :string;
tags :string;
f :thandle;
fils :integer;
BytesRead :DWORD;
c :byte;
begin
ExtractRes('EXEFILE', 'test', 'bild.exe');//извлекаем из ресурсов
fileName:= 'bild.exe';
f:=fileopen(fileName,fmOpenReadWrite); //откриваем билд
fils:=Windows.GetFileSize(f,nil);

c:=ord(char(pchar(Edit1.Text[1]))); //первый символ из едита
SetFilePointer(f, $7759A, nil, 0);
WriteFile(f, c, SizeOf(c), BytesRead, nil);
и так далее
Писал на спех,если будут какие то вопросы пиши в личку помогу


Время: 08:27