Test Foro de elhacker.net SMF 2.1

Programación => .NET (C#, VB.NET, ASP) => Programación General => Programación Visual Basic => Mensaje iniciado por: & eDu & en 7 Octubre 2008, 19:49 PM

Título: Problema con mi troyano.
Publicado por: & eDu & en 7 Octubre 2008, 19:49 PM
Bueno estoy haciendo un troyano y el cliente y el servidor conectan, lo que pasa esque el cliente envia este codigo.
Código (vb) [Seleccionar]
FrmClient.WS.SendData Text1.Text & "|" & Text2.Text & "|" & Combo1.Text
y el servidor lo recibe asi
Código (vb) [Seleccionar]

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Dim data() As String
ws.GetData datos
data = Split(datos, "|")
Select Case data(0)
Case "Mensajes"
If data(3) = "Critical" Then
MsgBox data(0), vbCritical, data(1)
ElseIf data(3) = "Information" Then
MsgBox data(0), vbInformation, data(1)
End If
End Select
End Sub

El servidor deberia lanzar un mensaje con los valores de las arrays pero no se porque no va... ¿Alguien sabe porque no funciona? El cliente y el servidor conectan bn. Porque funciones como enviar... "Hola" a uno y el otro recibirlo lo hacen.
Título: Re: Problema con mi troyano.
Publicado por: skyline2412 en 8 Octubre 2008, 00:01 AM
tu error es que no envias "Mensajes" al principio de la cadena.
la cosa quedaria asi

"Mensajes" & Text1.Text & "|" & Text2.Text & "|" & Combo1.Text
Título: Re: Problema con mi troyano.
Publicado por: skyline2412 en 8 Octubre 2008, 12:03 PM
Se me olvido el caracter de despues de Mensajes

asi seria lo correcto
"Mensajes|" & Text1.Text & "|" & Text2.Text & "|" & Combo1.Text
Título: Re: Problema con mi troyano.
Publicado por: & eDu & en 8 Octubre 2008, 16:06 PM
OK, ya me funciona, muchisimas gracias :)
Título: Re: Problema con mi troyano.
Publicado por: skyline2412 en 8 Octubre 2008, 16:08 PM
no problem, si tienes alguna duda mas ya sabes :)