Bom dia!
Alguém sabe me dizer se o Decrypt64 não funciona no EVOL 3?
Tenho uma aplicação no Gx9 VFP win que está funcionando e agora estou passando para o EVL3 .net web.
O Encrypt64 funciona faz a encriptação normal mas ai quando vou usar o Decrypt64 ele não retorna, retorna uns caracteres especiais.
Este é o Código que estou usando:
&UsuKey = GetEncryptionKey()
&Bc_TUsuario.UsuSig = 'RRPEINFO'
&Bc_TUsuario.UsuNome = 'Rrpe Informática'
&Bc_TUsuario.UsuDep = 'SUPORTE TÉCNICO'
&Bc_TUsuario.UsuKey = GetEncryptionKey()
&Bc_TUsuario.UsuSenha = Encrypt64('SUPORTE', &UsuKey)
&Bc_TUsuario.UsuSenha1 = Encrypt64('SUPORTE', &UsuKey)
&Bc_TUsuario.Save()
If &Bc_TUsuario.Success()
commit
Else
Msg('Problema na inicialização do Sistema, erro: Usuário Master!')
rollback
EndIf
E estou recuperando da seguinte forma:
&Bc_TUsuario.Load(&UsuSig)
If &Bc_TUsuario.Success()
&UsuSenha2 = &Bc_TUsuario.UsuSenha.Trim()
&UsuKey = &Bc_TUsuario.UsuKey.Trim()
&UsuSenha1 = Decrypt64(&UsuSenha2.Trim(), &UsuKey.Trim())
If &UsuSenha1 <> &UsuSenha
Msg('Usuário/senha, incorretos!')
Else
Msg('Aprovado')
EndIf
Else
Msg('Usuário/senha, incorretos!')
EndIf
Muito obrigado