Gossamer Forum: General: Perl Programming: Re: [cK] Simple 'crypt' / 'decrypt': Edit Log

Gossamer Threads

Home : General : Perl Programming :

General: Perl Programming: Re: [cK] Simple 'crypt' / 'decrypt': Edit Log

Here is the list of edits for this post

May 31, 2002, 11:34 AM

Paul

Veteran (19537 posts)

May 31, 2002, 11:34 AM

Re: [cK] Simple 'crypt' / 'decrypt'

Code:
#!/usr/bin/perl 

my $referer = 'www.foo.com'; 
my $crypt; 
my $decrypt; 

$crypt   = join("\\", map { ord } (split //, $referer)); 
$decrypt = join("",   map { chr } (split /\\/, $crypt)); 

print "Content-type: text/html\n\n";  
print "$crypt => $decrypt";

Last edited by:

Paul: May 31, 2002, 11:39 AM

Edit Log:

Post edited by Paul Post edited by Paul (Veteran) on May 31, 2002, 11:35 AM
Post edited by Paul Post edited by Paul (Veteran) on May 31, 2002, 11:35 AM
Post edited by Paul Post edited by Paul (Veteran) on May 31, 2002, 11:35 AM
Post edited by Paul Post edited by Paul (Veteran) on May 31, 2002, 11:36 AM
Post edited by Paul Post edited by Paul (Veteran) on May 31, 2002, 11:36 AM
Post edited by Paul Post edited by Paul (Veteran) on May 31, 2002, 11:36 AM
Post edited by Paul Post edited by Paul (Veteran) on May 31, 2002, 11:36 AM
Post edited by Paul Post edited by Paul (Veteran) on May 31, 2002, 11:37 AM
Post edited by Paul Post edited by Paul (Veteran) on May 31, 2002, 11:37 AM
Post edited by Paul Post edited by Paul (Veteran) on May 31, 2002, 11:37 AM
Post edited by Paul Post edited by Paul (Veteran) on May 31, 2002, 11:38 AM
Post edited by Paul Post edited by Paul (Veteran) on May 31, 2002, 11:39 AM

Gossamer Threads is a Vancouver-based company with over 28 years experience in web technology. From development to hosting, we partner with leading organizations around the globe and help to build their web presences, strategies and infrastructures.

Let’s talk: 1-877-715-7676