Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

RE: Cheesy Encryption

by Anonymous Monk
on Jun 15, 2000 at 23:32 UTC ( #18372=note: print w/ replies, xml ) Need Help??


in reply to Cheesy Encryption

Another way to do it:

#!/usr/bin/perl -sp
BEGIN {
        if ($h) {
                print <<"USAGE";
Usage: caesar: $0 -c filename
        rot13: $0 filename
USAGE
                exit;
        }
}
 
if( $c ) {
        tr/A-Za-z/D-ZA-Cd-za-c/;
} else {
        tr/A-Za-z/N-ZA-Mn-za-m/;
}


Comment on RE: Cheesy Encryption
Re: RE: Cheesy Encryption
by phenom (Chaplain) on Dec 31, 2003 at 18:41 UTC
    how about this? offers 3-way "encryption"...
    #!/usr/bin/perl use warnings; use strict; use Getopt::Std; my %opt; usage() unless (getopts('rRcCaA', \%opt)); usage() unless @ARGV; if($opt{'r'} || $opt{'R'}) { while(<>) { tr/a-zA-Z/n-za-mN-ZA-M/; print; } } elsif($opt{'c'}) { while(<>) { tr/a-zA-Z/d-za-cD-ZA-C/; print; } } elsif($opt{'C'}) { while(<>) { tr/d-za-cD-ZA-C/a-zA-Z/; print; } } elsif($opt{'a'}) { while(my $line = <>) { @_ = split//, $line; map { print ord($_), " "; } @_; print "\n"; } } elsif($opt{'A'}) { while(my $line = <>) { @_ = split/ /, $line; map { print chr($_); } @_; print "\n"; } } sub usage { print << "__END__"; -c = encrypt with Caesar encryption -C = decrypt from Caesar encryption -r = encrypt with rot13 -R = decrypt from rot13 -a = encrypt to numerical equivalent -A = decrypt back to ASCII example using files: perl $0 -r plain.txt perl $0 -C encrypted.txt example using STDIN: perl $0 -r <ENTER, type text> __END__ exit 1; }

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (3)
As of 2015-07-03 23:26 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (57 votes), past polls