Excel Maniacs

暗号化・復号化(5)

　それでは、Wordを立ち上げて、ちょっとした実験を・・・

まずは日本語IMEをOFFにして・・・

１．304fと入力してAlt+x

2. 307eと入力してAlt+x

3. 3077と入力してAlt+x

4. 30fcと入力してAlt+x

さあ、なにが起きるでしょう？　シャザーン！！SHAZZAM！！

暗号化・復号化(4)

【´･ω･`】:さてExcel版の「暗号化・復号化」ではかずさんが

　　　　　遊んでくれたので、こんどはWordで「暗号化・復号化」を

　　　　　やってみよう。

　　　　　　ほんとうのことを言えばおいらはWord VBAはあんまり

　　　　よく知らないので自信がないのだが生まれついてのお調子者だから

　　　　仕方がない。

　　　　仕様：大雑把ではあるが、テキストの暗号化。ただしオートシェイプだの

　　　　コメントだの、図表の中のテキストは無視。

　　　　さて、遊んでくれる人はいるかいな？

暗号化・復号化(3)

それではマクロ「暗号化・復号化」の中身をご覧下さい。

’------------------------------------------------------------

Sub 暗号化_復号化()
　  Dim KeyNum As Integer
    Dim StartRow As Long, StartCol As Long
    Dim EndRow As Long, EndCol As Long
    Dim X As Long, y As Long
    Dim Length As Long
    Dim Text
    Dim S As String, NewText As String
    Dim CodeNum As Long
    Dim i As Long
    Dim Ans As Integer
   
    Ans = MsgBox("選択範囲を暗号化→複合化　または　複合化→暗号化します。" & vbCrLf & "よろしいですか？　(＾o＾)b", vbYesNo)
    If Ans = vbNo Then Exit Sub
       
    StartRow = Selection.Row
    StartCol = Selection.Column
    EndRow = StartRow + Selection.Rows.Count - 1
    EndCol = StartCol + Selection.Columns.Count - 1
    Application.ScreenUpdating = False
    On Error Resume Next
    For X = StartCol To EndCol
        For y = StartRow To EndRow
            Text = Cells(y, X)
            If Range(Cells(y, X), Cells(y, X)).HasFormula Or Text = "" Then GoTo BEBE
            Length = Len(Text)
            
                NewText = ""
                For i = 1 To Length
                     S = Mid(Text, i, 1)
                     CodeNum = AscW(S)
                     CodeNum = CodeNum * -1
                     S = ChrW(CodeNum)
                     NewText = NewText & S
                Next
                Text = NewText
            
            Cells(y, X) = Text
BEBE:
        Next
    Next
    Application.ScreenUpdating = True
End Sub

'------------------------------------------------------------------------------------

赤字の行をご覧になればお分かりのように

取り出した文字コードに-1を乗じています。

従ってもう一度このマクロを実行すれば

暗号化された文字が復号化されます。

　みなさんが、この赤字の部分をお好きなように変更すれば

みなさん、独自の暗号キーになります。

★暗号化する場合の例

CodeNum = CodeNum + 123

★上記を復号化する場合の例

CodeNum = CodeNum - 123

　１２３を加えただけですから１２３を減じれば

元に戻るというわけです。