Generar contraseña

[[seoane]]

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]]

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]]

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]]

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