Hier meine Variante entheddert so das Du theoretisch damit gleich loslegen kannst, wenn niemand einwände hat.
Nur für Text, wohlgemerkt(!)
Delphi-Quellcode:
procedure CryptStringToFile(const InputString: string; const Modifier: Byte; const Filename: String);
var
s: string;
i: Integer;
b: Byte;
f: file of Byte;
begin
AssignFile(F, Filename);
Rewrite(f);
for i := 1 to Length(InputString) do
begin
b := Ord(InputString[i]) + Modifier;
write(f, b);
end;
CloseFile(F);
end;
function CryptFileToString(const Filename: string; const Modifier: Byte): String;
var
b: Byte;
f: file of Byte;
begin
AssignFile(F, Filename);
Reset(F);
Result := '';
while not Eof(F) do
begin
Read(f, b);
Result := Result + Char(b - Modifier);
end;
CloseFile(F);
end;
So hier Aufrufen:
Delphi-Quellcode:
var
s :
String;
begin
s := '
Das ist ein DP Test.';
// in dieser Zeile speichern wir einen String S verschluesselt in eine Datei
CryptStringToFile(S, 5, Application.ExeName+'
.txt');
s := '
';
// <- hier wird String gekillt, wir wollen ja nicht cheaten :-)
// in dieser Zeile holen wir den verschluesselten String zurück
s := CryptFileToString(Application.ExeName+'
.txt', 5);
// mach was mit "s"
end;