Generador de contraseñas
 

Todos sabemos lo difícil que es crear una buena contraseña, esta ha de ser lo más enrevesada posible para los demás... pero también lo será para nosotros, desgraciadamente.

La siguiente función trata de solucionar el problema. Acepta dos parámetros: una palabra o frase fácil de recordar (o no) y el número de veces que dicha función transformará la frase hasta crear una cadena irreconocible, casi pseudoaleatoria:

Código Delphi [-]
Function transcon(plbi: String; ntrns: Integer): String;
Var hs, sumhs: String;
      x, ch: Integer;

begin
For x:= 1 To ntrns Do
  Begin
  hs:= MD5DigestToStr(MD5String(plbi));
  //(www.killa.com.ar/bk)
  sumhs:= Copy(hs+sumhs, 1, 666);
  plbi:='';
  For ch:=1 To Length(sumhs) Div 2 Do plbi:= plbi+Chr(StrToInt('$'+Copy(sumhs, (2*ch)-1, 2)));
  End;
plbi:= Base64EncodeStr(plbi);
//www.cityinthesky.co.uk/files/dcpcrypt2.zip
x:= Length(plbi);
While plbi[x]= '=' Do Dec(x);
transcon:= plbi;
End;

Por ejemplo, si ponemos transcon('Angelina Joli', 729) el resultado será:

MjV1Vqq1oj36D64G4d6I/WgxKkZxbk8J+Wai4hV+SmxF7FUDn4EO0n0VyI9HymHZTcbAvz4XZKpWFF5VBxa0gJ3eJTc1t/JxclMjM9Y+bDxzq9MiJin2grZgx... (así hasta 444 caracteres; ni su madre la reconocería).

No tenemos porqué usar el resultado entero, podemos extraer o copiar cualquier trozo como contraseña (otro posible parámetro).

Esta es una función de lo más versátil y personalizable, cambiando simplemente el número de la bestia por otro cualquiera, el resultado será totalmente distinto...

O podemos cambiar el plbi:= plbi+Chr(StrToInt('$'+Copy(sumhs, (2*ch)-1, 2))); por:

plbi:= plbi+Chr(StrToInt('$'+Copy(sumhs, (2*ch), 1))
+Chr(StrToInt('$'+Copy(sumhs, (2*ch)-1, 1)));

ó:

plbi:= plbi+Chr(StrToInt('$'+Copy(sumhs, ((4*ch+3) Mod 34), 2));

o cualquer otra fórmula que se nos ocurra para despistar a los amigos de las cuentas ajenas.

Un saludo amigo Wellnic, me gustaria usar esa funcion pero no me trabaja, yo tengo delphi5 sera que tiene que ver o hay que agregar algo?
mario2000.

Para usar esta función tienes que bajar, por una parte, la unidad md5.pas de

www.esnips.com/doc/91649904-709e-41a0-b97f-46e038dae13a/dmmd5.zip

y por otra la unidad DCPbase64.pas de

www.cityinthesky.co.uk/files/dcpcrypt2.zip

Una vez las tengas, añade estas dos unidades (md5.pas y DCPbase64.pas) al directorio donde tengas las fuentes del programa en el que vayas a usar esta función, y también tienes que añadir md5 y DCPbase64 (sin la extensión .pas) a la línea uses de tu programa.

Para usar esta función tienes que bajar, por una parte, la unidad md5.pas de

www.esnips.com/doc/91649904-709e-41a0-b97f-46e038dae13a/dmmd5.zip

y por otra la unidad DCPbase64.pas de

www.cityinthesky.co.uk/files/dcpcrypt2.zip

Una vez las tengas, añade estas dos unidades (md5.pas y DCPbase64.pas) al directorio donde tengas las fuentes del programa en el que vayas a usar esta función, y también tienes que añadir md5 y DCPbase64 (sin la extensión .pas) a la línea uses de tu programa.

buenos dias, disculpa si yo tengo el Delphi 7 tambien es necesario que descargue esas librerias??? y pues quiza me escuche algo mal pero soy completamente nuevo en esto de Delphi, me podrias decir que elementos serian necesarios agregar para hacerlo funcionar??? gracias de antemano

Hola. Pues, al no tener yo esa versión de Delphi, no te lo puedo decir, lógicamente. Pero quizás ya venga con librerías similares para calcular el MD5 y Base64... pero que funcionarían de otra manera. Mi consejo es que te bajes esas dos librerías.

De todas formas debo decirte que esa función, tal y como la publiqué arriba, tiene un pequeño problema de "redundancia" que la hace más lenta de lo que me gustaría (me di cuenta hace poco). ¿Qué se puede esperar de un aficionado como yo?

Aunque... ejem, no deja de ser una idea que cada uno puede moldear a su manera.

(Debería haber añadido que en esta misma sección de trucos hay varias funciones MD5, publicadas por Seoane, pero, como no funcionaban en mi vetusta versión de Delphi, no me acordaba).