凯撒密码计算题如何做（凯撒密码求明文）
凯撒密码计算题如何做（凯撒密码求明文）
这个很简单嘛，用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
直接把每个字母往后推三位
出来的就是密文了
即
明文：COMPUTERSYSTEM
密文：FRPSXWHUVBVWHP
而解密时 只需要把密文每个字母前推3位（推三位这是标准的凯撒密码 加密时不一定推三位 这时只要统计各字母出现的频率便很容易解开）
凯撒密码关键的是密匙，密匙也就是一个数字，比如说密匙是1，那对英文单词book这个单词加密，结果就是相应的每个字母在字母表中的序号减去1，比如b在英文单词里排第二位，那加密后就是a,o加密后就是n,依此类推，book加密后就是annj,解密时每个字母的顺序号加1，所对应的字母就是密文。
在密码学中，恺撒密码（或称恺撒加密、恺撒变换、变换加密）是一种最简单且最广为人知的加密技术。它是一种替换加密的技术，明文中的所有字母都在字母表上向后（或向前）按照一个固定数目进行偏移后被替换成密文。
恺撒密码的加密、解密方法还能够通过同余的数学方法进行计算。首先将字母用数字代替，A=0，B=1，...，Z=25。此时偏移量为n的加密方法即为： E(x) = (x + n) mod 26.
解密就是：
D(x) = (x - n) mod 26.
显而易见，一旦确定了某两个字母的对应关系（即n的值），这种移位密码很容易被破解。
因此，为了使密码有更高的安全性，单字母替换密码就出现了。
明码表:A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
密码表:T U V W X Y Z A B C D E F G H I J K L M N O P Q R S
但是这种加密方式依然可以破解，根据字母使用频度表，分析密文中的字母频率，将其对照即可破解。
不仅如此，凯撒加密对加密数据也是有要求的，一般情况下，它只支持对基本的英文字母进行加密，如果对中文等亚太地区的文字进行加密，结果可想而知，你的隐私将毫无保留的出现在众人面前。有人说，我们可以扩展这个算法，使它支持所有的文字，这么做是可行的，如果采用同余式的方式实现，代码几乎不怎么需要改动，只要字符集本身是Unicode就可以了。但是这种加密的安全性很难满足应用的要求。如果采用单字母替换的方式，程序将需要构建两个巨大的字符数组去保存他们的映射关系，而且扩展性也不好，当然也是不可行的。这样看来，凯撒加密岂不是一无是处了，其实对于一般的应用，凯撒加密还是足以应付的，只要我们对它稍作改进。
#includestdio.h
#includestring.h
void main ()
{
char str[100];
char str1[100];
printf("输入字符串:");
scanf("%s",str);
int len;
len=strlen(str);
for(int i=0;i＜len;i++)
{
str1[i]=(str[i]-97+3)%26+97;
}
str1[len]='\0';
printf ("密文为:%s\n",str1);
}
按照题目要求编写的用凯撒密码加密的C语言程序如下
#includestdio.h
int main(){
char s[80];
int offset,i;
fgets(s,80,stdin);
scanf("%d",offset);
for(i=0;s[i]!='\0';i++){
if('A'=s[i] s[i]='Z')
if(offset=0)
s[i]='A'+(s[i]-'A'+offset)%26;
else
s[i]='A'+(s[i]-'A'+26+offset%26)%26;
else if('a'=s[i] s[i]='z')
if(offset=0)
s[i]='a'+(s[i]-'a'+offset)%26;
else
s[i]='a'+(s[i]-'a'+26+offset%26)%26;
}
printf("%s\n", s);
return 0;
}
