Der Quellcode, den ich momentan verwende ist nicht Delphi kompatibel. Jetzt suche ich den passenden Code, da ich das Cäsar Chiffre mittels Delphi vorstellen muss.
Cäsar-Chiffre Quellcode für Delphi
-
Cimeries -
23. Mai 2006 um 15:58
-
-
Ich hab keine Lust meinen Code einzufügen.
Solltest es selbst lösen, wenn das für die Schule ist -
ja danke -.-
entschuldige, wollte mich auf die matura vorbereiten und seit ich erfahren habe, dass ich mit delphi arbeiten muss, dacht ich mir ich frag mal hier nach... es geht nicht darum, das jetz selbst lösen zu müssen für die schule -
So, ich hab mich jetzt mal hingesetzt und habs nur für dich geschrieben, da ich meins nicht finden konnte
Hierbei ist nur die Prozedur des Verschlüsselungs-Buttons wichtig, also hab ich den Rest weggelassen.
Variablen sind lokal in der Prozedur eingeführtCode
Alles anzeigenprocedure TCaesar.B_verschlClick(Sender: TObject); var i,ASCII,schritt:integer; var c:char; var output:string; begin for i:=1 to length(E_Format.Text) do begin c:= E_Format.Text[i]; ASCII:=ord(c); schritt := 5; ASCII := ASCII + schritt; if ASCII<65 then ASCII:=ASCII+26; E_verschl.Text:=E_verschl.Text + chr(ASCII); end; end;
Bei Fragen, einfach posten
( E_Format.Text ist der formattierte Text der eingabe, also alles in klein Buchstaben -
danke
wird sofort ausprobiert, wenn ich wieder zugriff zu delphi habe -
Kein Problem.