Skip to content
This repository has been archived by the owner on Aug 12, 2021. It is now read-only.

Excel の読み取り専用パスワードを総当たりで解除する VBScript です。

License

Notifications You must be signed in to change notification settings

Neos21/unlock-excel-book-password

Folders and files

NameName
Last commit message
Last commit date

Latest commit

 

History

15 Commits
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Repository files navigation

Unlock Excel Book Password

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

使い方概要

  • Unlock.bat 経由で Unlock.vbs を起動して使ってください。
  • 設定ファイル Property.txt に開きたいブックなどの情報を記載してください。
  • パスワードが解除できると、Unlocked.txt にパスワードを書き込みます。

Property.txt の書き方

  • [プロパティ名]=[値] の形式で記述します。イコール = の前後にスペースは付けないでください。
  • 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 という文字列から探索を再開する)

strings プロパティ:探索文字列

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

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

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

progressStr プロパティ:レジューム

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

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

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

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

progressStr=0900

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

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

サンプルファイルの説明

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

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

Special Thanks

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

Links

About

Excel の読み取り専用パスワードを総当たりで解除する VBScript です。

Resources

License

Stars

Watchers

Forks

Releases

No releases published

Packages

No packages published