We don't bite newbies here... much PerlMonks

### Playfair cipher

by chargrill (Parson)
 on Jun 09, 2006 at 01:59 UTC Need Help??

```\$_=q|P"\e[2J\n";SQw{my\$s;select\$s,\$s,\$s,H}SQc{P"\e[12;1f\n"}(\$_=pop)?o
+pen+DAT
A,\$_:\$@;\$k=N"",MQuc,grep/[a-z]/,M\$.{\$_}++or\$_,\$0=~/\w/g;@s=(\$k=~/./g,g
+rep/[^J
...
Vigenere cipher systems then in use. The Playfair is thus significantl
+y harder
to break since the frequency analysis used for simple substitution cip
+hers
does not work with it.
```
```\$,=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[\$%++]}
```

Create A New User
Node Status?
node history
Node Type: obfuscated [id://554404]
Approved by Tanktalus
Front-paged by liverpole
help
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (3)
As of 2018-06-21 18:53 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
Should cpanminus be part of the standard Perl release?

Results (118 votes). Check out past polls.

Notices?