Bifid cipher: Difference between revisions
m
no edit summary
No edit summary |
mNo edit summary |
||
Line 718:
=={{header|FutureBasic}}==
<syntaxhighlight lang="futurebasic">
clear local fn recode(
CFStringRef s = @""
Short i, k, w = sqr( len( code ) )
for i = 0 to len(
k = intval( mid(
k = w * ( k / 10 ) + k mod 10
s = fn StringByAppendingString( s, mid( code, k, 1 ) )
Line 732:
//
clear local fn encode(
CFStringRef a = @"", b = @"", c
Short i, k, w = sqr( len( code ) )
if w == 5 then
print s
|