preciso de uma funçao para encriptar senhas e desencripta-las tambem

tentei fazer isso com um controle mas é complicado pois é uma ocx que nao é aceita em todos os SO´s por isso quero usar uma funçao

as senhas ficaram gravadas num bd do access.

'num módulo

 

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 'só usa se quizer saber a senha gravada no BD
     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
 

'como usar....

dim senha as string

    'antes de gravar

    Senha = Cripta(.TextSenha.Text)

'chamar na hora do login

if senhadousergravada!senha = senha then

  senha ok

else

...........

end if