ROT13 ROT47 caesar 暗号化復号化 VBScript
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
ちなみに、ROT13/47/シーザー のロジック自体が復号化が難しい暗号ではありませんし、ロジック自体日本語未対応
ですので本気で暗号化として使わないように。いないか。
あくまで、「なんじゃこれROT13か？」というときに確認するだけのツールです。