Deutsches Lazarusforum

hmm okay :S

ist ja nciht so als wenn cih jetzt was fertiges haben will ich will ja nur einen ansatz weil ich hat gar keine idee habe :/

aber gut cih probier mal mit deinem funktionstipp rum

sry :S

mein ansatz:

procedure TForm1.startButtonClick(Sender: TObject);
var
i,b :integer;
text,a,g,k, c: string;



begin
KTA:=('abcdefghijklmnopqrstuvwxyz'); // Klartext alphabet

text:=eingabeedit.text; //eingabe auslesen

GTA:=text+'abcdefghijklmnopqrstuvwxyz'; (weis halt nicht wie ich ...

Hallo,

Ich hab ein Problem : cih will eine Caesar Verschlüsselung programmieren. Dafür will ich ein Geheimtextalhpabet erstellen lassen wie es nach Ceasar übrlich ist.

Das heisst wenn das Wort das Verschlüsselt werden soll: HANS heisst dann macht das Programm daraus den Schlüssel

HANS + Alphabet ...