12306 大规模数据泄露事件中招查询工具-附源码

这个工具的目的是在不传播那些用户数据的前提下，给大家提供一个查询自己是否中招的工具。这个工具不需要联网，不需要安装，直接查询本地的12306.hashs这个MD5摘要数据，由于您输入的身份证号信息只与本地的12306.hashs文件中的指纹数据进行对比，而12306.hashs没有任何个人敏感信息，所以您可以放心使用它。至于为什么什么身份证号，一个很重要的原因是使用身份证号实际程序不会得到任何敏感数据，您也不用我收集你的身份证号（说实在的，有那精力，我还不如用身份证号生成工具生成呢），您也不用担心您的身份证号会被我传到某个不知名的地方。

全部源码：

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,System.Generics.Collections,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls,qrbtree;

type
  TForm1 = class(TForm)
    btnQuery: TButton;
    Label1: TLabel;
    Label3: TLabel;
    edtId: TEdit;
    lblResult: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure btnQueryClick(Sender: TObject);
  private
    { Private declarations }
    FList:TStringList;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses qstring, qdigest;
{$R *.dfm}
const
  MD5_Append:QStringW='';//这个用于MD5混淆的值不公开
procedure TForm1.btnQueryClick(Sender: TObject);
var
  AHash: TQMD5Digest;
  AIndex:Integer;
begin
AHash:=MD5Hash(Trim(edtId.Text)+MD5_Append);
if FList.Find(DigestToString(AHash),AIndex) then
  begin
  lblResult.Font.Color:=clRed;
  lblResult.Caption:='很不幸，您被命中了，请及时更换您的12306相关信息。';
  end
else
  begin
  lblResult.Font.Color:=clGreen;
  lblResult.Caption:='不用太担心，至少这批被泄露的数据中没有您。';
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
   p,pl:PQCharW;
   S,L,AName,AId:QStringW;
  AHash: TQMD5Digest;
   AStream:TMemoryStream;
   C:Integer;
   ABuilder:TQStringCatHelperW;
begin
 S:=LoadTextW('c:\temp\12306.txt');
 p:=PQCharW(S);
 ABuilder:=TQStringCatHelperW.Create;
 while p^ <> #0 do
   begin
   L := DecodeLineW(p);
   pl := PQCharW(L);
   C := 0;
   while pl^ <> #0 do
     begin
     if StartWithW(pl, '----', False) then
       begin
       Inc(pl, 4);
       if C = 1 then
         begin
         AName := DecodeTokenW(pl, '-', #0, True);
         SkipCharW(pl, '-');
         AId := DecodeTokenW(pl, '-', #0, True);
         Break;
         end;
       Inc(C);
       end
     else
       Inc(pl);
     end;
   AHash := MD5Hash(AId + MD5_Append);
   ABuilder.Cat(DigestToString(AHash)).Cat(SLineBreak);
   end;
 SaveTextW(ExtractFilePath(Application.ExeName) + '12306.hashs',
   ABuilder.Value);
 FreeObject(ABuilder);
 end;

procedure TForm1.FormCreate(Sender: TObject);
 var
   AFileName: QStringW;
begin
FList:=TStringList.Create;
AFileName:=ExtractFilePath(Application.ExeName)+'12306.hashs';
if FileExists(AFileName) then
  begin
  FList.LoadFromFile(AFileName);
  FList.Sort;
  end
else
  begin
  Application.MessageBox('12306.hashs文件不存在，无法查询。','错误',MB_OK or MB_ICONSTOP);
  Exit;
  end;
end;

【下载链接】

百度网盘

【病毒扫描结果】

VirScan病毒扫描报告

【附】

本次数据泄露可能的源头的简单分析：