凯撒密码转换器小手工（凯撒密码转化器）
凯撒密码转换器小手工（凯撒密码转化器）
恩~ 你都给了明文和密钥…不知道你还要什么方法啊？
如果你不知道凯撒，可以去百度一下，我给你简单说一下吧~
英文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和左移的方法，保证他能死至少一半的脑细胞~
嘿嘿嘿嘿……
凯撒移位密码。
也就是一种最简单的错位法，将字母表前移或者后错几位
，例如：
明码表：ABCDEFGHIJKLMNOPQRSTUVWXYZ。
密码表：DEFGHIJKLMNOPQRSTUVWXYZABC。
这就形成了一个简单的密码表，如果我想写frzy（即明文），那么对照上面密码表编成密码也就是iucb（即密文）了。密码表可以自己选择移几位，移动的位数也就是密钥。
进制转换密码。比如给你一堆数字，乍一看头晕晕的，你可以观察数字的规律，将其转换为10进制数字，然后按照每个数字在字母表中的排列顺序，拼出正确字母。
几天前一次和朋友聊天谈到了加密聊天，于是想到了凯撒密码，随之就是想用自己的一点烂技术写点好玩的：
下面是成品说明
本程序可以将用户输入的内容通过 非固定的凯撒密码字典 进行加/解密，是一种好用加密的加密聊天方式。
Caesar cipher，发明者Caesar（凯撒），罗马人。
根据苏维托尼乌斯的记载，恺撒曾用此方法对重要的军事信息进行加密：
如果需要保密，信中便用暗号，也即是改变字母顺序，使局外人无法组成一个单词。如果想要读懂和理解它们的意思，得用第4个字母置换第一个字母，即以D代A，余此类推。
同样，奥古斯都也使用过类似方式，只不过他是把字母向右移动一位，而且末尾不折回。每当他用密语写作时，他都用B代表A，C代表B，其余的字母也依同样的规则；他用A代表Z。
另外，有证据表明，恺撒曾经使用过更为复杂的密码系统：文法学家普罗布斯曾经写过一份独具创新的手稿，研究恺撒书信中包含有秘密信息的字母。
已经无法弄清恺撒密码在当时有多大的效果，但是有理由相信它是安全的。因为恺撒大部分敌人都是目不识丁的，而其余的则可能将这些消息当作是某个未知的外语。即使有某个敌人获取了恺撒的加密信息，根据现有的记载，当时也没有任何技术能够解决这一最基本、最简单的替换密码。现存最早的破解方法记载在公元9世纪阿拉伯的阿尔·肯迪的有关发现频率分析的著作中。
这是一种最简单且最广为人知的加密技术。它是一种替换加密的技术，明文中的所有字母都在字母表上向后（或向前）按照一个固定数目进行偏移后被替换成密文。例如，当偏移量是3的时候，所有的字母A将被替换成D，B变成E，以此类推。这个加密方法是以罗马共和时期凯撒的名字命名的，当年凯撒曾用此方法与其将军们进行联系。
进入程序后，会有像下面这样的提示：
随便输入一段英文（此程序仅支持英文和数字，原因看原理）：例如 Fuck you
然后回车：
我们在这输入的是可看的原文，所以我们要加密，输入1，回车：
我们以位移+3（这是当年的默认值，输入其他值可以为负，但是必须加负号，正数的正号加不加无所谓）为例，输入并回车：
程序里面用了循环，所以输出完后会自动进行下一次，这适合正在加密聊天的折腾者。
同样，我们把加密好的文本复制完后重新输入，选择2进行反加密（解密），位移了多少仍然填3：
这样解密就成功了，是不是真的很适合爱折腾的你？赶紧发给你的朋友，约定一个固定的位移数（加密密钥）进行愉快的无限制聊天吧！
存放主程序及图标文件
英文版主程序（在en-ww文件夹内）
程序图标，透明底的
中文版主程序
日志文件，主要通过自编模块 keeplog 生成，内容为“日期（Y/M/D）+时间（h/m/s）+加密密钥+输入/输出内容+分割线”
在密码学中，恺撒密码（英语：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。这样理解也能得出同一个答案，只是我不确定那个“-”究竟是减号还是普通的短破折号。
凯撒密码作为一种最为古老的对称加密体制，在古罗马的时候都已经很流行，他的基本思想是：通过把字母移动一定的位数来实现加密和解密。明文中的所有字母都在字母表上向后（或向前）按照一个固定数目进行偏移后被替换成密文。例如，当偏移量是3的时候，所有的字母A将被替换成D，B变成E，以此类推X将变成A，Y变成B，Z变成C。由此可见，位数就是凯撒密码加密和解密的密钥。我对“怎么用凯撒密码加密一句中文”产生了疑问，实际上解决方法可以有很多种，例如用数组中不断地“大、风、方……”这些词的简单位移，事实上经过搜索，我选择了使用的变换来完成。即，可以用汉字对应的字符码来进行变换操作，这样出来的还是汉字。比如汉字“一”是0x4e00，凯撒移位为1的话0x4e00+1=0x4e01，对应的汉字是“丁”，如果移位为三，就是0x4e03，对应汉字是“七”。将汉字范围内的整型转换为16进制字符串作为后缀，前面加入\u，形成对应的unicode值。这段代码并不复杂，遇到的问题在于：当我在main函数调用时，注释掉的该行（如下）不能够实现我把转义字符\去掉，即最后输出的是\u593a这种形式，而非unicode值对应的“太”。只要把得到的报文中的“\”换成“\”,我想就能正常地将Unicode输出成中文了，首先想到的是使用字符串的方法。使用(“\\“,“\“),但是发现输出结果没有任何变化。 解决方法是：查了下API文档，方法的定义是：public String replaceAll( String regex,String replacement) 。
这个很简单嘛，用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
