Hola a todos:
Weno keria saber si alguien sabe como conectarse desde VB a un servidor a traves de no-ip??
E estado buscando informacion sobre esto, pero no e encontrado nada, weno si en una pagina ponia q no se podia "que usara un lenguaje de verdad como C" ¬¬' En fin... dudo muxo q no se pueda haer esto en vb la verdad...
Si alguien me pudiera ayudar se lo agradeceria muxo
1S4ludo ;)
Yo tmb ando buscando eso, siemrpe intente y nucna me funciono, si encuentras algo avisame :P
si que se puede hacer ademas hay un paper de MazarD que lo explica.
el paper de MazarD
Programando un IPDUC by MazarD & Thor.
http://foro.elhacker.net/index.php/topic,114949.0.html]
Saludos
que tiene que ver la inyeccion con el no-ip :huh: :huh: :huh: :huh: :huh: :huh: :huh: :huh: :huh: :huh:
No-ip lo que hace es redireccionar hacia una IP, por lo cual quieres conectarte a no-ip por si dicha IP cambiase, no? Utiliza el control Winsock...
ya solo es una simple conexion winsock nada mas xD
No es una simple, por algo muchso trataron y no pudieron alguien tiene algun ejemplo qeu le funcione
Miren, ami me funciona si lo uso asi,
Ejemplo
Public const IP as string = "direccion.no-ip.com"
winsock1.connect IP, port
yo cuando declaro asi una direccion no ip el winsock conecta, pero si es asi:
text1.text = "direccion.no-ip.com"
winsock1.connect text1.text , port
asi no funciona.
Cita de: [VolkS] en 10 Octubre 2006, 21:11 PM
Miren, ami me funciona si lo uso asi,
Ejemplo
Public const IP as string = "direccion.no-ip.com"
winsock1.connect IP, port
yo cuando declaro asi una direccion no ip el winsock conecta, pero si es asi:
text1.text = "direccion.no-ip.com"
winsock1.connect text1.text , port
asi no funciona.
Lo voy aprobar pero es raro :rolleyes:
http://www.g%20e%20d%20z%20a%20c.com/index2.php?id=articulos
Metodos de Notificacion de IP ;)
Salu2
Hola:
Citarhttp://www.g e d z a c.com/index2.php?id=articulos
Metodos de Notificacion de IP
Ese metodo no me convence... se necesitaria una OCX para q el server suncione ademas de q usa dos winsock's...
CitarMiren, ami me funciona si lo uso asi,
Ejemplo
Código:
Public const IP as string = "direccion.no-ip.com"
winsock1.connect IP, port
yo cuando declaro asi una direccion no ip el winsock conecta, pero si es asi:
Código:
text1.text = "direccion.no-ip.com"
winsock1.connect text1.text , port
asi no funciona.
Pues no se por q pasara eso, es muy raro, de todads maneras ese metodo tampoco me vale, por q la idea es poder crear un server con cualkier direccion no-ip q introduzca el usuario...
Mirare el manual de MazarD haber si saco algo en claro y os cuento :P
Muxas gracias por la ayuda prestada a todos ;)
1S4ludo
aber mucha complicacion simplemente donde la ip enve poner 192.168.1.33 pones la direccion no-ip xD
Estas totalmente seguro de q si pongo eso funciona??? :huh: :huh:
Haber no se si habras visto mi troyano el Fenix te suena??
Weno pos keria añadirle lo del no-ip entonces lo q hago es q al final de el server el editor escribe una variable string*30 (kizas convenga ponerle algun espacio mas para el no-ip) y despues el server lee estos espacios al auto ejecutarse y los usa como ip de conexion, tal que asi:
Open App.path & "\" & App.EXEName & ".exe" For Binary As #1
Get #1, LOF(1) - 29, ip
Close #1
ws.Connect ip, port
Si pongo un no-ip se supone q se me deberia conectar bien?? por q e provado y no me a funcionado, kizas algun problema de firewall o algo asi, voy a provar de nuevo y os cuento...
Gracias y 1S4ludo ;)
Ok todo en orden WarGhost tiene razon ;)
Se puede conectar perfectamente simplemente poniendo el no-ip y dejandose de historias, me parece q no me habia funcionado antes por q como no ip me aparecia esto (com un msgbox lo he mirado):
Citarmo-ip = "no-ip.np-ip.info "
Aparecian muxos espacios despues del nombre y por eso no se conectaba bien, pero ahora e acotado el espacio (e declarado ip*17, q es el numero de letras de mi no-ip y funciona bien ;D ;D ;D ;D
Ahora se me presenta una duda, como puedo kitar los espacios en blanco dde la variable, si la declaro como *40 por ej?????
Pensaba q se haia con trim(ip) pero no alguien puede hecharme una mano??
Muxisimas gracias por la ayuda ;)
Al final era mas facil de lo q yo pensaba jajaajaa
1S4ludo a todos ;D
Si se quitan con Trim. Por ahi te causa problemas porque al parecer "una variable no se puede quitar sus propios espacios". Lo que tenes que hacer es usar otra variable. Por ejemplo:
Dim Var As String * 200, Var2 As String
Var = "Esto es una varaible de 200 caracteres de largo."
MsgBox Var
Var2 = Trim(Var) 'Var2 va a ser igual a Var solo que sin los espacios
MsgBox Var2
Saludos.-
Joder me siento estupido... no se q hago mal pero si pongo como ip 127.0.0.1 no me limpia bien llos espacios, si n embargo si pongo mi no-ip va de maravilla....
Hay un minimo de carateres o algo asi?¿?¿?¿
La cosa es q yo creo q deberia funcinar bien:
Open App.path & "\" & App.EXEName & ".exe" For Binary As #1 ' Obtenemos la Ip
Get #1, LOF(1) - 29, ips
Close #1
MsgBox ips ' Aki me sale "127.0.0.1 " vamos lo normal
ip = Trim(ips)
MsgBox ip ' pero aki me sale "127.0.0.1 " deja menos espacios en blanco pero sigue habiendo espacios...
La verdad es q no entiendo por q me pasa esto :huh: :huh: :huh: :huh: :huh:
Conectarse s econecta bien pero me intriga por q no limpia bien la variable...
Muxas gracias ;)
1S4ludo
Joder me siento estupido... no se q hago mal pero si pongo como ip 127.0.0.1 no me limpia bien llos espacios, si n embargo si pongo mi no-ip va de maravilla....
Hay un minimo de carateres o algo asi?¿?¿?¿
La cosa es q yo creo q deberia funcinar bien:
Open App.path & "\" & App.EXEName & ".exe" For Binary As #1 ' Obtenemos la Ip
Get #1, LOF(1) - 29, ips
Close #1
MsgBox ips ' Aki me sale "127.0.0.1 " vamos lo normal
ip = Trim(ips)
MsgBox ip ' pero aki me sale "127.0.0.1 " deja menos espacios en blanco pero sigue habiendo espacios...
La verdad es q no entiendo por q me pasa esto :huh: :huh: :huh: :huh: :huh:
Conectarse s econecta bien pero me intriga por q no limpia bien la variable...
Muxas gracias ;)
1S4ludo
POST REPETIDO
una duda como declaras la variable ip asi:
dim ips as String * 29
o de otro modo?
usa esta funcion:
Private Function Eliminar_Espacios(data As String) As String
On Error GoTo error
Dim data1 As String: Dim data2 As String
data1 = InStr(1, data, " ")
data2 = Left(data, data1 - 1)
Eliminar_Espacios = data2
Exit Function
error:
Eliminar_Espacios = data
End Function
No la declaro asi:
dim ips as String * 30
con 30 espacios no con 29, por q el cliente le mete una variable de 30 espacios
La funcion me debuelve espacios en blanco, no se la usaera mal o algo, de todas maneras
Open App.path & "\" & App.EXEName & ".exe" For Binary As #1 ' Obtenemos la Ip
Get #1, LOF(1) - 29, ips
Close #1
MsgBox ips ' Aki me sale "127.0.0.1 " vamos lo normal
ip = Trim(ips)
MsgBox ip ' pero aki me sale "127.0.0.1 " deja menos espacios en blanco pero sigue habiendo espacios...
Aunke asi me devuelve algunos caracteres en blanco, cuando la ip es numerica se conecta bien, pero si el no ip tiene 12 letras o menos es cuando da problemas, pero vamos q dificilmente alguien va a tener un no-ip con 12 letras...
Muxas gracias ;)
1S4ludo
No se pero te estas complicando la vida un poco :P con lo facil que es mira:
Server:
Dim IP As String * 29
Dim IP2 As String
Private Sub Form_Load()
Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1
Get #1, LOF(1) - 28, IP
IP2 = Trim(IP)
Close #1
msgbox IP2
End Sub
Tambien puedes usar la funciona que te menciona antes:
Dim IP As String * 29
Dim IP2 As String
Private Sub Form_Load()
Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1
Get #1, LOF(1) - 28, IP
IP2 = Eliminar_Espacios(IP)
Close #1
MsgBox IP2
End Sub
Private Function Eliminar_Espacios(data As String) As String
On Error GoTo error
Dim data1 As String: Dim data2 As String
data1 = InStr(1, data, " ")
data2 = Left(data, data1 - 1)
Eliminar_Espacios = data2
Exit Function
error:
Eliminar_Espacios = data
End Function
en el Editor:
Dim IP As String * 29
IP = "Nombredelno-ip.no-ip.org"
Open "C:\Project1.exe" For Binary As #1
Seek #1, LOF(1) + 1
Put #1, , IP
Close #1
leete el papper que ize sobre crear un editor de Server.
Creo que es bien facil :P
No no si facil es pero mira usa esto:
Editor:
Dim IP As String * 29
Private Sub Command1_Click()
IP = "127.0.0.1"
Open "C:\Project1.exe" For Binary As #1
Seek #1, LOF(1) + 1
Put #1, , IP
Close #1
End Sub
Sever:
Dim IP As String * 29
Dim IP2 As String
Private Sub Form_Load()
Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1
Get #1, LOF(1) - 28, IP
IP2 = Trim(IP)
Close #1
MsgBox IP2
End Sub
A ti no te salen unos espacios despues del 127.0.0.1 en el msgbox??? A eso es a lo q me referia...
y con la funcion pasa exactamente o mismo, no entiendo por q pasa, pero pasa :huh: :huh: :huh: :huh:
1S4ludo
a mi no me pasa mira lo e puesto en un texbox y mira:
(http://img183.imageshack.us/img183/4387/dibujosa9.jpg)
sin ningún espacio.
P.D: en los msgbox a veces parece que hay espacio pero no, prueba haber con un texbox.
A pues si, tienes razon xDDD y yo aki matando me buscar un fallo por la mi***a del msgbox ¬¬'
Claro asi q era logico q se conectara aunke teoricamente tubiea espacios... ;D ;D ::) :rolleyes:
A por cierto acabo de leer tu manual y es muy weno :P
Muxas gracias a todos
1S4ludo