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

← →
highlander (2004-11-22 12:06) [0]

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

← →
TUser © (2004-11-22 12:11) [1]

b:=ord(c);
b1:=b shr k;
b2:=b shl (8-k);
c:=char(b1+b2);

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

← →
highlander (2004-11-22 12:27) [2]

To TUser ©: но ведь это просто задача по информатике ;-)
отстойный ли алгоритм или нет, это никого не интерисует.
Кстати, а как организовать цикл? ведь в условии сказно о циклическом смещении...
это через while not eof?

← →
TUser © (2004-11-22 12:30) [3]

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

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

← →
highlander (2004-11-22 12:43) [4]

Циклическое смещение битов осуществляется не с помощью SHL или SHR, а с помощью ROL или ROR (но это уже ассемблерные команды).

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

Шифрование и дешифрование текста Найти похожие ветки