Технический форум

Технический форум (http://www.tehnari.ru/index.php)
-   Basic (http://www.tehnari.ru/forumdisplay.php?f=127)
-   -   Шифр простой замены (http://www.tehnari.ru/showthread.php?t=249660)

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



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

Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.