$q=[$"=>($_=a)..~$_];unshift@$q,{map{(crypt$_,$_)^q;Qq;,$_|| 1}0..$#$q};print@$q{unpack(q,a13,x4,$_)}while<DATA>;__DATA__ `@aU9op2K293YcC91djyxf0U0scAWFHSNL3QpQAc@mJ/VWxpw1EIszDUTa1` `@AZUe1jIBw9ocCiAhcOQ..whI`Dm1.7uqQHOM6`GDcygiyPRZks$NS&R2A` c@mJ/VWxpw1EIhHsydB1ObzXU.gGlb40.Qrvl8o`H0KzTADrArIgIuvr02}? `@AZUe1jIBw9o`FsMrwIqWVJ0cgGlb40.Qrvl8o`H0KzTADrArIg!6;WtJN` `BoGyiRvs8GLo`@AZUe1jIBw9ohHsydB1ObzXU.cCiAhcOQ..whI_*7[j\]` eEjRE8Xst.2OU`CwGUVd8lAOJYgGlb40.Qrvl8o`H0KzTADrArIgG$N)64d8
|
|---|