Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Шифрование и дешифрование текста

highlander © (2004-11-22 12:06:00)
Собственно говоря, это задача по Паскалю.
Над каждым символом файла выполнятется такое превращение: его биты циклически смещаются на К позиций вправо (либо влево). Написать програму, которая за данным К шифрует и дешифрует текст.

Amoeba (2004-11-22 16:32:00) [1]
Циклическоесмещение битов осуществляется не с помощью SHL или SHR, а с помощью ROL или ROR (но это уже ассемблерные команды).

TUser © (22.11.04 12:11) [1]Для шифрования вообще не годится (даже для плохого!), т.к. происходит потеря крайних битов поскольку циклического сдвига при этом не происходит.

highlander (2004-11-22 12:43:00) [2]
ясно...огромное человеческое спасибо TUser ©

TUser (2004-11-22 12:30:00) [3]

> это через while not eof?

Можно. Можно еще TFileStream, но не в ТП

highlander (2004-11-22 12:27:00) [4]
To TUser ©: но ведь это просто задача по информатике ;-)
отстойный ли алгоритм или нет, это никого не интерисует.
Кстати, а как организовать цикл? ведь в условии сказно о циклическом смещении...
это через while not eof?

TUser (2004-11-22 12:11:00) [5]
b:=ord(c);
b1:=b shr k;
b2:=b shl (8-k);
c:=char(b1+b2);

Это очень отстойный алгоритм шифрования.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »