Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

zek152's scratchpad

by zek152 (Pilgrim)
on Jun 14, 2010 at 15:30 UTC ( #844636=scratchpad: print w/ replies, xml ) Need Help??

Excerpt from HOP sub tokens { my $target = shift; return sub { TOKEN: { return ['INTEGER', $1] if $target = /\G (\d+) /gcx; return ['PRINT'] if $target = /\G print \b /gcx; return ['IDENTIFIER', $1] if $target = /\G ([A-Za-z_]\w*) /gcx; return ['OPERATOR', $1] if $target = /\G (\*\*) /gcx; return ['OPERATOR', $1] if $target = /\G ([-+*\/=()])/gcx; return ['TERMINATOR', $1] if $target = /\G (; \n* | \n+) /gcx; redo TOKEN if $target = /\G \s+ /gcx; return ['UNKNOWN', $1] if $target = /\G (.) /gcx; return; } }; } ----------------------------------------------------- cipher text 1 ciphertxt2 ciphertxt3 | | | +-------------+ +----------+ +---- | | | | | key--decryption | decrypt | decrypt | | | | | -------X +--X +----------X | | | plaintext 1 plntxt2 plntxt3

If you modify cipher text 1 it is obvious that plaintext 1 will change. Plaintext 2 will also change because of the XOR with ciphertext 1 (following the decryption). Ciphertext 2 is not different though (nor is ciphertext3) so plaintext 3 will not be different.

Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (6)
As of 2014-09-20 06:51 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (155 votes), past polls