'**** A-Z  ASCII 65-90, a-z ASCII 97-122 ****
 
DIM Klartext AS STRING
DIM Verschluesselt AS STRING
DIM Ausgabe AS STRING
DIM Schluessel AS LONG
DIM t AS LONG
DIM i AS LONG
 
 
Klartext="Hauptstraße 27z"
Schluessel= 2
 
FOR i = 1 TO LEN(Klartext)
 
   t = ASC(MID(Klartext, i, 1))
      IF (t > 64 AND t < 91) THEN
         IF t + Schluessel < 91 THEN
            Verschluesselt = CHR(t+Schluessel)
         ELSE
            Verschluesselt = CHR(t-26+Schluessel)
         END IF
      ELSEIF (t > 96 AND t < 123) THEN
         IF t + Schluessel < 123 THEN
            Verschluesselt = CHR(t+Schluessel)
         ELSE
            Verschluesselt = CHR(t-26+Schluessel)
         END IF
      ELSE
         Verschluesselt = CHR(t)
      END IF
 
        Ausgabe = Ausgabe + Verschluesselt
NEXT
 
MSGBOX  (Klartext+"  "+Ausgabe)