); if (( @ a = un x " C * ", $_ )[ 2 0 ] & 4 8 ){ $ h ▁= 5 ; $_ = un x b 2 4 , join " ", @ b = map { x B 8 , un x b 8 , chr ($_ ^ $ a [ -- $ h + 8 4 ]) } @ AR GV ; s / ... $ / 1 $ & / ; $ ▁d = un x V , x b 2 5 ,$ _; $ e = 2 5 6 | ( ord $ b [ 4 ]) << 9 | ord $ b [ 3 ]; $ d =$ d >> 8 ^ ($ f =$ t & ($ d >> 1 2 ^ $ d >> 4 ^ ▁$ d ^ $ d / 8 )) << 1 7 ,$ e =$ e >> 8 ^ ($ t & ($ g = ($ q =$ e >> 1 4 & 7 ^ $ e )^ $ q * 8 ^ $ q << 6 )) << 9 ,$ _ =$ t [$ _ ] ^ ▁( ($ h >> = 8 )+ =$ f +( ~$ g & $ t )) for @ a [ 1 2 8 .. $ # a ]} print + x " C * ", @ a } '; s / x / pack + / g ; eval ▁ ▁The ▁fast ▁version ▁is ▁actually ▁fast ▁enough ▁to