Delphi PHP und Blowfish

[greenmile]

Hallo,

ich muss etwas in Delphi verschlüsseln und mit PHP wieder entschlüsseln. Hierfür nutze ich DEC 5.2, allerdings peile ich das nicht so recht. Vielleicht könnte mir jemand auf die Schnelle sagen warum folgendes nicht läuft? Das wäre super ... vielen Dank. Ich möchte einfach nur "quick and dirty" etwas auf die Schnelle halbwegs (!) sicher verschlüsseln.

Code:

function encryptBlowfisch(Key, Source: string): String;
  var IV: string;
begin
  IV := '12345678';
  with DECCipher.TCipher_Blowfish.Create do
   try
     Mode := cmCBCx;
     Init(Key,IV);
     Result := EncodeBinary(Source, TFormat_HEX);
   finally
     Free;
   end;
end;

function decryptBlowfisch(Key, Source: string): String;
  var IV: string;
begin
  IV := '12345678';
  with DECCipher.TCipher_Blowfish.Create do
   try
     Mode := cmCBCx;
     Init(Key,IV);
     Result := DecodeBinary(Source, TFormat_HEX);
   finally
     Free;
   end;
end;

Code:

 $decrypted_data = mcrypt_cfb (MCRYPT_BLOWFISH, $key, $input, MCRYPT_ENCRYPT, '12345678');

[mkinzler]

Was geht nicht?
Kommt ein Fehler?
Kommt was falsches raus?

[greenmile]

Wenn ich das Ergebnis von "decryptBlowfisch" der PHP als $Input gebe, kommt alles raus, aber nicht das richtige.

[mkinzler]

Häh?

[greenmile]

Also, bei Delphi kommt folgendes raus:

Code:

  encryptBlowfisch('schluessel','Hallo Welt');
  // Ergibt 4AB79BC001D8CA706467

Unter PHP

Code:

 $key = 'schluessel';
 $input = '4AB79BC001D8CA706467';
 $decrypted_data = mcrypt_cfb (MCRYPT_BLOWFISH, $key, $input, MCRYPT_DECRYPT, '12345678');
  // Ergibt zNZqXeQEH4s+lXFX6F6buKINKKI=, aber nicht "Hallo Welt"

[mkinzler]

Wahrscheinlich verwendet DEC einen andere initialization vector

[greenmile]

Wird der nicht so übergeben?

Code:

  IV := '12345678';
  Init(Key,IV);

[CCRDude]

In DEC verwendest Du Cipher Block Chaining (CBC), in PHP Cipher Feedback (CFB). Verwende doch mal den gleichen Modus ;)

[himitsu]

DecodeBinary ... Unicode?

Was kommt bei MCRYPT_DECRYPT im PHP raus?
PS: http://php.net/manual/en/function.mcrypt-cfb.php -> Warning

[greenmile]

Ruft intern "Encode" auf. Ich kann doch nix anderes aufrufen.

[mkinzler]

Hier den richtigen Modus

Delphi-Quellcode:

Mode := cmCBCx;

angeben.

[gammatester]

'Hallo Welt' ist je nach Stringtyp 10 oder 20 Bytes lang, also auf jeden Fall kein Vielfaches von 8. DEC kocht sein eigenes Nichtstandard-Süppchen in diesen Fällen:

Zitat:

cmCBCx = Cipher Block Chainung, with CFB8 padding of truncated final block

Nimm mal testweise 8 oder 16 Bytes.

[greenmile]

Zitat:

Zitat von mkinzler (Beitrag 1293612)

Hier den richtigen Modus

Delphi-Quellcode:

Mode := cmCBCx;

angeben.

In Delphi? Habe ich doch ... Wnen ich es im PHP in mcrypt_cbc ändere, kommt ebenfalls nur Müll raus.

[gammatester]

Es bleibt das alte Spiel: Warum versuchst Du nicht zu erst mit kompletten Byteblocks zu arbeiten? Wenn das lauft, hast Du wahrscheinlich noch genug andere Probleme, zB

• wie wird das Passwort in Schlüssel umgerechnet? (wenn es nicht direkt benutzt wird, was bei BF möglich ist. Dann aber ev. Unicode beachten). Werden irgendwelche Hashes/KDFs benutzt?
  
• welches Padding wird benutzt?
  
• welche Codierung des Cyphertextes wird benutzt? (bei Dir auf PHP-Seite offensichtlich Base64, Dein decodierter Text zNZqXeQEH4s+lXFX6F6buKINKKI= ergibt zB 20 Bytes Ausgabe.

[greenmile]

Naja, letztendlich brauche ich nur irgendwas, was sicherer verschlüsselt als Base64. Es muss nicht NSA tauglich sein sondern lediglich die Script-Kiddies abhalten.

[Sir Rufo]

Zitat:

Zitat von greenmile (Beitrag 1293651)

Naja, letztendlich brauche ich nur irgendwas, was sicherer verschlüsselt als Base64. Es muss nicht NSA tauglich sein sondern lediglich die Script-Kiddies abhalten.

Mit Base64 wird nun schonmal nichts verschlüsselt! Da wird etwas codiert, und das ist etwas völlig anderes als eine Verschlüsselung.

[greenmile]

Man kann es auf jeden Fall auf die Schnelle nicht lesen.

[greenmile]

-Lösch mich-