Autorizar apertura del servidor con Password

Estado
Cerrado para nuevas respuestas.

DarkThom

Oráculo Lvl 3
[SERVIDOR] Autorizar apertura del servidor con Password

Para el Servidor

Khalem: Edité y arreglé todo para que el host no pueda eludir el sistema: 19-05-07

Bueno, como lo dice el titulo, éste códgo sirve para que cuado uno le da el server a alguien que lo hostee, a éste le pida una contraseña. El servidor, Solo cargará, si la contraseña es correcta

Primero, lo que tenemos q hacer, es crear un nuevo formulario, al cual llamaremos frmContraseña. Una vez creado, le ponemos dos botones, al primero, le ponemos de nombre: cmdAceptar, y al segundo: cmdSalir
también, ponemos un textbox, con el nombre: txtContraseña, y por último, (y lo más importante) creamos un INET.


Bueno, eso es todo en la parte formulario. ahora, pasamos a la parte del codigo del formulario (clikeen alguno de los botones q creamos anteriormente)

Bueno, reemplazen el form_load por lo siguiente:
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #66cc66;">[</span>color=cyan<span style="color: #66cc66;">]</span><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Sub</span> Form_Load<span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span> </li><li style="" class="li2">Inet1.<span style="color: #66cc66;">URL</span> = <span style="color: #66cc66;">(</span><span style="color: #ffffff;">"http://www.tu-sitio.com/password.txt"</span><span style="color: #66cc66;">)</span> </li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Sub</span><span style="color: #66cc66;">[</span>/color<span style="color: #66cc66;">]</span></li></ol></div>[/vb]

En el codigo del boton cmdAceptar reemplazenlo por esto
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #66cc66;">[</span>color=cyan<span style="color: #66cc66;">]</span><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Sub</span> cmdAceptar_Click<span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span></li><li style="" class="li2"><span style="color: #b1b100;">On</span> Local <span style="color: #b1b100;">Error</span> <span style="color: #b1b100;">Resume</span> <span style="color: #b1b100;">Next</span></li><li style="" class="li1"><span style="color: #b1b100;">If</span> txtContraseña.<span style="color: #66cc66;">Text</span> <> Inet1.<span style="color: #66cc66;">OpenURL</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li2"><span style="color: #b1b100;">MsgBox</span> <span style="color: #66cc66;">(</span><span style="color: #ffffff;">"Contraseña incorrecta, si no ingresas una contraseña valida no podras ejecutar el servidor"</span><span style="color: #66cc66;">)</span></li><li style="" class="li1"><span style="color: #b1b100;">Else</span></li><li style="" class="li2">General.<span style="color: #66cc66;">Main</span></li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li2"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Sub</span><span style="color: #66cc66;">[</span>/color<span style="color: #66cc66;">]</span></li></ol></div>[/vb]

Y en el del Botón salir, ponen esto:[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #b1b100;">Private</span> <span style="color: #66cc66;">[</span>color=cyan<span style="color: #66cc66;">]</span><span style="color: #b1b100;">Sub</span> cmdSalir_Click<span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span></li><li style="" class="li2"><span style="color: #b1b100;">Unload</span> <span style="color: #b1b100;">Me</span></li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Sub</span><span style="color: #66cc66;">[</span>/color<span style="color: #66cc66;">]</span></li></ol></div>[/vb]

Por ultimo vallan a "Proyecto/propiedades de servidorArgentum", y donde dice "objeto incial" aparecera por defecto "sub main" bueno cambienlo por "frmContraseña".

P.D.: Tu-Sitio reemplazalo por tu web, en password.txt ponele la password que queres q sea (adentro del archivo). Por nada del mundo le cambies el nombre a inet1 ni en la parte grafica, ni en la parte del codigo

Creo Que no hace falta decir qeu si anda l opasen a desarrolos :p
Edit : Puse el Cambio de Tavo
 

Pocho

Oráculo Lvl 3
i si el usuario blokea la conexion con un firewall y pone en el textbox: "" y al ser la variable "" y el textbox "" da verdadero, asique tenes q poner q mientras sea diferente de entra
 

Tavo

[color=#BF0000]Lucha por tus ideales![/color]
Una cosa remplaza esto:

[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Sub</span> cmdAceptar_Click<span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span></li><li style="" class="li2"><span style="color: #b1b100;">If</span> txtContraseña.<span style="color: #66cc66;">Text</span> = Inet1.<span style="color: #66cc66;">OpenURL</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1">General.<span style="color: #66cc66;">Main</span></li><li style="" class="li2"><span style="color: #b1b100;">Else</span></li><li style="" class="li1"><span style="color: #b1b100;">MsgBox</span> <span style="color: #66cc66;">(</span><span style="color: #ffffff;">"Contraseña incorrecta, si no ingresas una contraseña valida no podras ejecutar el servidor"</span><span style="color: #66cc66;">)</span></li><li style="" class="li2"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Sub</span></li></ol></div>[/vb]

por:

[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Sub</span> cmdAceptar_Click<span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span></li><li style="" class="li2"><span style="color: #b1b100;">If</span> txtContraseña.<span style="color: #66cc66;">Text</span> <> Inet1.<span style="color: #66cc66;">OpenURL</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1"><span style="color: #b1b100;">MsgBox</span> <span style="color: #66cc66;">(</span><span style="color: #ffffff;">"Contraseña incorrecta, si no ingresas una contraseña valida no podras ejecutar el servidor"</span><span style="color: #66cc66;">)</span></li><li style="" class="li2"><span style="color: #b1b100;">Else</span></li><li style="" class="li1">General.<span style="color: #66cc66;">Main</span></li><li style="" class="li2"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Sub</span></li></ol></div>[/vb]

Mañana lo paso a desarrollos
 

Pocho

Oráculo Lvl 3
tavo no seria mejor asi..?


If Inet1.OpenURL "" and Inet1.OpenURL = txtContraseña.text then
general.main
else
MsgBox ("Contraseña incorrecta, si no ingresas una contraseña valida no podras ejecutar el servidor")
end if
 

Dj Mixer

Destructor Lvl 1
Es muy facil pasar esa barrera,, Amigos existe algo q no me dejan poner pero q pocho ya lo dijo ;D
Lo unico : Cuando va a verificar abre el text; Con eso q no puedo nombrar :$ se puede ver la direccion web, luego bajar el archivo y ver la pass. Y ya ta el sv pa mi ;D
Es ingienieria logica (?)
Salu2
 

Tavo

[color=#BF0000]Lucha por tus ideales![/color]
Pocho dijo:
tavo no seria mejor asi..?


If Inet1.OpenURL "" and Inet1.OpenURL = txtContraseña.text then
general.main
else
MsgBox ("Contraseña incorrecta, si no ingresas una contraseña valida no podras ejecutar el servidor")
end if

Dos cosas, primero usa el tag de VB que para algo esta...
Segundo, estas haciendo una comparacion de mas cuando podes hacer solo 1.
 

MrMan

Sr. Product Manager @ Rockwell Automation
Miembro del equipo
Colaborador
En realidad no es efectivo esto, debido a que por ejemplo si el usuario se entera la direccion ( cosa que se va a dar cuenta cuando le pida la contraseña ) con un debugger va a poder conseguirla, lo mejor es en el sub main realizar la misma comprovacion pero modifciando que si esta en 1 el servidor se continue cargando y si esta en 0 o no encuentra la direccion no lo permita, es mas seguro por que primero el usuario no va a tener que ingresar nada, y segundo no se enteraria que existe esa restriccion hasta que no le permitas abrirlo.


Atte. Tales
 
Estado
Cerrado para nuevas respuestas.
Arriba