バッチファイルを暗号化する。(その２)

暗号化と言っても英字を半角カタカナにするだけですが。。。

ただし、全角文字は使えません。また、英小文字は英大文字に変換されます。

encrypt.vbs バッチファイル...

Set fso=CreateObject("Scripting.FileSystemObject")
For Each File In WScript.Arguments
  Text=fso.OpenTextFile(File).ReadAll
  If Right(Text,1)<>vbLf Then Text=Text & vbCrLf
  Text=Text & "chcp 932"
  Set oFile=fso.CreateTextFile(File & ".cmd")
  oFile.WriteLine "chcp 20127"
  For k=1 To Len(Text)
    c=Mid(Text,k,1)
    If 32<Asc(c) And Asc(c)<96 Then
      oFile.Write Chr(Asc(c)+128)
    ElseIf 96<Asc(c) And Asc(c)<123 Then
      oFile.Write Chr(Asc(c)+96)
    Else
      oFile.Write c
    End If
  Next
  oFile.Close
Next

例えば、aaa.cmd

echo abc
pause

は、aaa.cmd.cmd

chcp 20127
ﾅﾃﾈﾏ ﾁﾂﾃ
ﾐﾁﾕﾓﾅ
ﾃﾈﾃﾐ ｹｳｲ

に暗号化されます。