Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Basic


Ответ
 
Опции темы Опции просмотра
Старый 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
iks2 вне форума   Ответить с цитированием

Старый 28.10.2016, 13:51
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Прошу вас, обратите внимание на похожие топики

Шифр Вижинера
Простой ФНЧ
простой
простой мод
Простой ЦАП

Ads

Яндекс

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

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 11:31.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.