user function arc4_exemplo
local cRet
local cOriginal
// resultado ASCII em hex: "55-AB-39-45-24"
cRet = arc4( "abcde" ,"123456789")
conout("Criptografado em ascii = " + cRet)
// converte de ASCII em hex para string
cRet = chr(CTON('55', 16))
cRet += chr(CTON('AB', 16))
cRet += chr(CTON('39', 16))
cRet += chr(CTON('45', 16))
cRet += chr(CTON('24', 16))
// processo inverso
cOriginal = arc4(cRet, "123456789")
conout("Original em ascii = " + cOriginal)
// converte de ASCII em hex para string
cRet = chr(CTON('61', 16))
cRet += chr(CTON('62', 16))
cRet += chr(CTON('63', 16))
cRet += chr(CTON('64', 16))
cRet += chr(CTON('65', 16))
conout ("String original = " + cRet)
return
Abrangência