Пятница, 19.04.2024, 14:32 Приветствую вас Гость | Группа "Гости" 
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: Волк-1024, Anton93, xXxSh@dowxXx  
delphicode » Delphi » Вирусология Delphi » Простенький троян на Делфи (Текст Unit1 Project'а(очень не дороботанный))
Простенький троян на Делфи
REMiXДата: Среда, 13.01.2010, 13:58 | Сообщение # 1
Был не раз
Зарегистрирован: 11.01.2010
Группа: Пользователи
Сообщений: 22
Статус: Offline
Вот исходник трояна....

server

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdComponent, IdTCPServer, StdCtrls;

type
TForm1 = class(TForm)
IdTCPServer1: TIdTCPServer;
procedure IdTCPServer1Execute(AThread: TIdPeerThread);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private

public

end;

var
Form1: TForm1;

implementation

{$R *.dfm}

Доступно только для пользователей
//---------------------------------------------//
end.

Вот примерно так.
Надо бы чтобы сервер не было видно не на панели задач ни в трее...кароче чтоб не видно было,
и само сабой чтоб весил по меньше. И подскажите как лучше сделать подключение сервера с клиентом.
Сразу извеняюсь если что не так, потомучто я новичек программирования на делфи и пытаюсь что то написать пока только в позноваельных целях.И сразу спасибо за точто откликнулись на мою просьбу


Начинающий программист, DELPHI user, а так же могу помочь с фотошопом.






Сообщение отредактировал dolphin - Среда, 13.01.2010, 14:09
 
delphicode » Delphi » Вирусология Delphi » Простенький троян на Делфи (Текст Unit1 Project'а(очень не дороботанный))
  • Страница 1 из 1
  • 1
Поиск:

delphicode.ru © 2008 - 2024 Хостинг от uCoz