Código del programa de cifrado y descifrado VB

Cifrado:

¿Privado?Función JiaMi(ByVal varPass As String) As String 'El parámetro varPass es el contenido de texto que debe cifrarse

Dim varJiaMi Como cadena * 20

Dim varTmp como doble

Dim strJiaMi como cadena

Dim I

For I = 1 a Len(varPass )

varTmp = AscW(Mid$(varPass, I, 1))

varJiaMi = Str$(((((varTmp * 1.5) / 5.6) * 2.7) * I ))

strJiaMi = strJiaMi amp; varJiaMi

¿Siguiente?I

JiaMi = strJiaMi

¿Fin?Función

Función de descifrado:

¿Privada?Función JieMi(ByVal varPass As String) As String 'El parámetro varPass es el contenido del texto cifrado que necesita ser descifrado

Dim varReturn As String * 20

Dim varConvert como doble

Dim varFinalPass como cadena

Dim varKey como entero

Dim varPasslenth As Long

varPasslenth = Len(varPass)

Para I = 1 a varPasslenth / 20

varReturn = Mid(varPass, (I - 1) * 20 1, 20)

varConvert = Val( Trim(varReturn))

varConvert = ((((varConvert / 1.5) * 5.6) / 2.7) / I)

varFinalPass = varFinalPass amp; ChrW(Val(varConvert))

Siguiente?I

JieMi = varFinalPass

Fin?Función

Información ampliada:

Notas

Escriba un programa de cifrado para cifrar una oración en inglés ingresada por el usuario en una cadena cifrada y luego genere la cadena cifrada. Suponga que la longitud de la oración no supera los 100 caracteres.

De acuerdo con el prototipo de función de cifrado de oraciones dado SentenceEncoding, escriba la función SentenceEncoding para llamar a la función de cifrado de caracteres dada CharEncoding para completar el cifrado de oraciones.

Luego, escriba el programa principal para solicitar al usuario que ingrese una oración en inglés, luego llame a la función SentenceEncoding para cifrar la oración y finalmente genere la oración cifrada.

La regla de cifrado de caracteres es que tanto las letras mayúsculas como las minúsculas se cifran en sus complementos. Definimos que el valor del código ASCII suma 'A' 'Z', es decir, las dos letras mayúsculas de. 155 son complementos entre sí. ASCII Los valores del código suman 'a' y 'z', es decir, las dos letras minúsculas de 219 son complementos entre sí.

Reemplaza espacios con @, puntos con # y otros caracteres con puntos.

Prototipo de función:

void SentenceEncoding(char *soure, char *code);

Función: después de cifrar la fuente de la cadena cifrada, guarde la cadena cifrada en code.

Parámetros: char *soure, un puntero de cadena que apunta a la oración a cifrar;

char *code un puntero de cadena que apunta a la cadena cifrada;

Código de función de cifrado de caracteres.