Generador de contraseñas

[ricardopl65]

Hola a todos, llevo mucho tiempo nutriendome de los consejos de esta página, asi que he decidido aportar algo.
He creado para uso propio (y ahora de ustedes si lo desean) una pequeña unit con un par de funciones para generar contraseñas:

La unit se llama passGen y contiene las siguientes funciones.

function PassImpronunciable(l: integer; letras, num, especiales: integer): string;

donde
l es la longitud de la contraseña a generar.
letras es el porcentaje de MAYUSCULAS que contendrá la contraseña.
num es el porcentaje de números que contendrá la contraseña.
especiales es el porcentaje de caracteres especiales ($%&/? etc.) que contendrá la contraseña.
esta función devuelve un string con una contraseña muy segura e impronunciable.

function PassPronunciable(l: integer): string;


Esta función devuelve un string con una contraseña mas legible , menos segura aunque mas fácil de recordar.
Es una modificación de una funcion que vi en algun lugar pero no recuerdo donde ( quizas aqui mismo).
el único parámetro es l : longitud de la contraseña a devolver.

function MidePass(cadena: String): integer;


Esta función devuelve un entero entre 1 y 100 que se corresponde con el porcentaje de seguridad de la cadena.
El metodo empleado esta creado por mí, no se si es exacto al 100%100, pero a mi me funciona bastante bien.

Adjunto un pequeño proyecto de ejemplo.


Espero les sirva

[ricardopl65]

Estoy intentando averiguar la manera de subir el archivo zip, pero no me deja de ninguna manera.
Espero alguien me diga como.
Gracias

[Casimiro Notevi]

Hola, veo que lo has subido al FTP, concretamente está aquí.

Gracias por el aporte

[ricardopl65]

Gracias por solucionarlo tan rápido

[cloayza]

Te agradezco que compartas este código...es seguro alguien hará buen uso de el.

Un abrazo