Einzelnen Beitrag anzeigen

Delphi-Coder

Registriert seit: 8. Jan 2003
Ort: Greifswald / Stralsund
151 Beiträge
 
Delphi 7 Enterprise
 
#3

Re: Delphi DEC Rijndael und PHP

  Alt 22. Feb 2008, 21:33
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
  Mit Zitat antworten Zitat