問題 #2 - 回答 #112

Base32

RFC 4648 で定義された Base32 エンコーディングを実装してください。 標準入力から与えられる各行に対し、Base32 エンコードをおこなった文字列を標準出力へ改行区切りで出力してください。 なお、アルファベットの出力には大文字を用いてください。

回答 #112

basi が 2024-03-09 01:48:59 に投稿

コード

315 byte

$a=join(range('A','Z')).'234567';while($l=fgets(STDIN)){$l=rtrim($l);$b='';for($i=0;$i<strlen($l);$i++)$b.=str_pad(base_convert(strval(ord($l[$i])),10,2),8,'0',STR_PAD_LEFT);$p='';foreach(str_split($b,5)as$z)$p.=$a[base_convert(str_pad($z,5,'0'),2,10)];$p.=str_repeat('=',max(0,(8-strlen($b)%8)%8*3/8));echo$p,'
';}

実行結果

NBXWOZI
OBUXS3Y
MZ2WOYI

4OAYNY4BRPRYFCXDQGX6HAMS
4OA2VY4BRTRYFCPDQGDOHAMX
4OBI7Y4BTHRYFCPDQKBOHANB

GEZDGNBVGY3Q
GEZA
GEZDGNBVGY3TQOJQ
GEZDGNBVGY3TQ
GEZDG
GEZDGNBV
GEZDGNBVGY3TQOI
GEZDGNA
GE
GEZDGNBVGY

MEQGEIDD
EAQOHAMC4OAYIIHDQGDCBY4BRAQOHAMK