简要咨询咨询QQ网站导航网站搜索手机站点联系我们设为首页加入收藏 

用VBS实现的凯撒密码算法

来源:易贤网   阅读:1130 次  日期:2016-06-30 10:54:36

温馨提示:易贤网小编为您整理了“用VBS实现的凯撒密码算法”,方便广大网友查阅!

在密码学中,恺撒密码(或称恺撒加密、恺撒变换)是一种最简单且最广为人知的加密技术。它是一种替换加密的技术,明文中的所有字母都在字母表上向後(或向前)按照一个固定数目进行偏移後被替换成密文。例如,当偏移量是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的默认主题真不好使,代码竟然溢出了,将就着看吧,或者给我推荐一个好看点的主题也行。

更多信息请查看脚本栏目
点此处就本文及相关问题在本站进行非正式的简要咨询(便捷快速)】     【点此处查询各地各类考试咨询QQ号码及交流群
上一篇:通过vbs修改目录名称与快捷方式名称的实现代码
下一篇:VBS中CreateObject和WScript.CreateObject的区别介绍
易贤网手机网站地址:用VBS实现的凯撒密码算法
由于各方面情况的不断调整与变化,易贤网提供的所有考试信息和咨询回复仅供参考,敬请考生以权威部门公布的正式信息和咨询为准!