Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Hex String XOR

by alanonymous (Sexton)
on Mar 12, 2012 at 08:22 UTC ( #959080=perlquestion: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
        my @ar = $t1 =~ /(..)/g;
        $foo->delete("1.0","end");
        foreach (@ar) {
            $foo->insert("1.0",chr(pack("H*",$_)));
    
        }
    
  2. or download this
    $txt3->delete("1.0","end");
        my $hexor = unpack('h*',pack('h*',$t1) ^ pack('h*',$t2));
        $txt3->insert("1.0",$hexor);
    
  3. or download this
    my $hhh = unpack('h*',pack('h*',"20") ^ pack('h*',"61")); #xor ' ' and
    + 'a' should result in 'A'
        print unpack('h*',$hhh);
    
  4. or download this
    sub parse () {
    
        my $t1 = $txt1->Contents();
    ...
            }
        }
    }
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://959080]
Approved by Corion
Front-paged by Corion
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (7)
As of 2014-07-12 15:10 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    When choosing user names for websites, I prefer to use:








    Results (240 votes), past polls