Autor
|
Tema: [Pedido] cmd pipe en vb6 (Leído 5,895 veces)
|
hepy_92
Desconectado
Mensajes: 130
|
wenas a todos! bueno.. yo llevo algun tiempo en esto de crear troyanos en vb6.. no tengo mucha experiencia pero algo se hacer 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 gracias de antemano
|
|
|
En línea
|
|
|
|
GroK
Desconectado
Mensajes: 681
...I have become comfortably numb...
|
No te sirve algo como esto? http://www.elguille.info/vb/ejemplos/vb_stdout.htm
Por cierto, si es un [Pedido] tendrias q pagarnos Saludos
|
|
|
En línea
|
"I put on my Hendrix album and my son said 'Dad, who's that?' and i said 'Well son, that's God' "- Robert Plant
|
|
|
hepy_92
Desconectado
Mensajes: 130
|
wjajaja muchas gracias!! yo creo que podria servir.. el problema es que no entiendo 100% el codigo i tampoco sabria exactamente como ponerlo alguien me podria ayudar, orientar o hacer un tutorial ??? gracias por el aporte!
|
|
|
En línea
|
|
|
|
Sancho.Mazorka
Desconectado
Mensajes: 480
Gamer & Programador
|
'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
|
|
|
En línea
|
|
|
|
hepy_92
Desconectado
Mensajes: 130
|
GRACIAS! justo lo que necesitaba y buscaba alfin voi a poder ponerle esta funcion a mi troyano gracias!!!
|
|
|
En línea
|
|
|
|
hepy_92
Desconectado
Mensajes: 130
|
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?
|
|
|
En línea
|
|
|
|
Ch3ck
Desconectado
Mensajes: 337
Elite
|
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 Es que acaso no muestra la ventana del cmd?
|
|
|
En línea
|
|
|
|
hepy_92
Desconectado
Mensajes: 130
|
no sabria decirte... pero lo que es este codigo, solo puedo ejecutar los comando ping y shutdown los demas no los pesca =(
|
|
|
En línea
|
|
|
|
~~
|
Tiene razon, solo funcionan comandos como net stat o incluso help, pero los mas utiles como dir o cd.. no funcionan
|
|
|
En línea
|
|
|
|
hepy_92
Desconectado
Mensajes: 130
|
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!
|
|
|
En línea
|
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
pedido
Programación Visual Basic
|
Naimaderis
|
4
|
3,704
|
10 Enero 2022, 20:24 pm
por BlackZeroX
|
|
|
Pasar más de un int con una pipe
Programación C/C++
|
ithory
|
2
|
5,780
|
15 Diciembre 2012, 13:23 pm
por ithory
|
|
|
pipe y QT!
Programación C/C++
|
febef
|
2
|
2,145
|
17 Abril 2013, 01:26 am
por febef
|
|
|
Pipe doble
GNU/Linux
|
desikoder
|
3
|
3,239
|
12 Noviembre 2013, 17:07 pm
por desikoder
|
|
|
Pedido de problemas (poo)
Programación C/C++
|
matver
|
1
|
1,601
|
6 Febrero 2018, 19:50 pm
por engel lex
|
|