Frage zu DCP Crypt2

**ghost007**

Also,
ich hab mir nun die DCP Crypt komponenten runtergeladen.
Jedoch steig ich noch nicht wirklich durch.

Ich will "einfach" nur einen string verschlässeln mit dem blowfish algorithmus. Ich hab das mal versucht wie folgt zu testen, aber irgendwie erhalte ich ein komisch ergebnis:

markieren

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

begin

 DCP_blowfish1.Init('58kkjl',256,nil);

 Edit3.Text:=DCP_blowfish1.EncryptString(Edit1.Text);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

 Edit4.Text:=DCP_blowfish1.DecryptString(Edit2.Text);

end;

Schreibe ich nun in edit1 einen text wie z.b. "Hallo" dann hab ich in Edit3 den verschlüsselten text, kopiere ich diesen in edit2 und will ihn dann nach edit4 entschlüsseln, kommt eine komische zeichenfolge raus, aber nicht wieder "hallo".

MfG - Ghost007

//Edit: Bei der kompo ist leider nur eine verschlüsselungs demo für einen file dabei.
//Edit: Hier der link zur kompo:

http://www.cityinthesky.co.uk/cryptography.html

Frage zu DCP Crypt2

Frage zu DCP Crypt2

Forumregeln