您现在正在浏览：站长之家 >> 数据库 >> 详细内容

破解ACCESS的数据库密码

时间:2007-12-23 来源:不详作者:迈克DB

　　 EncodeArray[i * 2 1] := InhereCode[i];
　 end;
end;
if (WTime >= Date1) and (WTime < Date2) then begin
　 for i := 0 to 9 do begin
　　 EncodeArray[i * 2] := (Trunc(WTime) - Trunc(Date1)) xor UserCode[i];
　　 EncodeArray[i * 2 1] := InhereCode[i];
　 end;
end;
if WTime >= Date2 then begin
　 for i := 0 to 9 do begin
　　 EncodeArray[i * 2] := (Trunc(WTime) - Trunc(Date1)) xor UserCode[i];
　　 EncodeArray[i * 2 1] := InhereCode[i] xor 1;
　　 // Xor 1 就是“末位取反”
　 end;
end;
PassCode := '';
for i := 0 to 19 do begin
　 N := EncodeArray[i] xor ReaderArray[i];
//　　if N <> 0 then PassCode := PassCode Chr(N);
　 if N <> 0 then PassCode := PassCode WideChar(N);
end;
Result.FileType := 'ACCESS-2000';
Result.FileTime := WTime;
Result.PassCode := PassCode;
end;

procedure TPassForm.GetAllPass(Sender: TObject);
begin
Memo1.Clear;
Memo1.Lines.BeginUpdate; 织梦内容管理系统
if Trim(Edit1.Text) = '' then Exit;
ExecDirectory(Edit1.Text);
Memo1.Lines.EndUpdate;
end;

procedure TPassForm.SetCurTime(Sender: TObject);
begin
Self.SetTime(Pick1.Date);
end;

end.

　　