| ||||||||||||||||
| ||||||||||||||||
| ||||||||||||||||
Как сделать троян на VB
В интернете полным полно всяких сайтов, на которых
Вы можете скачать себе самые разнообразные трояны и вирусы. Но о большинстве
из них (скорее всего) уже знают антивирусные программы. К тому же надо с опаской
относиться к таким троянам, которые отсылают пароли на e-mail, т.к. их большинство
дублирует письмо на e-mail автора :о) Поэтому лучше всего сделать троян самому.
Если в списке его нет, то нажмите "Browse" и выберете файл
"mswinsck.ocx". Тепрь ставим на форму этот компонент. Он нам нужен для свази
клиентской и серверной части по TCP протоколу. Далее изменяем форму:
убираем заголовок, делаем малые размеры и visible формы ставим на False. У
компонента меняем имя на "ws" и свойству LocalPort присваиваем число, которое и
будет номером порта, например 123. Теперь попробуем запустить программу. У вас ничего не должно появиться.
Завершаем работу программы нажатием кнопки "стоп".
Private Sub Form_Load()
Здесь, если мы ни с кем не соеденины и не прослушиваем порт, закрываем
связь в ws и открываем 123 порт в ожидании клиента. Условие на состояние связи в ws нужно
повторять во время работы программы для того, чтобы избежать случая, который возникает
при разрыве связи. Т.е. вы начинаете случать порт, затем подключается удалённый компьютер,
а после его отключения порт слушаться уже не будет. Вот значения, которые может принимать
свойство State:
Теперь нужно подключить клиента. Для этого в ws_ConnectionRequest, т.е. в запросе на соединение пишем:
Private Sub ws_ConnectionRequest(ByVal requestID As Long) Здесь мы сначала прекрашаем слушать, а затем подсоединяем клиента по номеру его запроса. На этом код по соединению двух программ закончен. Далее разбираем код для ws_DataArrival. Он будет вызываться, когда будут приходить какие-нибудь данные от сервера.
Private Sub ws_DataArrival(ByVal bytesTotal As Long)
В этом коде тоже всё просто. Сначала объявляем переменную
Data, которая будет содержать пришедшие данные, а затем записываем их.
После этого просматриваем все возможные варианты, т.е. команды, которые могли
прийти от сервера. Здесь их три: BEEP, MSG, END. То, что они делают, думаю,
объеснять не надо. Теперь остаётся скомпилировать программу. Назовём её "server.exe". Приступим к написанию клиентской части. Создадим новый проект и форму,
как на рисунке: Поставьте на форму 2 текстовых поля и назовите их "IP" и "Port", затем две кнопки с надписями "Подключиться" и "Отключиться", и 3 кнопки с надписями "Бип!", "Сообщение" и "Закрыть сервер". Имена кнопок оставьте стандартными. Теперь добавьте Winsock Control и назовите его "ws". Поскольку наш сервер работает на 123 порту, то свойству Text второго текстового поля можно сразу присвоить значение "123". Текст первого поля будет значение IP адреса данного компьютера. Для этого пишем:
Private Sub Form_Load()
Теперь запущенная программа может выглядеть примерно так: Продолжаем писать код.
Private Sub Command1_Click() При нажатии на кнопку "Подключиться", мы закрываем связь, указываем удалённый IP и порт и подключаемся. Кнопка "Отключиться" просто закрывает связь.
Private Sub Command3_Click()
В последних трёх кнопках программа сначала проверяет связь, и,
если соединено, то посылает команду.
Private Declare Function RegisterServiceProcess Lib _ |
|
| ||||||||||||||||
|