Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
PerlMonks  

New Package Crypt::1337

by suaveant (Parson)
on Sep 20, 2001 at 23:39 UTC ( #113684=CUFP: print w/ replies, xml ) Need Help??

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...
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; }
and for an example script....
use Crypt::1337; my $enc = to_1337("This is a test, later\n"); print $enc; my $unenc = from_leet($enc); print $unenc;
Enjoy your 1337 h4ckin9.

This is, of course, a joke... :)

                - Ant
                - Some of my best work - Fish Dinner

Comment on New Package Crypt::1337
Select or Download Code
Re: New Package Crypt::1337
by Anonymous Monk on Sep 30, 2001 at 19:21 UTC
    Hmm... have just seen this and it is quite similar to a script I created... except mine is better =) http://www.neozuki.f2s/leetaliser/index.htm I will post the (sloppy) code if you so desire
      Hehe, mine could have been much better, but I just wrote it in 15 minutes as a joke...

                      - Ant
                      - Some of my best work - Fish Dinner

      Resistance is futile - Maverin

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: CUFP [id://113684]
Approved by root
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (7)
As of 2014-08-01 12:22 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Who would be the most fun to work for?















    Results (12 votes), past polls