Generar palabras aleatorias

Artículo por Club Developers · 02 marzo 2006

3475 vistas

Esto puede ser útil para generar contraseñas de usuarios, números de identificación,....

Para ello veamos una función que nos puede ayudar



delphi
  1. function PalabraAleatoria(Longitud: integer): string;
  2. const 
  3.   Letras = '01234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ';
  4. var 
  5.   n: integer;
  6. begin 
  7.   Result := '';
  8.   for n := 1 to Longitud do 
  9.     Result := Result + Letras[1 + Random(Length(Letras))];
  10. end;



Tendremos que acordarnos de inicializar la función aleatoria con Randomize