实践十加密程序.pptVIP

上节总结 实践十 循环语句（一） 1、掌握For语句的使用 2、熟悉ASCII码及与字符之间的转换 3、了解信息加密与解密的规则及其重要性 任务描述 某军队计划参加军事演习，在演习中，战况报告和上级命令（假设使用的语言为英语）下达都是通过网络来传送的。为了保证信息的安全性，军方用VB设计了一个信息加密解密程序，在传送信息之前按一定的规则进行加密，而接收者收到信息后，再用一定的规则进行解密，从而使敌军即使通过网络截获了信息，也不能立即读懂信息的含义。 使用VB建立一个工程，包括加密和解密两项功能，能同时满足信息发送者与信息接收者使用。 1 ．分析问题 利用英文字符的ASCII码进行加密。加密规则：字符的ASCII码值减去32加上该字符在明文中的位置，得出的值除以95求得它的余数，再加上32，将最后求得的这个数值转换为字符。将原有位置的字符依次转换后按原来的位置顺序组成的字符串，就是密文。 解密的过程：先将密文的每个字符的ASCII码减去32再减去字符在密文中的位置，得出的值如果小于0，则加上95，再将这个值加上32，将最后求得的这个数值转换成字符。将所有位置的字符依次转换后按原来的位置顺序组成的字符串，就是解密后的文字。 2．界面设计与对象属性设置 3 ．编写代码，信息加密的过程 4 ．编写代码，信息解密的过程 * * 输入奇数n，计算数列1,-1/3,1/5,-1/7,1/9,…,[-]1/n的和。 注：请不要更改原程序结构，删除（1）、（2）、（3），并在对应位置填写正确的代码 Function func(x) Dim i As Integer Dim k As Integer Dim sum As Single k = 1 sum = 0 For i = 1 To x Step (1) t = (2) sum = sum + t k = (3) Next func = sum End Function True MultiLine （空） Text Text3 Flase Enabled True MultiLine 加密 Caption Command1 解密 Caption Command2 （空） Text Text1、Text2 解密后的文字： Caption Label3 加密后的文字： Caption Label2 明文： Caption Label1 属性值 属性 对象 说明：MultiLine属性：是否接收多行文本 Enabled 属性：是否响应用户生成事件 开始 输入明文 计算明文的字符串长度 n i←1 i=n? 获得第 i 个位置的字符 ch 将 ch 转换为密文字符 ch1 s1 ←s1+ch1 i ←i+1 输出s1 结束 Y N Private Sub Command1_Click() …… ch=Mid(s,i,1) ch1=Chr((Asc(ch)-32+i) Mod 95+32) End Sub Private Sub Command2_Click() …… End Sub 代码参考加密算法中的流程图，结合解密方法，自行编写 *