バッチファイルを暗号化する。(その2)
暗号化と言っても英字を半角カタカナにするだけですが。。。
ただし、全角文字は使えません。また、英小文字は英大文字に変換されます。
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
ナテネマ チツテ
ミチユモナ
テネテミ ケウイ
に暗号化されます。
« IEのFullScreen、ToolBar、AddressBar、MenuBar、StatusBarをトグル。 | トップページ | Vista+IE8 で、mhtmlファイルを開くと、ゴミファイルが残る。(その3) »