Verschlüssel, in einer .ini-Datei speichern später auflösen

[shmia]

Na dann werde ich hier auch mal meinen Senf dazugeben.

1.) die Verschlüsselung muss von der Speicherung getrennt werden, damit jeder Teil
für sich getest werden kann. Die beiden Dinge dürfen nicht vermischt werden.

2.) ich zeige hier mal eine ganz einfache Verschlüsselung, die mit XOR arbeitet
und somit ver- als auch entschlüsseln kann:

Delphi-Quellcode:

function SimpleCryptString(const S, Key: string): string;
var
  i, j: Integer;
  C: Byte;
  P: PByte;
begin
  SetLength(Result, Length(S));
  P := PByte(Result);

  j := 1;
  for i := 1 to Length(S) do
  begin
    C := Ord(S[i]);

    C := C xor Ord(Key[j]);
    P^ := C;
    Inc(P);
    Inc(j);
    if j > Length(Key) then
      j := 1;
  end;
end;

3. Bei der Verschlüsselung entstehen Zeichen, die nicht in einer Inidatei gespeichert
werden können. Deshalb muss man das verschlüsselte Passwort codieren.
Die einfachste Methode ist die hexadezimale Codierung: jedes Zeichen wird zu 2 Hexziffern codiert.
Dazu folgende Funktionen:

Delphi-Quellcode:

function StringToHexStr(const value:string):string;
begin
   SetLength(Result, Length(value)*2);  // es wird doppelter Platz benötigt
   if Length(value) > 0 then
      BinToHex(PChar(value), PChar(Result), Length(value));
end;

function HexStrToString(const value:string):string;
begin
   SetLength(Result, Length(value) div 2);  // es wird halber Platz benötigt
   if Length(value) > 0 then
      HexToBin(PChar(value), PChar(Result), Length(value));
end;

Alternativ kann man auch noch die Base64-Codierung (auch als Mimekodierung bekannt) verwenden.

4.) Damit entsteht folgender Pseudocode:

Delphi-Quellcode:

   PWverschl := SimpleCryptString(PWKlartext, Supperkey);  // verschlüsseln
   PWverschl := StringToHexStr(PWverschl);     // Codieren
   SaveSettings(ftpserver, user, PWverschl, directory);