[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