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

[Abdiel74]

Holas a todos,

Quisiera que alguien me pudiese ayudar con un codigo para encriptar una cadena alfanumerica pero solo usando numeros y letras mayusculas. Es q luego se imprimiran como codigos de barra y hay caracteres q no se pueden imprimir en la fuente CODE128. Y tambien voy a necesitar desencriptarlos luego.
Muy agradecido por cualquier ayuda.

[Fann_Lavigne]

Pues un algoritmo basiko es el de subtitucion, es decir, a Cada letra le asignas otra, por ejemplo, a la letra A le asignas una Z, entonces en tu procedimiento todas las 'A' o 'a' se remplazan a Z y asi, eso lo puedes definir tu, entonces la inversa seria ke todas las Z sean A o a. Puedes usar la funcion mid para obtener partes de una cadena, incluso caracter por caracter.

[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

[Abdiel74]

Gracias por las respuestas, las estoy probando... pero como seria el programa si quiero crear como una matriz de los caracteres que quiero que use al encriptar?
Gracias de antemano por la ayuda...

[Keyenight]

Si quieres encriptar soló algunas letras o números usa un truco 2 cadenas de string y Mid para buscar extraer la letra a reemplazar así:

Código:

    Function Encript(ByVal value As String) As String
        Dim cadena1 As String = "0123456789", _
            cadena2 As String = "ºª|@#~€¬{}", _
            cont As Integer = 0
        For Each value2 As String In value
            cont = cont + 1
            value = value.Replace(Mid(cadena1, cont, 1), Mid(cadena2, cont, 1))
        Next
        Return value
    End Function

La que desincripta piensa que puedes hacer está facil analiza la que te di tambien.

[Abdiel74]

Gracias, esta solucion me parece la mejor para evitar caracteres no imprimibles! ;)