#include

#pragma hdrstop

#include "dolACCESS.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

Tform1 *form1;

//---------------------------------------------------------------------------

__fastcall Tform1::Tform1(TComponent* Owner)

: Tform(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall Tform1::SpeedButton1Click(TObject *Sender)

{

if( OpenDialog1->Execute())

edtFileName->Text=OpenDialog1->FileName;

else

Application->MessageBoxA("没有选定有效的文件名！","消息",IDOK);

}

//---------------------------------------------------------------------------

void __fastcall Tform1::Button1Click(TObject *Sender)

{

int iFileHandle;

int iByteRead;

int i,j;

char *pszBuffer;

char Code[0x27]={0x10,0xEC,0xCB,0x9C,0x50,0x28,0x85,0x8A,0xC2,0x7B,

0x63,0xDF,0xE1,0x13,0x59,0xB1,0xA2,0x79,0x04,0x7C};

if(edtFileName->Text.Length()!=0)

{

try

{

iFileHandle=FileOpen(edtFileName->Text,fmOpenRead);

FileSeek(iFileHandle,0x42,0);

pszBuffer=new char[0x27];

iByteRead=FileRead(iFileHandle,pszBuffer,0x27);

FileClose(iFileHandle);

i=iByteRead/2;

for(j=0;j<=i;j++)

{

Code[j]=Code[j]^pszBuffer[2*j];

}

delete [] pszBuffer;

edtPassword->Text=Code;

if(edtPassword->Text.Length()==0)

edtPassword->Text="此数据库未设置密码!";

}

catch(const Exception& e)

{

Application->MessageBoxA("读取文件错误!!!","错误!",IDOK);

}

}

else

{

Application->MessageBoxA("没有输入有效的文件名","注意!",IDOK);

}

}