57 / 5 / 1
Регистрация: 03.07.2010
Сообщений: 28
|
|
1 | |
шифрование-дешифрование(с ключом) переключение на русский(Shift+Shift)03.01.2011, 22:55. Показов 1041. Ответов 0
Метки нет (Все метки)
REM programma chifrovan/deshifrovan
DIM x(n), y$(n), y1$(255), x1(255), yk$(255), xk(255), xkd(255), ykd$(255) n = 75 CLS 'формирование массива символов y$(1) = "а": y$(2) = "б": y$(3) = "в": y$(4) = "г": y$(5) = "д" y$(6) = "е" : y$(7) = "ё": y$(8) = "ж": y$(9) = "з": y$(10) = "и" y$(11) = "й": y$(12) = "к": y$(13) = "л": y$(14) = "м": y$(15) = "н" y$(16) = "о": y$(17) = "п": y$(18) = "р": y$(19) = "с": y$(20) = "т" y$(21) = "у": y$(22) = "ф": y$(23) = "х": y$(24) = "ц": y$(25) = "ч" y$(26) = "ш": y$(27) = "щ": y$(28) = "ъ": y$(29) = "ы": y$(30) = "ь" y$(31) = "э": y$(32) = "ю": y$(33) = "я": y$(34) = " ": y$(35) = "-" y$(36) = ".": y$(37) = "?": y$(38) = ",": y$(39) = "!": y$(40) = " " y$(41) = ";": y$(42) = ":": y$(43) = "1": y$(44) = "2": y$(45) = "3" y$(46) = "4": y$(47) = "5": y$(48) = "6": y$(49) = "7": y$(50) = "8" y$(51) = "9": y$(52) = "0": y$(53) = "Й": y$(54) = "К": y$(55) = "Л": y$(56) = "М" : y$(57) = "Н": y$(58) = "О": y$(59) = "П": y$(60) = "Р" y$(61) = "С": y$(62) = "Т": y$(63) = "У": y$(64) = "Ф": y$(65) = "Х" y$(66) = "Ц": y$(67) = "Ч": y$(68) = "Ш": y$(69) = "Щ": y$(60) = "Ъ" y$(71) = "Ы": y$(72) = "Ь": y$(73) = "Э": y$(74) = "Ю": y$(75) = "Я" 'формирование массива кодов символов FOR i = 1 TO 75 x(i) = i + 4 NEXT i PRINT "введите: 1 - для шифрования; 2 - для дешифрования" INPUT "v= "; V IF V = 1 THEN GOTO 10 GOTO 20 10 PRINT "Работает программа шифрования" INPUT "введите текст, подлежащий шифрованию: "; s$ p = LEN(s$) 'подсчет количества символов в тексе ' выделение символов в тексе и формирование массива символов текста y1$(p) FOR i = 1 TO p y1$(i) = MID$(s$, i, 1): 'выделяется один i-ый символ из текста s$ NEXT i Добавлено через 2 часа 22 минуты 55555555555
0
|
03.01.2011, 22:55 | |
Ответы с готовыми решениями:
0
Как в Ubuntu 10.04 сменить переключение на русский/английский язык с помощью Shift+Ctrl? Как в SendKeys прописать сочетания Alt+Shift и Shift+Enter Клавиши shift глючат, при нажатии активируется ещё по 10 клавиш на каждый shift Перестали работать shift-f5 и shift-f6 после обновления putty |
03.01.2011, 22:55 | |
03.01.2011, 22:55 | |
Помогаю со студенческими работами здесь
1
Перехватить нажатие комбинации Shift+C и отдельно Shift Переключение раскладки клавиатуры по кнопкам Alt и Shift Сделать переключение Shift или CapsLock в хуке Ctrl+Shift vs Alt+Shift Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |