Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Generar contraseña (https://www.clubdelphi.com/foros/showthread.php?t=47666)

Bicho 04-09-2007 18:33:13

Generar contraseña
 
Hola gente,

llega un momento en la vida de todo programador... en que debe crear un algoritmo para generar contraseñas... :p
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.

eduarcol 04-09-2007 18:48:24

a ver que te parecen estas ideas

http://www.clubdelphi.com/foros/show...%2C+aleatorias

Bicho 04-09-2007 18:52:54

Para que roman tuvo un problema como el mio :p

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

Chris 04-09-2007 18:53:10

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.

seoane 04-09-2007 19:36:57

Cita:

Empezado por Bicho (Mensaje 228235)
No busco nada complejo con algoritmos de hash, md5, etc.

Si ya venimos con exigencias como esta ... :D

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 :cool:

eduarcol 04-09-2007 20:07:54

Cita:

Empezado por seoane (Mensaje 228270)
Si ya venimos con exigencias como esta ... :D

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 :cool:

pues si se lo pones de esa manera no creo que le vaya a hacer mucho caso a esa exigencia

Bicho 04-09-2007 20:23:28

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 :D:p:D

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

seoane 04-09-2007 20:28:42

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í

Bicho 04-09-2007 20:35:05

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

seoane 04-09-2007 20:41:11

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;

Bicho 05-09-2007 11:26:35

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


La franja horaria es GMT +2. Ahora son las 01:09:55.

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