User talk:雨宮鏡心

#!/bin/perl -sp0777i&lt;X+d*lMLa^*lN%0]dsXx++lMlN/dsM0&lt;j]dsj $/ = unpack ( 'H*', $_ ); $_ = `echo 16dio\U$k"SK$/SM$n\EsN0p[lN*1   lK[d2%Sa2/d0$^Ixp"|dc` ; s/\W//g ; $_ = pack ( 'H*' , /((..)*)$/ )