Ejemplos en Visual Basic – Encriptado CB

    <div data-elementor-type="wp-post" data-elementor-id="36056" class="elementor elementor-36056" data-elementor-post-type="tutorial">
            <div class="elementor-element elementor-element-75fb737 e-flex e-con-boxed e-con e-parent" data-id="75fb737" data-element_type="container" data-e-type="container" data-settings="{&quot;background_background&quot;:&quot;classic&quot;}">
                <div class="e-con-inner">
            <div class="elementor-element elementor-element-a3d4e2f elementor-widget elementor-widget-text-editor" data-id="a3d4e2f" data-element_type="widget" data-e-type="widget" data-widget_type="text-editor.default">

Función pública I2of5(DataToEncode como cadena) como cadena
    Datos a imprimir = ""
    Datos a codificar = RTrim(LTrim(Datos a codificar))
    SoloDatosCorrectos = ""
    ' Verifique que los datos sean numéricos y elimine los guiones, etc.
    Longitud de cadena = Len(DataToEncode)
    Para I = 1 a StringLength
    'Agrega todos los números a la cadena OnlyCorrectData
         '2006.2 BDA modificó las siguientes 3 líneas para compatibilidad con diferentes versiones de Office
         'Si IsNumeric(Mid(DataToEncode, I, 1)) Entonces OnlyCorrectData = OnlyCorrectData & Mid(DataToEncode, I, 1)
         CurrentCharNum = AscW(Mid(Datos a codificar, I, 1))
         Si CurrentCharNum > 47 y CurrentCharNum < 58 entonces OnlyCorrectData = OnlyCorrectData & Mid(DataToEncode, I, 1)
    A continuación yo
    DataToEncode = SóloDatosCorrectos
    'Verifique que el número de dígitos sea par, agregue 0 si no es par
    Si (Len(DataToEncode) Mod 2) = 1 Entonces DataToEncode = "0" y DataToEncode
    'Asignar códigos de inicio y detención
    Código de inicio = ChrW(203)
    Código de parada = ChrW(204)
    Longitud de cadena = Len(DataToEncode)
    Para I = 1 a StringLength Paso 2
        'Obtener el valor de cada par de números
        CurrentCharNum = Val((Mid(DataToEncode, I, 2)))
        'Obtener el valor ASCII de CurrentChar
        Si CurrentCharNum  93 entonces DataToPrint = DataToPrint y ChrW(CurrentCharNum + 103)
    A continuación yo
    'Obtener cadena imprimible
    PrintableString = Código de inicio + Datos para imprimir + Código de parada
    'Devuelve una cadena imprimible
    I2of5 = Cadena imprimible
Función final