Скремблеры

← →
Анна_А (2007-03-15 16:24) [0]

Уважаемые мастера.
Есть ли у кого исходник простого скремблера (шифрование по ключу).
Заранее спасибо.

← →
Сергей М. © (2007-03-15 16:28) [1]

Вообще-то, скремблер - это "перемешивальщик", а не "шифровальщик" ..

← →
Сергей М. © (2007-03-15 16:32) [2]

Вот пример реально существующего и используемого Алладинами скремблера/дескремблера:

procedure Descramble(Buffer: PHlApi); var i: Integer; Seed: Word; p: PByteArray; begin p := PByteArray(Buffer); Seed := Buffer.ScrambleKey; for i := $FE downto $BE do begin Dec(Seed, PWord(@p[i])^ xor i); Seed := (Seed shl 15) or (Seed shr 1); Inc(PWord(@p[i])^, Seed); end; for i := $B8 downto $00 do begin Inc(Seed, PWord(@p[i])^ xor i); Seed := (Seed shl 15) or (Seed shr 1); Dec(PWord(@p[i])^, Seed); end; Buffer.ScrambleKey := Seed; end; procedure Scramble(Buffer: PHlApi); var i: Integer; Seed: Word; p: PByteArray; begin p := PByteArray(Buffer); Seed := Buffer.ScrambleKey; for i := $00 to $B8 do begin Inc(PWord(@p[i])^, Seed); Seed := (Seed shr 15) or (Seed shl 1); Dec(Seed, PWord(@p[i])^ xor i); end; for i := $BE to $FE do begin Dec(PWord(@p[i])^, Seed); Seed := (Seed shr 15) or (Seed shl 1); Inc(Seed, PWord(@p[i])^ xor i); end; Buffer.ScrambleKey := Seed; end;

← →
Анна_А (2007-03-15 16:46) [3]

Я извиняюсь,а как дальше связать
с текстом и ключом?

← →
Сергей М. © (2007-03-15 17:02) [4]

Скрембл-ключ - в поле Scramblekey, это же очевидно из названия поля.
Все остальные поля - все что угодно, в т.ч. текст.
ПРимер дан для изучения скрембл-концепции, а не для слепого передирания.

студенты дошли до изучения раздела "криптография"?

>Вообще-то, скремблер - это "перемешивальщик", а не "шифровальщик" ..
Именно! В некоторых видах кодирования сигналов используется предварительное скремблирование цифровых данных, чтобы уменьшить полосу пропускания сигнала. При этом увеличивается избыточность данных, но зато сигнал помещается в нужную полосу частот.

Скремблеры Найти похожие ветки