|
|
|
|
|
|
|
|
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
|
|
|
|
|
