Delphi DEC Rijndael und PHP

[Delphi-Coder]

Hallo,

ich verschlüssele den Inhalt einer Datei unter Delphi mit dem TDCP_rijndael mit folgenden Einstellungen:

• Algorithm: Rijndael
• Blocksize: 128
• CipherMode: cmCBC
• Id: 9
• MaxKeySize: 256

Ich initialisiere die Verschlüsselung mit Rijndael.InitStr(key, TDCP_sha1); Schreibe das Ganze dann in eine Datei.

Nun möchte ich diese Datei auf dem Server mit PHP öffnen und wieder auslesen. Nur das funktioniert nicht. Ich habe jetzt stundenlang mit irgendwelchen Klassen und der libmcrypt herum probiert - leider ohne Erfolg.

Wie muss ich es jetzt in PHP anstellen den Inhalt der Datei wieder zu entschlüsseln?

Viele Grüße,
Delphi-Coder

[Luckie]

http://www.delphipraxis.net/internal...hlight=dec+php

Gefunden über dec php.

[Delphi-Coder]

Danke für die Antwort!
Ich hab den (und weitere Threads) nun durchgelesen und auch Einiges probiert. Allerdings ohne Erfolg!

Ich denke, dass das Problem an der Initialisierung mit Rijndael.InitStr(key, TDCP_sha1); liegt. Die muss ja auch irgendwie in PHP realisiert werden, oder nicht?!

Zur besseren Verständlichkeit nochmal der ganze Vorgang in Delphi:

Ich erstelle mir mit TMemIniFile eine Ini-Datei im Speicher, verschlüssele sie und speicher sie in eine Datei. Das sieht dann so aus:

Delphi-Quellcode:

// Initialize TMemIniFile
MemIniFile := TMemIniFile.Create('');

//load Values in Ini-File
MemIniFile.WriteString('ftp', 'ftp', Edit1.Text);
MemIniFile.WriteString('ftp', 'ftppath', Edit2.Text);

// Put the IniFile into a TStringList
Strs := TStringList.Create;
MemIniFile.GetStrings(Strs);

Rijndael.InitStr(key, TDCP_sha1);
Strs.CommaText := Rijndael.EncryptString(Strs.CommaText);
Rijndael.Burn;

// Save Stringlist into FileName
Strs.SaveToFile(ExtractFilePath(Application.Exename) + 'bla.dat');

// Free everything...
Strs.Free;
MemIniFile.Free;

Viele Grüße,
Delphi-Coder