[flesher]

Добрый день товарищи. Возник вопрос по шифрованию данных.
есть код на языке С++ наверно.

for (var i = 0; i < count; i++)
{
outBuffer[i] = keyHashBuffer[i % 8] ^ inBuffer[i];
}
Где операция ^ - операция XOR.

как этот код сделать для delphi?
Понятно что здесь цикл и можно написать как,

Код:

//keyHashBuffer - содержит 8 байтов//array of byte
var
inBuffer,outBuffer,keyHashBuffer:array of byte;
begin
for i:=1 to length(inbuffer)-1 do begin
outbuffer[i]:=(немогу разобраться) xor inBuffer[i];
end;
end;

Админ: Пользуемся тегами дяя оформления кода!

[poli-smen]

Сообщение от flesher

Добрый день товарищи. Возник вопрос по шифрованию данных.
есть код на языке С++ наверно.

for (var i = 0; i < count; i++)
{
outBuffer[i] = keyHashBuffer[i % 8] ^ inBuffer[i];
}
Где операция ^ - операция XOR.

как этот код сделать для delphi?
Понятно что здесь цикл и можно написать как,
//keyHashBuffer - содержит 8 байтов//array of byte
var
inBuffer,outBuffer,keyHashBuffer:array of byte;
begin
for i:=1 to length(inbuffer)-1 do begin
outbuffer[i]:=(немогу разобраться) xor inBuffer[i];
end;
end;

Знак процента в Си означает взятие остатка от деления, поэтому:

Код:

outBuffer[i] := keyHashBuffer[i mod 8] xor inBuffer[i];