佳木斯湛栽影视文化发展公司

主頁 > 知識庫 > 用VBS實現(xiàn)的凱撒密碼算法

用VBS實現(xiàn)的凱撒密碼算法

熱門標(biāo)簽:網(wǎng)站文章發(fā)布 銀行業(yè)務(wù) 呼叫中心市場需求 檢查注冊表項 服務(wù)器配置 鐵路電話系統(tǒng) 美圖手機 智能手機
在密碼學(xué)中,愷撒密碼(或稱愷撒加密、愷撒變換)是一種最簡單且最廣為人知的加密技術(shù)。它是一種替換加密的技術(shù),明文中的所有字母都在字母表上向後(或向前)按照一個固定數(shù)目進(jìn)行偏移後被替換成密文。例如,當(dāng)偏移量是3的時候,所有的字母A將被替換成D,B變成E,以此類推。這個加密方法是以愷撒的名字命名的,當(dāng)年愷撒曾用此方法與其將軍們進(jìn)行聯(lián)系。

例如,當(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的默認(rèn)主題真不好使,代碼竟然溢出了,將就著看吧,或者給我推薦一個好看點的主題也行。

原文:http://demon.tw/programming/vbs-caesar.html

標(biāo)簽:長治 河南 沈陽 滄州 新疆 樂山 紅河 上海

巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《用VBS實現(xiàn)的凱撒密碼算法》,本文關(guān)鍵詞  ;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題,煩請?zhí)峁┫嚓P(guān)信息告之我們,我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 收縮
    • 微信客服
    • 微信二維碼
    • 電話咨詢

    • 400-1100-266
    汤阴县| 忻州市| 平利县| 梅河口市| 安顺市| 吉首市| 姜堰市| 廊坊市| 五指山市| 盐山县| 铜梁县| 海淀区| 永福县| 中卫市| 游戏| 屏南县| 大新县| 简阳市| 宣武区| 灵寿县| 托克逊县| 库车县| 丰宁| 元阳县| 改则县| 揭西县| 庆元县| 黔南| 萨迦县| 商城县| 阜阳市| 高雄市| 西宁市| 阳东县| 哈巴河县| 西峡县| 荔波县| 基隆市| 乌兰浩特市| 台江县| 噶尔县|