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:

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

[Grolle]

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 ...

[ghost007]

Hey,
danke erstmal für deine antwort.
Aber was muss/kann ich alles als HashType angeben bei InitStr? Deine angabe findet er bei mir nicht undeclared identifier: 'TDCP_sha1'

MfG - Ghost007

//Edit: evtl liegts an den uses, welche units hast du eingebunden?
//Edit: habs rausgefunden, lag an den uses. hab nun dcp_md5 drin und kann nun diesen verwenden.

Danke - Erledigt

[Grolle]

Hi,

TDCP_sha1 ist auch eine Komponente (Hash) vom DCP Crypt2.

Viele Grüße ...

[ghost007]

Zitat von Grolle:

Hi,

TDCP_sha1 ist auch eine Komponente (Hash) vom DCP Crypt2.

Viele Grüße ...

Jap,
dass da die hash kompos dabei sind hab ich schon gesehen, aber ich wusste nicht das man die einfach direkt mit draufziehen kann.

MfG - Ghost007