perlのpackを使ってascii/binary 変換

• https://gist.github.com/2716377

$ perl -ne 'print unpack("H*", $_)' < ascii > binary
$ perl -ne 'print pack("H*", $_)'   < binary > ascii

perl便利ですね。別にB-CASをクラックしようとかそういうこと考えてるわけではないです。