ROT13,ROT47,シーザー暗号化、復号化のVBScriptです。
お遊びで作ってみました。
rot13_rot47.zipです。
インプットボックス で "input text for ROT13/47/caesar3"と聞いてくるようにしています。
シーザーは3シフトで暗号化、復号化してます。3以外は中をいじってください。
中を参照すれば判ると思いますが、inputbox 行頭をコメントアウト( ' )して、
'ret = WScript.StdIn.ReadAll 行の
行頭コメントを外せば、コマンドプロンプトからテキストなどを読み込ませることができます。
例： type file.txt | cscript rot13_rot47.vbs
New-Item registry::HKEY_CLASSES_ROOT\Microsoft.PowerShellScript.1\shell\open\command -value '"C:\Windows\system32\WindowsPowerShell\v1.0\powershell.exe" "%1"' -force
New-Item registry::HKEY_CLASSES_ROOT\Microsoft.PowerShellScript.1\shell\open\command -value '"C:\Windows\system32\WindowsPowerShell\v1.0\powershell.exe" "& ''%1''"' -force要は、PowerShell.exe の引数に "%1" ではなく、 "& '%1' "を渡します。
