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

Узнай цену своей работы

Формулировка задачи:

Напишите пожалуйста 2 программы в VB шифр многоалфавитной замены (Вижнера) и шифр алфавитной замены ОЧЕНЬ НАДО!!!;((((

Решение задачи: «Шифр многоалфавитной замены (Вижнера) и шифр алфавитной замены»

textual
Листинг программы
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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

15   голосов , оценка 3.733 из 5