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

@Студент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 ничего не понимаю,а мне экзамен по нему сдавать��

Новые блоги и статьи Все статьи Все блоги /
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .

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

	Шифр многоалфавитной замены (Вижнера) и шифр алфавитной замены 07.11.2014, 20:47. Показов 3835. Ответов 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

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

Решение