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 del texto que se va a cifrar
Dim varJiaMi As String * 20
Dim varTmp As Double
Dim strJiaMi As String
Dim I
For I = 1 To Len(varPass)
varTmp = AscW(Mid$(varPass.I.1))
varJiaMi es el contenido del texto a cifrar, I, 1))
varJiaMi = Str$( ((((varTmp * 1.5) / 5.6) * 2.7) * I))
strJiaMi = strJiaMi amp; varJiaMi
¿Siguiente?I
Fin?Función
Función de descifrado:
¿Privado?Función JieMi(ByVal varPass As String) As String 'El parámetro varPass es el contenido del texto cifrado que se va a descifrar
Dim varReturn como cadena * 20
Dim varConvert como doble
DimvarFinalPass como cadena
Dim varKey como entero
Atenuar varPasslenth siempre
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 & ChrW(Val(varConvert))
¿Siguiente?I
JieMi = varFinalPass
¿Fin?Función
Información ampliada:
Escriba un programa de cifrado para cifrar las oraciones en inglés ingresadas por el usuario en una cadena cifrada y luego genere la cadena cifrada. Suponga que la oración no tiene más de 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 el cifrado complementario de letras mayúsculas y minúsculas. La suma de los valores del código ASCII que definimos es 'A' 'Z', es decir, las dos letras mayúsculas de 155 son. complementarios, y la suma de los valores del código ASCII es 'a' 'z', las dos letras minúsculas de 219 son complementarias.
Reemplaza espacios con @, puntos con # y otros caracteres con puntos.
Prototipo de función:
void SentenceEncoding(char *soure, char *code);
Función: cifrar la fuente de la cadena que se va a cifrar y cifrar la cadena resultante se guarda en el código.
Parámetros: char *soure, el puntero de la oración a cifrar;
char *code, el puntero de la cadena cifrada
El código de; la función de cifrado de caracteres.