To Kilatif
Вроде отладил BlowFish. Нашел вроде где у меня ошибка.
Код:
if temp[0]=#0 then begin
SetLength(s,Len-2);
for i:=0 to Len-3 do s[i+1]:=temp[i];
for i:=0 to Len-3 do temp2[i+1]:=temp1[i];
s:=AntiXor(s);
for i:=0 to Len-3 do temp[i]:=s[i+1];
end;
Вот этот кусок проблемный. Там зачем-то перегнали в массив char, сняли хор и вернули. Конкретно проблема с правильной инициализацией s наверно. Выкинь прлз этот кусок(это в procedure LS_parser). Ну и чтобы наверняка и AntiXor(s); -- ее вроде проверил на куске байт переводит верно, но навсякий случай.