Hola,
Se me ha ocurrido hacer el siguiente procedimiento para generar contraseñas prácticamente imposibles de
crackear (?) a partir de palabras o frases comunes:
Código Delphi
[-]
procedure TForm1.Button6Click(Sender: TObject);
Var c, hs, sumhs: String;
x, ch: Integer;
begin
c:= Edit1.Text; For x:= 1 To RxSpinEdit3.AsInteger Do
Begin
hs:= MD5DigestToStr(MD5String(c));
sumhs:= Copy(hs+sumhs, 1, 666);
c:='';
For ch:=1 To Length(sumhs) Div 2 Do c:= c+Chr(StrToInt('$'+Copy(sumhs, (2*ch)-1, 2)));
End;
c:= Base64EncodeStr(c); x:= Length(c);//resultado final en Base64
While c[x]= '=' Do Dec(x); Edit2.Text:= Copy(c, 1, x);
end;
Como se ve, la idea es ir deformando una palabra o frase sencilla una y otra vez mediante la función MD5 (o cualquier otra). En principio, cualquier programa crackeador se verá obligado a perder el tiempo siguiendo este procedimiento para cada una de las ingentes cantidades de combinaciones de caracteres, o bien hacerlo por fuerza bruta, y como este algoritmo (?) genera contraseñas de hasta 444 caracteres como si nada...