1
Lee una cadena de texto . Dimensión de una variable llamada strA y cargar su texto en él.
2
llamar a una función con un nombre como " ChangeASC " que cifrar el texto un carácter a la vez.
Página 3
Dentro de esa función, leer cada letra del strA usando un para /siguiente bucle como este : para k = 1 para len ( strA )
4
En el ciclo For /Next , tome cada personaje ( k ) de strA y cambie su referencia asc , esencialmente cambiando en un personaje diferente , con una orden como esta : asc ( k ) = asc ( k ) + ( x)
5
Ahora, si x es su constante cambio de valores ascendente , será necesario para descifrar el texto más adelante. Escriba sus constantes para su uso posterior x, y no lo cambie .
6
Crear un destino para el texto cambiado. Cuando la función se lleva a cabo la actualización de todos los caracteres del texto , se debe vaciar el mensaje transformado en un cuadro de texto o un archivo de texto. Puede utilizar una sentencia de archivos para volcar a un archivo, o simplemente cargar el cuadro de texto con los resultados para el usuario para ver y copiar a sí mismos .
7
Mantenga sus x constante para el descifrado. El resultado de su texto cifrado será cada letra desplazada asc valor de x . Por ejemplo, si x es 5, A se convertiría en F, B se convertiría en G y así sucesivamente .