用VBS實(shí)現(xiàn)的凱撒密碼算法
來源:易賢網(wǎng) 閱讀:1028 次 日期:2016-06-30 10:54:36
溫馨提示:易賢網(wǎng)小編為您整理了“用VBS實(shí)現(xiàn)的凱撒密碼算法”,方便廣大網(wǎng)友查閱!

在密碼學(xué)中,愷撒密碼(或稱愷撒加密、愷撒變換)是一種最簡單且最廣為人知的加密技術(shù)。它是一種替換加密的技術(shù),明文中的所有字母都在字母表上向後(或向前)按照一個固定數(shù)目進(jìn)行偏移後被替換成密文。例如,當(dāng)偏移量是3的時候,所有的字母A將被替換成D,B變成E,以此類推。這個加密方法是以愷撒的名字命名的,當(dāng)年愷撒曾用此方法與其將軍們進(jìn)行聯(lián)系。

例如,當(dāng)偏移量是左移3的時候(解密時的密鑰就是3):

代碼如下:

明文字母表:ABCDEFGHIJKLMNOPQRSTUVWXYZ

密文字母表:DEFGHIJKLMNOPQRSTUVWXYZABC

以上都是廢話啦,最近在教一個小朋友VBS,給她出了一道題,讓她實(shí)現(xiàn)凱撒密碼算法,不過貌似有點(diǎn)難了。Google了一下凱撒密碼,出來的基本都是C和Java的實(shí)現(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的默認(rèn)主題真不好使,代碼竟然溢出了,將就著看吧,或者給我推薦一個好看點(diǎn)的主題也行。

更多信息請查看腳本欄目
易賢網(wǎng)手機(jī)網(wǎng)站地址:用VBS實(shí)現(xiàn)的凱撒密碼算法
由于各方面情況的不斷調(diào)整與變化,易賢網(wǎng)提供的所有考試信息和咨詢回復(fù)僅供參考,敬請考生以權(quán)威部門公布的正式信息和咨詢?yōu)闇?zhǔn)!

2025國考·省考課程試聽報名

  • 報班類型
  • 姓名
  • 手機(jī)號
  • 驗(yàn)證碼
關(guān)于我們 | 聯(lián)系我們 | 人才招聘 | 網(wǎng)站聲明 | 網(wǎng)站幫助 | 非正式的簡要咨詢 | 簡要咨詢須知 | 加入群交流 | 手機(jī)站點(diǎn) | 投訴建議
工業(yè)和信息化部備案號:滇ICP備2023014141號-1 云南省教育廳備案號:云教ICP備0901021 滇公網(wǎng)安備53010202001879號 人力資源服務(wù)許可證:(云)人服證字(2023)第0102001523號
云南網(wǎng)警備案專用圖標(biāo)
聯(lián)系電話:0871-65099533/13759567129 獲取招聘考試信息及咨詢關(guān)注公眾號:hfpxwx
咨詢QQ:526150442(9:00—18:00)版權(quán)所有:易賢網(wǎng)
云南網(wǎng)警報警專用圖標(biāo)