Unlock Excel Book Password

読み取り専用パスワードがかけられた Excel ブックを総当たりで開こうとする VBScript です。

使い方概要

[プロパティ名]=[値] の形式で記述します。イコール = の前後にスペースは付けないでください。
fileName= : 開きたいブック名をフルパスで書きます。
例 : fileName=C:\UnlockExcelBookPassword\Sample.xlsx
min= : 探索するパスワード長の最小桁を指定します。
例 : min=4 (4桁の組み合わせから始める)
max= : 探索するパスワード長の最大桁を指定します。
例 : max=6 (6桁の組み合わせまで探索する)
strings= : 探索に使用する文字列をスペースなしカンマ区切りで指定します。
例 : strings=0,1,2,3,4,5,6,7,8,9
progressStr= : 最後に探索した文字列を指定しておくと、次回起動時にこの文字列からレジュームして探索を再開します。任意設定項目なので、不要なら progressStr= と空にしておいてください。
例 : progressStr=00200 (00200 という文字列から探索を再開する)

探索に使用する文字列を指定できます。「hoge と fuga という文字列の組み合わせでパスワードを作ったと思うんだけど…」というように、ある程度使用している文字が推測できている場合は、

strings=h,o,g,e,f,u,a

というように指定すれば、これらの文字から総当たりで組み合わせの文字列を作成します。数字やその他のアルファベットなどが対象にならないので、探索時間を短縮できます。

探索処理を再開するときにレジュームさせるための項目です。

例えば対象のパスワードが 00201 だったとして、数字のみの組み合わせで3桁目から探索しようとした場合は、以下のような設定項目で始めます。

min=3
max=6
strings=0,1,2,3,4,5,6,7,8,9
progressStr=

この状態でスクリプトを起動して探索を始めたものの、0900 の組み合わせ文字列を試したところでスクリプトを中断させたとします。その時は、設定ファイルを

progressStr=0900

と書き換えてスクリプトを起動することで、次回は 0901 からの組み合わせ文字列で探索を再開できます。3文字の場合の組み合わせはスキップし、4文字の場合の組み合わせも 0000 ～ 0900 までの組み合わせをスキップできます。

再起動するタイミングで strings プロパティは変えないようにしてください。正常にレジュームできなくなります。

Sample.xlsx は、パスワード 00201 で開けるサンプルファイルです。中身は何もありませんし、スクリプト動作に必要なファイルでもありません。

同梱の Property.txt はこの Sample.xlsx を開くテイで記述しています。fileName= 部分のフルパスを各自の環境に合わせて修正して試してみてください。

一方的に以下のスクリプトを参考にさせていただきました。