proste tłumaczenie z Delphi

witam, czy ktoś mógłby mi przetłumaczyć na C++ prosty fragemnt kodu:

[code]repeat
plik.Read(bufor, 1);
for p := 1 to iloscLiczb do
begin
bufor := bufor xor Klucze[p];
end;
plikDocelowy.Write(bufor, 1);
until plik.Size = plik.Position;
[/code]
gdzie Klucze to tablica przechowująca iloscLiczb liczb typu byte, a plik i plikDocelowy to TFileStream, aha i bufor jest także typu byte.

jestem początkujący i pogubiłem sie we wskaźnikach albo pomyliłem operator XOR-owania (użyłem %, później ^ i nie działało za dobrze:(). Z góry dzięki za wszelką pomoc w postaci gotowego kodu lub wskazówek naprowadzających na rozwiązanie problemu:D

xorowanie będzie chyba:

bufor^=Klucze[p];

Rozumiem, że plik i plikDocelowy to TFileStream.

do
{ plik->Read(bufor, 1);
  for(int p=0; p<iloscLiczb; p++)
    bufor^=Klucze[p];
  plikDocelowy->Write(bufor, 1);
} while (plik->Position < plik->Size)

ok, wszystko działa:) dzięki za pomoc!