字符串加密解密_第1页
字符串加密解密_第2页
字符串加密解密_第3页
字符串加密解密_第4页
字符串加密解密_第5页
已阅读5页，还剩10页未读， 继续免费阅读

下载本文档

版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领

文档简介

猜一猜有位好友拜托我于明日早上10点帮助其购买在唯品会中的部分商品，其账户密码以邮件的方式发送给我，如下图所示，请帮助我破译其密码ASCII码表调查你是否有过被盗号的经历？你是否接到过陌生号码打来的推销电话或者诈骗电话？大数据时代，你的信息安全吗？字符串加密湖州五中姬树云信息加密即使被窃取，也能保证数据的安全替代加密：给身份证加密设计VB程序，给身份证代码进行加密，加密方式根据下图加密表所示。值（十进制）0123456789X加密字符ZSLANDVBenc如何遍历整个身份证号码？函数名函数功能字符转换成ASCIIASCII转换成字符计算字符串长度取字符串中第Ｎ个字符起长度为Ｋ的子串Asc(x)Chr(x)Len(x)Mid(x,N,K)字符串遍历完？YN取出一个字符

存入变量中

对字符加密

输出密文观察加密表的规律值（十进制）0123456789X加密字符ZSLANDVBenc在横线上填入代码，并调试程序PrivateSubCommand1_Click()Dims1AsString,s2AsString's1存储明文，s2存储密文DimpwAsString,chAsString,tAsStringDimiAsIntegerpw="ZSLANDVBenc"s1=Text1.TextFori=1ToLen(s1)ch=

①If②

Thent=Val(ch)

③Elses2=s2&Mid(pw,11,1)EndIfNextiText2.Text=s2EndSub移位加密：凯撒加密法罗马凯撒发出的军令都要经过加密，他的加密方法是将字母表中的字母依次后移三位，如A变D，B变E收到密函的将领，根据解码密钥，即数字“3”，将密函中的字母对应前移三位，即可解读军令。后人称这种加密算法为凯撒加密法。凯撒加密程序字符串遍历完？YN取出一个字符

存入变量中

对字符加密

输出密文abcdefxyzabc……若密钥为3任务二：完成代码的填写，并调试程序PrivateSubCommand1_Click()Dims1AsString,s2AsStringDimchAsString,xAsString,tAsIntegers1=Text1.Textx=Val(Text2.Text)Fori=1ToLen(s1)ch=Mid(s1,i,1)

Ifch>="A"Andch<="Z"ThenIft>Asc("Z")ThenElseIft>Asc("z")ThenEndIfch=Chr(t)

NextiText3.Text=s2EndSub①②③④课堂小结移位、替代加密法，此外还有置换加密以及组合加密法

人人文库> 全部分类> 教育资料 > 辅导培训

温馨提示

  • 1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

最新文档

评论

0/150

提交评论