ADFGVX cipher: Difference between revisions
J
No edit summary |
(J) |
||
Line 360:
Decrypted : ATTACKAT1200AM
</pre>
=={{header|J}}==
Implementation:<lang J>polybius=: {{6 6$8 u:({~?~&#)(48+i.10),65+i.26}}
lenword=: {{ ;({~ ?@#)(#~ (-:~.)@>)(#~ y=#@>)cutLF fread'unixdict.txt'}}
ADFGVX=: {{ deb,' ',.n/:~|:(-#n)]\'ADFGVX'{~,($m)#:(,m)i.y([-.-.),m }}
XVGFDA=: {{ (,m){~($m)#.'ADFGVX'i._2]\deb,|:(>cut y)/:/:n }}</lang>
Example:<lang J> echo W=: lenword 9
roughcast
echo P=: polybius ''
PV5M6Q
KR0391
4ZS7LA
FUT28E
GXOBYW
ICJDNH
echo E=: P ADFGVX W 'ATTACKAT1200AM'
FFF FGF FFF GXD XDG FDGG XDX XXA GAD
echo D=: P XVGFDA W E
ATTACKAT1200AM</lang>
=={{header|Julia}}==
| |||