or download this
#!/usr/bin/perl
@;=map{++$$_}split//,"csbvpbnkdwqnvglnhvpklprwybicortxipbdueuspgvnbofp
+xgvttsasqx
...
bjkkcdgvwepdmfkvggktcpqobjqaqtlpsvuljjijsqgfcl";sub ::{print@_};sub _{
+my($a,$b);
for(map{pop@;}1..8){$b+=$_*$^F**$a++;}$b%256}push @,,&_ while@;;
@;='a'..'z',map{chr$_}@,,:: map{chr$$_}@;;print;