IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> зашифровка\расшифровка текста, помогите плиз
сообщение
Сообщение #1


Гость






Парни и девчонки если не трудно помогите плиз в решении следующей задачи...очень надо:

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

Заранее всем благодарен. Вот мое мыло: <...>

Сообщение отредактировано: volvo -
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






Каким именно методом должна производиться шифровка/дешифровка текста? Уточни. Методов существует довольно много...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


-
****

Группа: Пользователи
Сообщений: 480
Пол: Мужской

Репутация: -  4  +


Гугл ;)


--------------------
бб
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Автооответчик
*****

Группа: Пользователи
Сообщений: 1 188
Пол: Мужской
Реальное имя: Александр

Репутация: -  16  +


Freeman, смысла нет... он в эту тему больше не заглянет - думает, что ему на мыло решение вышлют...


--------------------
Неадекватная чушь может быть адекватным ответом на неадекватный вопрос. Понятно или разжевать?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Гость






Цитата(volvo @ 12.05.2006 14:18) *

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

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

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

помогите плиз.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Гость






А дальше как я понимаю нужно при помощи этой таблицы зашифровать расшифровать текст находящийся в файле, например, text.dat
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Гость






ну что, мне кто-нибудь сможет помочь?
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Профи
****

Группа: Пользователи
Сообщений: 705
Пол: Мужской

Репутация: -  20  +


алгоритм такой:
Код

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);
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


Гость






а куда эту програмку вносить ?
Или оформить этот файл в виде .ехе файла ?
 К началу страницы 
+ Ответить 
сообщение
Сообщение #10


Гуру
*****

Группа: Пользователи
Сообщений: 1 220
Пол: Мужской

Репутация: -  16  +


Цитата(baxa33 @ 16.10.2007 7:02) *

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

У тебя компилятор Паскаля есть? Туда и вноси. Затем откомпилируй.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 




- Текстовая версия 17.10.2017 18:21
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"