#!/usr/bin/perl -s
sub F{$u=0;grep$u|=$S[$_][$_[0]>>$_*4&15]<<$_*4,reverse 0..7;$u<<11|$u>>21}sub R
{int$_[0]*rand}sub N{vec$_[0],$_[1]/4,32}$e=join'',<>;@b=@t=0..15;for(;$i<length
$p;$i+=4){srand($s^=N$p,$i)}while($c<8){grep{push@b,splice@b,R(9),5}@t;$R[$c]=R(
2**32);@{$S[$c++]}=@b}@h=0..7;@o=reverse@h;while($a<length$e){$v=N$e,$a;$w=N$e,(
$a+=8)-4;grep$q++%2?$v^=F$w+$K[$_]:($w^=F$v+$K[$_]) ,$d?(@h,(@o)x3):((@h)x3,@o);
$_.=pack N2,$w,$v}print