Code/Resource
Windows Develop
Linux-Unix program
Internet-Socket-Network
Web Server
Browser Client
Ftp Server
Ftp Client
Browser Plugins
Proxy Server
Email Server
Email Client
WEB Mail
Firewall-Security
Telnet Server
Telnet Client
ICQ-IM-Chat
Search Engine
Sniffer Package capture
Remote Control
xml-soap-webservice
P2P
WEB(ASP,PHP,...)
TCP/IP Stack
SNMP
Grid Computing
SilverLight
DNS
Cluster Service
Network Security
Communication-Mobile
Game Program
Editor
Multimedia program
Graph program
Compiler program
Compress-Decompress algrithms
Crypt_Decrypt algrithms
Mathimatics-Numerical algorithms
MultiLanguage
Disk/Storage
Java Develop
assembly language
Applications
Other systems
Database system
Embeded-SCM Develop
FlashMX/Flex
source in ebook
Delphi VCL
OS Develop
MiddleWare
MPI
MacOS develop
LabView
ELanguage
Software/Tools
E-Books
Artical/Document
main.cpp
Package: ASProtectV2.4.rar [view]
Upload User: graphite
Upload Date: 2020-09-09
Package Size: 2587k
Code Size: 3k
Category:
Crack_Hack
Development Platform:
Others
- //---------------------------------------------------------------------------
- #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();
- }
- //---------------------------------------------------------------------------