Hi,
sag mal, welche Art von Verschlüsselung soll das denn sein? Gibt man da gar keinen Schlüssel ein? Dass würd ich schon eher XOR verschlüsseln:
Klartext ist der Klartext, Result ist (im Endeffekt) der Geheimtext, Passwd das Passwort:
Delphi-Quellcode:
function TForm1.CodeText(Klartext, Passwd : string):string;
var
i : longword;
begin
for i := 0 to length(Klartext)-1
do begin
Result := Result + Char(ord(Klartext[i]) xor ord(Passwd[i mod length(passwd)]));
end;
end;
Diese function musst du natürlich noch deklarieren
function CodeText(Klartext, Passwd : string):string;
indem du obige Zeile unterhalt von type in der Rubrik private einfügst.
Jetzt kannst du dir ein Memo-Feld, ein Edit-Feld und 'nen Button bauen.
Dann bekommt der Button folgende Funktion:
Memo1.Text := CodeText(Memo1.Text,Edit1.Text);
Und schon geht das
Du kannst bei XOR übrigens Entschlüsseln, indem zu den verschlüsselten Text wieder verschlüsselst!
Noch etwas: Der oben genannte Code sollte funzen, ich hab ihn aber nur aus dem Kopf geschrieben. Wenn es nicht geht, dann sag bescheid.
MfG,
Daniel.