Author: Maarten de Haan
Get the MicroSoft Access '97 password.
Answer:
1 function GetMDB97PassWord(Filename: string): string;
2
3 const
4 XorArr: array[0..12] of Byte = ($86, $FB, $EC, $37, $5D, $44, $9C, $FA, $C6, $5E,
5 $28, $E6, $13);
6
7 var
8 I: Integer;
9 Arr: array[0..12] of Byte;
10 S1: string;
11 FI: file of Byte;
12 By: Byte;
13 Access97: Boolean;
14 FileError: Boolean;
15
16 begin
17 // Init
18 FileError := False;
19 Access97 := True;
20
21 // Open file
22 AssignFile(FI, Filename);
23 Reset(FI);
24
25 // Read file
26 I := 0;
27 repeat
28 if not Eof(FI) then
29 begin
30 read(FI, By);
31 Inc(I);
32 end;
33 until (I = $42) or Eof(FI);
34 if Eof(FI) then
35 FileError := True;
36
37 // Read password string
38 for I := 0 to 12 do
39 if not Eof(FI) then
40 read(FI, Arr[I]);
41
42 if Eof(FI) then
43 FileError := True;
44
45 //Close file
46 CloseFile(FI);
47
48 // Read string in S1
49 S1 := '';
50 for I := 0 to 12 do
51 S1 := S1 + Chr(Arr[I]);
52
53 // Is nul string?
54 if S1 = #0 + #0 + #0 + #0 + #0 + #0 + #0 + #0 + #0 + #0 + #0 + #0 + #0 then
55 Access97 := False;
56
57 // Decode string
58 S1 := '';
59 for I := 0 to 12 do
60 S1 := S1 + Chr(Arr[I] xor XORArr[I]);
61
62 // Find end of string
63 I := 0;
64 repeat
65 Inc(I);
66 until (S1[I] = #0) or (I = 14);
67 if I <= 14 then
68 S1 := Copy(S1, 1, I - 1);
69
70 // Gather the results
71 if Access97 then
72 begin
73 if Length(S1) > 0 then
74 Result := 'The password is: ' + S1 + '.'
75 else
76 Result := 'The file is NOT password protected.';
77 end
78 else
79 Result := 'The file is not an Access 97 file / wrong format.';
80
81 if FileError then
82 Result := 'File error';
83 end;
|
