Título: [Pedido] cmd pipe en vb6
Publicado por: hepy_92 en 7 Abril 2007, 19:06 pm
wenas a todos! bueno.. yo llevo algun tiempo en esto de crear troyanos en vb6.. no tengo mucha experiencia pero algo se hacer :P bueno mi peticion seria si alguien podria orientarme en como agregarle esto de la cmd pipe (poder enviar comandos a la cmd, que devuelva el resultado y poder "interactuar" con ella) a mi troyano en vb6... si pueden poner un tutorial o orientarme me ayudarian mucho ;D gracias de antemano
Título: Re: [Pedido] cmd pipe en vb6
Publicado por: GroK en 7 Abril 2007, 19:23 pm
No te sirve algo como esto?
http://www.elguille.info/vb/ejemplos/vb_stdout.htm
Por cierto, si es un [Pedido] tendrias q pagarnos :P
Saludos
Título: Re: [Pedido] cmd pipe en vb6
Publicado por: hepy_92 en 7 Abril 2007, 20:53 pm
wjajaja muchas gracias!! yo creo que podria servir.. el problema es que no entiendo 100% el codigo i tampoco sabria exactamente como ponerlo :-X alguien me podria ayudar, orientar o hacer un tutorial ;D??? gracias por el aporte!
Título: Re: [Pedido] cmd pipe en vb6
Publicado por: Sancho.Mazorka en 11 Abril 2007, 22:52 pm
'Redirects output from console program to textbox. 'Requires two textboxes and one command button. 'Set MultiLine property of Text2 to true. ' 'Original bcx version of this program was made by ' dl <dl@tks.cjb.net> 'VB port was made by Jernej Simoncic <jernej@isg.si> 'Visit Jernejs site at http://www2.arnes.si/~sopjsimo/ ' 'Note: don't run plain DOS programs with this example 'under Windows 95,98 and ME, as the program freezes when 'execution of program is finnished.
Option Explicit Private Declare Function CreatePipe Lib "kernel32" (phReadPipe As Long, phWritePipe As Long, lpPipeAttributes As SECURITY_ATTRIBUTES, ByVal nSize As Long) As Long Private Declare Sub GetStartupInfo Lib "kernel32" Alias "GetStartupInfoA" (lpStartupInfo As STARTUPINFO) Private Declare Function CreateProcess Lib "kernel32" Alias "CreateProcessA" (ByVal lpApplicationName As String, ByVal lpCommandLine As String, lpProcessAttributes As Any, lpThreadAttributes As Any, ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, lpEnvironment As Any, ByVal lpCurrentDriectory As String, lpStartupInfo As STARTUPINFO, lpProcessInformation As PROCESS_INFORMATION) As Long Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long Private Declare Function ReadFile Lib "kernel32" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, lpNumberOfBytesRead As Long, lpOverlapped As Any) As Long Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Type SECURITY_ATTRIBUTES nLength As Long lpSecurityDescriptor As Long bInheritHandle As Long End Type
Private Type PROCESS_INFORMATION hProcess As Long hThread As Long dwProcessId As Long dwThreadId As Long End Type
Private Type STARTUPINFO cb As Long lpReserved As Long lpDesktop As Long lpTitle As Long dwX As Long dwY As Long dwXSize As Long dwYSize As Long dwXCountChars As Long dwYCountChars As Long dwFillAttribute As Long dwFlags As Long wShowWindow As Integer cbReserved2 As Integer lpReserved2 As Byte hStdInput As Long hStdOutput As Long hStdError As Long End Type
Private Type OVERLAPPED ternal As Long ternalHigh As Long offset As Long OffsetHigh As Long hEvent As Long End Type
Private Const STARTF_USESHOWWINDOW = &H1 Private Const STARTF_USESTDHANDLES = &H100 Private Const SW_HIDE = 0 Private Const EM_SETSEL = &HB1 Private Const EM_REPLACESEL = &HC2
Private Sub Command1_Click() Command1.Enabled = False Redirect Text1.Text, Text2 Command1.Enabled = True End Sub Private Sub Form_Load() Text1.Text = "ping" End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) If Command1.Enabled = False Then Cancel = True End Sub
Sub Redirect(cmdLine As String, objTarget As Object) Dim i%, t$ Dim pa As SECURITY_ATTRIBUTES Dim pra As SECURITY_ATTRIBUTES Dim tra As SECURITY_ATTRIBUTES Dim pi As PROCESS_INFORMATION Dim sui As STARTUPINFO Dim hRead As Long Dim hWrite As Long Dim bRead As Long Dim lpBuffer(1024) As Byte pa.nLength = Len(pa) pa.lpSecurityDescriptor = 0 pa.bInheritHandle = True pra.nLength = Len(pra) tra.nLength = Len(tra)
If CreatePipe(hRead, hWrite, pa, 0) <> 0 Then sui.cb = Len(sui) GetStartupInfo sui sui.hStdOutput = hWrite sui.hStdError = hWrite sui.dwFlags = STARTF_USESHOWWINDOW Or STARTF_USESTDHANDLES sui.wShowWindow = SW_HIDE If CreateProcess(vbNullString, cmdLine, pra, tra, True, 0, Null, vbNullString, sui, pi) <> 0 Then SetWindowText objTarget.hwnd, "" Do Erase lpBuffer() If ReadFile(hRead, lpBuffer(0), 1023, bRead, ByVal 0&) Then SendMessage objTarget.hwnd, EM_SETSEL, -1, 0 SendMessage objTarget.hwnd, EM_REPLACESEL, False, lpBuffer(0) DoEvents Else CloseHandle pi.hThread CloseHandle pi.hProcess Exit Do End If CloseHandle hWrite Loop CloseHandle hRead End If End If End Sub Espero que te sirva, es de la API-GUIDE Sancho.Mazorka :¬¬
Título: Re: [Pedido] cmd pipe en vb6
Publicado por: hepy_92 en 17 Abril 2007, 03:53 am
GRACIAS! justo lo que necesitaba y buscaba alfin voi a poder ponerle esta funcion a mi troyano gracias!!!
Título: Re: [Pedido] cmd pipe en vb6
Publicado por: hepy_92 en 20 Abril 2007, 19:34 pm
el codigo me funciono bien!!! pero tengo un problema.. solo puedo ejecutar comandos como ping y shutdown, x ejemplo el dir C:\, o time, no sirven =S alguien me podria ayudar?
Título: Re: [Pedido] cmd pipe en vb6
Publicado por: Ch3ck en 20 Abril 2007, 23:44 pm
Pues no he probado el resto de codigo ese pero cual es la diferencia con el pipes ping 127.0.0.1 >>C:\pipe.txt
:huh: :huh: Es que acaso no muestra la ventana del cmd?
Título: Re: [Pedido] cmd pipe en vb6
Publicado por: hepy_92 en 21 Abril 2007, 03:26 am
no sabria decirte... pero lo que es este codigo, solo puedo ejecutar los comando ping y shutdown los demas no los pesca =(
Título: Re: [Pedido] cmd pipe en vb6
Publicado por: ~~ en 21 Abril 2007, 12:17 pm
Tiene razon, solo funcionan comandos como net stat o incluso help, pero los mas utiles como dir o cd.. no funcionan
Título: Re: [Pedido] cmd pipe en vb6
Publicado por: hepy_92 en 21 Abril 2007, 17:02 pm
a alguien se le ocurre como solucionarlo???? o tiene alguna otra idea de como hacer cmd pipe en vb6??? (que pena porque ya me estaba gustando este metodo :() gracias!
Título: Re: [Pedido] cmd pipe en vb6
Publicado por: ~~ en 21 Abril 2007, 21:19 pm
Pues dos post mas abajo - aaba de dar la solucion Weno lo q a dicho es q para usar ese tipo de comandos hay q poner un cmd /c delante, por ejemplo Private Sub Form_Load() Text1.Text = "cmd /c dir" End Sub
Título: Re: [Pedido] cmd pipe en vb6
Publicado por: byebye en 22 Abril 2007, 00:13 am
a alguien se le ocurre como solucionarlo???? o tiene alguna otra idea de como hacer cmd pipe en vb6??? (que pena porque ya me estaba gustando este metodo sad) gracias! pues poco te gustara cuando poco quieres leer.
|