Substitution cipher: Difference between revisions

m
(Added Easylang)
Line 1,057:
=={{header|EasyLang}}==
<syntaxhighlight>
alpha$[] = strchars "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
key$[] = strchars "VsciBjedgrzyHalvXZKtUPumGfIwJxqOCFRApnDhQWobLkESYMTN"
#
proc subst in$ . out$ a$[] b$[] .
out$ = ""
for c$ in strchars in$
forp i= to lenstrpos a$[] c$
if a$[i]p => c$0
outc$ &= substr b$[i] p 1
break 1
.
.
if i > len a$[]
out$ &= c$
.
out$ &= .c$
.
.
func$ enc s$ .
subst s$ r$ alpha$[] key$[]
return r$
.
func$ dec s$ .
subst s$ r$ key$[] alpha$[]
return r$
.
2,063

edits