Форум программистов, компьютерный форум, киберфорум
Наши страницы
Криптография
Войти
Регистрация
Восстановить пароль
 
Valkyrie123
0 / 0 / 1
Регистрация: 26.04.2017
Сообщений: 7
1

Изменить программный код шифра замены

12.05.2019, 18:37. Просмотров 130. Ответов 1

Может кто помочь изменить программный код шифра замены по правилу: Заменить буквы сообщения составленного на русском языке по следующей таблице :
АБВГДЕЖЗИЙКЛМНОПР
09 23010407021413213117252906221126
СТУФХЦЧШЩЪЫЬЭЮЯ(Пробел) 
00 1930081816280327321510202412 05 


То есть буква А при шифровании будет заменяться на 09 и так далее.
Есть код как это делается, но в нем идут для замены только буквы, и я не знаю как сделать что бы он менял цифры

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Private n As Long
'исходный алфавит
Const АБВ As String = "abcdefghijklmnopqrstuvwxyz"
'новый алфавит
Const НовАБВ As String = "labourcdefghijkmnpqstvwxyz"
Private Sub AnotherCipher()
Dim str As String, strT As String, strR As String
'строка которую будем зашифровывать
str = "Simple replacement is the one of the most ancient ciphers"
' переход к нижнему регистру
str = LCase(str)
'печать в окно Immediate
Debug.Print str
' шифровка
Decode str, strR, АБВ, НовАБВ
Debug.Print strR
'расшифровка
Decode strR, strT, НовАБВ, АБВ
Debug.Print strT
End Sub
Private Sub Decode(str, STRS, Oldkey, NewKey)
Dim n As Long, i As Long
Dim tmp As String
'определяем количество символов исходной строки
n = Len(str)
'вводим преобразованную строку, состоящую из n пробелов
STRS = Space(n)
For i = 1 To n
'выделяем один символ исходной строки
tmp = Mid(str, i, 1)
'определяем место символа исходной строки в исходном алфавите
k = InStr(1, Oldkey, tmp)
If k = 0 Then
'если в исходном алфавите такого символа нет
'то переносим его в новую строку не изменяя
Mid(STRS, i, 1) = tmp
Else
'заменяем соответствующий пробел на символ нового алфавита
Mid(STRS, i, 1) = Mid(NewKey, k, 1)
End If
Next i
End Sub
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.05.2019, 18:37
Ответы с готовыми решениями:

Дешифрование шифра простой замены
Помогите пожалуйста расшифровать зашифрованный текст Используются буквы + пробел показанные на...

Взлом шифра простой замены
Здравствуйте! Была поставлена задача взломать шифр простой замены на примере этого текста: ...

Расшифровка шифра простой замены
48 84 13 33 94 13 48 42 33 46 82, 84 13 82 48 94 82 46 84 33 42 13 88 82 84 16 46 16 25 82 50 17...

Дешифровка шифра простой замены
Помогите пожалуйста расшифровать зашифрованный текст .

Вскрытие шифра простой замены
Помогите расшифровать текст, уже 2 недели ломаю голову и никак не выходит Знаю, что должно быть...

1
Igor_IO
0 / 0 / 0
Регистрация: 05.02.2017
Сообщений: 44
13.05.2019, 11:59 2
Нужно чтобы он менял буквы и цифры только на цифры, или нужно чтобы он менял на тот символ который описан цифрой в таблице?

Добавлено через 4 минуты
Если второе, то
могу предложить создать массив в котором ты разнесешь значения по нужным тебе индексам + добавишь туда цифры и массив с алфавитом, а потом при шифровании посимвольно будешь искать символ и по его индексу подставлять символ из массива алфавита. Я не разбираюсь как это делается в VB

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

0
StackOverflow
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.05.2019, 11:59

Взлом шифра простой замены
вцяюкылофзфъьцлфбфщзуамцкщфзргишвецчфкскщфмфесялзслфефисосмсеецмыюьцъецеыскщфюцщмфибцефосерёмыюыхесм...

исследование шифра простой замены
Помогите, пожалуйста, расшифровать текст. СЛБПЗНЮЛЦХБО КИЮНЯВО МУИ АИЭЦО НЗЛЦКЭЫ ЕВЦВББ...

Взлом шифра простой замены
Добрый день! Бьюсь над этой расшифровкой уже какой день.. Все онлайн взломщики перетестил, ничего...


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

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

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