unit GetAPass;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Variants, ComOBJ, StdCtrls, ExtCtrls, ComCtrls, FileCtrl, ActnList, ImgList,
  ToolWin;

const
  Model = 'yyyy-mm-dd hh:nn:ss';
type
  PassType = record
£  PassCode: string;
£  FileType: string;
£  FileTime: TDateTime;
  end;£ £ £ £ £ £ £ £ £ £ £ £ £ £ £ 
  TPassForm = class(TForm)
£  ListView1: TListView;
£  ImageList1: TImageList;
£  StatusBar1: TStatusBar;
£  Memo1: TMemo;
£  CoolBar1: TCoolBar;
£  ToolBar1: TToolBar;
£  ToolButton1: TToolButton;
£  ToolButton2: TToolButton;
£  ToolButton3: TToolButton;
£  ToolButton4: TToolButton;
£  ToolButton5: TToolButton;
£  ToolButton6: TToolButton;
£  ImageList2: TImageList;
£  Edit1: TEdit;
£  Pick1: TDateTimePicker;
£  Splitter1: TSplitter;
£  procedure CloseForm(Sender: TObject);
£  procedure FormCreate(Sender: TObject);
£  procedure FormDestroy(Sender: TObject);
£  procedure GetMDBDir(Sender: TObject);
£  procedure Edit1KeyPress(Sender: TObject; var Key: Char);
£  procedure CreateMDB(Sender: TObject);
£  procedure GetAllPass(Sender: TObject);
£  procedure SetCurTime(Sender: TObject);
  private
£  { Private declarations }
£  DateStr: DWord;
£  PassCode: WideString;
£  EncodeArray: array[0..19] of Word;
£  ReaderArray: array[0..19] of Word;
£  function ExecFile(FName: string): PassType;
£  procedure ExecDirectory(S: string);
£  function Make01(F: string; P: string = ''): boolean;
£  function Make02(F: string): boolean;
£  procedure SetTime(YY, MM, DD: Word); overload;
£  procedure SetTime(MYDate: TDate); overload;
  public
£  { Public declarations }
£  FileBox1: TFileListBox;
  end;

var
//2079-06-05Ç°£ [EC37£ 9CFA£ 28E6£ 8A60£ 7B36£ DFB1£ 1343£ B133£ 795B£ 7C2A ]
//2079-06-05ºó£ [ED37£ 9DFA£ 29E6£ 8B60£ 7A36£ DEB1£ 1243£ B033£ 785B£ 7D2A ]
{ ¹Ì¶¨ÃÜÔ¿ }
  InhereCode: array[0..9] of Word =
  ($37EC, $FA9C, $E628, $608A, $367B, $B1DF, $4313, $33B1, $5B79, $2A7C);

{£ »î¶¯ÃÜÔ¿ }
  UserCode8: array[0..9] of Word = //89Äê9ÔÂ17ÈÕÇ°
  ($8B86, $345D, $2EC6, $C613, $E454, $02F5, $8477, $DFCF, $1134, $C592);
  UserCode: array[0..9] of Word = //89Äê9ÔÂ17ÈÕºó
  ($7B86, $C45D, $DEC6, $3613, $1454, $F2F5, $7477, $2FCF, $E134, $3592);

  InCode97: array[0..19] of byte = //Access 97 ¹Ì¶¨ÃÜÔ¿
  ($86, $FB, $EC, $37, $5D, $44, $9C, $FA, $C6, $5E,
£  $28, $E6, $13, $00, $00, $00, $00, $00, $00, $00);
var
  PassForm: TPassForm;

implementation

{$R *.DFM}

procedure TPassForm.SetTime(YY, MM, DD: Word);
var
  myST: TSystemTime;
  MSec: Word;
begin
  with myST do begin
£  MyST.wYear := YY;
£  MyST.wMonth := MM;
£  MyST.wDay := DD;
£  DecodeTime(Time, wHour, wMinute, wSecond, MSec);
  end;
  try SetLocalTime(myST)except ShowMessage('Error'); end;
end;

procedure TPassForm.SetTime(MYDate: TDate);
var
  myST: TSystemTime;
  MSec: Word;
begin
  with myST do begin
£  DecodeDate(MyDate, wYear, wMonth, wDay);
£  DecodeTime(Time, wHour, wMinute, wSecond, MSec);
  end;
  try SetLocalTime(myST)except end;
end;