Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re: Playfair cipher

by wulvrine (Friar)
on Jun 09, 2006 at 14:41 UTC ( [id://554509]=note: print w/replies, xml ) Need Help??


in reply to Playfair cipher

Wow great job ++!
Of course you are not 'playing fair' either because -MO=Deparse didn't help me a bit (nice!).
I was suprised at the output. I guess I was expecting to seeing encrypted data being massaged into unencrypted data even though it was stated that the output was encrypted. I think that was because of looking at too many obfu's and seeing encrypted data printing something you didn't expect. Perhaps this could be a next step?
The screen updates during the encryption were cool. Definitely a marvel.

Hell of a job!

s&&VALKYRIE &&& print $_^q|!4 =+;' *|

Replies are listed 'Best First'.
Re^2: Playfair cipher
by chargrill (Parson) on Jun 09, 2006 at 16:37 UTC

    Thanks :)

    Unfortunately, as stated in the first paragraph, or perhaps in the __DATA__ section, this will be a tougher nut to crack than something like the vigenere cipher. Also unlike my obfuscated vigenere, I didn't wait to post this one until I had a Playfair cracker mostly ready to go... but I'm definitely planning on writing a playfair cracker, unless someone beats me to it ;)



    --chargrill
    $,=42;for(34,0,-3,9,-11,11,-17,7,-5){$*.=pack'c'=>$,+=$_}for(reverse s +plit//=>$* ){$%++?$ %%2?push@C,$_,$":push@c,$_,$":(push@C,$_,$")&&push@c,$"}$C[$# +C]=$/;($#C >$#c)?($ c=\@C)&&($ C=\@c):($ c=\@c)&&($C=\@C);$%=$|;for(@$c){print$_^ +$$C[$%++]}

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others sharing their wisdom with the Monastery: (9)
As of 2024-03-28 12:24 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found