unit1.cpp

实现本机加密

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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TMpgForm *MpgForm;
String a,b,HardList,TotalSpace;
//---------------------------------------------------------------------------
__fastcall TMpgForm::TMpgForm(TComponent* Owner)
        : TForm(Owner)
{
        HardList="3D521C0B6D4698B96E5304416F5F6FC9706B9C89";
        TotalSpace="9760381098366109836610983661097366" ;
}
//---------------------------------------------------------------------------

void __fastcall TMpgForm::Button1Click(TObject *Sender)
{


       if((a==HardList)&&(b==TotalSpace))
       {
        OpenDialog1->Title="请选择一个电影文件：";
        OpenDialog1->Filter="电影文件(*.avi)|*.avi|电影文件(*.mpg)|*.mpg|电影文件(*.dat)|*.dat";
        OpenDialog1->Execute();
        if(OpenDialog1->FileName!="")
        {
          MediaPlayer1->Display=Panel1;
          MediaPlayer1->FileName=OpenDialog1->FileName;
          MediaPlayer1->Open();
          MediaPlayer1->Play();
          Button2->Enabled=true;
          Timer1->Enabled=true;
          ScrollBar1->Min=0;
          ScrollBar1->Max=MediaPlayer1->Length;
        }
       }
       else
       {
          ShowMessage("对不起！不是本机，请解密。");
          //Button3->Enabled=true;
          Button4->Enabled=true;
       }

}
//---------------------------------------------------------------------------

void __fastcall TMpgForm::Button2Click(TObject *Sender)
{
        MediaPlayer1->Stop();
        MpgForm->Close();        
}
//---------------------------------------------------------------------------
void __fastcall TMpgForm::FormCreate(TObject *Sender)
{
        //取得现在运行的逻辑磁盘
    DWORD Drives = ::GetLogicalDrives();
    for(int x = 0; x < 32; ++x)
    if(Drives & (1 << x))
       {
       String fs;
       String Drive = AnsiString(char('A' + x)) + ":\\";
       DWORD sn, fsf,TotalClusters;
       char Volume[80], snb[80], fsfb[80];
       //取得指定磁盘序列号&格式
       if((::GetVolumeInformation(Drive.c_str(),
                                 Volume, sizeof(Volume),
                                 &sn, 0,
                                 &fsf,
                                 fsfb, sizeof(fsfb)))&&(::GetDiskFreeSpace(Drive.c_str(),
                                 0,0,0,&TotalClusters)))
          {
            sprintf(snb, "%X", sn);
            Drive += " " + AnsiString(Volume) + ", 磁盘序列号：" +
                   String(snb)+ ", 磁盘格式：" + String(fsfb)+"磁盘总空间"+AnsiString(TotalClusters)+"MB";
            a+=String(snb);
            b+=AnsiString(TotalClusters);
          }
       }
        Button1->Enabled=true;
        Button2->Enabled=false;
        //Button3->Enabled=false;
}
//---------------------------------------------------------------------------
void __fastcall TMpgForm::Timer1Timer(TObject *Sender)
{
        ScrollBar1->Enabled=true;
        ScrollBar1->Position=MediaPlayer1->Position;        
}
//---------------------------------------------------------------------------
void __fastcall TMpgForm::ScrollBar1Scroll(TObject *Sender,
      TScrollCode ScrollCode, int &ScrollPos)
{
        MediaPlayer1->Position=ScrollBar1->Position;
        Timer1->Enabled=true;        
}
//---------------------------------------------------------------------------
void __fastcall TMpgForm::Button3Click(TObject *Sender)
{
        //Edit1->Text=a;
        //Edit2->Text=b;
        //Button2->Enabled=true;
}
//---------------------------------------------------------------------------

void __fastcall TMpgForm::Button4Click(TObject *Sender)
{
        HardList=a;
        TotalSpace=b;
        ShowMessage("解密成功！请打开文件！");
}
//---------------------------------------------------------------------------