Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
0 / 0 / 0
Регистрация: 29.05.2015
Сообщений: 1

Шифр Цезаря с ключевым словом (лозунговый шифр)

29.05.2015, 12:31. Показов 3489. Ответов 0
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Помогите написать программу для шифрования методом Цезаря с ключевым словом.
Шифр Цезаря с ключевым словом (лозунговый шифр)
В данной разновидности шифра Цезаря ключ задается числом k (0<=k<=n-1) и коротким ключевым словом или предложением. Выписывается алфавит, а под ним, начиная с k-й позиции, ключевое слово. Оставшиеся буквы записываются в алфавитном порядке после ключевого слова. В итоге мы получаем подстановку для каждой буквы. Требование, чтобы все буквы ключевого слова были различными не обязательно - можно записывать ключевое слово без повторения одинаковых букв. Количество ключей в системе Цезаря с ключевым словом равно n!.
 Комментарий модератора 
Не стоит просить или предлагать выслать ответ в icq, e-mail и другие средства общения.


Есть примерный алгоритм на С++, нужен на VB 6
C++
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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
#include <stdio.h>
typedef unsigned char uchar;
// Формируем таблицу перевода. keyAlpha будет содержать таблицу ключей
bool convertAlphaBet(uchar *Alphabet,  uchar *key, int k, uchar keyAlpha[256])
{
    bool res=false;
    int lenght=0;
    if (Alphabet != NULL)
    {
       while (Alphabet[lenght] != 0) lenght++;
       if (lenght >= 256) lenght = 0;
    }
    if ((lenght > 0) && (keyAlpha != NULL) && (key != NULL) 
        && (k < lenght) && (k >= 0))
    {
        uchar let[256] = {0};
        int i=0;
        while (i<256) keyAlpha[i++]=0;           
        i=0;
        while ((i<lenght) && (key[i] != 0))                 // Цикл для ключа
        {
           
           if (let[key[i]] == 0) 
           {
               keyAlpha[Alphabet[k++]]=key[i];
               if (k == lenght) k=0;
               let[key[i]]=1;
           }
           i++;
        }
        int z=0;
        while (i<lenght)                                  // Цикл для отсавшихся букв алфавита
        {
           if (let[Alphabet[z]] == 0)
           {
              keyAlpha[Alphabet[k++]]=Alphabet[z];
              if (k == lenght) k=0;
              let[Alphabet[z]]=1;
              i++;
           }
           z++;
           
        }
        res=true;
    }   
    return res;
}
// Шифрование
bool Crypt(uchar keyAlpha[256], uchar *src, uchar *crp)
{
    bool res=false;
    if ((src !=NULL) && (crp != NULL))
    {
        int i=0;
        while (src[i] != 0)
        {
           if (keyAlpha[src[i]] != 0) crp[i]=keyAlpha[src[i]];
           else crp[i]=src[i];
           i++;
        }
        crp[i]=0;
        res=true;
    }
    return res;
}
// расшифровка
bool Encrypt(uchar keyAlpha[256], uchar *src, uchar *crp)
{
   bool res=false;
    if ((src !=NULL) && (crp != NULL))
    {
        int i=0;
        int z=0;
        while (src[i] != 0)
        {
           z=0;
           while ((z<256) && (keyAlpha[z] != src[i])) z++;
           if (z == 256) crp[i]=src[i];
           else crp[i]=(uchar)z;
           i++;
        }
        crp[i]=0;
        res=true;
    }
    return res;
}
int main(int argv, char **argc)
{
    if (argv == 2)
    {
       uchar AlphaBet[]="abcdefghijklmnopqrstuvwxyz";  // Алфавит 
       uchar key[]="klin";                             // Ключевое слово 
       int k=7;                                        // Смешение
       uchar keyAlpha[256];
       uchar *Phr=NULL;
       uchar *EnPhr = NULL;
       if (convertAlphaBet(AlphaBet, key, k, keyAlpha))
       {
            int len = 0;
            while (argc[1][len] != 0) len++;
            len++;
            Phr=new uchar[len];
            EnPhr = new uchar [len];
            if (Phr != NULL) 
            {
                if (Crypt(keyAlpha, (uchar*) argc[1],  Phr))
                {
                   printf("%s\n", Phr);
                   Encrypt(keyAlpha, Phr, EnPhr);
                   printf("%s\n", EnPhr);
                }
                
            }
            
       }
       if (Phr != NULL) delete [] Phr;
       if (EnPhr != NULL) delete [] EnPhr;
    }
    return 0;
}
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
29.05.2015, 12:31
Ответы с готовыми решениями:

Реализовать шифр Цезаря, если не известно с какой буквы идет шифрование
Здравствуйте. Может ли кто-нибудь помочь с написанием программы для шифровки любого текста в код Цезаря, если не известно с какой буквы...

Шифр цезаря с ключевым словом
Помогите реализовать программу,пожалуйста? Процедур шифрования и расшифрования с использованием шифра Цезаря при вводе с клавиатуры ключа и...

Шифр Цезаря с ключевым словом
Как можно сделать это:&quot;Выписывается алфавит, а под ним, начиная с k-й позиции, ключевое слово. Оставшиеся буквы записываются в алфавитном...

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
29.05.2015, 12:31
Помогаю со студенческими работами здесь

Шифр Цезаря с ключевым словом
помогите разобраться с программой : программа должна быть написана по формуле E(ti)=(a*ti+bi) mod ,i=0,n-1 a-1 E(ti)=(ti+a-1 bi)mod m ...

Шифр цезаря с ключевым словом
Здравствуйте. Мне необходимо реализовать программу дешифровки цезаря с ключевым словом. Я использую метод частотного анализа, и проверки...

Шифр Цезаря с ключевым словом
Не получается простая задачка. Вот сама задача: Задача 3. «Большой секрет» (20 баллов) Вам в руки попала секретная переписка,...

Шифр Цезаря с ключевым словом «ЗАЩИТА»
Нужна программа которая шифрует текст с методам Шифр Цезаря с ключевым словом «ЗАЩИТА» Добавлено через 55 минут помогите сделать!!!!

Шифрование цезаря, с периодическим ключом и лозунговый шифр
Всем доброго времени суток, к завтрешнему дню нужно написать 3 шифра: Шифр Цезаря, Шифрование с периодическим ключом и лозунговый шифр....


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

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Новые блоги и статьи
Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование
8Observer8 05.03.2026
Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D
8Observer8 04.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий
8Observer8 02.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
Реалии
Hrethgir 01.03.2026
Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .
Ритм жизни
kumehtar 27.02.2026
Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten
8Observer8 27.02.2026
Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами
8Observer8 20.02.2026
Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
Конвертировать закладки radiotray-ng в m3u-плейлист
damix 19.02.2026
Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru