Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |

26.04.2010, 11:44
|
|
Познающий
Регистрация: 01.05.2009
Сообщений: 40
Провел на форуме: 333392
Репутация:
3
|
|
Билдер на Delphi
Приветствую! короче мне нужно создать билдер на делфи,например если билдире была введена команда "dir C: >%WINDIR%\7.txt" то он создавал .exe и выполнял это, я знаю что эта тема была до меня
прошу ссылки или пример исходника))
|
|
|

26.04.2010, 12:05
|
|
Постоянный
Регистрация: 26.01.2008
Сообщений: 796
Провел на форуме: 5209663
Репутация:
357
|
|
Не понял, причем здесь команда???
Билдер на делфи не напишешь, только патч
|
|
|

26.04.2010, 12:21
|
|
Новичок
Регистрация: 17.04.2010
Сообщений: 17
Провел на форуме: 62245
Репутация:
31
|
|
Это легко!Скоро я напишу про это статью!
А сейчас просто возьми в своей программе напиши примерно вот так:
dir C: >%WINDIR%\777777777777777777777.txt
скомпелируй проект,открой его через винхешь,найди в поиске эту строку и перепиши адресс памяти каждого сивола,после чего сотри их( что бы стереть прописывай 0)
Все,теперь тебе осталось самое легкое...создай ресурс этого "стертого проекта",а потом просто найти любую функцию для патча байт и прописать ее....Это будет выглядить примерно вот так
var
fileName :string;
tags :string;
f :thandle;
fils :integer;
BytesRead  WORD;
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);
и так далее
Писал на спех,если будут какие то вопросы пиши в личку помогу
|
|
|
|
 |
Похожие темы
|
| Тема |
Автор |
Раздел |
Ответов |
Последнее сообщение |
|
Видео уроки Delphi
|
][imer |
С/С++, C#, Delphi, .NET, Asm |
48 |
18.04.2010 09:05 |
|
Delphi - язык или среда?
|
Seravin |
Болталка |
12 |
28.03.2010 01:46 |
|
Литература Delphi
|
Sams |
С/С++, C#, Delphi, .NET, Asm |
2 |
19.03.2010 19:46 |
|
Virus.Win32.Induc.a или "Снова записки новичка"
|
_=(mac)=_ |
Защита ОС: вирусы, антивирусы, файрволы. |
5 |
24.08.2009 23:34 |
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|