Generar contraseñas pronunciables

[__cadetill]

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?

[roman]

Empezado por cadetill

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

[DarkByte]

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.

[DarkByte]

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

[DarkByte]

Empezado por cadetill

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

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

[roman]

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

[DarkByte]

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