Keskustelu: Koodit: QB: Tekstinpätkän koodaus

CLS

INPUT "Syötä koodattava teksti: ", text$
INPUT "Syötä koodinumero välillä 1-255: ", koodaus
PRINT

FOR i = 1 TO LEN(text$)
        num = ASC(MID$(text$, i)) + koodaus
        IF num > 255 THEN num = num - 256
        text2$ = text2$ + CHR$(num)
NEXT i

PRINT "Teksti:   " + text$
PRINT "Koodattu: " + text2$

text$ = ""
FOR i = 1 TO LEN(text2$)
        num = ASC(MID$(text2$, i)) - koodaus
        IF num < 0 THEN num = num + 256
        text$ = text$ + CHR$(num)
NEXT i
PRINT "Käännetty: " + text$