[pr0_zu]

Здравствуйте участники форума!
Есть вопросы по поводу этой программы:
http://www.delphisources.ru/pages/so...r_decoder.html
С автором связаться не могу,т.к не отвечает, поэтому надеюсь на вас
Как именно генерировать файл ключа?
Посоветуйте литературу в которой описывается шифрование XOR. Заранее благодарен

[moo2k]

Тебе нужен именно XOR? Если нужна более продвинутая прога для шифрования, то стучись ко мне в аську. Дам EXE своей проги.
http://www.axofiber.org.ru/inside/xor.ciphering.htm - про XOR.

[pr0_zu]

Реально парни помогите,какие мысли есть?

[darksoftware]

Сообщение от pr0_zu

Реально парни помогите,какие мысли есть?

XOR - только один из элементов шифрования, простой алгоритм на базе XORа ломают обычные студенты и любознательные.

Используй ротацию бит - ROR/ROL, таблицы замен и перестановок, сдвиги SHL / SHR, а если хочешь найти простые и в то же время серьезные примеры - смотри код RTEA или Enrupt на паскале, я портировал с языка C.

Единственное, в коде Enrupt функцию ltotr нужно заменить, см. описание на этом форуме в разделе исходники или качай новую редакцию с моей странички.


Вот простой и эффективный алгоритм (RTEA):

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

var key: array [0..7] of longint; // Ключ   // Иначе на inc, dec будет ругаться   {$Q-}   procedure crypt (var a: longint; var b: longint) var r: longint; begin   r:=-1; repeat  inc(r);  inc(b,a +((a shl 6) xor (a shr 8))+ (key[r mod 8]+r));  inc (r);  inc (a,b+((b shl 6) xor (b shr 8))+ (key[r mod 8]+r));  until r=63;   end;     procedure decrypt (var a: longint; var b: longint); var r: longint; begin r:=64; repeat dec (r); dec (a,b+((b shl 6) xor (b shr 8))+ (key[r mod 8]+r)); dec(r) ; dec (b,a+((a shl 6) xor (a shr 8))+ (key[r mod 8]+r)); until r=0; end;

Как видно, 32 байтовым (256 битным) ключом шифруется за один проход функции два 4 байтовых (32 битных) числа, т.е. блок из 64 бит.

[Wipahacker]

На счет cipher'а ссылка ниже самые отличные алгоритмы шифрования
http://www.cityinthesky.co.uk/cryptography.html