So, dann noch das dabei
Delphi-Quellcode:
function TForm1.Encrypt(Plain_Text: String; KeyToUse: String): String;
var
i,j: integer;
lpt,lks: integer; //Längenangaben: PlainText, KeyString
begin
lks := Length(KeyToUse); //Länge der Schlüsselzeilen
lpt := Length(Plain_Text); //Länge des zu verschlüsselnden Textes
SetLength(Result,lpt); //Länge des Ergebnisses
for i := 1 to lpt do //Den kompletten String lang
for j := 1 to lks do //Die komplette Schlüssel-Zeile
if Plain_Text[i] = Allowed[j] then //vergleichen
begin
Result[i] := KeyToUse[j]; //und den entsprechenden Eintrag
Break; //wählen und abbrechen
end
else
if j = lks then //Wenn nicht gleich und alle durch
Result[i] := Plain_Text[i]; //alten nehmen
end;
function TForm1.Decrypt(Crypted_Text: String; KeyToUse: String): String;
var
i,j: integer; //Schleifenvariablen
lct,lks: integer; //Längenvariablen
begin
lks := Length(KeyToUse); //Länge der Schlüssezeilen
lct := Length(Crypted_Text); //Länge der zu entschlüsselnden Textes
SetLength(Result,lct); //Länge des Ergebnisses
for i := 1 to lct do //Den kompletten String lang
for j := 1 to lks do //Die komplette Schlüssel-Zeile
if KeyToUse[j] = Crypted_Text[i] then //vergleichen
begin
Result[i] := Allowed[j]; //und den entsprechenden Eintrag
Break; //wählen und abbrechen
end
else
if j = lks then //Wenn nicht gleich und alle durch
Result[i] := Crypted_Text[i]; //gleich lassen
end;
und dann kannst du mit
EinString := Encrypt('blabla',Schlussel);
Test := DeCrypt(Einstring,Schlussel);
ver und entschlüsseln.
Test muss dann 'blabla' ergeben. Du kannst die variable "allowed" nach belieben ändern.
Der Code ist für deinen Fall nicht der einfachste, aber du kannst dafür einfach: