VBS实现凯撒密码算法的代码示例
介绍：
在密码学中，恺撒密码（或称恺撒加密、恺撒变换）是一种最简单且最广为人知的加密技术。它是一种替换加密的技术，明文中的所有字母都在字母表上向後（或向前）按照一个固定数目进行偏移後被替换成密文。例如，当偏移量是3的时候，所有的字母A将被替换成D，B变成E，以此类推。这个加密方法是以恺撒的名字命名的，当年恺撒曾用此方法与其将军们进行联系。
例如，当偏移量是左移3的时候（解密时的密钥就是3）：
明文字母表：ABCDEFGHIJKLMNOPQRSTUVWXYZ
密文字母表：DEFGHIJKLMNOPQRSTUVWXYZABC
来看具体的例子。
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)
就是这些了，很简单的代码，实现了著名的凯撒密码，神奇，兴奋，哈！！
您可能感兴趣的文章：
VBS实现凯撒密码算法的代码示例
js 当鼠标移动到二级菜单时当前一级菜单高亮
VBS显示系统服务列表的实例代码
访问外部文本文件的vbs方法及例子
PHP中的加密功能
PHP数据加密方法深入剖析
VBS 添加右键以计算文件MD5值的代码(图文)
vbs恶作剧(整人代码)-让他承认自己是大傻B
vbs 汉字转拼音的函数(代码)
php base64加密解密的实现代码