Código De Criptografia

[@line]

Alguém teria um código para criptografar e descriptograr senha?

[Decio]

Tenho este código simples:

Function Criptografia(ByVal StrTexto As String) As String

Dim i

Dim nCar

Dim cCar

ChavePar = 256

ChaveImpar = 255

If ChavePar < 1 Or ChavePar > 255 Then ChavePar = 25

If ChaveImpar < 1 Or ChaveImpar > 255 Then ChaveImpar = 33

cCar = ""

For i = 1 To Len(StrTexto)

If i / 2 = Int(i / 2) Then

nCar = Asc(Mid(StrTexto, i, 1)) Xor ChavePar

Else

nCar = Asc(Mid(StrTexto, i, 1)) Xor ChaveImpar

End If

cCar = cCar + Chr(nCar)

Next

Criptografia = cCar

End Function

para fazer a chamada:

'Cript.

Cript = Criptografia("SuaSenha")

MsgBox Cript

'Des.

DCrip = Criptografia(Cript)

MsgBox DCrip

PS:

A Aline e a @line são a mesma pessoa?

[@line]

Obrigada!!!

Eu usava Aline antes de estar cadastrada no Fórum, agora só soui @line.

Um abraço

[ramon]

Ae alguém poderia me explicar como funciona este negocio de criptografia