Ayuda con shell remota

Iniciado por mastercss, 10 Junio 2010, 22:21 PM

0 Miembros y 1 Visitante están viendo este tema.

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]
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]
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://www.advancevb.com.ar
Más Argentino que el morcipan
Aguante el Uvita tinto, Tigre, Ford y seba123neo
Karcrack es un capo.

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

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

Código (vb) [Seleccionar]
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]
Private Sub Command2_Click()
Dim comando As String
comando = Text4.Text
Winsock1.SendData comando
Text4.Text = ""
End Sub


Intenta con eso... Suerte

BlackZeroX

Cita de: mastercss en 11 Junio 2010, 16:08 PM
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
Cita de: cobein en 11 Junio 2010, 02:04 AM
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



telnet localhost 666



y ya esta tu Shell Remota!¡.

Dulce Infierno Lunar!¡.
The Dark Shadow is my passion.