Red de conocimiento informático - Conocimiento informático - Cifrado de programación de caracteres

Cifrado de programación de caracteres

Utilice a() como cadena, b() como número entero y n como número entero

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.