Суббота, 21.12.2024, 19:45 Приветствую вас Гость | Группа "Гости" 
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: Волк-1024, Anton93, xXxSh@dowxXx  
Screen Stealer + билдер
gravitasДата: Четверг, 03.02.2011, 18:36 | Сообщение # 1
Авторитетный
Зарегистрирован: 01.05.2010
Группа: Пользователи
Сообщений: 385
Статус: Offline
Продолжаю пополнять форум сорсами. На этот раз кидаю сорс своего (в большей части) Screen Stealer'a. Софт через каждые N секунд отсылает вам на фтп скриншоты рабочего стола. Разумеется есть авторан и защита от больее 2-х запусков. В архиве сорсы: скринстилера, билдера. Вес билда без сжатия - 119 кб. Кто знает как сжать еще сильнее - отпишитесь.
Прикрепления: Screen_Stealer.rar (284.9 Kb)


TheDeduction

Для ускорения получения ответов на ваши вопросы рекомендуется подкармливание в виде +'ов в рейтинг :)
 
dolphinДата: Четверг, 03.02.2011, 20:26 | Сообщение # 2
Администратор
Сообщений: 906
Статус: Offline
NewHeur_PE нод сказал.

Еще кое что -

BOOL InternetGetConnectedState(
__out LPDWORD lpdwFlags,
__in DWORD dwReserved
);

вернёт тру, когда есть только локалка, и приведёт к ошибке в программе.

Кстати, немного подумав, решил спросить а какой смысл делать скриншоты всего рабочего стола? Можно ведь просто ожидать в системе необходимые окна и делать скриншоты именно тех окно что нужны, не засоряя попусту фтп.

Насчёт размера - думаю врядли кто то модуль графики рискнёт копнуть чтобы уменьшить размер


Система: Windows 10 x64, Kali Linux
Среды программирования: Delphi 7, Delphi 10.x

Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик


Сообщение отредактировал dolphin - Четверг, 03.02.2011, 20:27
 
XSPYДата: Четверг, 03.02.2011, 22:42 | Сообщение # 3
Продвинутый
Зарегистрирован: 28.01.2010
Группа: Пользователи
Сообщений: 263
Статус: Offline
можно,но там будет трабла с потерей качества изображения и диаграммами...

Я не крекер,а программист!
Я не преступник-я свободный человек!
Лучше один раз накодить,чем сто раз качать билды!
 
gravitasДата: Пятница, 04.02.2011, 11:12 | Сообщение # 4
Авторитетный
Зарегистрирован: 01.05.2010
Группа: Пользователи
Сообщений: 385
Статус: Offline
dolphin, спасибо! Заменю на пинг какого нить хоста.

Quote (dolphin)
Можно ведь просто ожидать в системе необходимые окна и делать скриншоты именно тех окно что нужны

Это конечно можно... А если Нужно полное наблюдение?


TheDeduction

Для ускорения получения ответов на ваши вопросы рекомендуется подкармливание в виде +'ов в рейтинг :)
 
dolphinДата: Воскресенье, 06.02.2011, 14:40 | Сообщение # 5
Администратор
Сообщений: 906
Статус: Offline
Кстати, у меня при запуске открывается вот такой диалог
Прикрепления: 9957013.jpg (25.6 Kb)


Система: Windows 10 x64, Kali Linux
Среды программирования: Delphi 7, Delphi 10.x

Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
 
XSPYДата: Воскресенье, 06.02.2011, 15:04 | Сообщение # 6
Продвинутый
Зарегистрирован: 28.01.2010
Группа: Пользователи
Сообщений: 263
Статус: Offline
ахах,прикол! surprised

Я не крекер,а программист!
Я не преступник-я свободный человек!
Лучше один раз накодить,чем сто раз качать билды!
 
gravitasДата: Понедельник, 07.02.2011, 18:34 | Сообщение # 7
Авторитетный
Зарегистрирован: 01.05.2010
Группа: Пользователи
Сообщений: 385
Статус: Offline
dolphin, ох уж эта семерка...

TheDeduction

Для ускорения получения ответов на ваши вопросы рекомендуется подкармливание в виде +'ов в рейтинг :)
 
dolphinДата: Понедельник, 07.02.2011, 19:01 | Сообщение # 8
Администратор
Сообщений: 906
Статус: Offline
Quote (gravitas)
dolphin, ох уж эта семерка...

ОФФТОП
Сейчас необходимо всё под неё затачивать, а остальное приложится.


Система: Windows 10 x64, Kali Linux
Среды программирования: Delphi 7, Delphi 10.x

Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
 
C@TДата: Понедельник, 07.02.2011, 19:54 | Сообщение # 9
Авторитетный
Зарегистрирован: 06.03.2010
Группа: Модераторы
Сообщений: 265
Статус: Offline
Quote (gravitas)
Кто знает как сжать еще сильнее - отпишитесь.

не юзать модуль regestry

да и кстати от проблемы с выбором устройства избавится сложно, можно конечно юзать DSpack , но будет большой размер и может выйти сообщение о том использовать какой то там драйвер(не помню какой)


 
dolphinДата: Вторник, 08.02.2011, 16:48 | Сообщение # 10
Администратор
Сообщений: 906
Статус: Offline
Quote (XSPY)
можно,но там будет трабла с потерей качества изображения и диаграммами...

а вот и нет, кому интересно может этот код попробовать, у меня нормального качества делает.
Доступно только для пользователей


Система: Windows 10 x64, Kali Linux
Среды программирования: Delphi 7, Delphi 10.x

Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
 
NeoДата: Четверг, 24.03.2011, 16:56 | Сообщение # 11
Модератор
Зарегистрирован: 04.05.2010
Группа: Модераторы
Сообщений: 317
Статус: Offline
Раз уж тема зашла,то хочу поделиться своей проблемкой.Я мечтаю написать троян с просмотром удалённого экрана не снимками,а в режиме реального времени,например,как это делают рэдмин или тимвивер.Может кто это делал уже или исходничек знает где?
 
gravitasДата: Четверг, 24.03.2011, 17:56 | Сообщение # 12
Авторитетный
Зарегистрирован: 01.05.2010
Группа: Пользователи
Сообщений: 385
Статус: Offline
Quote (Neo)
Раз уж тема зашла,то хочу поделиться своей проблемкой.Я мечтаю написать троян с просмотром удалённого экрана не снимками,а в режиме реального времени,например,как это делают рэдмин или тимвивер.Может кто это делал уже или исходничек знает где?

Если поискать сорс есть где то тут - http://www.opensc.ws/delphi-rat-source/ .
Ну а чисто в теории - фоткаешь экран, сжимаешь скрин, посылаешь по сети.


TheDeduction

Для ускорения получения ответов на ваши вопросы рекомендуется подкармливание в виде +'ов в рейтинг :)
 
NeoДата: Пятница, 25.03.2011, 14:11 | Сообщение # 13
Модератор
Зарегистрирован: 04.05.2010
Группа: Модераторы
Сообщений: 317
Статус: Offline
Спасибо большое!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! biggrin smile У меня будет чем заняться в ближайшем месяце!!!!!!!!!!!!
 
NeoДата: Понедельник, 28.03.2011, 16:52 | Сообщение # 14
Модератор
Зарегистрирован: 04.05.2010
Группа: Модераторы
Сообщений: 317
Статус: Offline
Доступно только для пользователей
Прикрепления: DGScreenSpy_0.1.rar (980.6 Kb)
 
NeoДата: Понедельник, 28.03.2011, 16:53 | Сообщение # 15
Модератор
Зарегистрирован: 04.05.2010
Группа: Модераторы
Сообщений: 317
Статус: Offline
А вот,забыл компонент................Доступно только для пользователей
Прикрепления: 9307071.rar (1.39 Mb)
 
gravitasДата: Вторник, 05.04.2011, 14:20 | Сообщение # 16
Авторитетный
Зарегистрирован: 01.05.2010
Группа: Пользователи
Сообщений: 385
Статус: Offline
Neo, вот еще посмотри - http://www.opensc.ws/unsorted/14091-remote-desktop-src.html

TheDeduction

Для ускорения получения ответов на ваши вопросы рекомендуется подкармливание в виде +'ов в рейтинг :)
 
NeoДата: Пятница, 08.04.2011, 17:49 | Сообщение # 17
Модератор
Зарегистрирован: 04.05.2010
Группа: Модераторы
Сообщений: 317
Статус: Offline
Большое тебе СПАСИБО!
 
NeoДата: Воскресенье, 10.04.2011, 09:40 | Сообщение # 18
Модератор
Зарегистрирован: 04.05.2010
Группа: Модераторы
Сообщений: 317
Статус: Offline
Нашёл на форуме код передачи изображения раб.стола на удалённый комп,но код с ошибкой.Клиент передаёт изображение серверу через Memstream ,а когда на сервере нажмёшь кнопку на image должен появиться снимок раб.стола,полученный из патока,но получается ошибка JPEJ Error #53.
Помогите,пожалуйста,сделать так,что бы по нажатии кнопки у сервера появился снимочек удалённого рабочего стола.
Прикрепления: 1962669.rar (439.8 Kb)
 
BROVARДата: Четверг, 26.05.2011, 04:39 | Сообщение # 19
Был не раз
Зарегистрирован: 03.05.2011
Группа: Пользователи
Сообщений: 9
Статус: Offline
Если хорошо знаешь структуру Делфей и значение каждого подключаемого модуля то через вот это: Project->Options->Packages но у меня далеко не всегда получается убрать там все по правилам так что оптимизация это дело хлопотное.

Абара!
 
  • Страница 1 из 1
  • 1
Поиск:

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