婷婷综合国产,91蜜桃婷婷狠狠久久综合9色 ,九九九九九精品,国产综合av

主頁 > 知識庫 > 用VBS實現的凱撒密碼算法

用VBS實現的凱撒密碼算法

熱門標簽:海外美發(fā)店地圖標注 陜西高頻外呼回撥系統哪家好 外呼營銷下單系統 打電話的外呼系統貴不貴 前鋒辦理400電話申請 新密防封卡外呼系統違法嗎 加盟電銷機器人好的品牌 百度地圖標注怎么卸載 辦理膠州400電話財稅
在密碼學中,愷撒密碼(或稱愷撒加密、愷撒變換)是一種最簡單且最廣為人知的加密技術。它是一種替換加密的技術,明文中的所有字母都在字母表上向後(或向前)按照一個固定數目進行偏移後被替換成密文。例如,當偏移量是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的默認主題真不好使,代碼竟然溢出了,將就著看吧,或者給我推薦一個好看點的主題也行。

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

標簽:梅州 四平 阜陽 咸陽 牡丹江 河南 武威 伊春

巨人網絡通訊聲明:本文標題《用VBS實現的凱撒密碼算法》,本文關鍵詞  用,VBS,實現,的,凱撒,密碼,;如發(fā)現本文內容存在版權問題,煩請?zhí)峁┫嚓P信息告之我們,我們將及時溝通與處理。本站內容系統采集于網絡,涉及言論、版權與本站無關。
  • 相關文章
  • 下面列出與本文章《用VBS實現的凱撒密碼算法》相關的同類信息!
  • 本頁收集關于用VBS實現的凱撒密碼算法的相關信息資訊供網民參考!
  • 推薦文章
    主站蜘蛛池模板: 重庆市| 秭归县| 涿鹿县| 门头沟区| 区。| 大埔县| 浦东新区| 西和县| 东方市| 当阳市| 卢湾区| 贡嘎县| 个旧市| 潜山县| 类乌齐县| 方山县| 黑河市| 高邮市| 合川市| 禹城市| 青龙| 伊春市| 黔东| 辽源市| 岑巩县| 泗阳县| 内乡县| 屏东市| 富阳市| 元谋县| 霍州市| 阿克苏市| 将乐县| 庆阳市| 泗阳县| 伊通| 永寿县| 深泽县| 宜兰市| 宜黄县| 稻城县|