MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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

2 participantes

    [Resolvido]Erro de estouro quando criptografa

    Mylton
    Mylton
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Mylton 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 15 vez(es)
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alvaro Teixeira 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 : Respeito às Regras 100%

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

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

    Mensagem  Mylton 16/5/2020, 12:39

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


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alvaro Teixeira 16/5/2020, 19:23

    cheers

      Data/hora atual: 24/9/2022, 19:41