凯撒密码算法代码（凯撒密码的程序代码）
凯撒密码算法代码（凯撒密码的程序代码）
在密码学中，恺撒密码（英语：Caesar cipher），或称恺撒加密、恺撒变换、变换加密，是一种最简单且最广为人知的加密技术。它是一种替换加密的技术，明文中的所有字母都在字母表上向后（或向前）按照一个固定数目进行偏移后被替换成密文。例如，当偏移量是3的时候，所有的字母A将被替换成D，B变成E，以此类推。这个加密方法是以罗马共和时期恺撒的名字命名的，当年恺撒曾用此方法与其将军们进行联系。
（以上摘自百度百科，更多详情请自行学习了解）
然后这些数字，分别指代英文26个字母，比如4指代d，16指代p等等。以此类推，则除了“-1”以外的其他数字转换成字母依次是：dpohsbuvmbujpo
-1指的是偏移量为1，即明文中的所有字母分别向右偏移一位继而得到上述密文。因此若想得到明文，须将dpoh...的所有字母分别向左偏移一位，即d变成c，p变成o等等。以此类推，明文即是：
congratulation
祝贺
至于那个“-1”，个人猜想还有一种理解，就是指4 16……那些数字分别减去1。这样理解也能得出同一个答案，只是我不确定那个“-”究竟是减号还是普通的短破折号。
凯撒密码是一种非常古老的加密方法，相传当年凯撒大地行军打仗时为了保证自己的命令不被敌军知道，就使用这种特殊的方法进行通信，以确保信息传递的安全。他的原理很简单，说到底就是字母于字母之间的替换。下面让我们看一个简单的例子：“baidu”用凯撒密码法加密后字符串变为“edlgx”，它的原理是什么呢？把“baidu”中的每一个字母按字母表顺序向后移3位，所得的结果就是刚才我们所看到的密文。
#include stdio.h
main()
{
char M[100];
char C[100];
int K=3,i;
printf("请输入明文M(注意不要输入空白串)\n");
gets(M);
for(i=0;M[i]!='\0';i++)
C[i]=(M[i]-'a'+K)%26+'a';
C[i]='\0';
printf("结果是:\n%s\n",C);
}
直接把每个字母往后推三位
出来的就是密文了
即
明文：COMPUTERSYSTEM
密文：FRPSXWHUVBVWHP
而解密时 只需要把密文每个字母前推3位（推三位这是标准的凯撒密码 加密时不一定推三位 这时只要统计各字母出现的频率便很容易解开）
凯撒密码是罗马扩张时期朱利斯• 凯撒（Julius Caesar）创造的，用于加密通过信使传递的作战命令。它将字母表中的字母移动一定位置而实现加密。例如如果向右移动 2 位，则 字母 A 将变为 C，字母 B 将变为 D，…，字母 X 变成 Z，字母 Y 则变为 A，字母 Z 变为 B。
因此，假如有个明文字符串“Hello”用这种方法加密的话，将变为密文： “Jgnnq” 。而如果要解密，则只要将字母向相反方向移动同样位数即可。如密文“Jgnnq”每个字母左移两位 变为“Hello” 。这里，移动的位数“2”是加密和解密所用的密钥。
该程序既可用于加密又可用于解密。只要传入明文和偏移量即可加密，解密需要传入密文和负的偏移量就可以解密。
输出的结果:
凯撒密码由于加解密比较简单，密钥总共只有 26 个，攻击者得到密文后即使不知道密钥，也可一个一个地试过去，最多试 26 次就可以得到明文。
这里不光根据 offset 偏移进行加密，还加上了字符所在的下标进行混合加密。
输出的结果:
这个很简单嘛，用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
