破解

开发平台：

Others

main.cpp：源码内容

							//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "main.h"
#include <windows.h>
#include "regkey.h"
#include "includeaspr_api.h"
#include "includeasprotect.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfrmApp *frmApp;
//---------------------------------------------------------------------------
  char* UserKey  = NULL;
  char* UserName = NULL;
  char* ModeName       = NULL;
  ULONG TrialDaysTotal = -1;
  ULONG TrialDaysLeft  = -1;
//---------------------------------------------------------------------------
__fastcall TfrmApp::TfrmApp(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TfrmApp::FormShow(TObject *Sender)
{
  char buffer[256];
  MODE_STATUS mode_status;
  lStatus->Caption = "123";
  GetRegistrationInformation( 0, &UserKey, &UserName );
  if ((UserKey != NULL) && (strlen(UserKey) > 0))
  {
    // Trial doesn't expire
    // Application was registered
    REG_CRYPT_BEGIN1
    GetModeInformation( 0, &ModeName, &mode_status );
    btnBuy->Visible = FALSE;
    wsprintf( buffer,"Registered version:nnKey: %snnName: tt%snMode Name: t%s",
              UserKey, UserName, ModeName );
    lStatus->Caption = buffer;
    REG_CRYPT_END1
  }
   else
  {
    if (GetTrialDays( 0, &TrialDaysTotal, &TrialDaysLeft ))
    {
      if (TrialDaysLeft == 0)
      {
        btnBuy->Visible = TRUE;
        lStatus->Caption = "TRIAL EXPIRED!";
      }
       else
      {
        wsprintf( buffer,"Unregistered trial versionnnYou have %i day(s) left",
                  TrialDaysLeft );
        lStatus->Caption = buffer;
      }
    }
  }
}
//---------------------------------------------------------------------------
void __fastcall TfrmApp::btnCloseClick(TObject *Sender)
{
  Close();
}
//---------------------------------------------------------------------------
void __fastcall TfrmApp::btnBuyClick(TObject *Sender)
{
  ShellExecute(GetDesktopWindow(), "open", "http://www.aspack.com/register.htm", NULL, NULL, SW_SHOWNORMAL);
}
//---------------------------------------------------------------------------
void __fastcall TfrmApp::btnRegistrationClick(TObject *Sender)
{
  Hide();
//frmRegKey->ShowModal();
  TfrmRegKey* frmRegKey = new TfrmRegKey(Application);
  try{
    frmRegKey->ShowModal();
  }
  catch(...){
    frmRegKey->Free();
    throw;
  }
  frmRegKey->Free();
  Show();
}
//---------------------------------------------------------------------------

						