$/=\1;while(<>){$c=($c<<1)+($c>>31)+($.>>2==3?0:ord)}printf"%x",$c