Verschlüsseln in PHP und entschlüsseln in Delphi?

[Uwe Raabe]

Zitat von Klaus01:

Das encoding sollte hier doch keine Rolle spielen, denn normalerweise wird auf Byte-Ebene verschluesselt.

Leider gibt es noch viel zu viele alte Lösungen, die auf PAnsiChar aufsetzen und von Encoding noch nichts gewusst haben.

[himitsu]

PHP wird heute oft als UTF-8 laufen. In Delphi sind Strings aber nun standardmäßig Unicode.

Wenn man also einen "String" ver-/entschlüsselt (z.B. ein Passwort), dann muß schon beachtet werden, welche Encoding auf jeder Seite benutzt wird.


Je, byte-weise wird meistens ver-/entschlüsselt,
aber wenn du jetzt UTF-8 vertschlüsslst, und das entschlüsselte als Unicode (2 Byte) betrachtest, dann sieht das Ergebnis ein bissl chinesisch aus.


Ansonsten braucht es natürlich auf beiden Seiten auch die gleichen Algorithmen und eventuell noch auf gleiche Settings achten.

[TurboMagic]

Zitat von himitsu:

PHP wird heute oft als UTF-8 laufen. In Delphi sind Strings aber nun standardmäßig Unicode.

Vorsicht! Auch UTF8 ist Unicode! Nur eben anders codiert.
Aber das wusstest du ja bestimmt schon.

[Frickler]

Zitat von TurboMagic:

Zitat von himitsu:

PHP wird heute oft als UTF-8 laufen. In Delphi sind Strings aber nun standardmäßig Unicode.

Vorsicht! Auch UTF8 ist Unicode! Nur eben anders codiert.
Aber das wusstest du ja bestimmt schon.

Genau. Ist es nicht sogar UTF-16?

[gubbe]

Warum sollte man bei einer direkten Verbindung zwischen Webserver und Delphi denn überhaupt selbst verschlüsseln und sich nicht auf die Transportverschlüsselung (https) verlassen?
Ich sehe wenig Sinn darin, hier etwas eigenes zu implementieren. Wie sieht denn die zugrundeliegende Anforderung aus?

[himitsu]

Jupp,

und dass UTF-16 auch nichts mit UTF-8 gemeinsam hat, außer einen Teil des Namens.

Prinzipiell ist UTF-8 "nur" eine ANSI-Codepage.

[TurboMagic]

Nee, UTF8 ist nicht eine ANSI Codepage.
Denn je nach Bitmuster können das 1-4 Byte oder so sein, damit auch alle asiatischen zeichen usw. dargestellt werden können.
Auf alle Fälle nicht als 8-Bit ANSI Codepage zu behandeln!

Grüße
TurboMagic

[himitsu]

Zitat von TurboMagic:

Nee, UTF8 ist nicht eine ANSI Codepage.

Für Windows schon, wobei sie sogar CodePages für Unicode (UTF-16 und UTF-16-LE) haben.

https://learn.microsoft.com/de-de/wi...hartomultibyte
CP_ACP = 0 : unser aktuelles ANSI
CP_OEMCP : DOS
CP_UTF8
CP_UTF16 = 1200
CP_UTF16LE = 1201
$FFFF : ohne CodePage / ohne Konvertierung

Delphi-Quellcode:

type
  RawByteString = type AnsiString($ffff);
  UTF8String = type AnsiString(65001);  // AnsiString(CP_UTF8);

oder
   AnsiUnicodeString = type AnsiString(1200); // CP_UTF16

[gpl]

Ich habe jetzt gefühlt 100 verschiedene Ansätze ausprobiert und viele davon waren schon älter und konnten wohl daher nicht mit UTF-8 umgehen.

Auf der PHP-Seite habe ich zum Testen ein kleines Script aus den gefundenen Ansätzen erstellt, dass einen Text verschlüsselt und sofort wieder entschlüsselt.
Wie man sieht, funktioniert das innerhalb PHP problemlos.

Code:

<?php

function MyEncrypt ($data, $key, $iv)
  {
    //Remove the base64 encoding from our key
    $encryption_key = $key;
    //Encrypt the data using AES 256 encryption in CBC mode using our encryption key and initialization vector.
    $encrypted = openssl_encrypt($data, 'AES-256-CBC', $encryption_key, 0, $iv);
    //The $iv is just as important as the key for decrypting, so save it with our encrypted data using a unique separator (::)
    return base64_encode($encrypted);
  }
  
function MyDecrypt ($data, $key, $iv)
  {
   $encryption_key = $key;
   $indata = base64_decode($data);  // Base64-Dekodieren
   $unencrypted = openssl_decrypt($indata, 'AES-256-CBC', $encryption_key, 0, $iv);
   return $unencrypted;
  }  

$key = "ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEF"; 
$plaintext = 'zu verschlüsselnde Nachricht äöüÄÖÜß';
$iv = "1234567890123456";
echo 'Plaintext     : '.$plaintext.'<BR>';
echo 'Key           : '.$key.' ('.strlen($key).')<BR>';
echo 'IV            : '.$iv.' ('.strlen($iv).')<BR>';
$enc = MyEncrypt($plaintext, $key, $iv);
echo 'Verschlüsselt : '.$enc.'<BR>';
echo '<br>';
echo 'Entschlüsselt : '.MyDecrypt($enc, $key, $iv);
 
?>

Ergebnis:

Code:

Plaintext : zu verschlüsselnde Nachricht äöüÄÖÜß
Key : ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEF (32)
IV : 1234567890123456 (16)
Verschlüsselt : akMrallnS09ZVmlvOER5Y2w3WCtsVDJ3UEpYbTY4Yy9QQWg2N0xjaFYrdHNpL29pUEdOVVdvUHZNT2ZiQVMwWQ==

Entschlüsselt : zu verschlüsselnde Nachricht äöüÄÖÜß

[himitsu]

für AES mit CBC
siehe GetIt:

LockBox
Delphi Encryption Compendium
usw.

oder im Indy sollte sich auch was für OpenSSL finden, wenn man dessen AES-Code nutzen mächte
sowie andere OpenSSL-Libs für Delphi