Информатика -продвинутый курс
Результатом работы программы является зашифрованный
70 NEXT j
80 PRINT "таких символов в таблице кодов нет": GOTO 160
90 kk = k + 10
100 x$ = x$ + STR$(kk)
110 NEXT i
120 OPEN "letter.txt" FOR OUTPUT AS #1
130 PRINT #1, x$
140 CLOSE »1
150 PRINT "шифровка - "; x$
160 END
Результатом работы программы является зашифрованный текст, записанный в файл с именем letter.txt.
Следующая программа считывает информацию из этого файла и проводит его
раскодирование, используя указанный выше ключ.
Программа 76 (см. программу 27 retsek)
5 '*********•* расшифровка текста *******•***«*»
10 OPEN "letter.txt" FOR INPUT AS #1
20 INPUT tl, a$
30 CLS
40 PRINT a$
50 c$ = "абвгдежзийклшюпрстуфхцчшщъыэюя "
60 x$ =
" "
70 FOR i =
1 TO LEM(a$) STEP 3
SO k = VAL(MID$(a$, i, 2))
90 k =
k - 10
100 x$ =
x$ + MID$(c$, k, 1)
110 NEXT i
120 CLOSE #1
130 PRINT "шифровка - "; x$
140 END
Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий