Club Delphi  
    FTP   CCD     Enlaces   Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Desplegado
  #1  
Antiguo 04-09-2007
Avatar de Bicho
[Bicho] Bicho is offline
Miembro Premium
 
Registrado: jul 2003
Ubicación: Inca - Mallorca
Posts: 1.776
Bicho Va por buen camino
Generar contraseña

Hola gente,

llega un momento en la vida de todo programador... en que debe crear un algoritmo para generar contraseñas...
Pues bien, a mí me ha llegado ese momento.

Lo sé, hay cientos de algoritmos, funciones y programas complejos que generar contraseñas de la hosti...

Pero no es mi caso, os cuento:

- Se trata de que periódicamente, quizá cada 6 o 12 meses caducar y regenerar la contraseña.
- El cliente, pide que la contraseña sea compleja pero a su vez sencilla para el usuario.
- Para ello dispongo de nombre, apellidos y número de empleado (5 cifras)

Para todo esto he decido lo siguiente:
- La contraseña será de 8 carácteres
- Sólo contendrá letras de la a..z y A..Z y números de 0..9 sin signos de puntuación ni acentos ni dierésis. Para eso de la complejidad y sencillez.
- Había pensado en una función que usase los datos que he dado (nombre, apellido, usuario) y tambien la fecha en que se genera la contraseña.
Con estos cuatro parámetros montar algo sencillo para generar contraseñas que no se repitan fácilmente.
Algo como: con la fecha, ir recorriendo cada caracter de la fecha (por ejemplo hoy 04092007) y obtener los carácteres correspondientes dentro de las demás palabras.
El problema es que, cómo en principio la contraseña se generaría casa la misma fecha de cada mes, apenas varía el contenido de la contraseña generada.

Bueno, ¿qué pido? Una sugerencia, ayudita, algo que me ilumine.
No busco nada complejo con algoritmos de hash, md5, etc.

Ya nada más.

Gracias por el interes y saludos a todos.
Responder Con Cita
  #2  
Antiguo 04-09-2007
Avatar de eduarcol
[eduarcol] eduarcol is offline
Miembro Premium
 
Registrado: ago 2003
Ubicación: En los estados Zulia y Merida de Venezuela
Posts: 4.151
eduarcol Va por buen camino
a ver que te parecen estas ideas

http://www.clubdelphi.com/foros/show...%2C+aleatorias
__________________
...Yo naci en esta ribera del arauca vibr@d0r
Soy hermano de la espuma,
de la garza, de la rosa y del sol...
Viva Venezuela
Responder Con Cita
  #3  
Antiguo 04-09-2007
Avatar de Bicho
[Bicho] Bicho is offline
Miembro Premium
 
Registrado: jul 2003
Ubicación: Inca - Mallorca
Posts: 1.776
Bicho Va por buen camino
Para que roman tuvo un problema como el mio

Me enrojece, que hayas encontrado esto tan fácilmente. Cuando llevo un buen rato buscando sin éxito algún hilo / truco parecido.

Gracias, voy a echarle un vistazo y ya os comento que tal.

Saludos
Responder Con Cita
  #4  
Antiguo 04-09-2007
Avatar de Chris
[Chris] Chris is offline
Miembro Premium
 
Registrado: abr 2007
Ubicación: Jinotepe, Nicaragua
Posts: 1.674
Chris Va por buen camino
Puedes utilizar numeros aleatorios para seleccionar uno o dos caracteres de la fecha, además la utilizar numeros aleatorios para establecer la posición de estos en la cadena. Así podrías hacer con el nombre y apellido. También, ¿por qué no?, puedes tomar uno o dos caracteres de un numero aleatorio.
__________________
Delphi Blog - Blog Web - @chrramirez
Responder Con Cita
  #5  
Antiguo 04-09-2007
Avatar de seoane
[seoane] seoane is offline
Miembro Premium
 
Registrado: feb 2004
Ubicación: A Coruña, España
Posts: 3.717
seoane Va por buen camino
Cita:
Empezado por Bicho Ver Mensaje
No busco nada complejo con algoritmos de hash, md5, etc.
Si ya venimos con exigencias como esta ...

Si pudieras usar md5 podrías hacer algo como esto (pseudocódigo):
Código:
contraseña = ochoprimeroscaracteres(codificarencaracteres(md5(nombre+apellido+numero+fecha+secreto)));
Donde secreto es un parámetro opcional para que la equivalencia entre los parámetros y la contraseña no resulte tan evidente.

Si te parece bien, te codifico el algoritmo en 5 minutos ... tu dirás
Responder Con Cita
  #6  
Antiguo 04-09-2007
Avatar de eduarcol
[eduarcol] eduarcol is offline
Miembro Premium
 
Registrado: ago 2003
Ubicación: En los estados Zulia y Merida de Venezuela
Posts: 4.151
eduarcol Va por buen camino
Cita:
Empezado por seoane Ver Mensaje
Si ya venimos con exigencias como esta ...

Si pudieras usar md5 podrías hacer algo como esto (pseudocódigo):
Código:
contraseña = ochoprimeroscaracteres(codificarencaracteres(md5(nombre+apellido+numero+fecha+secreto)));
Donde secreto es un parámetro opcional para que la equivalencia entre los parámetros y la contraseña no resulte tan evidente.

Si te parece bien, te codifico el algoritmo en 5 minutos ... tu dirás
pues si se lo pones de esa manera no creo que le vaya a hacer mucho caso a esa exigencia
__________________
...Yo naci en esta ribera del arauca vibr@d0r
Soy hermano de la espuma,
de la garza, de la rosa y del sol...
Viva Venezuela
Responder Con Cita
  #7  
Antiguo 04-09-2007
Avatar de Bicho
[Bicho] Bicho is offline
Miembro Premium
 
Registrado: jul 2003
Ubicación: Inca - Mallorca
Posts: 1.776
Bicho Va por buen camino
Perdona domingo,
estaba de vuelta a casa tras la jornada laboral.

Me parece buena idea, me daba miedo usar md5, por la complejidad que pudiera conlleva la contraseña resultante.
Como no te voy a negar que nos ilumines con un poco de código. De todos modos, se que te mueres de ganas por hacerlo

Ok muchas gracias a todos. Aunque el link que me ha dado inicalmente eduarcol parece interesante, "no cumple mis requisitos", y es que me gustaria que usara los parámetros mencionados, como bien has puesto tú domingo, en el pseudocódigo.

Saludos
Responder Con Cita
  #8  
Antiguo 04-09-2007
Avatar de seoane
[seoane] seoane is offline
Miembro Premium
 
Registrado: feb 2004
Ubicación: A Coruña, España
Posts: 3.717
seoane Va por buen camino
Vamos a ver que tal este algoritmo:
Código Delphi [-]
function PassGen(Str: String): String;
const
  Alfa = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789';
var
  i: Integer;
begin
  Result:= EmptyStr;
  // Calculamos el md5 de Str
  Str:= CalcHash2(Str,haMd5);
  for i:= 0 to (Length(Str) div 4) - 1 do
    Result:= Result +
      Alfa[(StrToInt('$'+Copy(Str,(i*4)+1,4)) mod Length(Alfa))+1];
end;
Comprobamos que cumple con lo requisitos:
- La contraseña generada es de 8 caracteres
- Sólo contendrá letras ('A'..'Z','a'..'z','0'..'9')

Para generar una contraseña:
Código Delphi [-]
Password:= PassGen(Nombre + Apellido + Numero + Fecha + Secreto);
Siendo Nombre, Apellido, Numero, Fecha y Secreto variables de tipo string.

La contraseña sera siempre la misma para el mismo parámetro de entrada, pero cualquier variación, por pequeña que sea, generara una contraseña completamente diferente.

PD: La función CalcHash2 forma parte de la unit Hashes.pas que puedes bajar de aquí
Responder Con Cita
  #9  
Antiguo 04-09-2007
Avatar de Bicho
[Bicho] Bicho is offline
Miembro Premium
 
Registrado: jul 2003
Ubicación: Inca - Mallorca
Posts: 1.776
Bicho Va por buen camino
Tiene muy buena pinta domingo. Mil gracias.

La unit me la he bajado esta mañana en el trabajo y mañana la incluiré en el proyecto y lo pruebo.

Una vez más gracias a todos.

Saludos
Responder Con Cita
  #10  
Antiguo 04-09-2007
Avatar de seoane
[seoane] seoane is offline
Miembro Premium
 
Registrado: feb 2004
Ubicación: A Coruña, España
Posts: 3.717
seoane Va por buen camino
Y si necesitas claves fonéticamente mas agradables, pero mucho menos seguras, puedes usar algo como esto. Siempre se podrá aumentar la seguridad, haciendo contraseñas mas largas:
Código Delphi [-]
function PassGen(Str: String): String;
const
  Alfa1 = 'aeiou';
  Alfa2 = 'bcdfgjklmnprstvxyz';
var
  i: Integer;
begin
  Result:= EmptyStr;
  Str:= CalcHash2(Str,haMd5);
  for i:= 0 to (Length(Str) div 4) - 1 do
    if Odd(i) then
      Result:= Result +
        Alfa1[(StrToInt('$'+Copy(Str,(i*4)+1,4)) mod Length(Alfa1))+1]
    else
      Result:= Result +
        Alfa2[(StrToInt('$'+Copy(Str,(i*4)+1,4)) mod Length(Alfa2))+1];
end;
Responder Con Cita
  #11  
Antiguo 05-09-2007
Avatar de Bicho
[Bicho] Bicho is offline
Miembro Premium
 
Registrado: jul 2003
Ubicación: Inca - Mallorca
Posts: 1.776
Bicho Va por buen camino
Buenos días,

he estado haciendo pruebas, y es espectacular.
Mil gracias, va de fábula.

Le he hecho unas mínimas variaciones:

Código Delphi [-]
function PassGen(Str: String): String;
const
  //Alfa1 = 'aeiou';
  Alfa1 = 'AEIOU';
  //Alfa2 = 'bcdfghjklmnpqrstvwxyz';
  Alfa2 = 'BCDFGHJKLMNPQRSTVWXYZ';
var
  i: Integer;
begin
  Result:= EmptyStr;
  Str:= CalcHash2(Str,haMd5);
  for i:= 0 to (Length(Str) div 4) - 1 do
    if Odd(i) then
      Result:= Result +
        Alfa1[(StrToInt('$'+Copy(Str,(i*4)+1,4)) mod Length(Alfa1))+1]
    else
      Result:= Result +
        Alfa2[(StrToInt('$'+Copy(Str,(i*4)+1,4)) mod Length(Alfa2))+1];
end;

Para tener el resulta en mayúsculas, que será lo más cómodo para mandarlo al usuario por sms. De todos modos si se quiere un poco más compleja la contraseña, alternando mayúsculas y minúsculas, sólo hace falta unir las dos cadenas Alfa1 entresí y las dos Alfa2 entre sí. Aunque en mi caso, por ahora no lo implementaré.

Muchas gracias a todos por su aporte, y sobretodo a domingo

Saludos
Responder Con Cita
Respuesta


Herramientas
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Usuario, contraseña, rol santiago14 Firebird e Interbase 1 11-12-2006 00:00:38
Calidad Contraseña tertuliano Varios 2 21-09-2006 22:43:54
cambiar contraseña pepalco MySQL 1 11-08-2005 17:01:53
Compactar MDB con contraseña pgraciap Tablas planas 9 06-04-2005 12:14:52
Compactar MDB con contraseña Fernando Conexión con bases de datos 2 29-11-2003 18:56:47


La franja horaria es GMT +2. Ahora son las 02:42:54.


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