Программа в Pascal, зашифровка данных

Kaito-kun · 29.01.2013, 18:21

Всем привет)Недавно дали задание,срочно нужно выполнить,ломаю голову, но никак...программирование не очень((Задание такое,написать в Паскале программу,которая бы зашифровывала любое слово или предложение,забитое в программу,в число от 0 до 1 (Если разбить 1 на 256 символов)...И потом что б выдавал результат( зашифрованное)...((Помогите очень прошу,буду безумно признателен((А то там еще к нему дополнение (усложнять эту зашифровку),попытаюсь сам осилить((

Vladimir_S · 29.01.2013, 19:28

Цитата:

Сообщение от Kaito-kun

Задание такое,написать в Паскале программу,которая бы зашифровывала любое слово или предложение,забитое в программу,в число от 0 до 1 (Если разбить 1 на 256 символов)

Извините - ни бельмеса не понял! Как это? Можно пример?

Kaito-kun · 29.01.2013, 19:57

(взял язык ASCII,переводила его в числа от 0 до 1 (то есть если буква "А" первая,то что то типа "0,00390625","B" - "0,007812875" и тд...)ну тоже самое если 1 разделить на 256 и каждому придать значение

Vladimir_S · 29.01.2013, 20:40

Цитата:

Сообщение от Kaito-kun

(взял язык ASCII,переводила его в числа от 0 до 1 (то есть если буква "А" первая,то что то типа "0,00390625","B" - "0,007812875" и тд...)ну тоже самое если 1 разделить на 256 и каждому придать значение

Ага, всё-таки каждый символ (а не "слово или предложение") в число? Уже легче. Ну что же - не вижу проблем: посимвольно перебираете строку или файл, каждый символ через команду ORD переводите в код от 0 до 255, полученный код делите на 256 и выдаёте результат на экран или в выходной файл. Какие трудности?

Kaito-kun · 29.01.2013, 21:20

Я не знаю какие команды и тд и тп...Помогите пожалуйста...

Vladimir_S · 30.01.2013, 15:22

Цитата:

Сообщение от Kaito-kun

Я не знаю какие команды и тд и тп...Помогите пожалуйста...

Код:

Var
 S:String;
 i:Byte;
Begin
 Writeln('Enter the string:');
 Readln(S);
 For i:=1 to Length(S) do
  Writeln(Ord(S[i])/256:10:8);
 Readln;
End.

Kaito-kun · 31.01.2013, 19:59

Это для разбития?Или это зашифр?

Vladimir_S · 31.01.2013, 20:31

Цитата:

Сообщение от Kaito-kun

Это для разбития?Или это зашифр?

Не очень понял вопрос. Значит, так. По запросу вводится с клавиатуры некий текст (строка). Дальше программа выдаёт колонку чисел, каждое из которых есть зашифрованный по предложенному алгоритму символ в порядке следования.
Если это не то, то соблаговолите более внятно сформулировать задание.

Kaito-kun · 31.01.2013, 21:18

Просто нужна программа,которая будет зашифровывать символы (буквы,цифры,знаки)
в числа от 0 до 1 (то есть если буква "А" первая,то что то типа "0,00390625","B" - "0,007812875" и тд...).А потом например выводить вместо слова АВА 0,003906250,0078128750,00390625...

Kaito-kun · 31.01.2013, 21:24

Спасибо огромное добр человек))А можно что б он выдавал зашифрованную строку а рядом исходную?И еще его как нибудь усложнить?Что б был криптостойким хоть немного??)) :333

29.01.2013, 18:21	#1 (permalink)
Kaito-kun Новичок Регистрация: 29.01.2013 Сообщений: 8 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Программа в Pascal, зашифровка данных Всем привет)Недавно дали задание,срочно нужно выполнить,ломаю голову, но никак...программирование не очень((Задание такое,написать в Паскале программу,которая бы зашифровывала любое слово или предложение,забитое в программу,в число от 0 до 1 (Если разбить 1 на 256 символов)...И потом что б выдавал результат( зашифрованное)...((Помогите очень прошу,буду безумно признателен((А то там еще к нему дополнение (усложнять эту зашифровку),попытаюсь сам осилить((

29.01.2013, 18:21
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Похожие на вашу темы так же встречались на форуме USB плата сбора данных, ИК датчик и программа Программа для резервного копирования данных Pascal ABC, множественный тип данных

29.01.2013, 19:57	#3 (permalink)
Kaito-kun Новичок Регистрация: 29.01.2013 Сообщений: 8 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	(взял язык ASCII,переводила его в числа от 0 до 1 (то есть если буква "А" первая,то что то типа "0,00390625","B" - "0,007812875" и тд...)ну тоже самое если 1 разделить на 256 и каждому придать значение

29.01.2013, 21:20	#5 (permalink)
Kaito-kun Новичок Регистрация: 29.01.2013 Сообщений: 8 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Я не знаю какие команды и тд и тп...Помогите пожалуйста...

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070

31.01.2013, 19:59	#7 (permalink)
Kaito-kun Новичок Регистрация: 29.01.2013 Сообщений: 8 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Это для разбития?Или это зашифр?

31.01.2013, 21:18	#9 (permalink)
Kaito-kun Новичок Регистрация: 29.01.2013 Сообщений: 8 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Просто нужна программа,которая будет зашифровывать символы (буквы,цифры,знаки) в числа от 0 до 1 (то есть если буква "А" первая,то что то типа "0,00390625","B" - "0,007812875" и тд...).А потом например выводить вместо слова АВА 0,003906250,0078128750,00390625...

31.01.2013, 21:24	#10 (permalink)
Kaito-kun Новичок Регистрация: 29.01.2013 Сообщений: 8 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Спасибо огромное добр человек))А можно что б он выдавал зашифрованную строку а рядом исходную?И еще его как нибудь усложнить?Что б был криптостойким хоть немного??)) :333