凯撒密码计算公式是什么（凯撒密码解密算法流程图）
凯撒密码计算公式是什么（凯撒密码解密算法流程图）
凯撒公式也称凯撒移位，是最简单的加密方法之一，相传是古罗马恺撒大帝用来保护重要军情的加密系统，它是一种替代密码。
加密公式
密文 = (明文 + 位移数) Mod 26
解密公式
明文 = (密文 - 位移数) Mod 26
直接把每个字母往后推三位
出来的就是密文了
即
明文：COMPUTERSYSTEM
密文：FRPSXWHUVBVWHP
而解密时 只需要把密文每个字母前推3位（推三位这是标准的凯撒密码 加密时不一定推三位 这时只要统计各字母出现的频率便很容易解开）
这个很简单嘛，用ASC 和 CHR 转换一下嘛
打开Vb，添加2个label控件，2个text控件 1个command按钮
代码如下：
Private Function f(ByVal a As String, k As Integer, n As Integer) As String
If ((Asc(a) = 65 And Asc(a) = 97) Or (Asc(a) = 97 And Asc(a) = 122)) And Len(a) = 1 Then '判断是否为一个字母
'利用公式计算
If Asc(a) = 65 And Asc(a) = 97 Then f = Chr((Asc(a) - 64 + k) Mod n + 64) '当为大写的时候
If Asc(a) = 97 And Asc(a) = 122 Then f = Chr((Asc(a) - 96 + k) Mod n + 96) '当为小写的时候
Else
f = "error" '若不满足要求，则返回错误
End If
End Function
Private Sub Command1_Click()
Dim strold As String
Dim strnew As String
Dim k As Integer
Dim n As Integer
Dim i As Long
Dim tmp As String
k = 3
n = 26
strold = Text1.Text '要加密的字符串
For i = 1 To Len(strold)
tmp = Mid(strold, i, 1)
tmp = f(tmp, k, n)
If tmp "error" Then
strnew = strnew + tmp
Else
MsgBox "字符串中含有非法字符"
Exit Sub
End If
Next i
Text2.Text = strnew
End Sub
Private Sub Form_Load()
Text1.Text = "PROGRAM"
Text2.Text = ""
Command1.Caption = "加密"
Label1.Caption = "源字符串："
Label2.Caption = "加密字符串："
End Sub
这应该是个加密算法的题吧？？
y=x+k（MOD 26)这个叫做恺撒密码。
凯撒密码作为一种最为古老的对称加密体制，在古罗马的时候都已经很流行，他的基本思想是：通过把字母移动一定的位数来实现加密和解密。明文中的所有字母都在字母表上向后（或向前）按照一个固定数目进行偏移后被替换成密文。例如，当偏移量是3的时候，所有的字母A将被替换成D，B变成E，以此类推X将变成A，Y变成B，Z变成C。由此可见，位数就是凯撒密码加密和解密的密钥。
凯撒密码（移位密码）：公式Y=(X+k)(mod 26)：X是原码字母在字母表中的位置，Y是码文在字母表中的位置，k是位移量，也就是密钥。
所以，你只要给我k，我就能给你将这段字母解密了。
我宣布，已经破解了这段密码。答案就是 irememberyourloveliness
i remember your loveliness 我记得你的可爱。
上面公式中的k应该是k=7，解密的时候，再拿对应字母减去7.
比如P，P往前7个字母是i， 如果不够减，就加26再减。
