Перевод с Паскаля на С++

[MrJenika]

граждане программисты, так как я к сожалению не знаю паскаль. то прошу вас перевести ниже приведённый код на С++.

/*Либо если у кого-то есть то прошу выложить исходник программы которая переводит десятичные числа в восьмеричные (на форуме искал, похожих много, даже нашёл то что давно искал, но того чего сейчас надо к сожалению нет)*/

Функция переводит из десятичной(обычной) системы счисления в восьмеричную.
DECIMAL -> OCTAL

FUNCTION DEC2OCT(DEC: LONGINT): STRING;

CONST
OCTDigts: STRING[8] = '01234567';

VAR
OCT : STRING;
I, J: LONGINT;

BEGIN
IF DEC = 0 THEN OCT := '0'
ELSE
BEGIN
OCT := '';
I := 0;
WHILE (1 SHL ((I + 1) * 3)) <=DEC DO I := I + 1;
{ 8^N = 2^(N * 3) }
{ (1 SHL (I + 1)) = 8^(I + 1) }
FOR J := 0 TO I DO
BEGIN
OCT := OCT + OCTDigts[(DEC SHR ((I - J) * 3)) + 1];
{ (DEC SHR ((I - J) * 3)) = DEC DIV 8^(I - J) }
DEC := DEC AND ((1 SHL ((I - J) * 3)) - 1);
{ DEC AND ((1 SHL ((I - J) * 3)) - 1) = DEC MOD 8^(I - J) }
END;
END;
DEC2OCT := OCT;
END;

[netrino]

std::string dec2oct(long int dec)
{
	const char* OCTDigts = "01234567";
	std::string oct;
	long int    i, j;

	if(dec == 0)
		oct = '0';
	else {
		i = 0;
		while( (1 << ((i+1)*3)) <= dec )
			i++;
		for(j = 0; j <= i; j++) {
			oct += OCTDigts[dec >> ((i-j)*3)];
			dec &= ((1 << ((i-j)*3))-1);
		}
	}

	return oct;
}

[MrJenika]

Спасибо большое!