I can well assume it's all been done before, but here it goes anyway. Little ode to Monty Python.

@in=split('','Mr. Throatwobbler Mangrove');
@key=(22,65,63,64,12,45,58,59,64,52,49,62,12,28,49,62,56,12,52,45,47,5
+5,49,62,-8,12);
$_=crypt($_,$key[$c++]),s/.{11}$//,$v.=chr($_+52) foreach(@in);
print "$_ " foreach (split'@',$v);
[download]