vb恺撒密码(恺撒密码翻译器)
vb恺撒密码(恺撒密码翻译器)
解：
Private Sub cmdCode_Click()
Dim pt As String ' 明文
Dim ct As String ' 密文
Dim n As Integer ' 字母在字母表中的序号
Dim ch As String
Dim i As Integer
pt = txtPt.Text
ct = ""
For i = 1 To Len(pt)
ch = Mid(pt, i, 1)
Select Case ch
Case "A" To "Z"
n = Asc(ch) - Asc("A")
n = (n + 3) Mod 26
ch = Chr(n + 65)
Case "a" To "z"
n = asc(ch)-asc("A")
n = (n + 3) Mod 26
ch = Chr(n + 97)
End Select
ct = trim(ct ch)
Next i
txtCt.Text = ct
End Sub
恩~ 你都给了明文和密钥…不知道你还要什么方法啊？
如果你不知道凯撒，可以去百度一下，我给你简单说一下吧~
英文26个字母（不分大小写）可以由数字01~26来代替（有人也用00~25来代替，不过不常见~）
凯撒全称叫凯撒位移加密法，顾名思义啊~
比如A是01，你用n=4加密之后就是01+4=05，05在字母表里是E，所以A加密之后就是E~
CHINA用n=4加密之后就是GLMRI~ 明白没？
对了，需要说明一下，上面举的例子是字母表向右移动4位，n=4也可以理解为向左移动4位，那么CHINA加密之后就变成YDEJW~ 不过不用担心，一般情况下都是向右移的，当然也不排除某些变态向左移（强烈鄙视这种人！！！）…
恩~ 废话说了好多，给你密文吧~说明一下，我是用01~26和右移的方法加密的~
Glmri Girwvep Vehms erh XZ Yrmzivwmxc~ 完毕~（我加的有点快，不保证全对，你自己检查一下哈~）
再补一句，字母表可以循环用的，比如Z用完了就回到ABC…，这时候A就相当于27~ 明白否？
嘿嘿… 我腹黑一下下~ 如果你想用密码去虐一个人的脑细胞的话，推荐你用00~25和左移的方法，保证他能死至少一半的脑细胞~
嘿嘿嘿嘿……
恺撒密码据传是古罗马恺撒大帝用来保护重要军情的加密系统。它是一种替代密码，通过将字母按顺序推后起3位起到加密作用，如将字母A换作字母D，将字母B换作字母E。据说恺撒是率先使用加密函的古代将领之一，因此这种加密方法被称为恺撒密码。很显然可以把字母表前移或者后错1~25位！如YFS VNFS XMN 密匙向后移动5位 解密得TAN QIAN SHI.进制转换密码：就是将一些按一种进制排列在一起的数据转换成十进制，然后对照字母表找出来！第一步观察数据特点确定进制。第二步转换成十进制并找对应字母。如 24 1 16 17 27观察易得是八进制 转换成十进制位20 1 14 15 23 在字母表上找得 TANOW
