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

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
vveronikka
0 / 0 / 0
Регистрация: 27.04.2014
Сообщений: 65
#1

Шифрование заменой части символов (Pascal->C++) - C++

23.05.2014, 07:18. Просмотров 202. Ответов 0
Метки нет (Все метки)

Здравствуйте! Помогите пожалуйста! Нужно провести шифрование текстовой информации заменой части символов. Есть код Паскаль. Надо в С++.
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
Program Cipher5;
const
txt1='Privet Privet'#2;
txt2='Shifrovanie textovoy informacii zamenoy chasti simvolov';
var
I:byte;
C:char;
Line:string[$FF];
ShiftTab:array[1..255] of byte;
procedure ChangeCharNum (var C:char);
begin
case C of
#007..#010:    C:=Chr(Ord(C)+243);
#013:          C:=#254;
#026:          C:=#255;
#250..#253:    C:=Chr(Ord(C)-243);
#254:          C:=#013;
#255:          C:=#026;
end;
Exit;
end;
begin
Line:=txt1+txt2;
writeln(line);
randomize;
for I:=1 to Length(line) do
ShiftTab[I]:= Random (250);
ChangeCharNum (Line[I]);
for I:=1 to Length(line) do begin
ChangeCharNum (Line[I]);
if Line[I]<=#250 then
Line[I]:=Chr((Ord(Line[I])+250-ShiftTab[I]) mod 250);
ChangeCharNum (Line[I]);
end;
writeln(Line);
for I:=1 to Length(line) do begin
ChangeCharNum (Line[I]);
if Line[I]<=#250 then
Line[I]:=Chr((Ord(Line[I])+ShiftTab[I]) mod 250);
ChangeCharNum (Line[I]);
end;
Write(line);
writeln;
writeln;
writeln;
Halt;
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.05.2014, 07:18
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Шифрование заменой части символов (Pascal->C++) (C++):

Шифрование заменой - C++
Нужно провести шифрование текстовой информации заменой части символов. Есть код Паскаль. Помогите, пожалуйста const txt1='Privet...

Шифрование символов в файле - C++
День добрый! Проблема такова: Есть файл содержащий исходный набор символов(текст, строки и т.д.). нужно составить программу для...

Шифрование / дешифрование (метод перестановки символов) - C++
Здравствуйте.проблема такая:по варианту дали ключ и метод шифрования.похожие темы нашел но не то(( вернее начало нашел тут...

Шифрование текста путем замены символов - C++
Здравствуйте! Нужна Ваша помощь. Нужно провести шифрование предложения заменой символов в си++. Есть работа в Паскале, а как в си++сделать...

Шифрование методом перестановки символов в заданном порядке - C++
Здравствуйте уважаемые знатоки. Помогите пожалуйста. Мне нужен код(разобраться не могу)%-) шифрования.Пример: 1.вводим: привет 2.задаём...

Вывести части строки до определенных символов - C++
Помогите мне с задачкой. Дана строка, нужно разделить ее на несколько частей до определенных символов (или не обязательно именно так). Вот...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.05.2014, 07:18
Привет! Вот еще темы с ответами:

Организовать обработку каждого элемента: печать строк из информационной части и их первых символов - C++
Организовать обработку каждого элемента: печать строк из информационной части и их первых символов. Не понимаю как сделать, помогите. ...

Очередь. Организуйте обработку каждого элемента: печать строк из информационной части и их первых символов - C++
Составьте программу, которая создает очередь из произвольного количества элементов. Информационная часть динамического элемента должна...

Дана строка. Определить, сколько в ней символов *, ;, : [Есть код на Pascal] - C++
Нужно перевести этот код на С++ Uses crt; Var s: String; i,k1,k2,k3: Integer; BEGIN Clrscr; Writeln('Введите строку: ');...

Шифрование с заменой символов - C++ Builder
Проблема в том, что глючит символ J (именно большой). При возвращении имени к нормальному во втором листе он заменяется на G, а при...


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

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

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