Hallo,
ich schriben im Moment ein Programm, was einem ein eingegebenen Text verschlüsseln soll. Wie kann ich es aber nun schaffen, dass er irgendwelche Sonderzeichen nicht mitverschlüsselt?
Ich gebe mal ein Beispiel, wo ich z.B. oben genanntes einbauen möchte:
variablen: textalt, textneu, schluessel, zaehler, zeichenzahlneu, zeichenzahlalt. Der Rest dürfte lesbar beschriftet sein.
textalt:=MemoEingabe.text;
textneu:=textalt;
schluessel:=upcase(EditSchluesselCaes.text[1]);
for zaehler:=1 to length(textalt)
do
begin
zeichenzahlneu:=ord(textalt[zaehler])+ord(schluessel)-65;
if zeichenzahlneu >90
then zeichenzahlneu:=zeichenzahlneu-26;
textneu[zaehler]:=chr(zeichenzahlneu);
end;
MemoAusgabe.text:=textneu;
end;