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);