Encriptar textos o numeros...

[jimram]

ahi te van otros códigos haber si te sirven

Código:

'Variables
Public Const ENCRYPT = 1
Public Const DECRYPT = 2

Public sPassword As String

'Funcion
Public Function EncryptString(UserKey As String, Text As String, Action As Single) As String
    Dim Temp, Times, i, j, n, t As Integer
    Dim rtn As String

    n = Len(UserKey)
    ReDim UserKeyASCIIS(0 To n)
    For i = 1 To n
        UserKeyASCIIS(i) = Asc(Mid(UserKey, i, 1))
    Next
    ReDim textASCIIS(Len(Text)) As Integer
    For i = 1 To Len(Text)
        textASCIIS(i) = Asc(Mid(Text, i, 1))
    Next
    If Action = ENCRYPT Then
        For i = 1 To Len(Text)
            j = IIf(j + 1 >= n, 1, j + 1)
            Temp = textASCIIS(i) + UserKeyASCIIS(j)
            If Temp > 255 Then
               Temp = Temp - 255
            End If
            rtn = rtn + Chr(Temp)
        Next
    ElseIf Action = DECRYPT Then
        For i = 1 To Len(Text)
            j = IIf(j + 1 >= n, 1, j + 1)
            Temp = textASCIIS(i) - UserKeyASCIIS(j)
            If Temp < 0 Then
                Temp = Temp + 255
            End If
            rtn = rtn + Chr$(Temp)
        Next
    End If
    EncryptString = rtn
End Function

'Ejemplo de Uso
sPassword = EncryptString("passw", LCase(Trim(txtPass.Text)), ENCRYPT)

Espero te sirva aún....

Saludos