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

@Студент124 · Регистрация: 07.11.2014

Студворк — интернет-сервис помощи студентам

Напишите пожалуйста 2 программы в VB шифр многоалфавитной замены (Вижнера) и шифр алфавитной замены

ОЧЕНЬ НАДО!!!;((((

@gaw · 07.11.2014, 22:12

два в одном

@Студент124 · 08.11.2014, 14:26 **[ТС]**

нет,две разные программы

@dzug · 08.11.2014, 14:45

А одноразовый шифровальный блокнот (шифр Вернама) Вас не устроит ??

@Студент124 · 08.11.2014, 14:48 **[ТС]**

Нужно в Visual Basic это сделать

@gaw · 08.11.2014, 14:59

надо проверить

@Студент124 · 08.11.2014, 16:37 **[ТС]**

а вот еще вопрос, мне нужна сама программа написанная, чтобы я по ней смогла объяснить как я ее делала, а не работа запрограммированная уже в программу((

@gaw · 08.11.2014, 16:48

Сообщение от Студент124

мне нужна сама программа написанная, чтобы я по ней смогла объяснить как я ее делала

@Студент124 · 08.11.2014, 17:53 **[ТС]**

не поняла??((

@gaw · 08.11.2014, 18:23

Сообщение от Студент124

не поняла??((

да это не важно
для начала Вам надо сам алгоритм проработать
и совсем бы хорошо, попробовать кодить

@Студент124 · 08.11.2014, 18:28 **[ТС]**

В том то и дело что я не понимаю basic в принципе,но деться некуда нужны эти алгоритмы

@gaw · 08.11.2014, 19:27

тогда хоть скажите какой именно бейсик , (так на вс.случай)

@Студент124 · 08.11.2014, 20:30 **[ТС]**

Visual Basic 6.0

@gaw · 08.11.2014, 20:47

ну если Вы считаете, что дело только в коде, то вот, собственно алгоритм

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

@Студент124 · 08.11.2014, 21:03 **[ТС]**

Спасибо большое��это по виженеру или алфавитная замена?

@gaw · 08.11.2014, 21:07

Виженер
но надо еще в зависимости от выбранного алфавита создать таблицу

@Студент124 · 08.11.2014, 21:10 **[ТС]**

А вы не из красноярска?

@gaw · 08.11.2014, 21:23

нет, а что на это указывает ?

/просто интересно/

@Студент124 · 08.11.2014, 22:29 **[ТС]**

Да хотела у вас репетиторством попросить со мной заняться,просто я в этом VB ничего не понимаю,а мне экзамен по нему сдавать��

Новые блоги и статьи Все статьи Все блоги /
Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	Контроль уникальности заводского номера - вариант №2 Maks 24.03.2026 В отличие от предыдущего варианта добавлено прерывание циклов, также добавлены новые переменные для сохранения контекста ошибки перед прерыванием цикла: Процедура ПередЗаписью(Отказ, РежимЗаписи,. . .	SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .
Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера - вариант №1 Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .

@Студент124 0 / 0 / 0 Регистрация: 07.11.2014 Сообщений: 12

	Шифр многоалфавитной замены (Вижнера) и шифр алфавитной замены 07.11.2014, 20:47. Показов 3870. Ответов 18 Метки нет (Все метки) Напишите пожалуйста 2 программы в VB шифр многоалфавитной замены (Вижнера) и шифр алфавитной замены ОЧЕНЬ НАДО!!!;(((( 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	07.11.2014, 22:12
	два в одном 0

@Студент124 0 / 0 / 0 Регистрация: 07.11.2014 Сообщений: 12
	08.11.2014, 14:26 [ТС]
	нет,две разные программы 0

@dzug 695 / 236 / 18 Регистрация: 17.01.2011 Сообщений: 583 Записей в блоге: 1
	08.11.2014, 14:45
	А одноразовый шифровальный блокнот (шифр Вернама) Вас не устроит ?? 0

@Студент124 0 / 0 / 0 Регистрация: 07.11.2014 Сообщений: 12
	08.11.2014, 14:48 [ТС]
	Нужно в Visual Basic это сделать 0

@Студент124 0 / 0 / 0 Регистрация: 07.11.2014 Сообщений: 12
	08.11.2014, 16:37 [ТС]
	а вот еще вопрос, мне нужна сама программа написанная, чтобы я по ней смогла объяснить как я ее делала, а не работа запрограммированная уже в программу(( 0

@Студент124 0 / 0 / 0 Регистрация: 07.11.2014 Сообщений: 12
	08.11.2014, 17:53 [ТС]
	не поняла??(( 0

@Студент124 0 / 0 / 0 Регистрация: 07.11.2014 Сообщений: 12
	08.11.2014, 18:28 [ТС]
	В том то и дело что я не понимаю basic в принципе,но деться некуда нужны эти алгоритмы 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	08.11.2014, 19:27
	тогда хоть скажите какой именно бейсик , (так на вс.случай) 1

@Студент124 0 / 0 / 0 Регистрация: 07.11.2014 Сообщений: 12
	08.11.2014, 20:30 [ТС]
	Visual Basic 6.0 0

@Студент124 0 / 0 / 0 Регистрация: 07.11.2014 Сообщений: 12
	08.11.2014, 21:03 [ТС]
	Спасибо большое��это по виженеру или алфавитная замена? 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	08.11.2014, 21:07
	Виженер но надо еще в зависимости от выбранного алфавита создать таблицу 0

@Студент124 0 / 0 / 0 Регистрация: 07.11.2014 Сообщений: 12
	08.11.2014, 21:10 [ТС]
	А вы не из красноярска? 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	08.11.2014, 21:23
	нет, а что на это указывает ? /просто интересно/ 0

@Студент124 0 / 0 / 0 Регистрация: 07.11.2014 Сообщений: 12
	08.11.2014, 22:29 [ТС]
	Да хотела у вас репетиторством попросить со мной заняться,просто я в этом VB ничего не понимаю,а мне экзамен по нему сдавать�� 0

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

Решение