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

[Kaito-kun]

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

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

 

[Vladimir_S]

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

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

 

[Kaito-kun]

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

 

[Vladimir_S]

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

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

 

[Kaito-kun]

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

 

[Vladimir_S]

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

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]

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

 

[Vladimir_S]

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

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

 

[Kaito-kun]

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

 

[Kaito-kun]

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

 

[Vladimir_S]

А потом например выводить вместо слова АВА 0,003906250,0078128750,00390625...

То есть слитно без перевода строки? Ну так замените в программе в третьей снизу строчке writeln на write и будет Вам счастье.

А можно что б он выдавал зашифрованную строку а рядом исходную?

А так и получится: Вы же вводите строку для шифрования, она на экране остается, а ниже появляется шифр.

И еще его как нибудь усложнить?Что б был криптостойким хоть немного??

Нет, "как-нибудь" да "хоть немного" - это я не понимаю.

 

[Kaito-kun]

Например,прибавить к переведенной цифре 1 и разделить на 4?

 

[Vladimir_S]

Например,прибавить к переведенной цифре 1 и разделить на 4?

Попробуйте самостоятельно одолеть эту безумно сложную задачу!

 

[Gruvi]

Лентяи люди... лентяи ....

 

[Kaito-kun]

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