Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   sugerencias para generar password (https://www.clubdelphi.com/foros/showthread.php?t=57271)

torito 10-06-2008 15:27:11

sugerencias para generar password
 
Hola, tengo en puerta un proyecto para web, antes todos mis proyectos los tenia en intranet y no tenia tanto problema en seguridad, pero ahora mis programas requieren más seguridad para internet, asi que quiero manejar un tipo de password o clave en una variable con la cual sólo me trabaje 20 minutos este usuario.
Trabajo con webservices amarrandolos a delphi (es un rollo muy complejo), asi que quiero generar esta variable como unica y que solo funcione durante 20 minutos, si depués de 20 minutos se sigue usando, darle mate a esa sesión (esto ya lo se hacer :p). En sí les pido ayuda para el ¿cómo generar esta variable?

Espero poderme haber explicado y me puedan auxiliar...

Muchas gracias

PaFernan99 10-06-2008 17:30:28

Posible solución...!?
 
Hola!
La verdad es que se me ocurren varias formas de generar una clave que vaya cambiando, pero el mecanismo básico que utilizaría es el siguiente:

con la función random() obtengo un número aleatorio.
Luego con este número puedo trabajar como quiero, es decir, puedo generar una función que me permita, con el número obtenido, construir una cadena de caracteres en base a alguna lógica; po ejemplo, tomar el primer dígito y dejarlo como está, el primer, segundo y tercer dígito representarían un caracter ascii, el tercero y el cuarto... etc;
No olvides llamar al procedure randomize cuando vayas a usar la funcion random, asi cada vez que se ejecute tu aplicación comenzará por un número distinto.

Espero haberte comprendido y ayudado.
Saludos!

Ivanzinho 10-06-2008 17:49:58

Echa un vistazo a esto

Un saúdo.

torito 10-06-2008 18:11:30

Cita:

Empezado por PaFernan99 (Mensaje 292574)
Hola!
La verdad es que se me ocurren varias formas de generar una clave que vaya cambiando, pero el mecanismo básico que utilizaría es el siguiente:

con la función random() obtengo un número aleatorio.
Luego con este número puedo trabajar como quiero, es decir, puedo generar una función que me permita, con el número obtenido, construir una cadena de caracteres en base a alguna lógica; po ejemplo, tomar el primer dígito y dejarlo como está, el primer, segundo y tercer dígito representarían un caracter ascii, el tercero y el cuarto... etc;
No olvides llamar al procedure randomize cuando vayas a usar la funcion random, asi cada vez que se ejecute tu aplicación comenzará por un número distinto.

Espero haberte comprendido y ayudado.
Saludos!

Hola gracias, aqui lo que batallaria seria comprobar lo de los 20 minutos... gracias

torito 10-06-2008 18:12:04

Cita:

Empezado por Ivanzinho (Mensaje 292580)
Echa un vistazo a esto

Un saúdo.

muchas gracias, pero quisiera que fuera todo via software

PaFernan99 10-06-2008 19:12:53

Cita:

Hola gracias, aqui lo que batallaria seria comprobar lo de los 20 minutos... gracias
.

¿No te sirve llamar a la función desde un Ttimer y dejar que la componente ejecute el codigo cada 20 minutos?

torito 10-06-2008 20:18:36

Cita:

Empezado por PaFernan99 (Mensaje 292604)
.

¿No te sirve llamar a la función desde un Ttimer y dejar que la componente ejecute el codigo cada 20 minutos?

si, lo que pasa es que es un webservice con metodo get ya que esta en un servidor de mapa, entonces el timer quedaria como una variable visible y lo que busco es como poder ocultarla ya sea encriptandola o haciéndola invisible (jeje).

Gracias

juanelo 10-06-2008 20:30:52

Que tal,
Puedes checar los componente Plus Package for WebBroker y ahi revisar el de sesiones, trae uno que se llama TWBsessionVariables que hace exactamente eso que quieres.
Saludos


La franja horaria es GMT +2. Ahora son las 01:13:29.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi