информационная безопасность
без паники и всерьез
 подробно о проектеRambler's Top100
Все любят медСетевые кракеры и правда о деле Левина
BugTraq.Ru
Русский BugTraq
 Анализ криптографических сетевых... 
 Модель надежности двухузлового... 
 Специальные марковские модели надежности... 
 Бэкдор в xz/liblzma, предназначенный... 
 Три миллиона электронных замков... 
 Doom на газонокосилках 
главная обзор RSN блог библиотека закон бред форум dnet о проекте
bugtraq.ru / форум / theory
Имя Пароль
ФОРУМ
все доски
FAQ
IRC
новые сообщения
site updates
guestbook
beginners
sysadmin
programming
operating systems
theory
web building
software
hardware
networking
law
hacking
gadgets
job
dnet
humor
miscellaneous
scrap
регистрация





Легенда:
  новое сообщение
  закрытая нитка
  новое сообщение
  в закрытой нитке
  старое сообщение
  • Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
  • Новичкам также крайне полезно ознакомиться с данным документом.
Ключ 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
<theory> Поиск 






Rambler's Top100
Рейтинг@Mail.ru


  Copyright © 2001-2024 Dmitry Leonov   Page build time: 0 s   Design: Vadim Derkach