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

Не получается разобраться, написал ключ: 2, фразу: АБВ, получил: ТУР. Почему? Должно же получится ВГД? - Pascal

04.05.2014, 09:05. Просмотров 193. Ответов 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
program Crypt;
 
var key, c_text, longkey, result : string;
i : integer;
toto, c : char;
  F :  Text;
begin
 
writeln('Ââåäèòå êëþ÷:');
readln(key);
writeln('Ââåäèòå Г’ГҐГЄГ±ГІ äëÿ ГёГЁГґГ°Г*:');
  readln(c_text);
for i := 0 to (length(c_text) div length(key)) do
longkey := longkey + key;
 
for i := 1 to length(c_text) do begin
toto := chr((ord(c_text[i]) XOR ord(longkey[i]))); // Èñêëþ÷Г*ГѕГ№ГҐГҐ
result := result + toto;
end;
writeln('Г‡Г*øèôðîâГ*Г*ûé ГІГҐГЄГ±ГІ:');
writeln(result);
write('ÑîõðГ*Г*ГЁГІГј Г¤Г*Г*Г*ûå Гў result.txt ?');
read(c);
if c in ['Y','y'] then begin
    Assign(F,'result.txt');
Rewrite(F);
Writeln(F,result);
Close(F);
end;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.05.2014, 09:05
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Не получается разобраться, написал ключ: 2, фразу: АБВ, получил: ТУР. Почему? Должно же получится ВГД? (Pascal):

Написал задачу по егэ, но баллов получил не много
Здравствуйте! Пришли результаты по егэ, и за одну самую тяжелую задачу получил...

Что должно получится?
Var n:word; Fanction cep (cur:integer;k:integer):double; Begin If cur>=k...

Поставил Windows 7, получил ключ и...
Поставил Windows 7, получил ключ на оффиц. сайте ~>...

Вывод количества вариантов, которое должно получится
В ящике лежат A красных и B зеленых яблок.Надо вслепую вынуть X яблок.Числа...

Как сделать я в техбокс написал ключ , и рядом нужна кнопка скопировать
дайте код пожалуйста , код на скопирование , мне нужно чтоб то что в ...

Написал программу и не могу разобраться
Подскажите зачем нам *namessh, я понимаю, что я сам это так назвал и что это...

1
Cyborg Drone
Модератор
5250 / 3117 / 2432
Регистрация: 17.08.2012
Сообщений: 10,072
04.05.2014, 12:40 #2
Цитата Сообщение от Руслан Посмотреть сообщение
абв, получил: ТУР
Потому что ord(longkey[i]) = 3216=50, а не 2, как Вы ожидаете.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.05.2014, 12:40
Привет! Вот еще темы с решениями:

cin получил char вместо double и while зациклился. Почему?
Привет! Решил задачу из книги Шилдта. "Годы Юпитера в Земные" Захотел...

Написал календарь. Не получается сопоставить дни и даты
Добрый день всем! Ранее я уже задавал этот вопрос, но так и не смог понять по...


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

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

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