Cifrado de programación de caracteres
Texto2 = " "
n = Len(Texto 1)
雷Dim
ReDim b(n + 3)
Para i = 1 a n
a(i) = Mid(Text1, I, 1 )
si (Asc(a(I))>= 65 y Asc(a(I))<= 90) o (Asc(a(I))>= 97 y Asc ( a(I))<= 122) Entonces
b(i) = Asc(a(i)) + 3
Si b(i)>Asc(" Z " ) y b(I)<Asc("a ") entonces b(I)= Asc(" A ")+b(I)-Asc(" Z ")-1
Si b( i)>Asc("z ") entonces b(I)= Asc(" a ")+b(I)-Asc(" z ")-1
Otros
b(i) = Asc(a(i))
Terminará si...
a(i) = Chr(b(i))
Texto 2 = Texto y respuesta(1)
Luego
Texto 3 = Texto 2
Finalizar conector
Subcomando privado 2_Click ()
Considere a() como una cadena, b() como un número entero y n como un número entero
Text4 = " "
n = Len (Texto 3)
ReDim
ReDim b(n + 3)
Para i = 1 a n
a( i) = Medio(Texto3, I, 1)
si (Asc(a(I))>= 65 y Asc(a(I))<= 90) o (Asc( a(I) )>= 97 y Asc(a(I))<= 122) Entonces
b(i) = Asc(a(i)) - 3
Si b( i)>= 62 y b(I) Si b(i)>= 94 y b(I)<Asc("a") entonces b(I)= Asc("z")-Asc("a" )+b(I)+1 Otros b(i) = Asc(a(i)) Terminará si... a(i ) = Chr(b(i)) Texto 4 = Texto&respuesta(uno) Luego Conector final Para Para facilitar la depuración y la comparación, los archivos cifrados se colocan directamente en TEXT3. Se puede eliminar después de la depuración.