#encode(aiueo) perl -e '$n=shift;@k=split("","aiueo");while($n > 0) {$r=$n%5;$n=int($n/5);print$k[$r]};print"\n"' 200607011 #decode(aiueo) perl -e '%h=("a"=>0,"i"=>1,"u"=>2,"e"=>3,"o"=>4);$n=shift; for(reverse split("",$n)){$sum*=5;$sum+=$h{$_}};print"$sum\n"' iuaiioeueuao #encode(16) % perl -e 'printf "%x\n", shift' 20060711 1321a27 #decode(16) % perl -e 'print hex(shift)."\n"' 1321a27 20060711 #encode(8) % perl -e 'printf "%o\n", shift' 20060711 114415047 #decode(8) % perl -e 'print oct(shift)."\n"' 114415047 20060711