Hola Visitante

Autor Tema: Generador de passwords aleatorios  (Leído 1686 veces)

Berni69

  • Administrator
  • *****
  • Mensajes: 25
    • Ver Perfil
Generador de passwords aleatorios
« en: Diciembre 14, 2010, 10:30:46 pm »
Siguiendo con mis tonterías de hoy, después de haberme puesto con lo del DNI y esperando que mis compañeros se decidieran para ir a comer,... me ha dado por programar un generador de passwords aleatorios, ya que como bien sabéis últimamente lo que menos se debe hacer es confiar en los passwords que vienen por defecto ya sea en routers, webs, etc...




Por ello aquí dejo un programilla que genera los passwords de la longitud que queramos, su uso es muy sencillo, simplemente deberemos escribir la longitud de nuestro password:

Código: (ada) [Seleccionar]
WITH Ada.Text_Io, Ada.Integer_Text_IO;
USE Ada.Text_Io, Ada.Integer_Text_IO;
WITH Ada.Numerics.Discrete_Random;
PROCEDURE Pass_Aleatori IS
   SUBTYPE Rang IS Integer RANGE 32..126;
   PACKAGE Aleatori IS NEW Ada.Numerics.Discrete_Random(Rang);
   USE Aleatori;
   N : Integer;
   TYPE Password
         (N : Integer) IS
      RECORD
         Pwd : String (1 .. N);
      END RECORD;
   FUNCTION Crea_Pass (
         N : IN     Integer)
     RETURN String IS
      X,
      Y     : Integer            := 0;
      Seed  : Aleatori.Generator;
      I     : Integer            := 1;
      Clave : Password (N);
   BEGIN

      WHILE I<=N LOOP
         Aleatori.Reset(Seed);
         X:=Aleatori.Random(Seed);
         IF X/=Y THEN
            Clave.Pwd(I):=CHARACTER'VAL(X);
            I:=I+1;
         END IF;
         Y:=X;
      END LOOP;
      RETURN Clave.Pwd;
   END Crea_Pass;



BEGIN

   Put(\"Introduce la longitud de tu password\");
   New_Line;
   Get(N);
   New_Line;
   put(\"Este es tu password\");new_line;
   Put(Crea_Pass(N));
END;



Y aquí su descarga
http://www.sendspace.com/file/3x5z4g
md5: 6f59429264772acb141f5668be414cd5