With much hard work I have come up with a new package...
Crypt::1337, I feel it is my duty to give back to the community and what better than a new form of encryption only idiots could use? Now, keep in mind this is an alpha version, and does lose a bit of formatting... but returns messages in readble format...
and for an example script....package Crypt::1337; use base Exporter; @EXPORT = qw(to_1337 from_leet); sub to_1337 { my($str) = lc $_[0]; $str =~ s/\bto\b/2/g; $str =~ s/ate/8/g; $str =~ tr/letasbgo/13745690/; $str; }; sub from_leet { @str = split /(\s+)/, lc $_[0]; for (@str) { next if /\s/; $_ = 'to' if $_ == 2; $_ = 'a' if $_ == 4; next if(/^\d+$/ && $_ !~ /3?1337/); s/8/ate/g; s/8/to/g; tr/13745690/letasbgo/; } join '', @str; }
Enjoy your 1337 h4ckin9.use Crypt::1337; my $enc = to_1337("This is a test, later\n"); print $enc; my $unenc = from_leet($enc); print $unenc;
This is, of course, a joke... :)
- Ant
- Some of my best work - Fish Dinner
Back to
Cool Uses for Perl