Rosetta Code

Bifid cipher: Difference between revisions

Page Discussion

Bifid cipher (view source)

Revision as of 10:52, 12 February 2024

56 bytes removed ,  3 months ago
m
no edit summary
No edit summary
mNo edit summary
Line 718:
=={{header|FutureBasic}}==
<syntaxhighlight lang="futurebasic">
clear local fn recode( ut as CFStringRef, code as CFStringRef ) as CFStringRef
CFStringRef s = @""
Short i, k, w = sqr( len( code ) )
for i = 0 to len( ut ) - 1 step 2
k = intval( mid( ut, i, 2 ) ) // Get ‘coordinates’ of char in code string
k = w * ( k / 10 ) + k mod 10
s = fn StringByAppendingString( s, mid( code, k, 1 ) )
Line 732:
//
 
clear local fn encode( ts as CFStringRef, code as CFStringRef ) as CFStringRef
CFStringRef a = @"", b = @"", c
CFMutableStringRef s = fn MutableStringWithString( t )
Short i, k, w = sqr( len( code ) )
if w == 5 then MutableStringReplaceAllOccurrencesOfStrings = fn StringByReplacingOccurrencesOfString( s, @"J", @"I" )
print s
Aarde
60

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/355675"