Exemplo de Cryptografia e Descryptografia

//Exemplo para Criptografar
// se usar a criptografia em um arquivo texto ou ini deve fazer encode 64 bits.

sMessage is Buffer = EDT_Mensagem
bufKey is Buffer = HashString(HA_CKSUM_64, EDT_Senha)
bufEncrypt is Buffer = CryptStandard(sMessage, bufKey, cryptDES)
bufEncrypt = Encode(bufEncrypt, encodeBASE64)
EDT_Encript = bufEncrypt
INIWrite("Config","Senha", bufEncrypt, fCurrentDir()+fSep()+"config.ini")
Info(bufEncrypt)

// Exemplo para Decriptografar
bufEncrypt = INIRead("Config","Senha","",fCurrentDir()+fSep()+"config.ini")
bufKey = HashString(HA_CKSUM_64, EDT_Senha)
sResult is Buffer = Decode(bufEncrypt, encodeBASE64)
sResult = UncryptStandard(sResult, bufKey, cryptDES)
EDT_Descript = sResult
Info(sResult)

IF EDT_Mensagem = EDT_Descript THEN
Info("Criptografia e descriptografia perfeita salvando em arquivo de texto ou ini.")
ELSE
Info("DIVERGENTE NAO DEU CERTO")
END

EDT_Config = fLoadText(fCurrentDir()+fSep()+"config.ini",foAnsi)