Простое заксоривание.

← →
go2lo (2006-11-20 17:58) [0]

Решил "изобрести" совершенно глупый алгоритм шифрования маленького количества информации (строку до 10 символов).
Входящие три параметра: шифруемые данные, ключ1, ключ2. (UId, Key1, Key2)

const ConstsXor: array [0..9] of Byte = ($a1, $2b, $3c, $e4, $15, $ef, $19, $a1, $f4, $c0); var lkey1, lkey2: Byte; i: Byte; lkey := 0; lkey2 := 0; for i := 1 to Length(UId) do begin if lkey = Length(UId) then lkey := 1 else Inc(lkey); if lkey2 = Length(UId) then lkey2 := 1 else Inc(lkey2); if Odd(i) then Result[i] := Chr(Ord(UId[i]) xor ConstsXor[i] xor Ord(Key1[lkey])) else Result[i] := Chr(Ord(UId[i]) xor ConstsXor[i] xor Ord(Key2[lkey2])); end;
Я прекрасно понимаю, что тут просто запудривание мозгов, а не шифрование. Вопросы заключаются в следующем: Возможно упростить код, не потеряв смысла, если да то как? Возможна такая сиуация, когда данные испортятся, т.е. какой-то подводный камень?

Спасибо.

← →
Leonid Troyanovsky © (2006-11-20 19:11) [1]

> go2lo (20.11.06 17:58)

> Решил "изобрести" совершенно глупый алгоритм шифрования
> маленького количества информации (строку до 10 символов).

В общем-то, такое кол-во информации вполне можно
запомнить (в голове).

Ну, а если речь идет о повторениях процесса, то
это уже не 10 символов. Т.е., со всеми вытекающими.

Я к тому, что не надо изобретать "глупых", когда
есть нормальные.

--
Regards, LVT.

1. Можно взять очень простой потоковый алгоритм RC4. Он не сложнее будет вашего.
2. При очень маленькой длине сообщения очень возможно, что сообщения будут повторяться. Например "Да" или "Нет". Нужно чтобы шифровка повторяющихся сообщений выглядела каждый раз по-разному. Для этого полезно перед сообщением помещать несколько случайных символов, которые после расшифровки можно отбрасывать.

Простое заксоривание. Найти похожие ветки