Also bei mir funzt das nicht
Wende ich das richtig an?
Delphi:
Delphi-Quellcode:
var d : TCipher_Blowfish ;
begin
d := TCipher_Blowfish.create;
d.Mode := cmCBCx;
d.Init('
Passwort','
12345678');
ShowMessage(Format('
%10s: %s'+slinebreak+'
%10s: %s',[
'
Delphi',
d.EncodeBinary('
Teststring',TFormat_HEX),
'
PHP',
IdHTTP1.Get('
http://localhost/crypt/mawe.php')]));
d.Free;
PHP:
Code:
<?php
$key = "Passwort";
$input = "Teststring";
$encrypted = mcrypt_cbc(MCRYPT_BLOWFISH,$key ,$input,MCRYPT_ENCRYPT,'12345678');
echo bin2hex($encrypted);
?>
Die Ausgabe:
---------------------------
Testprog
---------------------------
Delphi: E51A3C77A4D01A2BA9D3
PHP: e51a3c77a4d01a2b4540b5e1767b982b
---------------------------
OK
---------------------------
Eins iss megakurz das andere länger.. kp..
