Generar contraseñas pronunciables
 

Hola, quiero hacer un generador de contraseñas pero dado que el sistema no requiere una alta seguridad y dado que a los usuarios se les complica horriblemente recordar y escribir contraseñas del estilo de 1AsD4xftyHh43, quisiera poder generar automáticamente contraseñas algo más sencillas, por ejemplo cuadjiplas que, sin ser trivial, es pronunciable y por tanto más fácil de recordar y escribir.

Se me ocurre crear una lista de sílabas en español tales como cuad, ji y plas y seleccionar aleatoriamente un número determinado de ellas para así formar la contraseña.

Me gustaría escuchar opiniones o si saben de algo mejor.

// Gracias

Hola Román

Si la palabra no tiene porqué tener sentido, se me ocurre una cosilla, a ver que te parece:

Tenemos una array con las vocales
Tenemos otro array con las consonantes (si quieres puedes quitarle las "raras" como W, k, h, x, z, ñ,....)

Aleatoriamente cogemos una consonante + una vocal hasta completar la longitud que determines (6, 8, 10,.....)

Qué te parece?

¡Ah! Creo que está mejor. Las contraseñas serán más sencillas (¿demasiado?) pero me evito tener que escribir la lista de sílabas.

// Saludos

Roman, esta respuesta la tengo desde hace tiempo, pero no encontraba el hilo. Como bien sabéis, soy bastante principiante en esto de Delphi, a si que tengo que recurrir a "apaños" como este. He utilizado el truco de Trucomanía, generar palabras aleatorias.

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
function ConsonanteAleatoria(Longitud: integer): string;
  const
    Letras = 'bcdfgjlmnñpqrstvyz';
  var
    n  : integer;
  begin
    Result:='';
    for n:=1 to Longitud do Result:=Result+Letras[1+Random(Length(Letras))];
  end;

function VocalAleatoria(Longitud: integer): string;
  const
    Letras = 'aeiou';
  var
    n  : integer;
  begin
    Result:='';
    for n:=1 to Longitud do Result:=Result+Letras[1+Random(Length(Letras))];
  end;

begin
Edit1.Text := ConsonanteAleatoria (1) + VocalAleatoria (1) + ConsonanteAleatoria (1) + 
  VocalAleatoria (1) + ConsonanteAleatoria (1) + VocalAleatoria (1)
end;

Generará contraseñas de 6 carácteres.

O más fácil de lllamar mediante:

Código Delphi [-]
function PassPronunciable: string;
function ConsonanteAleatoria(Longitud: integer): string;
  const
    Letras = 'bcdfgjlmnñpqrstvyz';
  var
    n  : integer;
  begin
    Result:='';
    for n:=1 to Longitud do Result:=Result+Letras[1+Random(Length(Letras))];
  end;

function VocalAleatoria(Longitud: integer): string;
  const
    Letras = 'aeiou';
  var
    n  : integer;
  begin
    Result:='';
    for n:=1 to Longitud do Result:=Result+Letras[1+Random(Length(Letras))];
  end;

  begin
    Result := ConsonanteAleatoria (1) + VocalAleatoria (1) + ConsonanteAleatoria (1) + 
VocalAleatoria (1) + ConsonanteAleatoria (1) + VocalAleatoria (1);
  end;

Así queda más bonito escribir

Código Delphi [-]
Edit1.Text := PassPronunciable;

Por cierto... hoy he hecho mi primer Procedure... este... es una tontería pero, gracias Román :p

Grrr... a si que la idea ya la tuvo cadetill... Bruf, y yo estrujándome el coco... :p bueno, mereció la pena pues así conseguí mi primer procedure, aún lo estoy celebrando.

De cualquier forma muchas gracias DarkByte. Lo que hice en realidad fue llenar a pie una tabla como de doscientas sílabas escogiendoo tres o cuatro de ellas aleatoriamente.

// Saludos

No hay de qué, aunque parece que llegé tarde...