Нажмите CTRL-D чтобы добавить нас в закладки
Внимание! Вы находитесь в незащищенном режиме (HTTP). Для перехода в защищенный режим SSL, нажмите здесь
HackZone.RU - Слежение за компьютером (Delphi7) Уровень:опытный Актуальные базы 2GIS в форматах CSV,Excel,SQL
Войти / Регистрация / Участники
Определение даты выпуска iPhone по серийному номеру
-
Поиск по сайту
Форумы



Реклама

Поиск ТОП Добавить публикацию

Слежение за компьютером (Delphi7) Уровень:опытный

15.07.2010

В этой статье я раскажу об одном интересном примере использования компонентов TIdClient и TIdServer, который может быть полезен для людей             имеющих отношение к администрации компьютеров сети.                                   Серверная программа предворительно запускается на компьютере.                       В этом примере клиент от сервера будет получать следующую информацию:        - разрешение монитора                                                                                              - глубину цвета для монитора                                                                                    - копию экрана по заданным клиентом размерам. Для получения информации программа клиент должна послать серверу следующие команды:

get_screen_width, get_screen_height, get_screen_colors, get_screen, get_screen:x,y

Вот листинг сервера:

procedure tform1.idtcpserver1exute (athread:tidpeerthread);

var

strtext:string;

width,height,i:integer;

dc:hdc;

begin

strtext:= athread.connection.readln;

if (strtext='get_screen_height') then

athread.connection.writeinteger(screen.height);

else if (strtext='get_screen_width') then

athread.connection.writeinteger(screen.width);

else if (strtext='get_screen_color') then

begin

dc:=getdc(0);

athread.connection.writeinteger(getdevicecaps(dc,bitspixell));

releasedc (0,dc);

end

else begin

strtext:=copy(strtext,12,lenght (strtext) - 11);

i:= pos (',',strtext);

width:=strtoint(copy(strtext,1,i-1));

height:= strtoint(copy(strtext,i+1,leght(strtext-1));

sendscreen(width,height,athread.connection);

end;

end;

 

 

 

procedure sendscreen (width : integer;height:integer; connection:tidserverconnection);

var

screencopy:tcanvas;

gr:tbitmap;

stream:tmemorystream;

rcdest,rcsourse:trect;

begin

rcdest:=rect(0,0,width,height);

rcsource:=screen.desktoprect;

screencopy:=tcanvas.create;

screencopy.handle:=getdc(0);

gr:=tbitmap.create;

gr.heiht:=height;

gr.width:=width;

gr.canvas.copyrect(rcdect,screencopy,rcsource);

releasedc(0,screencopy.handle);

stream:=tmemorystream.create;

gr.savetostream(stream);

connection.writestream(stream,true,true);

sream.clear;

stream.free;

gr.free;

end;

 

 

 

 

 

Теперь реализация клиентского придложения:

Листинг:

procedure tform1.cmbconnectclick (sender:tobject);

begin

if (cmdconnect.caption='connect') then

idtcpclient1.host:= txthost.text;

try 

idtcpclient1.connect;

exept

exit;

end;

end

else begin

idtcpclient1.disconnect;

end;

end;

 

 

 

 

 

 

procedure tform1.idtcpclien1connected (sender:tobject);

cmbconnect.caption:='disconnect';

timer1.enabled:=true;

timer1timer(nil);

end;

 

procedure tform1.idtcpclien1disconnected (sender:tobject);

cmbconnect.caption:='connect';

timer1.enabled:=false;

 

end;

 

procedure tform1.timer1timer (sender:tobject);

var

stream:tmemorystream;

begin

with (idtcpclient1) do

begin

writeln('get_screen_width');

writeln('get_screen_height');

lblresolution.caption:=inttostr(readinteger)+ 'X' + inttostr (readinteger);

writeln('get_screen_color');

lblcolors.caption:= inttostr(readinteger);

writeln('get_screen:'+inttostr(imgscreen.width)+inttostr(imgscreen.height));

stream:= tmemorystream.create;

readstream(stream);

stream.position:=0;

imgscreen.picture.bitmap.loadfromstream(stream);

stream.clear;

stream.free;

end;

end;

 

 

на форму клиента надо поместить:

imgscreen;

txtserver;

cmdconnect;

lblresolution;

lblcolors;

idtcpclient1;

timer1;

 

При копировании материалов ссылка на HackZone.RU обязательна

Добавить страницу в закладки

 Детали
Категория: Программирование
Опубликовал: Genzi Li
Просмотров: 8316
Проголосовало через SMS: 0
  Разместить у себя на сайте
Прямая ссылка
HTML
BBCode ссылка
BBCode ссылка с текстом

 Комментарии (оставить свой комментарий можно здесь)
интересно... спс за статью!
10.08.2010 / papvan
фигня зачем собирать информацию о мониторе? лучше уж сделать кей логгер
и как тут отправить программу клиента? придти к нему домой и запустить с флешки чтоли?
12.11.2013 / Hsac
Только зарегистрированные пользователи могут оставлять комментарии

Зарегистрироваться *** Авторизоваться


 Последние новости и статьи  Последние сообщения с форумов
  • Самозащита от вируса Petya
  • Google Pixel взломали за 60 секунд
  • В CMS Joomla обнаружена критическая 0-day уязвимость
  • ФБР не смогло взломать протокол шифрования переписки террористов ...
  • Полиция обыскала дом предполагаемого создателя платежной системы ...
  • Google: квантовый ПК будет в 100 млн раз быстрее стандартных чипо...
  • "Лаборатория Касперского" констатирует усиление атак кибергруппир...
  • Microsoft Edge откроет исходные коды ChakraCore
  • Anonymous объявили 11 декабря «днём троллинга» ИГИЛ
  • Миллионы телевизоров, смартфонов и маршрутизаторов оказались уязв...

    Все новости... Все статьи... Прислать новость RSS
  • Разное / Предложения работы » Взлом программы
  • Взлом и безопасность / Программы » Re: Выбор программы для подбора пароля с симуляцией действия...
  • Разное / Ищу работу » Re: Прогон 7ым XRumerоm по форумам, блогам, гостевым. ru и e...
  • Взлом и безопасность / Online games » Как достать ресурсы из игры?
  • Разное / Предложения работы » Не актуально
  • Программирование / C/C++/VC++ » Операции с последовательностью
  • Взлом и безопасность / Новичкам » программа Абрис+
  • Разное / Болталка » Re: Ищу экспертов-хакеров для съемки в фильме
  • Разное / Ищу работу » Re: -=Мощный DDoS service/ДДоС сервис=-
  • Взлом и безопасность / Программы » Re: Julivi лекарство

    Все форумы... RSS


  • Разместить рекламу
    © HackZone Ltd. 2007-2012. Все права зарегистрированы.
    Перепечатка материалов без согласования и указания источника будет преследоваться по Закону

    О проекте | История проекта | Размещение рекламы | Обратная связь | Правила поведения на портале
    Ya-Cyt службы мониторинга серверов

    #{title}

    #{text}

    x

    #{title}

    #{text}