@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