Einfaches Verschlüsselungsprogramm mit ASCII-Umwandlung

[L4Z4RUSN00B]

Hi liebe Lazarus- Community!

Für den Informatik Unterricht sollen wir ein simples Programm erstellen, mit dem sich über einen einfachen Zahlenschlüssel (Bsp. 4), ein eingebbarer Text ver- und entschlüsseln lässt. Leider komme ich nicht dabei weiter, wie ich den eingegebenen Text (in einem Memo) in ASCII-Code umwandeln kann, sodass ich die einzelnen Stellen des Textes mithilfe des Schlüssels um diese Anzahl verschieben kann.

Ich hoffe mir kann jemand dabei helfen,

MfG L4Z4RUSN00B

[theo]

Ein Text in einem Memo liegt bereits in ASCII Code vor, jedenfalls für die Zeichen des ASCII Bereichs.
Umlaute etc. sind natürlich nicht ASCII.
https://de.wikipedia.org/wiki/American_ ... nterchange

[wp_xyz]

Möglicherweise meinst du auch, wie du den ASCII-Code eines Zeichen erhalten kannst? Nimm einfach "ord(s[{i])", um den Zahlenwert des i-ten Zeichens des Strings s zu erhalten, bzw. "char(n)", um einen Zahlenwert n (byte, 0..255) in ein Zeichen zurückzuverwandeln.

[L4Z4RUSN00B]

Möglicherweise meinst du auch, wie du den ASCII-Code eines Zeichen erhalten kannst? Nimm einfach "ord(s[{i])", um den Zahlenwert des i-ten Zeichens des Strings s zu erhalten, bzw. "char(n)", um einen Zahlenwert n (byte, 0..255) in ein Zeichen zurückzuverwandeln.

Dankeschön, ich denke das wird mir schon etwas weiterhelfen. Nur eine Frage dazu: Da der Text ja individuell und somit unterschiedlich lang ist -> wie kann ich die Länge des Textes herausfinden?

[theo]

http://www.freepascal.org/docs-html/rtl ... tions.html

[wp_xyz]

"Lengt(AString)" ermittelt die Länge eines Textes (in Bytes - das ist nicht notwendigerweise die Anzahl der Zeichen, da Sonderzeichen aus mehreren Bytes zusammengesetzt sein können. Auch die oben angesprochene Umwandlung eines Zeichens in einen Zahlenwert funktioniert nicht für das "ä", es sei denn, du konvertierst den Text nach ANSI).