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

iks2 · 28.10.2016, 13:51

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

28.10.2016, 13:51	#1 (permalink)
iks2 Member Регистрация: 22.10.2016 Сообщений: 62 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Шифр простой замены Этот шифр производит замену русских букв. А на Б, Б на А, В на Г, Г на В, и так далее до буквы Я. Буква Ё, а также знаки препинания в замене не участвуют. Эта программа считывает текст файла 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

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

28.10.2016, 13:51
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Прошу вас, обратите внимание на похожие топики Шифр Вижинера Простой ФНЧ простой простой мод Простой ЦАП

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070