MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Criptografia não funciona

    Compartilhe
    avatar
    Mylton
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 505
    Registrado : 23/08/2010

    [Resolvido]Criptografia não funciona

    Mensagem  Mylton em Sex 21 Out 2016, 18:32

    Alguem poderia ajudar e informar onde está o erro desta criptografia?
    Obrigado
    exemplo retirado
    [Você precisa estar registrado e conectado para ver este link.]
    Anexos
    Criptografar.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (23 Kb) Baixado 6 vez(es)
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1042
    Registrado : 05/02/2010

    Criptografia nao funciona

    Mensagem  good guy em Sex 21 Out 2016, 19:53

    Olá Mylton,

    CERTO:

    Código:

    Private Sub Criptografar_Click()
    texto1 = EncriptarTexto(texto1)
    End Sub

    Private Sub Descriptografar_Click()
    On Error Resume Next
    texto2 = DesEncriptarTexto(texto1)
    End Sub
    avatar
    Mylton
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 505
    Registrado : 23/08/2010

    Re: [Resolvido]Criptografia não funciona

    Mensagem  Mylton em Sex 21 Out 2016, 21:37

    Funcionou.
    Muito obrigado.
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1042
    Registrado : 05/02/2010

    Criptografia nao funciona

    Mensagem  good guy em Seg 24 Out 2016, 21:45

    Olá Mylton,

    O fórum todo agradece.


    "O temor do Senhor é o princípio da sabedoria; têm bom entendimento todos os que cumprem os seus preceitos; o seu louvor subsiste para sempre."(Salmos 111.10 - v. João Ferreira de Almeida)

      Data/hora atual: Seg 23 Out 2017, 05:30