Hi ihrs,
hab mal ein kleines Problem mit Hagens
DEC.
Seit dem ich die Passwortabfrage am anfang meines Programmes rausgenommen habe, bekomme ich immer die
Exception, das ich doch bitte Init oder InitKey in TCipherBlowfish aufrufen soll. Das verstehe ich leider nicht so ganz. Die
Exception kommt gleich nach dem FormCreate event. Offensichtlich wird dann ja Code in den
DEC-Units ausgeführt.
Die Funktion für die Passwort anfrage sieht so aus:
Delphi-Quellcode:
Randomize;
zufall := Random(65000);
PostMessage(
Handle, WM_USER + 1024, 0, 0);
// setzt das PasswordChar in der Inputbox auf '*'
password := encode(inputbox(ACaption, '
Bitte Passwort eingeben', '
'), inttostr(zufall));
if password = '
'
then
ask4pwd := false
else
ask4pwd := true;
die encode Funktion:
Delphi-Quellcode:
function TForm1.Encode(text, pwd:string):string;
var
Cipher:TCipher_Blowfish;
begin
Cipher := TCipher_Blowfish.Create(pwd, nil);
Encode := Cipher.EncodeString(text);
Cipher.Destroy;
end;
Wenn ich nur encode() in dem FormCreate Event aufrufe, kommt die
Exception immer noch,
wenn ich hingegen die ganze "Passwort abfrage" Funktion im FormCreate Event aufrufe, kommt die Excpetion nicht mehr. Was mache ich also in dieser Funktion, dass die
Exception verhindert???
MfG
der verwirrte Daniel
