加密:
私有?Function JiaMi(ByVal varPass As String) As String '参数varPass是需要加密的文本内容
Dim varJiaMi As String * 20
将 varTmp 调暗为双精度
将 strJiaMi 调暗为字符串
将 I 调暗
对于 I = 1 到 Len(varPass)
varTmp = AscW(Mid$(varPass, I, 1))
varJiaMi = Str$(((((varTmp * 1.5) / 5.6) * 2.7) * I))
strJiaMi = strJiaMi & varJiaMi
下一步?I
JiaMi = strJiaMi
结束?函数
解密函数:
Private?Function JieMi(ByVal varPass As String) As String '参数varPass是需要解密的密文内容
Dim varReturn As String * 20
Dim varConvert As Double< /p>
将 varFinalPass 变暗为字符串
将 varKey 变暗为整数
将 varPasslenth 变暗为 Long
varPasslenth = Len(varPass)
< p>对于 I = 1 到 varPasslenth / 20varReturn = 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))
< p>Next?IJieMi = varFinalPass
End?Function
扩展资料:
注意事项
编写句子加密程序,将用户输入的一个英文句子加密为加密字符串,然后输出加密字符串。假设长度不超过100个字符。
根据给定的句子加密函数原型SentenceEncoding, 句子编写函数SentenceEncoding调用给定的字符加密函数CharEncoding完成句子加密。
然后,编写主程序提示用户输入中文句子,然后调用函数SentenceEncoding对加密,最后输出加密后的。
然后,编写主程序提示用户输入中文句子,然后调用函数SentenceEncoding对加密,最后输出加密后的。 p>
字符加密规则为大写字母和小写字母均加密接口补码,我们定义ASCII码值相加为'A'+'Z'即155的两个大写字母互为补码,ASCII码 值相加为'a'+'z'即219的两个小写字母互为补码。
空格用@代替,句号以#代替,其他字符用句点代替。
函数原型:
void SentenceEncoding(char *soure,char *code);
功能:面对加密字符串源加密后保存加密字符串到
参数:char *soure,指向待加密句子的字符串指针;
char *code 指向加密字符串的字符串指针;
字符加密函数代码。