用VBS实现的凯撒密码算法
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
| 在密码学中，恺撒密码（或称恺撒加密、恺撒变换）是一种最简单且最广为人知的加密技术。它是一种替换加密的技术，明文中的所有字母都在字母表上向後（或向前）按照一个固定数目进行偏移後被替换成密文。例如，当偏移量是3的时候，所有的字母A将被替换成D，B变成E，以此类推。这个加密方法是以恺撒的名字命名的，当年恺撒曾用此方法与其将军们进行联系。 例如，当偏移量是左移3的时候（解密时的密钥就是3）： 复制代码 代码如下: 明文字母表：ABCDEFGHIJKLMNOPQRSTUVWXYZ 密文字母表：DEFGHIJKLMNOPQRSTUVWXYZABC 以上都是废话啦，最近在教一个小朋友VBS，给她出了一道题，让她实现凯撒密码算法，不过貌似有点难了。Google了一下凯撒密码，出来的基本都是C和Java的实现，还是我自己写吧。 复制代码 代码如下: Function Caesar(str,offset) Dim length,char,i Caesar = "" length = Len(str) For i = 1 To length char = Mid(str,i,1) If char >= "A" And char <= "Z" Then char = Asc("A") + (Asc(char) - Asc("A") + offset) Mod 26 Caesar = Caesar & Chr(char) ElseIf char >= "a" And char <= "z" Then char = Asc("a") + (Asc(char) - Asc("a") + offset) Mod 26 Caesar = Caesar & Chr(char) Else Caesar = Caesar & char End If Next End Function WScript.Echo Caesar("ABCDEFGHIJKLMNOPQRSTUVWXYZ",3) WordPress的默认主题真不好使，代码竟然溢出了，将就着看吧，或者给我推荐一个好看点的主题也行。 原文：http://demon.tw/programming/vbs-caesar.html |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
关于用VBS实现的凯撒密码算法的所有评论
