Программа шифровки: DATA "ауоыэяюёие" DATA "бвгджзклмнпрстфхцчшщ" DATA "ъйь" DIM s10 AS STRING, s20 AS STRING, s3 AS STRING DIM i AS INTEGER DIM s AS STRING, t AS STRING CLS READ s10, s20, s3 RANDOMIZE TIMER INPUT "Введите фразу: ", s t = "" FOR i = 1 TO LEN(s) t = t + MID$(s, i, 1) t = t + MID$(s10, INT(10 * RND + 1), 1) t = t + MID$(s20, INT(20 * RND + 1), 1) t = t + MID$(s3, INT(3 * RND + 1), 1) NEXT i PRINT t END
Программа дешифровки: DIM s AS STRING, t AS STRING, i AS INTEGER CLS INPUT "Введите фразу: ", s t = "" FOR i = 1 TO LEN(s) STEP 4 t = t + MID$(s, i, 1) NEXT i PRINT t END
Столбцы в табличном процессоре размечены английский алфавитом: A B C D и так далее.
В ячейку С5 (столбец С, строка 5) вводят формулу "=А6+$В23", после чего копируют эту формулу в ячейку D7 (столбец D, строка 5) ⇒ эта ячейка находится справа на одно значение и на 2 строки вниз от ячейки C5 ⇒ В введенной формуле изменится значение первого аргумента "A6" на "B8", второй аргумент находится в частичной заморозке (ячейка B заморожена - не изменяется при копировании, а строка ячейки - нет) ⇒ "B23" заменится на "B25"
DATA "ауоыэяюёие"
DATA "бвгджзклмнпрстфхцчшщ"
DATA "ъйь"
DIM s10 AS STRING, s20 AS STRING, s3 AS STRING
DIM i AS INTEGER
DIM s AS STRING, t AS STRING
CLS
READ s10, s20, s3
RANDOMIZE TIMER
INPUT "Введите фразу: ", s
t = ""
FOR i = 1 TO LEN(s)
t = t + MID$(s, i, 1)
t = t + MID$(s10, INT(10 * RND + 1), 1)
t = t + MID$(s20, INT(20 * RND + 1), 1)
t = t + MID$(s3, INT(3 * RND + 1), 1)
NEXT i
PRINT t
END
Программа дешифровки:
DIM s AS STRING, t AS STRING, i AS INTEGER
CLS
INPUT "Введите фразу: ", s
t = ""
FOR i = 1 TO LEN(s) STEP 4
t = t + MID$(s, i, 1)
NEXT i
PRINT t
END
=B8+$B25
Объяснение:
Столбцы в табличном процессоре размечены английский алфавитом: A B C D и так далее.
В ячейку С5 (столбец С, строка 5) вводят формулу "=А6+$В23", после чего копируют эту формулу в ячейку D7 (столбец D, строка 5) ⇒ эта ячейка находится справа на одно значение и на 2 строки вниз от ячейки C5 ⇒ В введенной формуле изменится значение первого аргумента "A6" на "B8", второй аргумент находится в частичной заморозке (ячейка B заморожена - не изменяется при копировании, а строка ячейки - нет) ⇒ "B23" заменится на "B25"