Легенда:
новое сообщение
закрытая нитка
новое сообщение
в закрытой нитке
старое сообщение
|
- Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
- Новичкам также крайне полезно ознакомиться с данным документом.
Ключ 8 бит (как правило) не стоит использовать 14.09.01 22:50 Число просмотров: 1833
Автор: leo <Леонид Юрьев> Статус: Elderman
|
Именно 8-битного шифрования конечно нет, поэтому можно сделать одно из трех:
1) Сделать что-нибудь в стиле XOR
2) Взять какой-нибудь алгоритм и перевести его в 8-бит
3) Использовать стойкий алгоритм но с ключом в 8-бит.
XOR-вариант тебе уже подсказали.
Для второго и третьего советую RC6, он работает на любом кол-ве бит.
Почитать можешь на http://www.rsalabs.com
Могу дать готовый DCU-unit (Delphi 6), но без исходников.
unit BlockCipherRc6Unit;
{$IFDEF DEBUG}
{$O-,L+,D+}
{$ELSE}
{$O+,L-,D-,C-}
{$ENDIF}
{$Q-}
interface
uses
ly_utils;
type
TRc6DataBlock = Int128;
PRc6DataBlock = ^TRc6DataBlock;
TRc6RawKeys = array[0..43] of Longword;
procedure rc6_encode(const PlainText: TRc6DataBlock; const Keys: TRc6RawKeys; var CipherText: TRc6DataBlock); register;
procedure rc6_decode(const CipherText: TRc6DataBlock; const Keys: TRc6RawKeys; var PlainText: TRc6DataBlock); register;
procedure rc6_key_setup(var Keys: TRc6RawKeys; var UserKeys; UserKeysLength: Integer); overload;
procedure rc6_key_setup(var Keys: TRc6RawKeys; UserKeys: WideString); overload;
implementation
|
|
|