Форум программистов, компьютерный форум, киберфорум
Наши страницы

Шифр Гронсфельда (!) - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Помогите, пожалуйста, разобраться с задачей http://www.cyberforum.ru/cpp-beginners/thread736242.html
В окружность радиусом R вписан многоугольник со стороной a. Сто- рона многоугольника с удвоенным числом сторон определяется по формуле A=SQRT(2R^2-2R*SQRT(R*R-A^2/4)).Определить чему равно A, если...
C++ Подскажите пожалуйста как подключить freeglut к Visual Studio 2012 Подскажите пожалуйста как подключить freeglut к Visual Studio 2012? Хочу начать учить 3d. Поэтому нужно чтобы для всех последующих проектов подключение этой библиотеки - не составляло труда http://www.cyberforum.ru/cpp-beginners/thread736236.html
C++ Сжать строку, удалив из нее все пробелы
Люди,очень прошу!помогите написать несколько программа,через неделю зачёт,а я вообще ничего не успеваю... 3.Написать и протестировать функцию compress(), которая «сжимает» строку, удаляя из нее все...
C++ Обратная матрица методом Гаусса-Жордана
Хотел получить обратную матрицу проводимостей которая является частью программы, которая считает токи в ветвях методом узловых напряжений. За основу взял код который вычисляет обратную матрицу...
C++ Найти индекс максимального элемента матрицы (Borland C++) http://www.cyberforum.ru/cpp-beginners/thread736202.html
1. Дано квадратную матрицу действительных чисел размерности 3. Вывести индексы максимального элемента.
C++ Работа с ASCII Что покажется на экране? ASCII* l 108 a 97 b 98 s 115 c 99 i 105 e 101 L 76 подробнее

Показать сообщение отдельно
guzel20
2 / 2 / 0
Регистрация: 05.12.2012
Сообщений: 35

Шифр Гронсфельда (!) - C++

18.12.2012, 01:48. Просмотров 2492. Ответов 2
Метки (Все метки)

Пожалуйста, помогите! Очень срочно
Написать программу на С++, осуществляющую шифрование и дешифрование каких-либо данных. Тип шифрования – шифр Гронсфельда.
Если кому-то поможет, то есть код на Паскале:
Pascal
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
program Kriptograf; 
 
function Shifr ( Kod, K : string ): string; 
    var i,t,d : integer; 
    begin 
        for i :=1 to length (Kod) do begin 
            d :=ord (Kod[i]); 
            t := (ord(Kod[i]) + (ord (K [(pred(i) mod length(K)) + 1]) - ord('0')));
            if t >= 256 then 
                dec (T,256); 
            Kod[i]:= Chr(t); 
        end; 
        Shifr := Kod; 
    end;
 
var a,k,s: string;
 
Begin
 
    writeln('vvedite slovo'); 
    readln(a); 
    writeln('vvedite klu4'); 
    readln(k); 
    s:= Shifr(a,k); 
    writeln('s= ', Shifr (a, k)); 
    readln; 
End.
 
//расшифровывающая 
program Kriptograf;
 
function DeShifr (DeKod,K:string):string; 
    var i,t:integer; 
    begin 
        for i:=1 to length(DeKod) do begin 
            t:=(Ord(DeKod[i])-(ord(K[(pred(i) mod length(K))+1])-ord('0')));
            if t<0 then 
                Inc(t,256); 
            DeKod[i]:=Chr(t); 
        end; 
        DeShifr:=DeKod; 
    end;
 
var a,k,s:string;
 
Begin 
    writeln('vvedite zashifrovannui text'); 
    readln(a); 
    writeln('vvedite klu4'); 
    readln(k); 
    s:= DeShifr(a ,k );
    writeln('s= ', DeShifr (a,k)); 
    readln; 
End.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.