USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Datas/Números/Strings)

Título da Dica:  Dados Cryptografados e Descryptografados
Postada em 17/10/2002 por Roberto            
Todo mundo pergunta com fazer para gravar as senhas no banco cryptografados a baixo duas funções uma para cryptografar e outra para descryptografar..

Intéw



Public Function Cripta(cTexto As String) As String
     Dim cTemp As String
     Dim X As Integer
     cTemp = ""
     For X = 1 To Len(cTexto)
        cTemp = cTemp + Mid(cTexto, X, 1)
     Next
     Cripta = ""
     For X = 1 To Len(cTemp)
        Cripta = Cripta + Chr(256 - Asc(Mid(cTemp, X, 1)))
     Next
End Function

Public Function UnCripta(cTexto As String) As String
     Dim cTemp As String
     Dim X As Integer
     cTemp = ""
     For X = 1 To Len(cTexto)
        cTemp = cTemp + Mid(cTexto, X, 1)
     Next
     UnCripta = ""
     For X = 1 To Len(cTemp)
        UnCripta = UnCripta + Chr(256 - Asc(Mid(cTemp, X, 1)))
     Next
End Function
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página