MaximoAccess

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

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

    [Resolvido]Erro de estouro quando criptografa

    Mylton
    Mylton
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    [Resolvido]Erro de estouro quando criptografa Empty [Resolvido]Erro de estouro quando criptografa

    Mensagem  Mylton em 13/5/2020, 00:36

    Boa noite a todos.

    Nessa codificação tenho 02 botões:
    1 Criptografa
    2 Descriptografa

    Codificação dos botões

    Código:
    Private Sub cmdCrypt_Click()
       Texto1.Value = Crypt(Trim(Texto1.Value))
    End Sub

    Private Sub cmdDecrypt_Click()
       Texto2.Value = Decrypt(Trim(Texto1.Value))
    End Sub

    No módulo a seguinte função:

    Código:
    Option Compare Database

    'Encripta a senha digitada
    Function EncryptText(ByVal Source As String) As String
    Dim Dest As String, i As Integer, L As Integer
     Dest = Source
     L = Len(Source) + 1
     For i = 1 To Len(Dest)
       Mid$(Dest, i, 1) = Chr$((270 + i - Asc(Mid$(Source, L - i, 1))) And 255)
     Next i
     EncryptText = Dest
    End Function

    'Decripta a senha para forma normal
    Function DecryptText(ByVal Source As String) As String
    Dim Dest As String, i As Integer, L As Integer
     Dest = Source
     L = Len(Source) + 1
     For i = 1 To Len(Dest)
       Mid$(Dest, L - i, 1) = Chr$((270 + i - Asc(Mid$(Source, i, 1))) And 255)
     Next i
     DecryptText = Dest
    End Function




    Qual seria a ajuda?
    Em palavras ou textos pequenos funfa. Mas em textos com 50.000 não vai.
    Dá o erro em execução ¨"6": estouro.


    Como posso criar ou modificar algo para que possa funcionar em textos longos?

    Obrigado.
    Anexo o exemplo.
    Anexos
    [Resolvido]Erro de estouro quando criptografa AttachmentCripto.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (45 Kb) Baixado 7 vez(es)
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6957
    Registrado : 15/03/2013

    [Resolvido]Erro de estouro quando criptografa Empty Re: [Resolvido]Erro de estouro quando criptografa

    Mensagem  ahteixeira em 16/5/2020, 12:10

    Olá Mylton Nogueira,

    Altere de Integer para Double e teste:

    [Resolvido]Erro de estouro quando criptografa 0120

    Abraço
    Mylton
    Mylton
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    [Resolvido]Erro de estouro quando criptografa Empty Re: [Resolvido]Erro de estouro quando criptografa

    Mensagem  Mylton em 16/5/2020, 12:39

    Bom dia.
    Excelente.
    Salvou a semana.
    Muito obrigado abs.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6957
    Registrado : 15/03/2013

    [Resolvido]Erro de estouro quando criptografa Empty Re: [Resolvido]Erro de estouro quando criptografa

    Mensagem  ahteixeira em 16/5/2020, 19:23

    cheers

      Data/hora atual: 5/12/2020, 07:51