EncodeBase64

var //AION(アイオン) WIKI
Times, LenSrc, j: Integer;
x1, x2, x3, x4: Char;
xt: Byte;
begin
Result := '';
LenSrc := Length(Source);

if (LenSrc mod 3 = 0) then Times := LenSrc div 3 else Times := LenSrc div 3 + 1;

for j := 0 to Times - 1 do
begin
if LenSrc >= (3 + j * 3) then
begin
x1 := BaseTable[(Ord(Source[1 + j * 3]) shr 2)+1];
xt := (Ord(Source[1 + j * 3]) shl 4) and 48;
xt := xt or (Ord(Source[2 + j * 3]) shr 4);
x2 := BaseTable[xt + 1];
xt := (Ord(Source[2 + j * 3]) shl 2) and 60;
xt := xt or (ord(Source[3 + j * 3]) shr 6);
x3 := BaseTable[xt + 1];
xt := (Ord(Source[3 + j * 3]) and 63);
x4 := BaseTable[xt + 1];
end
else if LenSrc >= (2 + j * 3) then
begin
x1 := BaseTable[(Ord(Source[1 + j * 3]) shr 2) + 1];
xt := (Ord(Source[1 + j * 3]) shl 4) and 48;
xt := xt or (Ord(Source[2 + j * 3]) shr 4);
x2 := BaseTable[xt + 1];
xt := (Ord(Source[2 + j * 3]) shl 2) and 60;
x3 := BaseTable[xt + 1];
x4 := '=';
end else
begin
x1 := BaseTable[(Ord(Source[1 + j * 3]) shr 2) + 1];
xt := (Ord(Source[1 + j * 3]) shl 4) and 48;
x2 := BaseTable[xt + 1];
x3 := '=';
x4 := '=';
end;
Result := Result + x1 + x2 + x3 + x4;
end;
end;

カウントダウン

あ????ちなみにこのブログでは情報などは殆ど載せませんのでｗｗ（そういう類の物は公式サイトや前作をやった事のある先輩方のブログに書いてると思うのでそちらを参考に??（*′ー`) AION(アイオン) ＲＭＴ rmt）
基本的にみんながやっアイオン(AION) 掲示板 rmtてる事はやらなくてもいいや??とAION シエル RMTいう考え方の人間なので（面倒くさがり？）ここではあくまで日記という形でみんなとコミュニケーションをとれればいいかなと?そのうちゲームにもなれてやり込んできたら自分なりの情報をブログに載せたいと思うのでそれまでは他の皆様のブログやサイトから必死にお勉強している次第であります
((φ(アイオン(AION) rmt．．。aion rmt)
ところで???AION イズラフェル RMT rmtブログを通じていろんな方とお話することが出来てるわけですが覇天会????多すぎねｗ？なんか聞く人聞く人みんな覇天会でやる感じがするのですが??（たまたま？）確かに私も最後まで覇天会と魔天衆で悩みましたがｗ（聖天派やる方々?????????）