If your hard disk will still spin then try Spinrite from grc.com as it may well be able to rescue the data.

I got sick of taking requests for decompiles but what the hell. Email me the scripts and a description of exactly what the code is/does/looks like (enought to show you wrote it) and I will have a look. Also send the compiled version of a known plaintext. A suitable script to compile would be generated by:

perl -e "print 'print qq(', ' ' x 100000, ');'" > known_plaintext.pl
[download]

If you have a webserver put the compiled known_plaintext.pl up on it and advertise the link here so anyone can have a crack ;-) as it were.