bitcasa for linux のページの perl

gistfile1.py

https://www.bitcasa.com/download-linux

    perl -e '$h="5261776264206775722076617376617667722065726663626166766879642";
    $h=~y/48/cf/;$_=pack("H*","${h}e0a");@a=split//,"/-35753=?=357"x2;
    s.([a-zA-Z]).ord$1<97?uc($1^$a[ord($1)-65]):lc($1^$a[ord($1)-97]).ge;print'

は、

#!/bin/env python
import binascii

h = "526177626c206775722076617376617667722065726663626166766f796c2"
h.replace( '4', 'c' )
h.replace( '8', 'f' )
h += 'e0a'
h = binascii.unhexlify( h )
print h.decode('rot13')