hey, hab auch einen problem mit der verschlüsselung bzw. der entschlüsselung des verschlüsselten Texts. Ich finde keinen Ansatz
Hier meine caesar-Verschlüsselung:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
VAR
I, K, V: INTEGER;
BEGIN
V := StrToIntDef(edit2.Text,0); //Zeichenverschiebung
edit3.Text := ''; //Auagabe löschen
FOR I := 1 TO Length(edit1.Text) DO
BEGIN
K := Ord(edit1.Text[I]); //Zeichen Auslesen
K := K + V; //Verschieben
edit3.Text := edit3.Text + CHR(K and 255); //Verschlüsseltes Zeichen an Aufgabe anhängen
END;
danke im vorraus
