Jquery中文网 www.jquerycn.cn
Jquery中文网 >  脚本编程  >  vbscript  >  正文 VBS实现凯撒密码算法的代码示例

VBS实现凯撒密码算法的代码示例

发布时间:2014-10-18   编辑:www.jquerycn.cn
本文介绍一个用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实现凯撒密码算法的代码示例
VBS 添加右键以计算文件MD5值的代码(图文)
VBS显示系统服务列表的实例代码
访问外部文本文件的vbs方法及例子
vbs恶作剧(整人代码)-让他承认自己是大傻B
asp.net实现RSA加密
vbs整人代码-定时关机
vbs恶作剧(整人代码)-删除桌面 关机密码 关机前打开多个窗口等
vbs 汉字转拼音的函数(代码)
dos进程查看(tasklist)与停止命令(taskkill)

[关闭]