Этот шифр производит замену русских букв. А на Б, Б на А, В на Г, Г на В, и так далее до буквы Я. Буква Ё, а также знаки препинания в замене не участвуют.
Эта программа считывает текст файла 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