Reginaldo ASP Postado Março 30, 2004 Denunciar Share Postado Março 30, 2004 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 FunctionEnd FunctionE para reverter:Aux_Cript = Aux_Cript & Chr(Asc(Mid(asenha, Ic, 1)) - 5) Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
Reginaldo ASP
Que tal criptografar suas senhas sem ******* ? Bem legal pra afastar curiosos....
E para reverter:
Link para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.