Foro de elhacker.net

  Hola, vereis, estoi haciendo un troyano, bastante basico, con la api del winsock, en el cual uso unicamente 2 textbox ocultos y el winsock como comunicacion, entonces para qe al recibir datos cada dato vaya a un textbox, por ejemplo, he puesto:

Pra qe vaya al text1 del server:

y para qe vaya al dos pues

Y al llegar datos al server mirar lo qe pasa:

Per lo qe yo qiero es recortarle la palabra txt1 o txt2 al ser recibido es decir si tu mandas por ejemplo la palabra "Snort", llega "txt1Snort" o "txt2Snort", evidentemente, pues lo qe yo qiero es qe solo llegue "Snort" sin la 'cabecera'

                                                                                                                                Saludosss

Y para usarlo seria asi:


Espero que te sirva...

Salu2

mira lo que puedes es hacer lo siguiente


private function RestsarPalabra(Cadena, Palabra)
    dim i as integer
   
    i = instr(1, cadena,palabra, vbTextCompare)
    if i > 1 then
         RestarPalabra = mid(cadena, 1,i-1) & mid(cadena,i+len(palabra), len(cadena))
    else
         RestarPalabra = mid(cadena,i+len(palabra), len(cadena))
     end if
end function



con esto no importa si la palabra que quieres quitar esta al inicio, enmedio o al final de la cadena, espero te sirva aunque no voy muy de acuerdo con eso de estar haciendo virus

no entiendo xq pones "txt1"

Private Sub command1_click
ws.SendData "txt1" & Text1.Text
End Sub

xq no pones solo

Private Sub command1_click
ws.SendData  Text1.Text
End Sub

:S:S

   Porqe asi, en la llegada de dats al servidor, se revisan los 4 primeros caracteres de la cadena de texto, y si esos caracteres son txt1, pues el texto se muestra en el text1, y si son txt2, se muestra en el text2. Si lo hiciera como tu dices tendria qe mandar txt1 o txt2 antes de escribir cada frase, porqe si no, no se veria.

   Gracias por las respuestas, lo he solucionado como ha dicho Hendrix.