Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: ~~ en 9 Octubre 2006, 16:38 pm


Título: No-ip en VB6
Publicado por: ~~ en 9 Octubre 2006, 16:38 pm
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  ;)

Título: Re: No-ip en VB6
Publicado por: xDie en 9 Octubre 2006, 19:38 pm
Yo tmb ando buscando eso, siemrpe intente y nucna me funciono, si encuentras algo avisame :P

Título: Re: No-ip en VB6
Publicado por: WarGhost en 9 Octubre 2006, 20:32 pm
si que se puede hacer ademas hay un paper de MazarD que lo explica.

Título: Re: No-ip en VB6
Publicado por: Dahmer en 9 Octubre 2006, 21:37 pm
el paper de MazarD


Programando un IPDUC by MazarD & Thor.
http://foro.elhacker.net/index.php/topic,114949.0.html]



Saludos

Título: Re: No-ip en VB6
Publicado por: WarGhost en 10 Octubre 2006, 00:03 am
que tiene que ver la inyeccion con el no-ip  :huh: :huh: :huh: :huh: :huh: :huh: :huh: :huh: :huh: :huh:

Título: Re: No-ip en VB6
Publicado por: yeikos en 10 Octubre 2006, 08:10 am
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...

Título: Re: No-ip en VB6
Publicado por: WarGhost en 10 Octubre 2006, 12:16 pm
ya solo es una simple conexion winsock nada mas xD

Título: Re: No-ip en VB6
Publicado por: xDie en 10 Octubre 2006, 17:18 pm
No es una simple, por algo muchso trataron y no pudieron alguien tiene algun ejemplo qeu le funcione

Título: Re: No-ip en VB6
Publicado por: [VolkS] en 10 Octubre 2006, 21:11 pm
Miren, 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.

Título: Re: No-ip en VB6
Publicado por: xDie en 10 Octubre 2006, 21:44 pm
Cita de: [VolkS] en 10 Octubre 2006, 21:11 pm
Miren, 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.
Lo voy aprobar pero es raro  :rolleyes:

Título: Re: No-ip en VB6
Publicado por: SheKeL_C$ en 10 Octubre 2006, 23:16 pm
http://www.g e d z a c.com/index2.php?id=articulos

Metodos de Notificacion de IP  ;)







Salu2

Título: Re: No-ip en VB6
Publicado por: ~~ en 11 Octubre 2006, 16:33 pm
Hola:

Citar
http://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...

Citar
Miren, 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

Título: Re: No-ip en VB6
Publicado por: WarGhost en 11 Octubre 2006, 17:05 pm
aber mucha complicacion simplemente donde la ip enve poner 192.168.1.33 pones la direccion no-ip xD

Título: Re: No-ip en VB6
Publicado por: ~~ en 11 Octubre 2006, 17:42 pm
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:

Código:
Open App.path & "\" & App.EXEName & ".exe" For Binary As #1 
Get #1, LOF(1) - 29, ip
Close #1


Código:
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  ;)

Título: Re: No-ip en VB6
Publicado por: ~~ en 11 Octubre 2006, 17:52 pm
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):

Citar
mo-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

Título: Re: No-ip en VB6
Publicado por: NYlOn en 12 Octubre 2006, 00:58 am
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:
Código:
    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.-

Título: Re: No-ip en VB6
Publicado por: ~~ en 12 Octubre 2006, 01:22 am
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:

Código:
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

Título: Re: No-ip en VB6
Publicado por: ~~ en 12 Octubre 2006, 01:48 am
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:

Código:
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

Título: Re: No-ip en VB6
Publicado por: WarGhost en 12 Octubre 2006, 01:52 am
una duda como declaras la variable ip asi:

Código:
dim ips as String * 29

o de otro modo?

usa esta funcion:

Código:
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

Título: Re: No-ip en VB6
Publicado por: ~~ en 12 Octubre 2006, 13:17 pm
No la declaro asi:

Código:
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

Código:
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

Título: Re: No-ip en VB6
Publicado por: WarGhost en 12 Octubre 2006, 13:53 pm
No se pero te estas complicando la vida un poco  :P con lo facil que es mira:

Server:

Código:
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:

Código:
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:

Código:
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


Título: Re: No-ip en VB6
Publicado por: ~~ en 12 Octubre 2006, 14:01 pm
No no si facil es pero mira usa esto:

Editor:
Código:
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:
Código:
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

Título: Re: No-ip en VB6
Publicado por: WarGhost en 12 Octubre 2006, 14:06 pm
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.

Título: Re: No-ip en VB6
Publicado por: ~~ en 12 Octubre 2006, 14:12 pm
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


Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines