Показать сообщение отдельно
  #1  
Старый 03.06.2013, 23:43
flesher flesher вне форума
Прохожий
 
Регистрация: 03.06.2013
Сообщения: 1
Версия Delphi: rad studio xe3
Репутация: 10
По умолчанию Помогите разобраться с кодом

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

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;
Админ: Пользуемся тегами дяя оформления кода!
Ответить с цитированием