Encriptar a alfanumericos (0-9, A-Z)

[Keyenight]

Bueno aqui tengo la manera perfecta unas funciones que hise

Código:

    Function Encript(ByVal str As String) As String
        Dim i As Integer, sAscii As String = Nothing
        For i = 1 To Len(str)
            sAscii = sAscii & CStr(Hex(Asc(Mid(str, i, 1))))
        Next
        Return sAscii)
    End Function

Código:

   Function Dencript(ByVal str As String) As String
        Dim i As Integer, sStr As String
        sStr = Nothing
        For i = 1 To Len(str) Step 2
            sStr = sStr & Chr(CLng("&H" & Mid(str, i, 2)))
        Next
        Return sStr
    End Function