Hallo,
ich habe hier Source, der mit RC4 läuft, aber dürfte mit Blowfish nicht anders sein:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
Cipher : TDCP_rc4;
KeyStr : String;
begin
KeyStr:= Edit1.Text;
Cipher:= TDCP_rc4.Create(Self);
Cipher.InitStr(KeyStr, TDCP_sha1);
Edit3.Text := Cipher.EncryptString(Edit2.Text);
Cipher.Burn;
Cipher.Free;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
Cipher : TDCP_rc4;
KeyStr : String;
begin
KeyStr:= Edit1.Text;
Cipher:= TDCP_rc4.Create(Self);
Cipher.InitStr(KeyStr, TDCP_sha1);
Edit2.Text := Cipher.DecryptString(Edit3.Text);
Cipher.Burn;
Cipher.Free;
end;
Viele Grüße ...