xkor, привет а как работает этот кусок кода? А то на php хочу переписать а Delphi плохо знаю, я так думаю тут какие то махинации с указателями...
Код:
for i := 0 to (len div 8)-1 do begin
Move(PBlock(@data)^[i*8],DBuff,8);
DecodeBlock(DBuff);
Move(DBuff,PBlock(@data)^[i*8],8);
end;