用VBS实现的凯撒密码算法
更新时间：2013年05月08日 22:39:15 作者：
在密码学中，恺撒密码（或称恺撒加密、恺撒变换）是一种最简单且最广为人知的加密技术。它是一种替换加密的技术，明文中的所有字母都在字母表上向後（或向前）按照一个固定数目进行偏移後被替换成密文
在密码学中，恺撒密码（或称恺撒加密、恺撒变换）是一种最简单且最广为人知的加密技术。它是一种替换加密的技术，明文中的所有字母都在字母表上向後（或向前）按照一个固定数目进行偏移後被替换成密文。例如，当偏移量是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
例如，当偏移量是左移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
相关文章
Restart.vbs源代码可以重启远程电脑的vbs...2007-02-02
远程启动终端服务的windows脚本ROTS.vbs...2007-02-02
VBS教程：方法-Add 方法(Dictionary)...2006-11-11
可以修改脚本自身运行次数的vbs(Self modifying script)
通过脚本修改脚本的内容，这里以统计脚本运行次数为例，想学习vbs的朋友可以参考下2013-08-08
VBS教程：方法-OpenTextFile 方法...2006-11-11
VBS相册生成脚本[...2006-09-09
使用 Iisftp.vbs 设置Active Directory 用户隔离
可使用命令行脚本 iisftp.vbs（存储在 systemroot\System32 中）查询和设置用户的文件传输协议 (FTP) 主目录的 Active Directory 目录服务属性2014-07-07
VBS教程：VBscript语句-On Error 语句...2006-11-11
COM组件在系统里是一直存在的，利用它，我们的用户体验将会提升很多。2009-03-03
vbscript Split函数用法详解(字符串转数组函数)
本文详细介绍了vbscript中split函数的用法，有关split函数的一些实例，vbscript中split函数的语法介绍，有需要的朋友参考下2014-05-05
最新评论