VB 加密与解密的程序代码

加密：

私有？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 / 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))

< p>Next?I

JieMi = 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 指向加密字符串的字符串指针；

字符加密函数代码。

上一篇:《滹沱河和我》阅读答案，题目如下

下一篇:雙色球預測的網站是?