Шифрование поточное

[KanPu3]

Шифр VMPC.
Из википедии:

Основа шифра - генератор псевдослучайных чисел, базой которого является односторонняя необратимая функция VMPC (англ. Variably Modified Permutation Composition):

for x from 0 do n-1: g(x) = VMPC(f(x)) = f(f(f(x))+1).

Ключевое расписание
c : Длина ключа в байтах (16 <= c <=64)

K : Ключ

z : Длина вектора инициализации в байтах (16 <= z <=64)

V : Вектор инициализации

m : 16-разрядная переменная

s : 8-разрядная глобальная переменная




1. s = 0
2. for i from 0 to 255: P[i]=i
3. for m from 0 to 767: выполняем пп. 4-6:
4. n = m and 255
5. s = P[ (s + P[n] + K[m mod c]) and 255 ]
6. Temp = P[n]
P[n] = P[s]
P[s] = Temp
7. for m from 0 to 767: выполняем пп. 8-10:
8. n = m and 255
9. s = P[ (s + P[n] + V[m mod z]) and 255 ]
10. Temp = P[n]
P[n] = P[s]
P[s] = Temp

Зашифрование и расшифрование
Для генерации Len байт выходного ключевого потока выполняем следующие операции:

1. n = 0
2. Повторяем пп. 3-6 Len раз:
3. s = P[ (s + P[n]) and 255 ]
4. Output = P[ (P[P[s]]+1) and 255 ]
5. Temp = P[n]
P[n] = P[s]
P[s] = Temp
6. n = (n + 1) and 255

Кто может объяснить а как это будет на Delphi по-человечьи?
Спасибо, если кто обратит внимание.

http://fotki.yandex.ru/users/kanpu32...166556/?page=0
Так выглядит подобный алгоритм.

[p51x]

Кто может объяснить а как это будет на Delphi по-человечьи?

А что не понятно? Практически готовый код...

[KanPu3]

Я просто не понимаю что это означает(
Очень прошу,объяснить.Или лучше написать,можно за вознаграждение.

[p51x]

Я просто не понимаю что это означает(

Что именно вы не понимаете?

for x from 0 to n-1

практически готовый оператор паскаля:

for x:=0 to n-1 do

[Snejnaya]

ЧТо-то ты невнимательно читал вики..

Блочные криптосистемы разбивают текст сообщения на отдельные блоки и затем осуществляют преобразование этих блоков с использованием ключа.

Основная идея
Блочный шифр состоит из двух взаимосвязанных алгоритмов: алгоритм шифрования E и алгоритм расшифрования E-1. Входными данными служат блок размером n бит и k-битный ключ. На выходе получается n-битный зашифрованный блок

Это к вопросу, "что это означает", т.е. основная идея. Просто берут сообщение, разбивают на блоки и каждый блок "перепутывают".

В конце этой статьи и википедии есть ссылка для скачивания готового алгоритма на С. А уж из С в Делфи перевести на раз плюнуть. Хочешь, выкладывай код С, помогу переделать в Делфи

[KanPu3]

Касательно этого шифра-он не блочный, а потоковый.

А код вот)Спасибо, если поможете.

/*

VMPC stream cipher.

Ported to ISO C by Alexander Myasnikov.

Web: www.darksoftware.narod.ru


*/

typedef unsigned char u8;

u8 n = 0;
u8 P[256];
u8 s = 0;


void __stdcall __export
setup (u8 * key, u8 * iv)
{
long m, i;
u8 temp;
s = 0;

for (i = 0; i != 256; i++)
{
P[i] = (u8) i;
}

for (m = 0; m != 768; m++)
{
s = P[(s + P[m & 0xff] + key[m % 64]) & 0xff];
temp = P[m & 0xff];
P[m & 0xff] = P[s & 0xff];
P[s & 0xff] = temp;
}
for (m = 0; m < 768; m++)
{
s = P[(s + P[m & 0xff] + iv[m % 64]) & 0xff];
temp = P[m & 0xff];
P[m & 0xff] = P[s & 0xff];
P[s & 0xff] = temp;
}
n = 0;
}

void __stdcall __export
crypt (u8 * input, u8 * output, long len)
{
long i;
u8 z, temp;
for (i = 0; i != len; i++)
{
s = P[(s + P[n & 0xff]) & 0xff];
z = P[(P[(P[s & 0xff]) & 0xff] + 1) & 0xff];
temp = P[n & 0xff];
P[n & 0xff] = P[s & 0xff];
P[s & 0xff] = temp;
n = (u8) ((n + 1) & 0xff);
output[i] = (u8) (input[i] ^ z);
}
}