用excel結合凱撒密碼建立明碼密碼本?

生活中嚐嚐被各種密碼搞的焦頭爛額,最主要的是我們沒有那麼好的記性把每個密碼都能記得住,特別是網銀、重要牽涉資金安全的賬戶,如百付寶、支付寶、財付通等,都設置成一個密碼吧,又怕不安全,怎麼辦?

現在分享大家一個用excel生成密碼的方法,實現所有密碼都是可以明碼記錄。

工具/原料

excel文檔

一段代碼

一個可以實時同步的筆記應用(此處不推薦,防止廣告嫌疑啊!)

用excel整理記錄自己的所有密碼

新建一個excel工作簿,把自己的所有密碼都記錄在案,切記最後一步完成後,一定要將這個文件銷燬!大致可以如下圖。

用excel結合凱撒密碼建立明碼密碼本

再說說是凱撒密碼。就是把我們將數字和字母按常規順序排列形成一個閉環,然後給定一個定義:密碼=明碼順時針或逆時針推進n位的字碼。這個n就是我們的通用密碼。

用excel結合凱撒密碼建立明碼密碼本

有了這個基礎,我們就可以明目張膽的把明碼記錄的密碼記錄在案了。

新建一個excel工作簿,alt+F11打開宏編輯器。

用excel結合凱撒密碼建立明碼密碼本

選擇插入/模塊,複製下面的代碼到插入的模塊,然後關閉宏編輯器。

這個代碼描述的意思是:在A列輸入你的密碼,然後在B列會生成經過凱撒算法加密的密碼。

Option Explicit

Private 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

用excel結合凱撒密碼建立明碼密碼本

例如我們以某個10230719這個有兩個人生日組成的明碼作為記錄的密碼,那麼你可以將這個賬號的密碼設置成54674153。那麼複製你之前整理的密碼,然後算出經過凱撒算法加密的密碼,將這些密碼用明碼記錄就行了,真的忘記密碼的時候只需要反編輯密碼就行了。

用excel結合凱撒密碼建立明碼密碼本

如果嫌這個麻煩還有個很簡單的,不過沒有這個安全,你在第一步整理好你的密碼以後可以直接把你的密碼文件的後綴名換成任意你能想得到的東西,然後等你什麼時候想要查看的時候在把文件後綴名給改回來。

用excel結合凱撒密碼建立明碼密碼本

注意事項

重要密碼,特別是網銀等涉及支付的密碼還是要經常的去修改更新才是最安全的。

相關問題答案