Verschlüsselung

[daniel-volk]

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.