при этом если его еще раз выполнить, все должно вернуться как было. Мне нужно это cделать на дельфи.
Есть кусок кода, но он неправильно работает, т.е. нет обратного хода

Код

for i:=0 to 65535 begin          J := (J + RandBuffer[I]) mod 65536;          T := Buffer[I];          Buffer[I] := Buffer[J];          Buffer[J] := T;        end;

RandBuffer - это массив случайных чисел
Buffer - это массив байтов, которые надо перемешать

все хорошо, да только если его еще раз повторить, то мы не вернемся к прежнему состоянию

мне сгодится любая инфа, исходники, лишь бы работало
этот алгоритм могу сменить на другой, работающий

Это сообщение отредактировал(а) Monty - 25.5.2003, 22:50

Приветствую!
А что это такое:

Код

T := Buffer[1][I];         Buffer[I] := Buffer[J];

Это был я. Извинияюсь.
Я имею в виду: какой размерности массив?

Цитата

Я имею в виду: какой размерности массив?

Оба массива по рамеру одинаковы, размер 65536 байт

Цитата(Unregistered @ 25.5.2003, 11:36)

Приветствую! А что это такое: Код         T := Buffer[1][I];         Buffer[I] := Buffer[J];

Это моя опечатка , все, вроде правильно теперь.

Код

T := Buffer[I];          Buffer[I] := Buffer[J];          Buffer[J] := T;

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


Это сообщение отредактировал(а) Monty - 25.5.2003, 23:00

Команда XCHG не менияет местами два значения в памяти.

Вопрос: а массив случайных чисел у тебя известен при обратной кодировке?

А я на Qbasic'е в школьные годы написал программы, которая берет файл, переворачивает 255' ой символ в 0'ой, потом переворачивает 127'ой в 0'ой а 255'ый в 128'ой и потом ещё раз только с 63'им, и так мазаются все символы, кодирует файлы, потом прогоняеш еще раз и все востонавливается

А почему бы в таком случае не сделать просто:

A[i]=not A[i];

И все. Потом прогоняем второй раз и все встает на свои места.
Можно еще так:

xor si, si
mov cx, n
next:
mov al, a[si]
ror al, 1
mov a[si], al
loop next

Цитата

xor si, si mov cx, n next: mov al, a[si] ror al, 1 mov a[si], al loop next

Если имеется в виду циклический сдвиг нулевого элемента массива, то можно и так:

Цитата

mov cx,n ; Или movzx cx,byte ptr n ror byte ptr a,cl

А если имеется в виду сдвиг n первых элементов массива, то:

Цитата

mov si, offset a mov cx, n next:   ror  byte ptr [si],1   inc  si   loop next

Цитата

CODE         T := Buffer[I];         Buffer[I] := Buffer[J];         Buffer[J] := T; эту часть я не знаю как оптимизировать, она меняет местами байты, т.е. что то наподобия ассемблерной команды XCHG

Ассемблерный код будет гораздо компактнее и быстрее, Но ! - не всегда:

Допустим, используем стандартную технику(32-х битный код):

Цитата

; Инициализация базы (быстрее, чем mov Buffer[Индекс]) mov  ecx,offset Buffer ; Инициализация I & J mov  esi,Start_I_Value mov  edi,Start_J_Value ; Что-то еще ... ; Обмен внутри буфера: mov  eax,[ecx+esi] ; eax=Buffer[I] xchg [ecx+edi],eax ; Buffer[j]=Buffer[i], eax=Buffer[j] mov  [ecx+esi],eax ; Buffer[i]=Buffer[j]

Но временные замеры покажут, что на процессорах Pentium команда xchg будет дико тормозить (проигрыш 2-3 раза) и нужно ее бить на части (а-ля риск-процессор).

Цитата

Вопрос: а массив случайных чисел у тебя известен при обратной кодировке?

Он востанавливается по ключу, если он правильный (кот. был при перемешивании) то ДА.

Спасибо Chingachguk будем оптимизировать , а то и без этого программа медленно работает.

Хочется обьяснить... тот кусок кода который я привел меняет местами байты (перемешивает), они уже зашифрованы и для большей уверености (и солидности), надо перемешать (зависит от буфера случ.чисел).

Например: 243, 118, 96, 8, 71, 12, 203, 25 ,стало => 96, 12, 118, 203, 71, 243, 25, 8

PS сколько ответов, просто приятно

Цитата(neutrino @ 26.5.2003, 10:54)

xor  si, si mov  cx, n next: mov  al, a[si] ror al, 1 mov  a[si], al loop  next

Почти в точку , я его подлатаю в одном месте и будет он ВАРИАНТ №2

PS Сразу не понял

Это сообщение отредактировал(а) Monty - 26.5.2003, 14:09

Одно ясно, мой алгоритм перемешивания не обратим
Кто может дать полезную ссылку? для ВАРИАНТА №3
DES тоже умеет перемешивать?! только он перемешивает биты , но это не беда, подправим.
А где почитать незнаю

Вот послушай:
1) берем массив и делаем ротацию н-1 раз с первого до последнего символа
2) ротацию н-2 раз со второго символа
3) и так далее

Очень легко восстановить обратно, а чтобы запаристей было можно рандомизировать количество ротаций на каждой стадии и запомнить ети числа. После чего набор таких чисел будет паролем для расшифровки.

Спасибо neutrino, я все ни как ненайду время, чтоб на большом листе нарисовать как мой алг. перемешивает, чтоб написать обратный ему алг.

ЗЫ все уже зашифрованно ;)