Bifid cipher: Difference between revisions
m
→{{header|EasyLang}}
(added RPL) |
|||
Line 644:
<syntaxhighlight>
func$ crypt enc msg$ key$ .
n = len msg$
for i to len msg$
c$ = substr msg$ i 1
h[] &= j div 5
h[] &= j mod 5
Line 660 ⟶ 654:
for i = 1 step 4 to 2 * n - 3
j = h[i] * 5 + h[i + 2] + 1
r$ &= substr key$
.
for i = 2 step 4 to 2 * n - 2
j = h[i] * 5 + h[i + 2] + 1
r$ &= substr key$
.
else
for i = 1 to n
j = h[i] * 5 + h[i + n] + 1
r$ &= substr key$
.
.
| |||