用VBS實現(xiàn)的凱撒密碼算法
更新時間:2013年05月08日 22:39:15 作者:
在密碼學(xué)中,愷撒密碼(或稱愷撒加密、愷撒變換)是一種最簡單且最廣為人知的加密技術(shù)。它是一種替換加密的技術(shù),明文中的所有字母都在字母表上向後(或向前)按照一個固定數(shù)目進行偏移後被替換成密文
在密碼學(xué)中,愷撒密碼(或稱愷撒加密、愷撒變換)是一種最簡單且最廣為人知的加密技術(shù)。它是一種替換加密的技術(shù),明文中的所有字母都在字母表上向後(或向前)按照一個固定數(shù)目進行偏移後被替換成密文。例如,當(dāng)偏移量是3的時候,所有的字母A將被替換成D,B變成E,以此類推。這個加密方法是以愷撒的名字命名的,當(dāng)年愷撒曾用此方法與其將軍們進行聯(lián)系。
例如,當(dāng)偏移量是左移3的時候(解密時的密鑰就是3):
明文字母表:ABCDEFGHIJKLMNOPQRSTUVWXYZ
密文字母表:DEFGHIJKLMNOPQRSTUVWXYZABC
以上都是廢話啦,最近在教一個小朋友VBS,給她出了一道題,讓她實現(xiàn)凱撒密碼算法,不過貌似有點難了。Google了一下凱撒密碼,出來的基本都是C和Java的實現(xiàn),還是我自己寫吧。
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
例如,當(dāng)偏移量是左移3的時候(解密時的密鑰就是3):
復(fù)制代碼 代碼如下:
明文字母表:ABCDEFGHIJKLMNOPQRSTUVWXYZ
密文字母表:DEFGHIJKLMNOPQRSTUVWXYZABC
以上都是廢話啦,最近在教一個小朋友VBS,給她出了一道題,讓她實現(xiàn)凱撒密碼算法,不過貌似有點難了。Google了一下凱撒密碼,出來的基本都是C和Java的實現(xiàn),還是我自己寫吧。
復(fù)制代碼 代碼如下:
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
相關(guān)文章
用VBS腳本實現(xiàn)更換Windows Xp序列號的代碼
用vbs實現(xiàn)更改winxp序列號,不用任何軟件2008-05-05VBS教程:VBScript 基礎(chǔ)-VBScript 變量
VBScript只有一種數(shù)據(jù)類型 —— Variant,它是根據(jù)上下文來判斷是數(shù)字還是字符串。因為Variant是VBScript中唯一的數(shù)據(jù)類型,所以它也是VBScript中所有函數(shù)的返回值的數(shù)據(jù)類型2006-11-11使用 Iisext.vbs 列出 Web 服務(wù)擴展文件的方法
這篇文章主要介紹了如何使用 iisext.vbs 在本地或遠程計算機上列出 Web 服務(wù)擴展文件,需要的朋友可以參考下2014-07-07VBS教程:VBscript屬性-Description 屬性
VBS教程:VBscript屬性-Description 屬性...2006-11-11