Шифр простой замены

[iks2]

Шифр простой замены

Этот шифр производит замену русских букв. А на Б, Б на А, В на Г, Г на В, и так далее до буквы Я. Буква Ё, а также знаки препинания в замене не участвуют.
Эта программа считывает текст файла 1.txt и закодированный текст записывает в файл 2.txt. Эта же программа может и расшифровывать свой же текст. Она предназначена для того, чтобы скрыть текст например от вашего любопытного младшего брата.

CLS
OPEN "1.txt" FOR INPUT AS #1
OPEN "2.txt" FOR OUTPUT AS #2
DIM t1 AS STRING
DIM t2 AS STRING
DIM s AS STRING

DO
   LINE INPUT #1, t1
   t2 = ""

   FOR i = 1 TO LEN(t1)
      s = MID$(t1, i, 1)
      k = ASC(s)
      IF k >= 192 THEN
         IF k MOD 2 = 0 THEN
            s = CHR$(k + 1)
         ELSE
            s = CHR$(k - 1)
         END IF
      END IF
      t2 = t2 + s
   NEXT
   PRINT #2, t2
LOOP UNTIL EOF(1)
END