Шифр многоалфавитной замены (Вижнера) и шифр алфавитной замены - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д