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

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

Восстановить пароль Регистрация
 
vveronikka
0 / 0 / 0
Регистрация: 27.04.2014
Сообщений: 65
23.05.2014, 07:18     Шифрование заменой части символов (Pascal->C++) #1
Здравствуйте! Помогите пожалуйста! Нужно провести шифрование текстовой информации заменой части символов. Есть код Паскаль. Надо в С++.
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.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.05.2014, 07:18     Шифрование заменой части символов (Pascal->C++)
Посмотрите здесь:

Шифрование методом перестановки символов в заданном порядке C++
C++ Шифрование символов в файле
Очередь. Организуйте обработку каждого элемента: печать строк из информационной части и их первых символов C++
C++ Организовать обработку каждого элемента: печать строк из информационной части и их первых символов
C++ Шифрование текста путем замены символов
C++ Шифрование заменой
C++ Вывести части строки до определенных символов
Шифрование / дешифрование (метод перестановки символов) C++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

Текущее время: 06:54. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru