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

'tekstinpätkän koodaus, tehnyt Ville Kumpulainen
'e-mail: ville.kumpulainen@pp2.inet.fi
CLS

INPUT "Syötä koodattava teksti: ", text$
INPUT "Syötä salasana: ", koodaus$
PRINT

FOR i = 1 TO LEN(text$)
        num = ASC(MID$(text$, i)) + ASC(MID$(koodaus$, (i MOD LEN(koodaus$) + 1)))
        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)) - ASC(MID$(koodaus$, (i MOD LEN(koodaus$) + 1)))
        IF num < 0 THEN num = num + 256
        text$ = text$ + CHR$(num)
NEXT i
PRINT "Käännetty: " + text$