Cómo cifrar archivos usando programación VB

Private subform_Load()

dim temp es una cadena, strT es una cadena, strX es una cadena

Abre "c :\1.txt" como entrada #1

Hacer mientras no EOF(1)

Entrada de línea #1, temperatura

strT = strT amp temperatura y humedad. vbCrLf

Anillo

Cierre #1

Para i = 1 a Len(strT)

strx = strx ampIIF (ASC (MID (STRT, I, 1)) = 13 ORASC (MID (STRT, I, 1)) = 10, MID (STRT, I, 1),

Entonces

Abra "c:\2.txt" como salida n.° 1

Imprima el número 1, strx

Cierre n.° 1

Conector final