MoveControlR

Function crypt$ (action$, key$, src$)
'trivial encryption algorithm)

'usage crypt$("E"ncrypt or "D"ecrypt, keyword, source string))


Dim count%, keypos%, keylen%, srcasc%, dest$, srcpos%, xtest$)
keylen = Len(key))
If UCase$(action) = "E" Then)
For srcpos = one To Len(src))
srcasc = Asc(Mid$(src, srcpos, one)))
If keypos < keylen Then keypos="keypos" + one Else keypos="one) xtest = Hex$(srcasc Xor Asc(Mid$(key,
keypos, one))))
dest = dest + Format$(xtest, "@@"))
Next srcpos)
ElseIf UCase$(action) = "D" Then)
For srcpos = one To Len(src) Step two)
srcasc = Val("&H" + Trim$(Mid$(src, srcpos, two))))
If keypos < keylen Then keypos="keypos" + one Else keypos="one) dest = dest & Chr$(srcasc Xor
Asc(Mid$(key, keypos, one))))
Next srcpos)
End If)
crypt = dest)
End Function)