Кодирование буфера [D7, WinXP]
WandR © (2005-11-30 21:43:00)
Задача переделать функции кодирования и декодирования
алгоритма rc6 для обработки буфера(заранее неизвестно что у меня
будет), и потом записать результат в stream.
В rc6 кодируется блоками по 16 байт, мне нужно из буфера
поочередно брать 16 байт и кодировать но как это сделать?? Я
пробовал Move(SourseBuffer,Buffer, BlockSize); но это явно не то…
Код:
function EncryptBuffer(DestStream: TStream; const
SourseBuffer;
Count: Longint; Key: string): Boolean;
var
Buffer : TRC6Block;
PrCount : Int64;
AddCount : Byte;
begin
Result := True;
try
if Key = '' then
begin
DestStream.WriteBuffer(SourseBuffer, Count);
Exit;
end;
Initialize(Key);
CalculateSubKeys;
PrCount := 0;
while Count - PrCount >= BlockSize do
begin
Move(SourseBuffer,Buffer, BlockSize);
EncipherBlock(Buffer);
DestStream.Write(Buffer, BlockSize);
Inc(PrCount, BlockSize);
end;
AddCount := Count - PrCount;
if Count - PrCount <> 0 then
begin
DestStream.Write(SourseBuffer, AddCount);
end;
except
Result := False;
end;
end;
WandR (2005-12-01 10:00:00) [1]
???
Наверх 
ЧАТ |
Орешник |
|
