VB programando un programa

El principio del cifrado es cambiar la posición de las letras. El valor de cambio se puede establecer mediante pase. Este código solo cambia las letras mayúsculas y minúsculas, y los demás caracteres se muestran tal como están.

Este ejemplo se completa en base a un fragmento de código en lenguaje C y puede ejecutarse normalmente después de ser verificado por VB6.0.

Private Sub Command1_Click()

''''El número de contraseñas de cifrado puede ser arbitrario ¿A qué número entero se debe cambiar?

pass = 1

For i = 1 To Len(Text1.Text)

a = Mid(Text1.Text, i, 1)

Si a gt; = "a" Y a lt = "z" Entonces ''''Transformación de cifrado de letras minúsculas

j = Asc(a) - Asc( "a") ¿Cuál es la posición de '''' en la lista alfabética?

K = j pass ''''El código de cifrado es 1, lo que significa que este bit se puede mover hacia atrás uno, lo que significa que a --gt;b,b--gt;c,z--gt;a

h = K Mod 26 ' '''Cuando la posición transformada exceda 26, pase a la primera letra para ordenarla, forme un bucle

h = Asc("a") h ''''Convierta el número de posición arreglada al código ASC de la letra

s = s Chr(h) ''' 'Se muestra en forma de letras

Else

If a gt = "A" Y a lt; = "Z" Luego '''Agregar contraseña a cada letra mayúscula

j = Asc(a) - Asc("A")

K = j pass

h = K Mod 26

h = Asc( "A") h

s = s Chr(h)

De lo contrario

s = s a '''''Si no es una letra, envíela como está

End If

End If

Siguiente

Text2.Text = s

End Sub

Private Sub Command2_Click()

''''El descifrado la contraseña debe ser la misma que la contraseña de cifrado para desbloquear la contraseña correcta

pass = 1

For i = 1 To Len(Text2.Text)

a = Mid(Text2.Text, i, 1)

Si a gt; = "a" Y a lt = "z" Entonces

j = Asc(a) - Asc; ("a")

K = j - pass

Si K lt 0 Entonces K = K 26 ''''Cuando la clasificación es menor que 0, ve al final. para arreglo

h = Asc("a") K

s = s Chr (h)

Else

p>

Si a gt;= "A" Y a lt;= "Z" Entonces

j = Asc(a) - Asc("A")

K = j - pass

Si K lt 0 Entonces K = K 26 ''''Cuando la clasificación es menor que 0, vaya al final para el arreglo

h = Asc( " A") K

s = s Chr(h)

Else

s = s a

Fin si

Finalizar si

Siguiente i

Text3.Text = s

Fin Sub