Помощь - Поиск - Пользователи - Календарь
Полная версия: зашифровка\расшифровка текста
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
макъ
Парни и девчонки если не трудно помогите плиз в решении следующей задачи...очень надо:

Выбрать некоторую таблицу, разработать способ ее представления, а затем необходимо:
а) зашифровать текст
б) расшифровать текст
Замена символа оформляется в виде функции. Исходный текст берется из файла данных, а результат(зашифрованный текст, расшифрованный текст) помещается в файл результата

Заранее всем благодарен. Вот мое мыло: <...>
volvo
Каким именно методом должна производиться шифровка/дешифровка текста? Уточни. Методов существует довольно много...
FreeMan
Гугл ;)
GoodWind
Freeman, смысла нет... он в эту тему больше не заглянет - думает, что ему на мыло решение вышлют...
макъ
Цитата(volvo @ 12.05.2006 14:18) *

Каким именно методом должна производиться шифровка/дешифровка текста? Уточни. Методов существует довольно много...

Допустим если я запишу таблицу в файл *.dat следующим образом:

А 1
Б 2
В 3
....
Ю +
Я ;

помогите плиз.
Гость
А дальше как я понимаю нужно при помощи этой таблицы зашифровать расшифровать текст находящийся в файле, например, text.dat
макъ
ну что, мне кто-нибудь сможет помочь?
Malice
алгоритм такой:
Код

type pr=array[char] of char;
var cd,dcd: pr;  {таблички перестановок}

{создаешь функцию перевода:}
function perevod (s:string; tb:pr):string;
var i:integer;
begin
for i:=1 to length(s) do s[i]:=tb[s[i]];
perevod:=s;
end;

{.. читаешь числа из файла с таблицей в x,y и заполняешь таблицы перестановок:}
cd[x]:=y; dcd[y]:=x;
{...
Вызываешь для кодирования: }
s:=perevod (s,cd);
{и декодирования:}
s:=perevod (s,dcd);
baxa33
а куда эту програмку вносить ?
Или оформить этот файл в виде .ехе файла ?
Ozzя
Цитата(baxa33 @ 16.10.2007 7:02) *

а куда эту програмку вносить ?
Или оформить этот файл в виде .ехе файла ?

У тебя компилятор Паскаля есть? Туда и вноси. Затем откомпилируй.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.