criptografar suas senhas sem *******

[Reginaldo ASP]

Que tal criptografar suas senhas sem ******* ? Bem legal pra afastar curiosos....

Function Senha(asenha)

    Dim Aux_Cript

    Dim Ic             

   

Senha = 1

    Aux_Cript = ""

    For Ic = 1 To Len(asenha)

        Aux_Cript = Aux_Cript & Chr(Asc(Mid(asenha, Ic, 1)) + 5)

    Next

    aSenha_Cript = Aux_Cript

        Exit Function

End Function

E para reverter:

Aux_Cript = Aux_Cript & Chr(Asc(Mid(asenha, Ic, 1)) - 5)