帮忙翻译一下 Object Pascal -> C++(50分)

这是一个俺用Delphi写的Base64编码的类
那位大虾帮忙翻译成 C++， 谢了先 50大洋献上
//-----------------------------------------------
TBase64 = Class(TObject)
private
FOStream: TStream;
FIStream: TStream;
Public
{ 输入流 }
Property IStream : TStream Read FIStream Write FIStream;
{ 输出流 }
Property OStream : TStream Read FOStream Write FOStream;
{ 编码 }
Function Encode : Boolean;
{ 解码 }
Function Decode : Boolean;
end;

implementation
const
SBase64 : string = '23456789ABCDEFGHJKLMNPQRSTUVWXYZabcdefghijkmnopqrstuvwxyz~#%&*+-';
UnBase64: array[0..255] of byte =
(128,128,128,128,128,128,128,128, 128,128,128,128,128,128,128,128, //0-15
128,128,128,128,128,128,128,128, 128,128,128,128,128,128,128,128, //16-31
128,128,128, 58,128, 59, 60,128, 128,128, 61, 62,128, 63,128,128, //32-47
128,128, 0, 1, 2, 3, 4, 5, 6, 7,128,128,128,128,128,128, //48-63
128, 8, 9, 10, 11, 12, 13, 14, 15,128, 16, 17, 18, 19, 20,128, //64-79
21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,128,128,128,128,128, //80-95
128, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42,128, 43, 44, 45, //96-111
46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56,128,128,128, 57,128, //112-127
128,128,128,128,128,128,128,128, 128,128,128,128,128,128,128,128, //128-143
128,128,128,128,128,128,128,128, 128,128,128,128,128,128,128,128, //128-143
128,128,128,128,128,128,128,128, 128,128,128,128,128,128,128,128, //144-159
128,128,128,128,128,128,128,128, 128,128,128,128,128,128,128,128, //160-175
128,128,128,128,128,128,128,128, 128,128,128,128,128,128,128,128, //176-191
128,128,128,128,128,128,128,128, 128,128,128,128,128,128,128,128, //192-207
128,128,128,128,128,128,128,128, 128,128,128,128,128,128,128,128, //208-223
128,128,128,128,128,128,128,128, 128,128,128,128,128,128,128,128, //224-239
128,128,128,128,128,128,128,128, 128,128,128,128,128,128,128,128);
//240-255
{ TBase64 }
function TBase64.Decode: Boolean;
var
j, k: integer;
b: byte;
W, Tmp : Byte; //用于阅读流的临时变量
begin
Result := FALSE;
If (FIStream <> Nil) And (FOStream <> Nil) then
begin
{ 初始化}
IStream.Position := 0;
OStream.Position := 0;
b := 0;
j := 0;
K := 2;
while (IStream.Position < IStream.Size) And (IStream.Read(Tmp, 1) = 1) And (Char(Tmp) <> '.') do
begin
if j = 0 then
begin
b := UnBase64[Tmp];
k := 2;
end
else
begin
W := UnBase64[Tmp] or ((b shl k) and $C0);
OStream.Write(W, 1);
inc(k,2);
end;
inc(j);
j := j and 3;
end;
end;
end;

function TBase64.Encode: Boolean;
var
SBuffer : Array [1..4] Of Byte;
j, k: integer;
b: byte;
Tmp : Byte; {### 用于阅读流的临时变量 ###}
begin
Result := FALSE;
If (FIStream <> Nil) And (FOStream <> Nil) then
begin
{ 初始化 }
IStream.Position := 0;
OStream.Position := 0;
b := 0;j := 2;
k := 2;
while IStream.Position < IStream.Size do
begin
If IStream.Read(Tmp, 1) = 1 then
begin
b := b or ((Tmp and $C0) shr k);
inc(k, 2);
SBuffer[j] := Byte(SBase64[(Tmp And $3F) + 1]);
inc(j);
if j > 4 then
begin
SBuffer[1] := Byte(SBase64[b + 1]);
b := 0;
j := 2;
k := 2;
OStream.Write(SBuffer, 4);
end;
end;
end;

{ 平整数据到 SBuffer }
if j <> 2 then
begin
SBuffer[j] := Ord('.');
SBuffer[1] := Byte(SBase64[b + 1]);
OStream.Write(SBuffer, j);
end
else
begin
SBuffer[1] := Ord('.');
OStream.Write(SBuffer, 1);
end;
Result := TRUE;
end;
end;
//--------------------------------------------------------------

忘了说了 请用标准C++ ：）

怎么没有人呀 帮帮忙吧

标准c++?
这句怎么办?
Property IStream : TStream Read FIStream Write FIStream;

对，property可不是标准C++的东西。

property 本来就是用 GetXXXXXXx SetXXXXXX 实现的。照方抓药就行了。

不用管那些细节了 只要能给我一个标准C++的类就行了
没有人会么？

>>悲酥清风, WangJiachun：
这个问题我自己搞定啦 请帮我结束掉问题，顺便把分分点给我　：）
　已经有两个问题没有答复只好自己搞定了

多人接受答案了。