ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2
Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей. Здесь обсуждаются безопасность, программирование, технологии и многое другое. Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
Вернуться   Форум АНТИЧАТ > Программирование > С/С++, C#, Delphi, .NET, Asm
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

Билдер на Delphi
  #1  
Старый 26.04.2010, 11:44
Voland-791
Познающий
Регистрация: 01.05.2009
Сообщений: 40
Провел на форуме:
333392

Репутация: 3
По умолчанию Билдер на Delphi

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

  #2  
Старый 26.04.2010, 12:05
НTL
Постоянный
Регистрация: 26.01.2008
Сообщений: 796
Провел на форуме:
5209663

Репутация: 357


Отправить сообщение для НTL с помощью ICQ
По умолчанию

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

Билдер на делфи не напишешь, только патч
 
Ответить с цитированием

  #3  
Старый 26.04.2010, 12:21
Сredo
Новичок
Регистрация: 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)
 


Быстрый переход




ANTICHAT.XYZ