Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.82/11: Рейтинг темы: голосов - 11, средняя оценка - 4.82
0 / 0 / 0
Регистрация: 07.11.2014
Сообщений: 12
1

Шифр многоалфавитной замены (Вижнера) и шифр алфавитной замены

07.11.2014, 20:47. Просмотров 2167. Ответов 18
Метки нет (Все метки)

Напишите пожалуйста 2 программы в VB шифр многоалфавитной замены (Вижнера) и шифр алфавитной замены ОЧЕНЬ НАДО!!!;((((
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.11.2014, 20:47
Ответы с готовыми решениями:

Расшифровать числовой шифр (предположительно шифр простой замены)
Доброго времени суток! Не могу расшифровать такое вот послание: ...

Шифр замены
Привет всем)) Нужно написать программу которая шифрует буквы в цифры. И расшифрует цифры на буквы....

Шифр Замены
Всем Привет!!!Люди помогите пожалуйста мне написать программу на С, которая будет шифровать...

Шифр монофонической замены
Нужно написать программу, которая будет осуществлять шифрование и дешифрование методом...

18
6643 / 1510 / 169
Регистрация: 09.01.2010
Сообщений: 4,298
07.11.2014, 22:12 2
два в одном
0
0 / 0 / 0
Регистрация: 07.11.2014
Сообщений: 12
08.11.2014, 14:26  [ТС] 3
нет,две разные программы
0
688 / 229 / 18
Регистрация: 17.01.2011
Сообщений: 577
Записей в блоге: 1
08.11.2014, 14:45 4
А одноразовый шифровальный блокнот (шифр Вернама) Вас не устроит ??
0
0 / 0 / 0
Регистрация: 07.11.2014
Сообщений: 12
08.11.2014, 14:48  [ТС] 5
Нужно в Visual Basic это сделать
0
6643 / 1510 / 169
Регистрация: 09.01.2010
Сообщений: 4,298
08.11.2014, 14:59 6
надо проверить
1
Вложения
Тип файла: rar P1r.rar (5.9 Кб, 43 просмотров)
0 / 0 / 0
Регистрация: 07.11.2014
Сообщений: 12
08.11.2014, 16:37  [ТС] 7
а вот еще вопрос, мне нужна сама программа написанная, чтобы я по ней смогла объяснить как я ее делала, а не работа запрограммированная уже в программу((
0
6643 / 1510 / 169
Регистрация: 09.01.2010
Сообщений: 4,298
08.11.2014, 16:48 8
Цитата Сообщение от Студент124 Посмотреть сообщение
мне нужна сама программа написанная, чтобы я по ней смогла объяснить как я ее делала
0
0 / 0 / 0
Регистрация: 07.11.2014
Сообщений: 12
08.11.2014, 17:53  [ТС] 9
не поняла??((
0
6643 / 1510 / 169
Регистрация: 09.01.2010
Сообщений: 4,298
08.11.2014, 18:23 10
Цитата Сообщение от Студент124 Посмотреть сообщение
не поняла??((
да это не важно
для начала Вам надо сам алгоритм проработать
и совсем бы хорошо, попробовать кодить
0
0 / 0 / 0
Регистрация: 07.11.2014
Сообщений: 12
08.11.2014, 18:28  [ТС] 11
В том то и дело что я не понимаю basic в принципе,но деться некуда нужны эти алгоритмы
0
6643 / 1510 / 169
Регистрация: 09.01.2010
Сообщений: 4,298
08.11.2014, 19:27 12
тогда хоть скажите какой именно бейсик , (так на вс.случай)
1
0 / 0 / 0
Регистрация: 07.11.2014
Сообщений: 12
08.11.2014, 20:30  [ТС] 13
Visual Basic 6.0
0
6643 / 1510 / 169
Регистрация: 09.01.2010
Сообщений: 4,298
08.11.2014, 20:47 14
Лучший ответ Сообщение было отмечено The trick как решение

Решение

ну если Вы считаете, что дело только в коде, то вот, собственно алгоритм
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Function kodek(kd As Boolean, txt As String, Key_txt As String) As String
   d = Len(txt)
      For i = 1 To d
          i1 = IIf(i Mod Len(Key_txt) = 0, Len(Key_txt), i Mod Len(Key_txt))
          s = Mid(txt, i, 1)
          s1 = Mid(Key_txt, i1, 1)
              If Asc(s) = 10 Or Asc(s) = 13 Or Asc(s) = 9 Then
                 kodek = kodek & s
              Else
                 For p = 0 To n
                     If s = table(p) Then iword = p
                     If s1 = table(p) Then ikey = p
                 Next p
                 ind = IIf(kd, (iword + ikey) Mod n, (iword - ikey + n) Mod n)
                 kodek = kodek + table(ind)
              End If
       Next i
End Function
1
0 / 0 / 0
Регистрация: 07.11.2014
Сообщений: 12
08.11.2014, 21:03  [ТС] 15
Спасибо большое��это по виженеру или алфавитная замена?
0
6643 / 1510 / 169
Регистрация: 09.01.2010
Сообщений: 4,298
08.11.2014, 21:07 16
Виженер
но надо еще в зависимости от выбранного алфавита создать таблицу
0
0 / 0 / 0
Регистрация: 07.11.2014
Сообщений: 12
08.11.2014, 21:10  [ТС] 17
А вы не из красноярска?
0
6643 / 1510 / 169
Регистрация: 09.01.2010
Сообщений: 4,298
08.11.2014, 21:23 18
нет, а что на это указывает ? /просто интересно/
0
0 / 0 / 0
Регистрация: 07.11.2014
Сообщений: 12
08.11.2014, 22:29  [ТС] 19
Да хотела у вас репетиторством попросить со мной заняться,просто я в этом VB ничего не понимаю,а мне экзамен по нему сдавать��
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.11.2014, 22:29

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Шифр простой замены
Здравствуйте, помогите пожалуйста расшифровать текст 34 28 68 91 13 83 10 65 27 68 49 10 26 65 27...

Шифр простой замены
Здравствуйте, помогите пожалуйста сделать дешифрование текста :Паипртёбёыидя1 вфтй пр бвииф1...

Шифр замены и перестановки
Есть программа,которая шифрует шифром adfgvx и есть текст зашифрованный этой программой, помогите...

Шифр простой замены
32 буквы (Ё=Е). других знаков нет. уже не первый день мучаюсь. может кто поможет.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
19
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.