Excel Maniacs

暗号化・復号化(8)

　下のコードは文字列を生の文字コードに（マクロ暗号化）、生の文字コードを文字列に変換するコード（マクロ復号化）です。生の文字コードでは

ダメだというならば前回、書いたとおり「０～９、A～F」を適当な文字に

置換するコードを「マクロ暗号化」の最後に付け加えるという手もあります。

（その時には、マクロ「復号化」の頭にもとの文字に戻す処理を

加えて下さい）

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

Sub 暗号化()
   
    Dim CharaCnt As Long
    Dim i As Long
    Dim MyExit As Integer
    Dim NetCharaNum As Long

   
    CharaCnt = Selection.Characters.Count
   
   
    For i = 1 To CharaCnt
        If (AscW(Mid(Selection.Text, i, 1)) > 30) Or (AscW(Mid(Selection.Text, i, 1)) < 0) Then NetCharaNum = NetCharaNum + 1
    Next
   
   
        For i = 1 To NetCharaNum
            Selection.Collapse
            Selection.MoveRight wdCharacter, 1, True
            Selection.ToggleCharacterCode
            Selection.Collapse wdCollapseEnd
                Do While Selection.Text = Chr(9) Or Selection.Text = Chr(11) Or Selection.Text = Chr(13)
                   Selection.MoveRight wdCharacter, 1
                   MyExit = MyExit + 1
                   If MyExit > 20 Then Exit Sub
                  
                Loop
                MyExit = 0
        Next

      
       
      
       
   
End Sub

'------------------------------------------------------------
Sub 復号化()
   
    Dim CharaCnt As Long
    Dim i As Long
    Dim MyExit As Integer
    Dim NetCharaNum As Long
   
   
    CharaCnt = Selection.Characters.Count
   
    For i = 1 To CharaCnt
        If AscW(Mid(Selection.Text, i, 1)) > 30 Then NetCharaNum = NetCharaNum + 1
    Next
   
   
        For i = 1 To NetCharaNum \ 4
            Selection.Collapse
            Selection.MoveRight wdCharacter, 4, True
            Selection.ToggleCharacterCode
            Selection.Collapse wdCollapseEnd
                Do While Selection.Text = Chr(9) Or Selection.Text = Chr(11) Or Selection.Text = Chr(13)
                   Selection.MoveRight wdCharacter, 1
                   MyExit = MyExit + 1
                   If MyExit > 20 Then Exit Sub
                  
                Loop
                MyExit = 0
        Next

      
       
      
       
   
End Sub

暗号化・復号化(7)

【´･ω･`】:実は今回の「暗号化・復号化」は「暗号化・復号化(5)」と

　　　　　「暗号化・復号化(6)」で書いたAlt + x で文字コードを文字に、

　　　　　または文字を文字コードに変換できることに気づいたところから

　　　　　全てが始まった。

（●｀ε´●）：　「これは遊べる！！」と喜んでいたな。

【´･ω･`】:うん、「くまぷー」が「304F307E307730FC」になるのは

　　　　　暗号を連想させた。一文字一文字、手で変換するのは

　　　　　かったるいから、VBAで自動化しようというのは当然の

　　　　　なりゆきだった。とりあえず記録マクロで調べてみると

　　　　　流石、ワード！！ちゃんとこれに対応するメソッドが

　　　　　用意されていたのだ。

（●｀ε´●）：それが「ToggleCharacterCode」というわけだな。

【´･ω･`】:うん。それでは、まずはマクロ「暗号化」の考え方から

　　　　　　１．暗号化したいテキストの最初から一文字ずつ

　　　　　　　　「ToggleCharacterCode」を実行する。

　　　　　　２．その際、制御文字は無視する。

　　　　　　３．文字コードのままでは暗号化と言えないと

　　　　　　　　いうことであれば、3を@というように置換してやる。

　　　　　つぎにマクロ「復号化」の考え方を・・・

　　　　　１．上記３でやった反対の操作をおこなう。

　　　　　　　たとえば@を3に置換する。

　　　　　２．　先頭から4文字ずつひとまとめにして

　　　　　　　「ToggleCharacterCode」をかましていく。

　　　　　３．その際、制御文字は無視する。

（続く）

　　　　　

暗号化・復号化(6)

さて、前回の「暗号化・復号化(5)」は読んで頂けたでしょうか？

それではもう一つ、実験してみましょう。

ワードを立ち上げて下さい。

「くまぷー」と入力して下さい。

１．「く」を選択してAlt+xを押して下さい。

２．「ま」を選択してAlt+xを押して下さい。

３．「ぷ」を選択してAlt+xを押して下さい。

４．「ー」を選択してAlt+xを押して下さい。

SHZAAM！！

この手を使えばWordの暗号化・復号化が上手くできるはずです。

これなら、字体も維持されるでしょう。