Consegui uma função para Criptografar String, agora queria saber como eu modifico ela para que eu possa Descriptografar a String Criptografada.
Vejam só a função abaixo:
Function CodificarSenha(ByVal SenhaInf As String) As String
Dim Carac As String, tang As Integer, SenhaN As String
Dim X As Integer
For X = 1 To 10
Carac = Mid(SenhaInf, X, 1)
If Carac = "" Then Carac = "A"
If IsNull(Carac) Then Carac = "A"
tang = Int(Tan(Asc(Carac) + X) * 10)
If tang < 0 Then
tang = tang * (-1)
End If
If tang < 20 Then
tang = tang + 20 + (Asc(Carac) / 2)
Else
Do While tang > 200
tang = Int(tang / 2)
Loop
tang = tang + (Asc(Carac) / 2)
End If
SenhaN = SenhaN & Chr(tang)
Next
CodificarSenha = SenhaN
End Function
Desde já agradeço a quem puder me ajudar.
