用excel结合凯撒密码建立明码密码本

excel文档

一段代码

一个可以实时同步的笔记应用（此处不推荐，防止广告嫌疑啊！）

新建一个excel工作簿，把自己的所有密码都记录在案，切记最后一步完成后，一定要将这个文件销毁！大致可以如下图。

再说说是凯撒密码。就是把我们将数字和字母按常规顺序排列形成一个闭环，然后给定一个定义：密码=明码顺时针或逆时针推进n位的字码。这个n就是我们的通用密码。

有了这个基础，我们就可以明目张胆的把明码记录的密码记录在案了。

新建一个excel工作簿，alt+F11打开宏编辑器。

选择插入/模块，复制下面的代码到插入的模块，然后关闭宏编辑器。这个代码描述的意思是：在A列输入你的密码，然后在B列会生成经过凯撒算法加密的密码。Option ExplicitPrivate Sub Worksheet_Change(ByVal Target As Range)    If Target.Column > 1 Then Exit Sub    If Len(Target) < 1 Then Exit Sub    Application.EnableEvents = False    Dim i%, j%, str$    For j = 1 To Len(Target)        i = Asc(Mid(Target, j, 1))        If (i >= 48 And i <= 57) Or (i >= 65 And i <= 90) Or (i >= 97 And i <= 122) Then            If i > 118 Or (i > 86 And i < 91) Then                i = i - 22            ElseIf i > 53 And i < 58 Then                i = i - 6            Else                i = i + 4            End If            str = str & Chr(i)        End If    Next    Target.Offset(0, 1) = str    Application.EnableEvents = TrueEnd Sub

例如我们以某个10230719这个有两个人生日组成的明码作为记录的密码，那么你可以将这个账号的密码设置成54674153。那么复制你之前整理的密码，然后算出经过凯撒算法加密的密码，将这些密码用明码记录就行了，真的忘记密码的时候只需要反编辑密码就行了。

如果嫌这个麻烦还有个很简单的，不过没有这个安全，你在第一步整理好你的密码以后可以直接把你的密码文件的后缀名换成任意你能想得到的东西，然后等你什么时候想要查看的时候在把文件后缀名给改回来。