Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

An Useless Cipher

by Oromis92 (Sexton)
on Jul 26, 2009 at 13:47 UTC ( #783328=sourcecode: print w/ replies, xml ) Need Help??

Category: Cryptography
Author/Contact Info Oromis92
Description: bah... something stupid, just for exercise.
#!/usr/bin/perl -w

@A = ( '/', '$', '[', ']', '{', '~', ')', '@', '#', '_', ',', ';', '.'
+, ':' );
@B = ( '+', '-', '%', '?', '}', '<', '>', '(', '!' );
@C = ( 0 .. 9, "A" .. "Z", "a" .. "z", '"', '\'', '&', '|', '*', '^', 
+'=' );

print "> ";
$text = <>;
chomp $text;

@text = map( ord ^ 42, split //, $text );
for $i ( 0 .. $#text ) {
    $text[$i] = 0 . sprintf( '%b', $text[$i] ) while length $text[$i] 
+< 8;
    @bits = split //, $text[$i] ;
    for $j ( 0 .. $#bits ) {
        $bits[$j] =~ s/1/x/;
        $bits[$j] =~ s/0/1/;
        $bits[$j] =~ s/x/0/;
    }
    @bits = split //, ( $bits[4] . $bits[5] . $bits[6] . $bits[7] . $b
+its[0] . $bits[1] . $bits[2] . $bits[3] );
    for $j ( 0 .. $#bits ) {
        $output .= $A[ int( rand(@A) ) ] if $bits[$j] eq "0";
        $output .= $B[ int( rand(@B) ) ] if $bits[$j] eq "1";
        $output .= $C[ int( rand(@C) ) ] if int( rand(100) ) < 42;
    }
}

print "\n$output\n";


Comment on An Useless Cipher
Download Code
Re: An Useless Cipher
by jwkrahn (Monsignor) on Jul 27, 2009 at 10:11 UTC
    for $j ( 0 .. $#bits ) { $bits[$j] =~ s/1/x/; $bits[$j] =~ s/0/1/; $bits[$j] =~ s/x/0/; }

    Or simply:

    tr/01/10/ for @bits;

Back to Code Catacombs

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (8)
As of 2014-10-02 06:38 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    What is your favourite meta-syntactic variable name?














    Results (49 votes), past polls