activelock-development Mailing List for ActiveLock (Page 18)
Brought to you by:
ialkan
Menu
▾
▴
activelock-development — ActiveLock Software Development Mailing List
You can subscribe to this list here.
| 2003 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
(5) |
Jul
(52) |
Aug
(170) |
Sep
(34) |
Oct
(62) |
Nov
(46) |
Dec
(3) |
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 2004 |
Jan
(7) |
Feb
(2) |
Mar
|
Apr
(17) |
May
(14) |
Jun
(31) |
Jul
(59) |
Aug
(18) |
Sep
(3) |
Oct
|
Nov
|
Dec
(5) |
| 2005 |
Jan
|
Feb
(10) |
Mar
(3) |
Apr
(4) |
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
|
From: SourceForge.net <no...@so...> - 2003-08-05 04:39:54
|
Task #82903 has been updated. Project: ActiveLock Subproject: ActiveLock 2.0-alpha1 Summary: API Docs Complete: 100% Status: Open Authority : th2tran Assigned to: mcrute Description: Need to generate docs for the API. Suggestion: Use VBDox (search for VBDox on SF). It allows you to autogenerate docs from code comments. We can then use the generated html files to compile into a .chm or something. Follow-Ups: ------------------------------------------------------- Date: 2003-08-05 04:39 By: th2tran Comment: Done. ------------------------------------------------------- Date: 2003-08-02 08:28 By: th2tran Comment: I think we need something for Alpha 1 that developers can use to familiarize themselves with how the API works. I can have a head start by vbdoxing the code if you'd like. You can take over from there. ------------------------------------------------------- Date: 2003-08-02 02:37 By: mcrute Comment: I will take care of this one. Starting as soon as alpha one is released. -Mike ------------------------------------------------------- For more info, visit: http://sourceforge.net/pm/task.php?func=detailtask&project_task_id=82903&group_id=70007&group_project_id=25539 |
|
From: Michael E. C. <mc...@us...> - 2003-08-05 01:32:23
|
Update of /cvsroot/activelock/activelock2/doc
In directory sc8-pr-cvs1:/tmp/cvs-serv31195/doc
Modified Files:
ReleaseNotes.htm
Log Message:
Revised for Alpha 1 release
Index: ReleaseNotes.htm
===================================================================
RCS file: /cvsroot/activelock/activelock2/doc/ReleaseNotes.htm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- ReleaseNotes.htm 4 Aug 2003 22:31:17 -0000 1.2
+++ ReleaseNotes.htm 5 Aug 2003 01:32:19 -0000 1.3
@@ -18,16 +18,16 @@
</ul>
</li>
<li><font size="2" face="Verdana">Strong Encryption - protects your license data</font></li>
- <li><font size="2" face="Verdana">New Licesing Formats</font><font size="2">
+ <li><font size="2" face="Verdana">New Licensing Formats</font><font size="2">
</font>
<ul>
<li><font size="2" face="Verdana">Trial and Timed Expiry licenses now supported</font></li>
</ul>
</li>
- <li><font size="2" face="Verdana">Support for more licese storage methods</font><font size="2">
+ <li><font size="2" face="Verdana">Support for more license storage methods</font><font size="2">
</font>
<ul>
- <li><font size="2" face="Verdana">Alpha 1 only includes licese file storage</font></li>
+ <li><font size="2" face="Verdana">Alpha 1 only includes license file storage</font></li>
<li><font size="2" face="Verdana">Future releases will support Windows Registry
Storage</font></li>
</ul>
|
|
From: Michael E. C. <mc...@us...> - 2003-08-04 22:31:21
|
Update of /cvsroot/activelock/activelock2/doc In directory sc8-pr-cvs1:/tmp/cvs-serv2274/doc Modified Files: ReleaseNotes.htm Log Message: Revised for Alpha 1 release Index: ReleaseNotes.htm =================================================================== RCS file: /cvsroot/activelock/activelock2/doc/ReleaseNotes.htm,v retrieving revision 1.1 retrieving revision 1.2 diff -u -d -r1.1 -r1.2 --- ReleaseNotes.htm 4 Aug 2003 01:09:20 -0000 1.1 +++ ReleaseNotes.htm 4 Aug 2003 22:31:17 -0000 1.2 @@ -1,69 +1,75 @@ <html> <body> -<title>ActiveLock 2.0 Alpha 1 Release Notes</title> -<h1> ActiveLock 2.0 Alpha 1 Release Notes</h1> -<p>2003-08-03: Current release is version 2.0.alpha.1</p> - -<p>ActiveLock has gone through a major architectural change and rewrite in version 2 with -the goal of achieving better security.</p> - -<h2>Features in Alpha 1</h2> +<title></title> +<h1 align="center"><font size="5" face="Verdana"> <strong>ActiveLock 2.0 Alpha 1 Release Notes</strong></font></h1> +<p><font size="2" face="Verdana">ActiveLock has undergone major changes since + version 1.89. Version 2.0 introduces a completely new system architecture. + It is important + that you read these release notes and the other accompanying documentation + so that you can have a better understanding of the new ActiveLock.</font></p> +<p><font size="4" face="Verdana"><strong>WHATS NEW:</strong></font></p> <ul> - <li>Facility allowing the user program to perform a checksum on ActiveLock prior to using it. This helps - detect whether ActiveLock has been tampered.</li> - <li>Trial and Time expiry licenses are now supported</li> - <li>Support for different types of license stores. In Alpha 1, license file storage is implemented. - Future releases will support Windows Registry has a storage mechanism.</li> + <li><font size="2" face="Verdana">New DLL API - no more OCX</font></li> + <li><font size="2" face="Verdana">Enhanced security</font><font size="2"> + </font> + <ul> + <li><font size="2" face="Verdana">Functions allow users to checksum the ActiveLock + DLL before use</font></li> + </ul> + </li> + <li><font size="2" face="Verdana">Strong Encryption - protects your license data</font></li> + <li><font size="2" face="Verdana">New Licesing Formats</font><font size="2"> + </font> + <ul> + <li><font size="2" face="Verdana">Trial and Timed Expiry licenses now supported</font></li> + </ul> + </li> + <li><font size="2" face="Verdana">Support for more licese storage methods</font><font size="2"> + </font> + <ul> + <li><font size="2" face="Verdana">Alpha 1 only includes licese file storage</font></li> + <li><font size="2" face="Verdana">Future releases will support Windows Registry + Storage</font></li> + </ul> + </li> </ul> +<h2><font size="4" face="Verdana"><strong>BUG FIXES AND TO DO LISTS:</strong></font></h2> +<p><font size="2" face="Verdana">Due to the dynamic nature of bug fixes and to + do lists you have to have a look <a href="http://sourceforge.net/tracker/?group_id=70007&atid=526385">online</a> to see what is in the pot for the + next release of ActiveLock.</font></p> -<h2>Design Changes</h2> - +<h2><font size="4" face="Verdana"><strong>FEATURES FOR FUTURE VERSIONS:</strong></font></h2> +<p><font size="2" face="Verdana">Alpha 1 is the first of many releases of ActiveLock + 2.0. Listed below are the features you can expect to see in upcoming releases + of ActiveLock. If you don't see a feature that you would like added to ActiveLock + have a look at our <a href="http://sourceforge.net/tracker/?group_id=70007&atid=526388">Feature + Request system</a>... If you still don't see what + you want <a href="http://sourceforge.net/tracker/?group_id=70007&atid=526388">submit + a feature request</a> and we will try to get your feature added + to ActiveLock.</font></p> <ul> - <li>For better security and flexibility, ActiveLock is now an ActiveX DLL instead of an OCX.</li> - <li>RSA public key encryption is now being used to encrypt license key and other sensitive information.</li> - <li>New API has been developed. See API documentation for details. + <li><font size="2" face="Verdana">Concurrent licensing</font></li> + <li><font size="2" face="Verdana">Site licensing</font></li> + <li><a href="http://sourceforge.net/tracker/?group_id=70007&atid=526388"><font size="2" face="Verdana">More Online...</font></a></li> </ul> -<h2>Bug Fixes</h2> -<p>Please refer to API documentation for details.</p> - -<h2>Work in Progress</h2> - +<p><font size="4" face="Verdana"><strong>HOW YOU CAN HELP:</strong></font></p> +<p><font size="2" face="Verdana">Believe it or not your help is invaluable to + us and the rest of the ActiveLock users out there. The more users participate + the better we can make ActiveLock. Being a tester is not a big job but it + is important. Please follow the list below to help us make ActiveLock a great + product and to provide the best customer support we can.</font></p> <ul> - <li>Concurrent licensing</li> - <li>Site licensing</li> + <li><font size="2" face="Verdana">Download and Test ActiveLock</font></li> + <li><a href="http://sourceforge.net/tracker/?group_id=70007&atid=526385"><font size="2" face="Verdana">Submit Bug Reports as you find Bugs</font></a></li> + <li><a href="http://sourceforge.net/tracker/?group_id=70007&atid=526386"><font size="2" face="Verdana">Submit Support Tickets instead of Mailing + the Mailing List</font></a></li> + <li><font size="2" face="Verdana"><a href="http://sourceforge.net/tracker/?group_id=70007&atid=526388">Submit Feature Requests for New Features + you Want</a></font></li> + <li><font size="2" face="Verdana"><a href="http://www.activelock.org/boards">Post Feedback in Our Forums</a></font></li> + <li><font size="2" face="Verdana"><a href="mailto:mc...@us...?Subject=I%20Want%20to%20Join%20the%20ActiveLock%20Dev%20Team&Body=Tell%20us%20why%20you%20want%20to%20join%20the%20dev%20team%20in%20this%20space...">Join the Development Team</a></font></li> + <li><font size="2" face="Verdana">Don't be Afraid to ask for Help!</font></li> </ul> - -<h2>ToDo List</h2> -<p>Please refer to API documentation for details.</p> - -<h2>History of ActiveLock</h2> - -<h3>Version 1.x (1998-2002)</h3> -<p>TBD</p> - -<h3>Version 2.0</h3> -<table> -<tr> - <td><b>Date</b></td> - <td><b>Comment</b></td> -</tr> -<tr> - <td>2003/05/01</td> - <td>New development group is formed to develop ActiveLock Version 2. - Discussions on features and implementations are discussed</td> -</tr> -<tr> - <td>2003/06/01</td> - <td>Development begins</td> -</tr> -<tr> - <td>2003/08/04</td> - <td>ActiveLock 2.0 Alpha 1 is released</td> -</tr> -</table> - -<h2>Bug Fixes</h2> -<p>Please refer to API documentation for details.</p> +<p align="center"><font size="1" face="Verdana"><strong>Created August 4, 2003 by Michael E. Crute</strong></font></p> </body> </html> |
|
From: Michael E. C. <mc...@us...> - 2003-08-04 22:02:39
|
Update of /cvsroot/activelock/alcrypto
In directory sc8-pr-cvs1:/tmp/cvs-serv28866
Modified Files:
.cvsignore ALCrypto.dsp ALCrypto.dsw
Added Files:
Version.rc resource.h
Log Message:
Updated for version info.
--- NEW FILE: Version.rc ---
//Microsoft Developer Studio generated resource script.
//
#include "resource.h"
#define APSTUDIO_READONLY_SYMBOLS
/////////////////////////////////////////////////////////////////////////////
//
// Generated from the TEXTINCLUDE 2 resource.
//
#include "afxres.h"
/////////////////////////////////////////////////////////////////////////////
#undef APSTUDIO_READONLY_SYMBOLS
/////////////////////////////////////////////////////////////////////////////
// English (U.S.) resources
#if !defined(AFX_RESOURCE_DLL) || defined(AFX_TARG_ENU)
#ifdef _WIN32
LANGUAGE LANG_ENGLISH, SUBLANG_ENGLISH_US
#pragma code_page(1252)
#endif //_WIN32
#ifndef _MAC
/////////////////////////////////////////////////////////////////////////////
//
// Version
//
VS_VERSION_INFO VERSIONINFO
FILEVERSION 1,1,0,0
PRODUCTVERSION 2,0,0,0
FILEFLAGSMASK 0x3fL
#ifdef _DEBUG
FILEFLAGS 0x21L
#else
FILEFLAGS 0x20L
#endif
FILEOS 0x40004L
FILETYPE 0x2L
FILESUBTYPE 0x0L
BEGIN
BLOCK "StringFileInfo"
BEGIN
BLOCK "040904b0"
BEGIN
VALUE "Comments", "\0"
VALUE "CompanyName", "ActiveLock Software Group\0"
VALUE "FileDescription", "ActiveLock Cryptography Provider DLL\0"
VALUE "FileVersion", "1, 1, 0, 0\0"
VALUE "InternalName", "ALCrypto\0"
VALUE "LegalCopyright", "Copyright © 2003 ActiveLock Software Group\0"
VALUE "LegalTrademarks", "\0"
VALUE "OriginalFilename", "ALCrypto.dll\0"
VALUE "PrivateBuild", "\0"
VALUE "ProductName", "ActiveLock\0"
VALUE "ProductVersion", "2.0.0\0"
VALUE "SpecialBuild", "alpha1\0"
END
END
BLOCK "VarFileInfo"
BEGIN
VALUE "Translation", 0x409, 1200
END
END
#endif // !_MAC
#ifdef APSTUDIO_INVOKED
/////////////////////////////////////////////////////////////////////////////
//
// TEXTINCLUDE
//
1 TEXTINCLUDE DISCARDABLE
BEGIN
"resource.h\0"
END
2 TEXTINCLUDE DISCARDABLE
BEGIN
"#include ""afxres.h""\r\n"
"\0"
END
3 TEXTINCLUDE DISCARDABLE
BEGIN
"\r\n"
"\0"
END
#endif // APSTUDIO_INVOKED
#endif // English (U.S.) resources
/////////////////////////////////////////////////////////////////////////////
#ifndef APSTUDIO_INVOKED
/////////////////////////////////////////////////////////////////////////////
//
// Generated from the TEXTINCLUDE 3 resource.
//
/////////////////////////////////////////////////////////////////////////////
#endif // not APSTUDIO_INVOKED
--- NEW FILE: resource.h ---
//{{NO_DEPENDENCIES}}
// Microsoft Developer Studio generated include file.
// Used by Version.rc
//
// Next default values for new objects
//
#ifdef APSTUDIO_INVOKED
#ifndef APSTUDIO_READONLY_SYMBOLS
#define _APS_NEXT_RESOURCE_VALUE 101
#define _APS_NEXT_COMMAND_VALUE 40001
#define _APS_NEXT_CONTROL_VALUE 1000
#define _APS_NEXT_SYMED_VALUE 101
#endif
#endif
Index: .cvsignore
===================================================================
RCS file: /cvsroot/activelock/alcrypto/.cvsignore,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- .cvsignore 4 Aug 2003 02:54:06 -0000 1.1
+++ .cvsignore 4 Aug 2003 22:02:37 -0000 1.2
@@ -1,4 +1,5 @@
Debug
ALCrypto.plg
ALCrypto.ncb
-ALCrypto.ncb
\ No newline at end of file
+ALCrypto.ncb
+ALCrypto.opt
\ No newline at end of file
Index: ALCrypto.dsp
===================================================================
RCS file: /cvsroot/activelock/alcrypto/ALCrypto.dsp,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- ALCrypto.dsp 28 Jul 2003 01:01:03 -0000 1.1
+++ ALCrypto.dsp 4 Aug 2003 22:02:37 -0000 1.2
@@ -23,8 +23,8 @@
# Begin Project
# PROP AllowPerConfigDependencies 0
-# PROP Scc_ProjName ""
-# PROP Scc_LocalPath ""
+# PROP Scc_ProjName "ALCrypto"
+# PROP Scc_LocalPath "."
CPP=cl.exe
MTL=midl.exe
RSC=rc.exe
@@ -56,7 +56,7 @@
# ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /dll /machine:I386
# Begin Special Build Tool
SOURCE="$(InputPath)"
-PostBuild_Cmds=copy release\alcrypto.dll test\
+PostBuild_Cmds=copy release\alcrypto.dll test\
# End Special Build Tool
!ELSEIF "$(CFG)" == "ALCrypto - Win32 Debug"
@@ -86,7 +86,7 @@
# ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /dll /debug /machine:I386 /pdbtype:sept
# Begin Special Build Tool
SOURCE="$(InputPath)"
-PostBuild_Cmds=copy debug\alcrypto.dll test\
+PostBuild_Cmds=copy debug\alcrypto.dll test\
# End Special Build Tool
!ENDIF
@@ -171,6 +171,10 @@
# Begin Group "Resource Files"
# PROP Default_Filter "ico;cur;bmp;dlg;rc2;rct;bin;rgs;gif;jpg;jpeg;jpe"
+# Begin Source File
+
+SOURCE=.\Version.rc
+# End Source File
# End Group
# Begin Source File
Index: ALCrypto.dsw
===================================================================
RCS file: /cvsroot/activelock/alcrypto/ALCrypto.dsw,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- ALCrypto.dsw 28 Jul 2003 01:01:03 -0000 1.1
+++ ALCrypto.dsw 4 Aug 2003 22:02:37 -0000 1.2
@@ -3,10 +3,14 @@
###############################################################################
-Project: "ALCrypto"=.\ALCrypto.dsp - Package Owner=<4>
+Project: "ALCrypto"=".\ALCrypto.dsp" - Package Owner=<4>
Package=<5>
{{{
+ begin source code control
+ ALCrypto
+ .
+ end source code control
}}}
Package=<4>
|
|
From: Dan <wiz...@us...> - 2003-08-04 17:33:44
|
Update of /cvsroot/activelock/activelock2/src/res In directory sc8-pr-cvs1:/tmp/cvs-serv6419/src/res Modified Files: DLL.ico DLLXP.ico Log Message: Added 16x16 icons to DLL and DLLXP. Index: DLL.ico =================================================================== RCS file: /cvsroot/activelock/activelock2/src/res/DLL.ico,v retrieving revision 1.3 retrieving revision 1.4 diff -u -d -r1.3 -r1.4 Binary files /tmp/cvsi3veW2 and /tmp/cvsopRaEV differ Index: DLLXP.ico =================================================================== RCS file: /cvsroot/activelock/activelock2/src/res/DLLXP.ico,v retrieving revision 1.1 retrieving revision 1.2 diff -u -d -r1.1 -r1.2 Binary files /tmp/cvs8c5q53 and /tmp/cvskHy2SX differ |
|
From: Thanh H. T. <th...@us...> - 2003-08-04 13:50:56
|
Update of /cvsroot/activelock/activelock2/src In directory sc8-pr-cvs1:/tmp/cvs-serv3832 Modified Files: modActiveLock.bas Log Message: Updated vbdox regarding rsa_createkey() bug. Index: modActiveLock.bas =================================================================== RCS file: /cvsroot/activelock/activelock2/src/modActiveLock.bas,v retrieving revision 1.9 retrieving revision 1.10 diff -u -d -r1.9 -r1.10 --- modActiveLock.bas 4 Aug 2003 03:58:00 -0000 1.9 +++ modActiveLock.bas 4 Aug 2003 13:50:51 -0000 1.10 @@ -42,9 +42,16 @@ ' / MODULE TO DO LIST / ' /////////////////////////////////////////////////////////////////////// ' -' @bug rsa_encrypt() sometimes causes crash. This is related a bug in -' rsa_generate(). Sometimes, rsa_generate() generates a bad keyset, and -' this causes the encryption routines to crash. +' @bug rsa_createkey() sometimes causes crash. This is due to a bug in +' ALCrypto.dll in which a bad keyset is sometimes generated +' (either caused by <code>rsa_generate()</code> or one of <code>rsa_private_key_blob()</code> +' and <code>rsa_public_key_blob()</code>--we're not sure which is the culprit yet. +' This causes the <code>rsa_createkey()</code> call encryption routines to crash. +' The work-around for the time being is to keep regenerating the keyset +' until eventually you'll get a valid keyset that no longer causes a crash. +' You only need to go through this keyset generation step once. +' Once you have a valid keyset, you should store it inside your app for later use. +' ' /////////////////////////////////////////////////////////////////////// ' / MODULE CHANGE LOG / |
|
From: Thanh H. T. <th...@us...> - 2003-08-04 13:48:09
|
Update of /cvsroot/activelock/activelock2/test
In directory sc8-pr-cvs1:/tmp/cvs-serv3247
Modified Files:
ALTestApp.vbp frmMain.frm modMain.bas frmMain.frx
Log Message:
Added SoftwareCode generator and usage instructions.
Index: ALTestApp.vbp
===================================================================
RCS file: /cvsroot/activelock/activelock2/test/ALTestApp.vbp,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- ALTestApp.vbp 4 Aug 2003 11:08:04 -0000 1.8
+++ ALTestApp.vbp 4 Aug 2003 13:48:05 -0000 1.9
@@ -7,6 +7,7 @@
Module=modMain; modMain.bas
Module=modActiveLock; ..\src\modActiveLock.bas
ResFile32="atDisplay.RES"
+Object={6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0; COMCTL32.OCX
IconForm="frmMain"
Startup="frmMain"
HelpFile=""
Index: frmMain.frm
===================================================================
RCS file: /cvsroot/activelock/activelock2/test/frmMain.frm,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- frmMain.frm 4 Aug 2003 01:34:02 -0000 1.9
+++ frmMain.frm 4 Aug 2003 13:48:05 -0000 1.10
@@ -1,18 +1,39 @@
VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
+Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Begin VB.Form frmMain
BorderStyle = 3 'Fixed Dialog
Caption = "ActiveLock2 Test App"
- ClientHeight = 6270
+ ClientHeight = 6615
ClientLeft = 45
ClientTop = 330
ClientWidth = 8025
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
- ScaleHeight = 6270
+ ScaleHeight = 6615
ScaleWidth = 8025
StartUpPosition = 3 'Windows Default
+ Begin ComctlLib.StatusBar sbStatus
+ Align = 2 'Align Bottom
+ Height = 255
+ Left = 0
+ TabIndex = 56
+ Top = 6360
+ Width = 8025
+ _ExtentX = 14155
+ _ExtentY = 450
+ Style = 1
+ SimpleText = "Ready"
+ _Version = 327682
+ BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7}
+ NumPanels = 1
+ BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7}
+ Key = ""
+ Object.Tag = ""
+ EndProperty
+ EndProperty
+ End
Begin TabDlg.SSTab SSTab1
Height = 6255
Left = 0
@@ -42,27 +63,31 @@
Tab(0).Control(6).Enabled= 0 'False
Tab(0).Control(7)= "Label14"
Tab(0).Control(7).Enabled= 0 'False
- Tab(0).Control(8)= "cmdSoftwareCodeGen"
+ Tab(0).Control(8)= "Label15"
Tab(0).Control(8).Enabled= 0 'False
- Tab(0).Control(9)= "cmbLicClass"
+ Tab(0).Control(9)= "cmdSoftwareCodeGen"
Tab(0).Control(9).Enabled= 0 'False
- Tab(0).Control(10)= "txtName"
+ Tab(0).Control(10)= "cmbLicClass"
Tab(0).Control(10).Enabled= 0 'False
- Tab(0).Control(11)= "txtVersion"
+ Tab(0).Control(11)= "txtName"
Tab(0).Control(11).Enabled= 0 'False
- Tab(0).Control(12)= "txtSoftwareCodePriv"
+ Tab(0).Control(12)= "txtVersion"
Tab(0).Control(12).Enabled= 0 'False
- Tab(0).Control(13)= "txtSoftwareCodePub"
+ Tab(0).Control(13)= "txtSoftwareCodePriv"
Tab(0).Control(13).Enabled= 0 'False
- Tab(0).Control(14)= "cmbLicType"
+ Tab(0).Control(14)= "txtSoftwareCodePub"
Tab(0).Control(14).Enabled= 0 'False
- Tab(0).Control(15)= "txtDays"
+ Tab(0).Control(15)= "cmbLicType"
Tab(0).Control(15).Enabled= 0 'False
- Tab(0).Control(16)= "fraKeyGen"
+ Tab(0).Control(16)= "txtDays"
Tab(0).Control(16).Enabled= 0 'False
- Tab(0).Control(17)= "txtChecksum"
+ Tab(0).Control(17)= "fraKeyGen"
Tab(0).Control(17).Enabled= 0 'False
- Tab(0).ControlCount= 18
+ Tab(0).Control(18)= "txtChecksum"
+ Tab(0).Control(18).Enabled= 0 'False
+ Tab(0).Control(19)= "Text1"
+ Tab(0).Control(19).Enabled= 0 'False
+ Tab(0).ControlCount= 20
TabCaption(1) = "Registration"
TabPicture(1) = "frmMain.frx":001C
Tab(1).ControlEnabled= 0 'False
@@ -76,6 +101,16 @@
Tab(2).Control(1)= "fraViewport"
Tab(2).Control(2)= "fraTicker"
Tab(2).ControlCount= 3
+ Begin VB.TextBox Text1
+ BackColor = &H80000011&
+ Height = 1455
+ Left = 120
+ MultiLine = -1 'True
+ TabIndex = 57
+ Text = "frmMain.frx":0054
+ Top = 4680
+ Width = 7695
+ End
Begin VB.TextBox txtChecksum
BackColor = &H80000011&
Height = 285
@@ -87,10 +122,10 @@
End
Begin VB.Frame fraKeyGen
Caption = "Key Generator"
- Height = 2415
+ Height = 1335
Left = 120
TabIndex = 43
- Top = 3360
+ Top = 3000
Width = 7455
Begin VB.TextBox txtReqCodeIn
Height = 285
@@ -109,9 +144,11 @@
End
Begin VB.CommandButton cmdKeyGen
Caption = "Generat&e"
+ Enabled = 0 'False
Height = 255
Left = 6360
TabIndex = 44
+ ToolTipText = "Generate liberation key for the above request code (which should not be blank)."
Top = 600
Width = 975
End
@@ -139,17 +176,17 @@
Locked = -1 'True
TabIndex = 40
Text = "30"
- Top = 2445
+ Top = 2325
Width = 1215
End
Begin VB.ComboBox cmbLicType
Height = 315
- ItemData = "frmMain.frx":0054
+ ItemData = "frmMain.frx":01CA
Left = 1320
- List = "frmMain.frx":0061
+ List = "frmMain.frx":01D7
Style = 2 'Dropdown List
TabIndex = 3
- Top = 2160
+ Top = 2040
Width = 5055
End
Begin VB.TextBox txtSoftwareCodePub
@@ -216,9 +253,9 @@
End
Begin VB.ComboBox cboSpeed
Height = 315
- ItemData = "frmMain.frx":0087
+ ItemData = "frmMain.frx":01FD
Left = 2070
- List = "frmMain.frx":009A
+ List = "frmMain.frx":0210
Style = 2 'Dropdown List
TabIndex = 29
Top = 270
@@ -309,7 +346,7 @@
TickerFontSize = 11.25
TickerFlash = 0 'False
TickerPlaySound = 0 'False
- TickerScrollX = 518
+ TickerScrollX = 473
BalloonTipIcon = 0
BalloonTipText = "No Messages"
End
@@ -327,7 +364,7 @@
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 19
- Text = "frmMain.frx":00C4
+ Text = "frmMain.frx":023A
Top = 240
Width = 7425
End
@@ -342,7 +379,7 @@
End
Begin VB.Frame fraRegStatus
Caption = "Status"
- Height = 2655
+ Height = 2175
Left = -74880
TabIndex = 11
Top = 480
@@ -433,6 +470,7 @@
End
Begin VB.CommandButton cmdRegister
Caption = "&Register"
+ Enabled = 0 'False
Height = 255
Left = 6480
TabIndex = 10
@@ -473,22 +511,30 @@
End
Begin VB.ComboBox cmbLicClass
Height = 315
- ItemData = "frmMain.frx":0136
+ ItemData = "frmMain.frx":02AC
Left = 1320
- List = "frmMain.frx":0146
+ List = "frmMain.frx":02BC
Style = 2 'Dropdown List
TabIndex = 4
- Top = 2730
+ Top = 2610
Width = 5055
End
Begin VB.CommandButton cmdSoftwareCodeGen
Caption = "&Generate"
- Enabled = 0 'False
Height = 255
Left = 6480
TabIndex = 2
+ ToolTipText = $"frmMain.frx":033F
Top = 1560
- Width = 1215
+ Width = 1335
+ End
+ Begin VB.Label Label15
+ Caption = "Instructions:"
+ Height = 495
+ Left = 120
+ TabIndex = 58
+ Top = 4440
+ Width = 1935
End
Begin VB.Label Label14
Caption = "ActiveLock's Checksum:"
@@ -503,7 +549,7 @@
Height = 255
Left = 2640
TabIndex = 42
- Top = 2490
+ Top = 2370
Width = 1335
End
Begin VB.Label lblExpiry
@@ -511,7 +557,7 @@
Height = 255
Left = 120
TabIndex = 41
- Top = 2445
+ Top = 2325
Width = 1335
End
Begin VB.Label Label10
@@ -535,7 +581,7 @@
Height = 255
Left = 120
TabIndex = 6
- Top = 2730
+ Top = 2610
Width = 1335
End
Begin VB.Label Label2
@@ -543,7 +589,7 @@
Height = 255
Left = 120
TabIndex = 5
- Top = 2160
+ Top = 2040
Width = 1335
End
Begin VB.Label Label1
@@ -614,6 +660,7 @@
'
' 07.31.03 - th2tran - Now performing checksum on ActiveLock2.dll.
' 08.01.03 - wizzardme2000 - LockTypes other than MAC are now supported
+' 08.03.03 - th2tran - Added SoftwareCode generator and usage instructions.
'
' ///////////////////////////////////////////////////////////////////////
' / MODULE CODE BEGINS BELOW THIS LINE /
@@ -626,6 +673,55 @@
Attribute ActiveLockEventSink.VB_VarHelpID = -1
+Private Sub cmdSoftwareCodeGen_Click()
+ Screen.MousePointer = vbHourglass
+ txtSoftwareCodePub = ""
+ txtSoftwareCodePriv = ""
+ Enabled = False
+ DoEvents
+ On Error GoTo Done
+ Dim Key As RSAKey
+ Dim progress As ProgressType
+ ' generate the key
+ modActiveLock.rsa_generate Key, 1024, AddressOf ProgressUpdate, VarPtr(progress)
+ ' extract private and public key blobs
+ Dim strBlob As String
+ Dim blobLen As Long
+ rsa_public_key_blob Key, vbNullString, blobLen
+ If blobLen > 0 Then
+ strBlob = String(blobLen, 0)
+ rsa_public_key_blob Key, strBlob, blobLen
+ Debug.Print "Public blob: " & strBlob
+ txtSoftwareCodePub = strBlob
+ End If
+
+ modActiveLock.rsa_private_key_blob Key, vbNullString, blobLen
+ If blobLen > 0 Then
+ strBlob = String(blobLen, 0)
+ modActiveLock.rsa_private_key_blob Key, strBlob, blobLen
+ Debug.Print "Private blob: " & strBlob
+ txtSoftwareCodePriv = strBlob
+ End If
+ ' done with the key - throw it away
+ modActiveLock.rsa_freekey Key
+
+ ' Test generated key for correctness by recreating it from the blobs
+ ' Note:
+ ' ====
+ ' Due to an outstanding bug in ALCrypto.dll, sometimes this step will crash the app because
+ ' the generated keyset is bad.
+ ' The work-around for the time being is to keep regenerating the keyset until eventually
+ ' you'll get a valid keyset that no longer crashes.
+ Dim strData$: strData = "This is a test string to be encrypted."
+ modActiveLock.rsa_createkey txtSoftwareCodePub, Len(txtSoftwareCodePub), _
+ txtSoftwareCodePriv, Len(txtSoftwareCodePriv), Key
+ ' It worked! We're all set to go.
+ modActiveLock.rsa_freekey Key
+Done:
+ Screen.MousePointer = vbDefault
+ Enabled = True
+End Sub
+
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' ActiveLock Initialization
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
@@ -934,10 +1030,18 @@
End If
End Sub
+Private Sub txtLibKeyIn_Change()
+ cmdRegister.Enabled = CBool(Trim$(txtLibKeyIn.Text) <> "")
+End Sub
+
Private Sub txtName_Change()
MyActiveLock.SoftwareName = txtName
End Sub
+Private Sub txtReqCodeIn_Change()
+ cmdKeyGen.Enabled = CBool(Trim$(txtReqCodeIn.Text) <> "")
+End Sub
+
Private Sub txtSoftwareCodePub_Change()
MyActiveLock.SoftwareCode = txtSoftwareCodePub
End Sub
@@ -946,3 +1050,6 @@
MyActiveLock.SoftwareVersion = txtVersion
End Sub
+Public Sub UpdateStatus(Txt As String)
+ sbStatus.SimpleText = Txt
+End Sub
Index: modMain.bas
===================================================================
RCS file: /cvsroot/activelock/activelock2/test/modMain.bas,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- modMain.bas 4 Aug 2003 12:14:05 -0000 1.9
+++ modMain.bas 4 Aug 2003 13:48:05 -0000 1.10
@@ -245,3 +245,10 @@
End If
VerifyActiveLockdll = CStr(crc)
End Function
+
+''
+' Callback function for rsa_generate()
+'
+Public Sub ProgressUpdate(ByVal param As Long, ByVal action As Long, ByVal phase As Long, ByVal iprogress As Long)
+ frmMain.UpdateStatus "Progress Update received " & param & ", action: " & action & ", iprogress: " & iprogress
+End Sub
Index: frmMain.frx
===================================================================
RCS file: /cvsroot/activelock/activelock2/test/frmMain.frx,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
Binary files /tmp/cvsMNVrQB and /tmp/cvsIPiXv3 differ
|
|
From: Thanh H. T. <th...@us...> - 2003-08-04 12:37:11
|
Update of /cvsroot/activelock/activelock2/src
In directory sc8-pr-cvs1:/tmp/cvs-serv24504
Modified Files:
IActiveLock.cls
Log Message:
Corrections to vbdox comments.
Index: IActiveLock.cls
===================================================================
RCS file: /cvsroot/activelock/activelock2/src/IActiveLock.cls,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- IActiveLock.cls 4 Aug 2003 11:54:08 -0000 1.9
+++ IActiveLock.cls 4 Aug 2003 12:37:08 -0000 1.10
@@ -55,13 +55,15 @@
' <p>
' <b>Important!</b> It is also strongly recommended that a checksum on ActiveLock2.dll be performed
' prior to accessing and interacting with ActiveLock. See sample code below on how it is done.
-' <p> The sample code below illustrates of how this interface is used.
+' <p> The sample code fragments below illustrate of how this interface is used. Please note that the code shown is
+' only for illustration purposes and is not meant to be a complete compilable program. You may have to add
+' variable declarations and function definitions around the code fragments before you can compile it.
' <pre>
' Form1.frm:
' ...
' Private MyActiveLock As ActiveLock2.IActiveLock
' Private WithEvents ActiveLockEventSink As ActiveLockEventNotifier
-' Private Const AL_CRC& = 308603 '' ActiveLock2.dll's CRC checksum to be used for validation
+' Private Const AL_CRC& = 308603 ' ActiveLock2.dll's CRC checksum to be used for validation
'<br>
' '' This RSA private key will be used for data encryption and/or license key signing.
' Private Const PRIV_KEY$ = "AAAAgEPRFzhQEF7S91vt2K6kOcEdDDe5BfwNiEL30/+ozTFHc7cZctB8NIlS++ZR//D3AjSMqScjh7xUF/gwvUgGCjiExjj1DF/XWFWnPOCfF8UxYAizCLZ9fdqxb1FRpI5NoW0xxUmvxGjmxKwazIW4P4XVi/+i1Bvh2qQ6ri3whcsNAAAAQQCyWGsbJKO28H2QLYH+enb7ehzwBThqfAeke/Gv1Te95yIAWme71I9aCTTlLsmtIYSk9rNrp3sh9ItD2Re67SE7AAAAQQCAookH1nws1gS2XP9cZTPaZEmFLwuxlSVsLQ5RWmd9cuxpgw5y2gIskbL4c+4oBuj0IDwKtnMrZq7UfV9I5VfVAAAAQQCEnyAuO0ahXH3KhAboop9+tCmRzZInTrDYdMy23xf3PLCLd777dL/Y2Y+zmaH1VO03m6iOog7WLiN4dCL7m+Im"
@@ -73,11 +75,11 @@
' On Error GoTo Hell
' ' Obtain an instance of AL
' Set MyActiveLock = ActiveLock2.NewInstance()
-' ' Verify AL's authenticity
+' ' Verify AL's authenticity
' ' modActiveLock.CRCCheckSumTypeLib() requires a public-creatable object to be passed in so that it can
' ' determine the Type Library DLL on which to perform the checksum.
-' ' So can't use MyActiveLock object to authenticate since it is not a public creatable object.
-' ' So we'll use ActiveLock2.Globals, which is just as good because they are in the same DLL.
+' ' So can't use MyActiveLock object to authenticate since it is not a public creatable object.
+' ' So we'll use ActiveLock2.Globals, which is just as good because they are in the same DLL.
' Dim crc As Long
' crc = modActiveLock.CRCCheckSumTypeLib(New ActiveLock2.Globals)
' Debug.Print "Hash: " & crc
@@ -134,9 +136,9 @@
' ...
' '
' ' ActiveLock raises this event typically when it needs a value to be encrypted.
-' ' We can use any kind of encryption we'd like here, as long as it's deterministic.
-' ' i.e. there's a one-to-one correspondence between unencrypted value and encrypted value.
-' ' NOTE: BlowFish is NOT an example of deterministic encryption so you can't use it here.
+' ' We can use any kind of encryption we'd like here, as long as it's deterministic.
+' ' i.e. there's a one-to-one correspondence between unencrypted value and encrypted value.
+' ' NOTE: BlowFish is NOT an example of deterministic encryption so you can't use it here.
' Private Sub ActiveLockEventSink_ValidateValue(ByVal Value As String, Result As String)
' Result = Encrypt(Value)
' End Sub
@@ -180,7 +182,7 @@
' <pre>
' ' First, take request code and decode it.
' Dim strReq As String
-' strReq = ActiveLock2.Base64Decode(txtReqCodeIn)
+' strReq = ActiveLock2.Base64Decode(txtReqCodeIn) ' txtReqCodeIn is a textbox containing the input from the user
' ' strReq now contains the {LockCode + vbLf + User} string
' Dim strLock$, strUser$
'
@@ -209,8 +211,8 @@
' strEncrypted = ActiveLock2.MD5Hash(strEncrypted)
'
' Dim Lic As ProductLicense
-' Set Lic = ActiveLock2.CreateProductLicense(txtName, txtSoftwareCodePub, _
-' txtVersion, MyActiveLock.LockType, MyActiveLock.LicenseType, strUser, strExpire, , strRegDate, strEncrypted)
+' Set Lic = ActiveLock2.CreateProductLicense("MyApp", PUB_KEY,
+' "1.0", MyActiveLock.LockType, MyActiveLock.LicenseType, strUser, strExpire, , strRegDate, strEncrypted)
' Dim strLic As String
' ' encrypt Product license using LockCode
' strLic = MyActiveLock.LockCode(Lic)
@@ -236,7 +238,7 @@
' ' txtLibKey contains the liberation key entered by the user.
' ' This key could have be sent via an email to the user or a program that automatically
' ' requests the key from a registration website.
-' ' Load up the license txtLibKey
+' ' Load up the license txtLibKey. ' txtLibKey is a textbox containing the input from the user.
' Lic.Load txtLibKey
' MyActiveLock.Register Lic
' MsgBox "Registration successful!"
@@ -444,7 +446,6 @@
' Performs special initialization before we start operating. Some of the routines, including <code>Acquire()</code>
' and <code>Register()</code> requires Init() to be called first.
' This routine accepts varying number of parameters.
-' @todo [th2tran20030720] I can't think of any special initialization that is required right now. But let''s keep this for future use.
'
' @param Arg1 First parameter to be passed to this routine.
' @param OtherArgs The remaining array of arguments to be passed into this routine.
|
|
From: Thanh H. T. <th...@us...> - 2003-08-04 12:14:10
|
Update of /cvsroot/activelock/activelock2/test
In directory sc8-pr-cvs1:/tmp/cvs-serv19959
Modified Files:
modMain.bas
Log Message:
New hash code for the updated ActiveLock2.dll.
Index: modMain.bas
===================================================================
RCS file: /cvsroot/activelock/activelock2/test/modMain.bas,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- modMain.bas 4 Aug 2003 01:34:02 -0000 1.8
+++ modMain.bas 4 Aug 2003 12:14:05 -0000 1.9
@@ -207,7 +207,7 @@
' that you generate your own set of keys to use before deploying your app.
Public Const PRIV_KEY$ = "AAAAgEPRFzhQEF7S91vt2K6kOcEdDDe5BfwNiEL30/+ozTFHc7cZctB8NIlS++ZR//D3AjSMqScjh7xUF/gwvUgGCjiExjj1DF/XWFWnPOCfF8UxYAizCLZ9fdqxb1FRpI5NoW0xxUmvxGjmxKwazIW4P4XVi/+i1Bvh2qQ6ri3whcsNAAAAQQCyWGsbJKO28H2QLYH+enb7ehzwBThqfAeke/Gv1Te95yIAWme71I9aCTTlLsmtIYSk9rNrp3sh9ItD2Re67SE7AAAAQQCAookH1nws1gS2XP9cZTPaZEmFLwuxlSVsLQ5RWmd9cuxpgw5y2gIskbL4c+4oBuj0IDwKtnMrZq7UfV9I5VfVAAAAQQCEnyAuO0ahXH3KhAboop9+tCmRzZInTrDYdMy23xf3PLCLd777dL/Y2Y+zmaH1VO03m6iOog7WLiN4dCL7m+Im"
Public Const PUB_KEY$ = "AAAAB3NzaC1yc2EAAAABJQAAAIBZnXD4IKfrBH25ekwLWQMs5mJuNH7D7U99EKFIsVhKQv17GHxKWvxHv/FwWhI1Rmd8TCiqk4Wmk7H1rh6xdbIVBwDj+RSeiXs8mmQX4/XvaWZx9BIQr5wODWnQCH/tj6Y6In2Xjc2J3B7LSjD60cWDBY/u+z9cSheTHLyhb16zFw=="
-Private Const AL_CRC& = 183580 ' ActiveLock2.dll's CRC checksum to be used for comparison
+Private Const AL_CRC& = 129614 ' ActiveLock2.dll's CRC checksum to be used for comparison
Public Function Encrypt(strData As String) As String
Dim Key As RSAKey
' create the key from the key blobs
|
|
From: Thanh H. T. <th...@us...> - 2003-08-04 11:59:29
|
Update of /cvsroot/activelock/activelock2/src In directory sc8-pr-cvs1:/tmp/cvs-serv18227 Added Files: _build.bat Log Message: Build file - used to compile ActiveLock2.dll, generate VBDox, (and possibly create release distribution). --- NEW FILE: _build.bat --- SETLOCAL rem Build ActiveLock2.dll rem Make sure we unregister it before rebuilding, so that we don't leave old junk old version stuff in the Registry regsvr32 /u ActiveLock2.dll rem Make the DLL. Need to make sure vb6.exe is in our system PATH vb6.exe /make ActiveLock2.vbp rem TODO: Build VBDox |
|
From: Thanh H. T. <th...@us...> - 2003-08-04 11:54:11
|
Update of /cvsroot/activelock/activelock2/src
In directory sc8-pr-cvs1:/tmp/cvs-serv17677
Modified Files:
IActiveLock.cls
Log Message:
Added vbdox for key generator and registration process.
Index: IActiveLock.cls
===================================================================
RCS file: /cvsroot/activelock/activelock2/src/IActiveLock.cls,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- IActiveLock.cls 3 Aug 2003 09:01:04 -0000 1.8
+++ IActiveLock.cls 4 Aug 2003 11:54:08 -0000 1.9
@@ -163,6 +163,87 @@
' End Function
' </pre>
'
+' <p>Generating registration request code from the user application.
+' <pre>
+' ' Generate Request code
+' Dim strReq As String, strLock As String
+' strLock = MyActiveLock.LockCode()
+' ' Combine with user name
+' strReq = strLock & vbLf & txtUser
+' ' base-64 encode the request
+' Dim strReq2 As String
+' strReq2 = ActiveLock2.Base64Encode(strReq)
+' ' strReq2 now contains the request code to be sent to the vendor for activation.
+' </pre>
+'
+' <p>Key Generator functionality - generating license key for a request code.
+' <pre>
+' ' First, take request code and decode it.
+' Dim strReq As String
+' strReq = ActiveLock2.Base64Decode(txtReqCodeIn)
+' ' strReq now contains the {LockCode + vbLf + User} string
+' Dim strLock$, strUser$
+'
+' ' Get Lock and user from request code
+' Dim Index%
+' Index = InStr(1, strReq, vbLf)
+' If Index <= 0 Then Exit Sub
+'
+' strLock = Left(strReq, Index - 1)
+' strUser = Mid$(strReq, Index + 1)
+' strUser = TrimNulls(strUser)
+'
+' ' Compute expiration date for a 1-year license
+' Dim strExpire$
+' strExpire = Format$(Now + 365, "YYYY/MM/DD")
+'
+' ' registration date
+' Dim strRegDate As String
+' strRegDate = Format(Now(), "yyyy/mm/dd")
+' Dim strEncrypted As String
+'
+' ' Use the same encryption routine as ActiveLockEventSink_ValidateValue() event to encrypt the key
+' ActiveLockEventSink_ValidateValue strRegDate, strEncrypted
+'
+' ' hash it
+' strEncrypted = ActiveLock2.MD5Hash(strEncrypted)
+'
+' Dim Lic As ProductLicense
+' Set Lic = ActiveLock2.CreateProductLicense(txtName, txtSoftwareCodePub, _
+' txtVersion, MyActiveLock.LockType, MyActiveLock.LicenseType, strUser, strExpire, , strRegDate, strEncrypted)
+' Dim strLic As String
+' ' encrypt Product license using LockCode
+' strLic = MyActiveLock.LockCode(Lic)
+' ' Sign it
+' Dim strSig As String
+' strSig = ActiveLock2.RSASign(PUB_KEY, PRIV_KEY, strLic)
+' ' Create liberation key. This will be a base-64 encoded string of the whole license.
+' Dim strLicKey As String
+' strLicKey = ActiveLock2.Base64Encode(strSig)
+' ' update Lic with license key
+' Lic.LicenseKey = strLicKey
+' ' Serialize it into a formatted string
+' Dim strLibKey As String
+' Lic.Save strLibKey
+' Debug.Print "This is your liberation key: " & strLibKey
+' </pre>
+'
+' <p>Key Registration functionality - register using a liberation key.
+' <pre>
+' On Error GoTo ErrHandler
+' ' Register this key
+' Dim Lic As New ActiveLock2.ProductLicense
+' ' txtLibKey contains the liberation key entered by the user.
+' ' This key could have be sent via an email to the user or a program that automatically
+' ' requests the key from a registration website.
+' ' Load up the license txtLibKey
+' Lic.Load txtLibKey
+' MyActiveLock.Register Lic
+' MsgBox "Registration successful!"
+' Exit Sub
+'ErrHandler:
+' MsgBox Err.Number & ": " & Err.Description
+' </pre>
'
' @author th...@us...
' @version 2.0.0
|
|
From: Thanh H. T. <th...@us...> - 2003-08-04 11:08:19
|
Update of /cvsroot/activelock/activelock2/test
In directory sc8-pr-cvs1:/tmp/cvs-serv10184
Modified Files:
ALTestApp.vbp
Log Message:
Reset ActiveLock2.dll version ref to 1.0 (was at 7.0).
Index: ALTestApp.vbp
===================================================================
RCS file: /cvsroot/activelock/activelock2/test/ALTestApp.vbp,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- ALTestApp.vbp 4 Aug 2003 01:34:02 -0000 1.7
+++ ALTestApp.vbp 4 Aug 2003 11:08:04 -0000 1.8
@@ -1,6 +1,6 @@
Type=Exe
-Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\..\..\..\WINNT\system32\STDOLE2.TLB#OLE Automation
-Reference=*\G{AAED8AB4-AC83-4C51-93EE-64664DB96265}#7.0#0#..\src\ActiveLock2.dll#ActiveLock2
+Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#stdole2.tlb#OLE Automation
+Reference=*\G{C3B56087-6690-42ED-8914-633AA166AB41}#1.0#0#..\src\ActiveLock2.dll#ActiveLock2
Object={BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0; TABCTL32.OCX
Form=frmMain.frm
UserControl=atViewPort.ctl
|
|
From: Thanh H. T. <th...@us...> - 2003-08-04 11:03:09
|
Update of /cvsroot/activelock/activelock2/src
In directory sc8-pr-cvs1:/tmp/cvs-serv9337
Modified Files:
ActiveLock2.dll ActiveLock2.vbp
Log Message:
Reset version to 1.0 /w binary compatibility for alpha 1 release. Was at 7.0.
Index: ActiveLock2.dll
===================================================================
RCS file: /cvsroot/activelock/activelock2/src/ActiveLock2.dll,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
Binary files /tmp/cvsWvzE4D and /tmp/cvsS0oDC9 differ
Index: ActiveLock2.vbp
===================================================================
RCS file: /cvsroot/activelock/activelock2/src/ActiveLock2.vbp,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- ActiveLock2.vbp 4 Aug 2003 01:34:02 -0000 1.12
+++ ActiveLock2.vbp 4 Aug 2003 11:03:07 -0000 1.13
@@ -1,5 +1,5 @@
Type=OleDll
-Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\..\..\..\WINNT\system32\STDOLE2.TLB#OLE Automation
+Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#stdole2.tlb#OLE Automation
Class=ActiveLock; ActiveLock.cls
Class=IActiveLock; IActiveLock.cls
Class=Globals; Globals.cls
@@ -26,8 +26,9 @@
Command32=""
Name="ActiveLock2"
HelpContextID="0"
-CompatibleMode="1"
+CompatibleMode="2"
CompatibleEXE32="ActiveLock2.dll"
+VersionCompatible32="1"
MajorVer=2
MinorVer=0
RevisionVer=0
|
|
From: Dan <wiz...@us...> - 2003-08-04 06:31:44
|
Update of /cvsroot/activelock/activelock2/src/res In directory sc8-pr-cvs1:/tmp/cvs-serv1942/src/res Modified Files: DLL.ico Hole.ico NoHole.ico Removed Files: Dll.icl Hole.icl No Hole.icl No Hole.ico Log Message: Moved the old icons into a seperate folder to help de-clutter. Then found out that I screwed up while doing it... Oh well, at least it's forcing me to learn CVS really quickly! Index: DLL.ico =================================================================== RCS file: /cvsroot/activelock/activelock2/src/res/DLL.ico,v retrieving revision 1.2 retrieving revision 1.3 diff -u -d -r1.2 -r1.3 Binary files /tmp/cvsZWxDpo and /tmp/cvs62WMzC differ Index: Hole.ico =================================================================== RCS file: /cvsroot/activelock/activelock2/src/res/Hole.ico,v retrieving revision 1.2 retrieving revision 1.3 diff -u -d -r1.2 -r1.3 Binary files /tmp/cvsZpk9up and /tmp/cvsA2Dh4G differ Index: NoHole.ico =================================================================== RCS file: /cvsroot/activelock/activelock2/src/res/NoHole.ico,v retrieving revision 1.1 retrieving revision 1.2 diff -u -d -r1.1 -r1.2 Binary files /tmp/cvsIx2HFq and /tmp/cvsaCAB5G differ --- Dll.icl DELETED --- --- Hole.icl DELETED --- --- No Hole.icl DELETED --- --- No Hole.ico DELETED --- |
|
From: Dan <wiz...@us...> - 2003-08-04 06:08:53
|
Update of /cvsroot/activelock/activelock2/src/res/Old Icons
In directory sc8-pr-cvs1:/tmp/cvs-serv30596/src/res/Old Icons
Added Files:
DLL.ico Dll.icl Hole.icl Hole.ico No Hole.icl No Hole.ico
Log Message:
Moved the old icons into a seperate folder to help de-clutter.
--- NEW FILE: Icons DLL.ico ---
EEE
"#$ $
##"
ko eeo ku,,ed
¨¨¨ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿDDD
nnn
|||
jjj
ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¶¶¶
A
--- NEW FILE: Dll.icl ---
MZ
0
¨¦¦©©¦©©£§§¤§§¤¦¦¤§§¤¨¨¦©©§««ª°°©¯¯¥¬¬¨¯¯ª±±©°°¨¯¯¥¬¬§®®LSSAAA
$$$òòò
ççç
sss
"#$ $
##"
Ni7;iq! f jkf
ko eeo ku,,ed
ÂÂÂ
¹¹¹
\\\
"#$ $
##"
ko eeo ku,,ed
EEE
"#$ $
##"
ko eeo ku,,ed
\\\
...
aaa
"#$ $
##"
ko eeo ku,,ed
"#$ $
##"
ko eeo ku,,ed
¨¨¨ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿDDD
))ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
øøø
A
¨¨¨ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿDDD
))ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
A
¨¨¨ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿDDD
nnn
|||
jjj
ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¶¶¶
A
¨¨¨ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿDDD
aaa
[[[
UUU
A
¨¨¨ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿDDD
))ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
¦Æ{{
A
--- NEW FILE: Hole.icl ---
MZ
0
ÎÎÎ;x)r°0y´5º<ÅCÌHÏHÏFÎCÎAÐAÒ>Ñ7Ë`ÅÊÏÓ
X\acei_aaPQP
âÛâÿÿÿÚÚÚ}TZ^_flNPR
'p°¢»Ô
ÂWÆZÈ^ËaÍdÏfÐhÒi Òi ÒhÑhÑfÑeÑbÏ`Î]Ì[ËWÉTÇQÅOÄLÂJÁG¿E½D¼B~»A}º?|¹>{·=z¶<y¶<xµ;x´;w³9u²9u²9u±8t°8s¯7r6q5p¬5o«4n©4m¨2j¥1i¤/f¢+^Yy¢
Be;|»<|¹<}»<}»8zºA½ÆØê
$d (j§*o-u³.u²/t°1v±2y´3|·5º6¼9À:Ã<Å=Ç?É@ÊBËDÌEÍEÍFÍFÍFÌFÍEÌEÌDÌCËCËBËBÌAÌAÍAÍAÎAÏAÐAÑAÑAÑAÒAÒAÓ@Ó@Ó@Ó@Ó?Ó<Ï5Â&kªFv¨»ÄÎÍÍÍ
**+++,,,-,+9t¤=Ç<Å:
Ã;Â:À9À:À9À9À9¿7½6~¼5~¼4~¾2|¾.q²7dÎÏÏ
OÆSÍEgDIJMKDSSNWXTY[XZ\Z[][[][Y[YVYXORPCCAm³ÉîÈìÇìÈìÉíÊíÉíÊíÊîËîÊîËîÌïÌïÍðÍðÌðËïÊïÉïÈîÆî}Åî{ÄíyÃíwÂìvÂìxÃíyÃízÄízÄí|Åî~Æî|ÅîÈïÇïÇïÇïÇïÈï{ÅîwÃîuÁîqÀîi»ía·ì^´ê\°çV¥ÞFÉ<z¸Hv©ÎÎÎ
ÒRÒRÒPÐNÏLÎJÌIËGÊEÈDÇEÇCÆ@
Â?
Ä>}µ9g3Us4Vv8j:{·:~½:}»9|º9{¸9{¸8y¶7w´7v³7v³6v³6v²5t±4s°3r¯2q®0o®-h§)V££¤
``grkwt{£
®¯°¯°
©z¡m|_k}S\iNU^QU[bgov|rv~_abUWUXZX^`^ruv
È:Ç8Å7Ä5Ã3Â/z¼'e¥Iljjj
WÈ_ÎfÒl¤Öp§ØwÜ|²ß´á´â
¹ä¹ä
¸ä¶ã·ã¶â³á{°ßwÜtªÛp§Ùk£ÖgÔcÒ_ÐZÍWËTÉPÆMÄJÂIÂF¿D¾C½B¼@}º?|º>{¹=z¸=z·=y·<xµ;w´;v³:u²9t°9s¯8q7o«6m¨4k¥2h¢1f -`%R}
\Y[\[Y\ZSUSlml
ÿÿÀ
²+Ì-Í-Ë0Î1Ë0Â1»2|¶2x°3z²4|´6}¶6·9º;¼=¿>Á@ÃCÅEÈGÉJÌKÍMÏOÐPÑRÓSÓSÔTÔTÔSÔRÒQÑOÐNÏLÎJÌIÌHÊEÈDÇEÈCÈ?º=^|8<@20.-+*,*(-+*/9C7i;¿:~»8{¸9{¸8z·8xµ7v³6v³7w´6v³5t±5t±4s°2r¯0o®-h§,X
¶òÿ¡åÿÚûÒøxÄðk¸êbãX ÚRÕLÏHÊEÅDÃA¿?~¼?}»>{º=z¸<y·<x¶;w´:v³:t±9s¯7p«6n¨4j¤2e )ZJT`
ÿÿÿÿÿÿ
--- NEW FILE: Hole.ico ---
¨ÝøÚø×øÑ÷~Éón¼í\ªâLÐBÀ2k§¢©±
AÑAÑAÒAÒAÓ@Ó@Ó@Ó@Ó?Ó<Ï5Â&kªBr£¦°
Ê*È,È.È.À/z·0w±0t2t¬2u4w¯5y±7z³9}¶;¸=º?½A¿DÁGÃIÅLÈOÊQËSÍTÎUÏVÐWÐWÑVÐVÐTÏSÎQÍOÌMËLÊJÈHÇGÆEÄDÃB
Á@¿@¾?½>»=}º<}º;|¹:{¸:{¸:z·:z·9xµ9x´8v³8v²7t±7t°7t°6s¯5q5p¬4o«2m©1l©.g¥&X
{ÄíyÃíwÂìvÂìxÃíyÃízÄízÄí|Åî~Æî|ÅîÈïÇïÇïÇïÇïÈï{ÅîwÃîuÁîqÀîi»ía·ì^´ê\°çV¥ÞFÉ<z¸Es¦
--- NEW FILE: No Hole.icl ---
MZ
0
ÎÎÎ;y®(r°0x´6º<ÅCÌHÏHÏFÎCÍBÏ@Ð>Ñ7Ë`ÅÊÏÓ
X\acei_aaQQQ
ãÜãÿÿÿÚÚÚ}T[__fmLOQ
(p±¡ºÔ
ÃWÆ[È^ÊaÍdÏfÐhÑi Òj¡Ói ÒhÑgÑeÐbÏ`Î]ÍZËWÉTÇQÅOÄLÂJÁH¿F¾D¼B»A}º?|¸>{·=z·=z¶;xµ;w´;w³9u²9u±8t°7s¯7s¯7r®6q5p¬5o«4m©3l§3k¦1h¤0g£+^Yy¢
Bd;{º<{¹<{¹;{¹8y¹A½ÆÙê
$c (j§*p®-u³.u²/t¯0v±2y´3|·5»7¼9À:Ã<Æ=Ç>È@ÊBËCÌDÍFÍFÍFÍFÍFÌEÌEÌEÌDÌCËCËBËAÌAÍAÍ@ÎAÏAÐAÐAÑBÒAÒAÓAÓAÔ@Ó@Ó@Ó>Ò<Ï4Á'l«Fv¨»ÄÎÍÍÍ
Æ>Æ>Æ=Æ<Å<Å;Å;Ã;Â9À9¿:À9À9À8¿7½5~¼5~»3}½2|¾.q³6dÎÏÏ
KÄRÎCgCIILKDSSNWXTZ[YZ\Z[][[][Y[ZVYXOQOCDAn³Ëï
ÉíÊíÊíËîÌïÌîÌîÌîÌïÌîÍïÍðÍïÌïÌïÌðÌðÊïÉïÈîÆî~Æî{ÄíyÃívÂíyÃíwÂíwÃíyÄí~Æî}Åî~Æï}ÅîÇï
ÉðÈïÇïÇð~Æï|ÅïxÃîtÁíq¿îi¼ía·ì^´ê\±çV¤ÝFÉ<z¸Gu¨ÎÎÎ
ÓSÒQÑPÐNÏLÍKÍJËGÊFÉDÇDÆBÄ@
Â?À?¿=¾=½<¼;¼;~¼:}»:}º9|¹9|¹9{¸8y¶8x´7w³7v³6v³6v³5t±4s°3r¯2q¯0o®-h§)W¢£¤
`_gqlwt|¤®®¯¯°®©z¡m|^j}T\jOU^QUZbgpv|rw~^abUWUXZX^`_ruv
Ç:Ç9Æ7Ä5Ã3Â0{¼'f¥Iljjj
XÉ_ÍeÒl¤Öo§Øw®Ü|±ß´áµâ
¹ä¹ä
¸ä·ã·ãµâ³á{°ßxÝs©Úp¦Øl£ÖgÔcÒ_ÏZÍWÊTÉQÇMÄKÃIÂFÀD¾C¾B¼@~»@}º>{¸>{¸=z·<y¶<xµ;w´:u²:u²:t°9r¯7q¬7oª5m¨4j¥3h¢1f¡.a%R}~
[Y[][Y[YRUSlml
ÿÿÀ
c£#t´)}¼,¾0Ã0Á0¿0}º1{¶2z´4}·6º7¼8¾:À<Â=Å?È@ÊAËCÌEÎFÏHÐHÐIÐJÐJÐJÐJÑJÑJÑIÑHÐGÏGÏFÏFÐEÐEÑDÐDÑCÐBÏAÎAÍ@Í@Í@Î?Î@Ï@Ï?Ï>Î?Ð?Ñ>Ð<Ï9Ë6Æ4Â2À(p±Ib|
ÉAÈ@Æ>Ä>Ã=Ã=Ã<
Ã<Ã;
Â;Â:À:¿9½9½8~»8~»8~»8~¼6|º6{¹5{¸3z¹2y¹/sµ$Z@FL
--- NEW FILE: No Hole.ico ---
©Ýø ÚøØøÑö~Éóm¼í[ªâLÐBÀ2k§¢©±
AÑBÒAÒAÓAÓAÔ@Ó@Ó@Ó>Ò<Ï4Á'l«Br£¦°
Ê*Ç,È.È.À.z·0w±1u®1t¬3u4w¯6y±6z³9}µ;¸<º?½B¿DÁGÄJÆLÇNÉQÌSÍUÏVÐVÐWÐVÐVÐVÐUÏSÎQÍPÌNËLÊJÈHÇGÅEÄDÃBÀ@¿?¾>¼=~»<}º<}º<|¹:{¸;{¸9z¶9y¶9xµ8w´8v³8v²7t°6s°6s°6s¯5q4p¬3oª2m©1l©.h¦&X
{ÄíyÃívÂíyÃíwÂíwÃíyÄí~Æî}Åî~Æï}ÅîÇï
ÉðÈïÇïÇð~Æï|ÅïxÃîtÁíq¿îi¼ía·ì^´ê\±çV¤ÝFÉ<z¸Dr¥
|
|
From: Dan <wiz...@us...> - 2003-08-04 06:01:07
|
Update of /cvsroot/activelock/activelock2/src/res In directory sc8-pr-cvs1:/tmp/cvs-serv30315/src/res Modified Files: DLL.ico Hole.ico Added Files: DLLXP.ico HoleXP.ico NoHole.ico NoHoleXP.ico Log Message: I completly rebuilt the icons. You should find these icons MUCH easier to work with. --- NEW FILE: DLLXP.ico --- --- NEW FILE: HoleXP.ico --- --- NEW FILE: NoHole.ico --- --- NEW FILE: NoHoleXP.ico --- Index: DLL.ico =================================================================== RCS file: /cvsroot/activelock/activelock2/src/res/DLL.ico,v retrieving revision 1.1 retrieving revision 1.2 diff -u -d -r1.1 -r1.2 Binary files /tmp/cvscxJGdV and /tmp/cvs0UoOjI differ Index: Hole.ico =================================================================== RCS file: /cvsroot/activelock/activelock2/src/res/Hole.ico,v retrieving revision 1.1 retrieving revision 1.2 diff -u -d -r1.1 -r1.2 Binary files /tmp/cvs5G2KqY and /tmp/cvsW7kiqM differ |
|
From: Dan <wiz...@us...> - 2003-08-04 06:00:04
|
Update of /cvsroot/activelock/activelock2/src/res/Old Icons In directory sc8-pr-cvs1:/tmp/cvs-serv30020/Old Icons Log Message: Directory /cvsroot/activelock/activelock2/src/res/Old Icons added to the repository ***** Bogus filespec: Icons |
|
From: Thanh H. T. <th...@us...> - 2003-08-04 04:02:41
|
Update of /cvsroot/activelock/activelock2/src/vbdox
In directory sc8-pr-cvs1:/tmp/cvs-serv14841
Added Files:
ActiveLock2.vbp
Log Message:
This vbp file is used by VBDox to generate API docs for ActiveLock.
We can't use the real vbp in src directory because we don't want all of our public classes
and modules to be included in the API docs.
This vbp file is for including the selected few files that we want to be included in the generated docs.
--- NEW FILE: ActiveLock2.vbp ---
Type=OleDll
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#STDOLE2.TLB#OLE Automation
Class=IActiveLock; ..\IActiveLock.cls
Class=Globals; ..\Globals.cls
Class=IKeyStoreProvider; ..\IKeyStoreProvider.cls
Class=ProductLicense; ..\ProductLicense.cls
Class=ActiveLockEventNotifier; ..\ActiveLockEventNotifier.cls
Module=modActiveLock; ..\modActiveLock.bas
Startup="(None)"
HelpFile=""
Title="ActiveLock2"
ExeName32="ActiveLock2.dll"
Command32=""
Name="ActiveLock2"
HelpContextID="0"
CompatibleMode="1"
CompatibleEXE32="ActiveLock2.dll"
MajorVer=2
MinorVer=0
RevisionVer=0
AutoIncrementVer=0
ServerSupportFiles=0
VersionCompanyName="The ActiveLock Software Group"
VersionLegalCopyright="Copyright © 2003"
VersionProductName="ActiveLock"
|
|
From: Thanh H. T. <th...@us...> - 2003-08-04 03:58:39
|
Update of /cvsroot/activelock/activelock2/src/vbdox In directory sc8-pr-cvs1:/tmp/cvs-serv13955/vbdox Log Message: Directory /cvsroot/activelock/activelock2/src/vbdox added to the repository |
|
From: Thanh H. T. <th...@us...> - 2003-08-04 03:58:04
|
Update of /cvsroot/activelock/activelock2/src
In directory sc8-pr-cvs1:/tmp/cvs-serv13771
Modified Files:
modActiveLock.bas
Log Message:
VBdox'ed this module
Index: modActiveLock.bas
===================================================================
RCS file: /cvsroot/activelock/activelock2/src/modActiveLock.bas,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- modActiveLock.bas 3 Aug 2003 08:33:35 -0000 1.8
+++ modActiveLock.bas 4 Aug 2003 03:58:00 -0000 1.9
@@ -42,54 +42,117 @@
' / MODULE TO DO LIST /
' ///////////////////////////////////////////////////////////////////////
'
-' [ ] Nothing to do :)
-'
+' @bug rsa_encrypt() sometimes causes crash. This is related a bug in
+' rsa_generate(). Sometimes, rsa_generate() generates a bad keyset, and
+' this causes the encryption routines to crash.
+
' ///////////////////////////////////////////////////////////////////////
' / MODULE CHANGE LOG /
' ///////////////////////////////////////////////////////////////////////
-'
+' @history
+' <pre>
' 07.07.03 - mcrute - Updated the header comments for this file.
' 07.30.03 - th2tran - New routines to do MD5 hashes of TypeLibs.
' 08.02.03 - th2tran - wizzardme2000 found a gaping security hole with using md5_hash().
-' So now I'm using CRC checksums and MapFileAndCheckSum() API call
+' So now I'm using CRC checksums and MapFileAndCheckSum() API call
' instead. This approach was suggested by Peter Young (vbclassicforever)
' in the forum and mailing list a while back.
-'
+' 08.02.03 - th2tran - VBdox'd this module.
+' </pre>
+
' ///////////////////////////////////////////////////////////////////////
' / MODULE CODE BEGINS BELOW THIS LINE /
' ///////////////////////////////////////////////////////////////////////
-
Option Private Module
Option Explicit
Option Base 0
+''
+' RSA Key Structure
+' @param bits Key length in bits
+' @param data Key data
Type RSAKey ' 36-byte structure
bits As Long
-' bytes As Long
-' modulus As Integer
-' exponent As Integer
-' private_exponent As Integer
-' p As Integer
-' q As Integer
-' iqmp As Integer
-' comment As String
data(32) As Byte
End Type
''
-' ALCrypto.Dll Declares
+' Generates an RSA key set
+' @param ptrKey RSA key structure
+' @param bits key length in bits
+' @param pfn TBD
+' @param pfnparam TBD
Public Declare Function rsa_generate Lib "ALCrypto" (ptrKey As RSAKey, ByVal bits As Long, ByVal pfn As Long, ByVal pfnparam As Long) As Long
+
+''
+' Returns the public key blob fro the specified key.
+' @param ptrKey RSA key structure
+' @param blob [Output] Key bob to be returned
+' @param blobLen Length of the key blob, in bytes
Public Declare Function rsa_public_key_blob Lib "ALCrypto" (ptrKey As RSAKey, ByVal blob As String, blobLen As Long) As Long
+
+''
+' Returns the private key blob fro the specified key.
+' @param ptrKey RSA key structure
+' @param blob [Output] Key bob to be returned
+' @param blobLen Length of the key blob, in bytes
Public Declare Function rsa_private_key_blob Lib "ALCrypto" (ptrKey As RSAKey, ByVal blob As String, blobLen As Long) As Long
+
+''
+' Creates a new RSAKey from the specified key blobs.
+' @param pub_blob Public key blob
+' @param pub_len Length of public key blob, in bytes
+' @param priv_blob Private key blob
+' @param priv_len Length of private key blob, in bytes
+' @param ptrKey [out] RSA key to be returned.
+'
Public Declare Function rsa_createkey Lib "ALCrypto" (ByVal pub_blob As String, ByVal pub_len As Long, ByVal priv_blob As String, ByVal priv_len As Long, ptrKey As RSAKey) As Long
+''
+' Release memory allocated by rsa_createkey() to store the key.
+' @param ptrKey RSA key
Public Declare Function rsa_freekey Lib "ALCrypto" (ptrKey As RSAKey) As Long
-' CryptType = 0 for public; 1 for private
+''
+' RSA encrypts the data.
+' @param CryptType CryptType = 0 for public; 1 for private
+' @param Data Data to be encrypted
+' @param dLen [in/out] Length of data, in bytes. This parameter will contain length of encrypted data when returned.
+' @param ptrKey Key to be used for encryption
+'
Public Declare Function rsa_encrypt Lib "ALCrypto" (ByVal CryptType As Long, ByVal data As String, dLen As Long, ptrKey As RSAKey) As Long
+
+''
+' RSA decrypts the data.
+' @param CryptType CryptType = 0 for public; 1 for private
+' @param Data Data to be encrypted
+' @param dLen [in/out] Length of data, in bytes. This parameter will contain length of encrypted data when returned.
+' @param ptrKey Key to be used for encryption
+'
Public Declare Function rsa_decrypt Lib "ALCrypto" (ByVal CryptType As Long, ByVal data As String, dLen As Long, ptrKey As RSAKey) As Long
+
+''
+' Signs the data using the specified RSA private key.
+' @param ptrKey Key to be used for signing
+' @param data Data to be signed
+' @param dLen Data length
+' @param sig [out] Signature
+' @param sLen Signature length
Public Declare Function rsa_sign Lib "ALCrypto" (ByRef ptrKey As RSAKey, ByVal data As String, ByVal dLen As Long, ByVal sig As String, ByRef sLen As Long) As Long
+
+''
+' Verifies an RSA signature.
+' @param ptrKey Key to be used for signing
+' @param sig [out] Signature
+' @param sLen Signature length
+' @param data Data with which to verify
+' @param dLen Data length
Public Declare Function rsa_verifysig Lib "ALCrypto" (ByRef ptrKey As RSAKey, ByVal sig As String, ByVal sLen As Long, ByVal data As String, ByVal dLen As Long) As Long
+''
+' Computers an MD5 hash from the data.
+' @param inData Data to be hashed
+' @param nDataLen Length of inData
+' @param outData [out] 32-byte Computed hash code
Public Declare Function md5_hash Lib "ALCrypto" (ByVal inData As String, ByVal nDataLen As Long, ByVal outData As String) As Long
Type PhaseType
@@ -131,92 +194,9 @@
Private Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
Private Declare Function MapFileAndCheckSum Lib "imagehlp" Alias "MapFileAndCheckSumA" (ByVal FileName As String, HeaderSum As Long, CheckSum As Long) As Long
-Public Sub Init()
- If fInit Then Exit Sub
- 'TODO: Add module init code here
- fInit = True
-End Sub
-
-Public Static Sub GetWord(LongValue As Long, CryptBuffer() As Byte, Offset As Long)
-On Local Error Resume Next
-' Call CopyMem(LongValue, CryptBuffer(Offset), 4)
-
- Dim bb(0 To 3) As Byte
-
- bb(3) = CryptBuffer(Offset)
- bb(2) = CryptBuffer(Offset + 1)
- bb(1) = CryptBuffer(Offset + 2)
- bb(0) = CryptBuffer(Offset + 3)
- Call CopyMem(LongValue, bb(0), 4)
-
-End Sub
-
-Public Static Sub PutWord(LongValue As Long, CryptBuffer() As Byte, Offset As Long)
-On Local Error Resume Next
-' Call CopyMem(CryptBuffer(Offset), LongValue, 4)
-
- Dim bb(0 To 3) As Byte
-
- Call CopyMem(bb(0), LongValue, 4)
- CryptBuffer(Offset) = bb(3)
- CryptBuffer(Offset + 1) = bb(2)
- CryptBuffer(Offset + 2) = bb(1)
- CryptBuffer(Offset + 3) = bb(0)
-
-End Sub
-Public Static Function UnsignedAdd(ByVal Data1 As Long, Data2 As Long) As Long
-
- Dim x1(0 To 3) As Byte
- Dim x2(0 To 3) As Byte
- Dim xx(0 To 3) As Byte
- Dim Rest As Long
- Dim Value As Long
- Dim a As Long
-
- Call CopyMem(x1(0), Data1, 4)
- Call CopyMem(x2(0), Data2, 4)
-
- Rest = 0
- For a = 0 To 3
- Value = CLng(x1(a)) + CLng(x2(a)) + Rest
- xx(a) = Value And 255
- Rest = Value \ 256
- Next
-
- Call CopyMem(UnsignedAdd, xx(0), 4)
-
-End Function
-Public Function UnsignedDel(Data1 As Long, Data2 As Long) As Long
-
- Dim x1(0 To 3) As Byte
- Dim x2(0 To 3) As Byte
- Dim xx(0 To 3) As Byte
- Dim Rest As Long
- Dim Value As Long
- Dim a As Long
-
- Call CopyMem(x1(0), Data1, 4)
- Call CopyMem(x2(0), Data2, 4)
- Call CopyMem(xx(0), UnsignedDel, 4)
-
- For a = 0 To 3
- Value = CLng(x1(a)) - CLng(x2(a)) - Rest
- If (Value < 0) Then
- Value = Value + 256
- Rest = 1
- Else
- Rest = 0
- End If
- xx(a) = Value
- Next
-
- Call CopyMem(UnsignedDel, xx(0), 4)
-
-End Function
-
''
' Trims Null characters from the string.
-'
+' @param startstr String to be trimmed
Public Function TrimNulls(startstr As String) As String
Dim pos As Integer
pos = InStr(startstr, Chr$(0))
@@ -230,6 +210,8 @@
''
' Reads a binary file into the sData buffer.
' Returns the number of bytes read.
+' @param sPath Path to the file to be read
+' @param sData Output parameter contains the data that has been read
'
Public Function ReadFile(ByVal sPath As String, ByRef sData As String) As Long
Dim hFile As Integer
@@ -252,12 +234,20 @@
Err.Raise Err.Number, Err.Source, Err.Description, Err.HelpFile, Err.HelpContext
End Function
+''
+' [INTERNAL] Call-back routine used by ALCrypto.dll during key generation process.
+' @param param TBD
+' @param action Action being performed
+' @param phase Current phase
+' @param iprogress Percent complete
+'
Public Sub CryptoProgressUpdate(ByVal param As Long, ByVal action As Long, ByVal phase As Long, ByVal iprogress As Long)
Debug.Print "Progress Update received " & param & ", action: " & action & ", iprogress: " & iprogress
End Sub
''
' Computes an MD5 hash of the type library containing the object.
+' @param obj COM object used to determine the file path to the type library
'
Public Function MD5HashTypeLib(obj As IUnknown) As String
Dim strDllPath As String
@@ -278,6 +268,7 @@
''
' Performs CRC checksum on the type library containing the object.
+' @param obj COM object used to determine the file path to the type library
'
Public Function CRCCheckSumTypeLib(obj As IUnknown) As Long
Dim strDllPath As String
@@ -290,6 +281,7 @@
''
' Computes an MD5 hash of the specified file.
+' @param strPath File path
'
Public Function MD5HashFile(ByVal strPath As String) As String
Debug.Print "Hashing file " & strPath
@@ -304,7 +296,8 @@
End Function
''
-' Check if we're running inside the VB6 IDE
+' Check if we're running inside the VB6 IDE
+'
Public Function IsRunningInIde() As Boolean
Dim strFileName As String
Dim lngCount As Long
|
|
From: Michael E. C. <mc...@us...> - 2003-08-04 02:54:09
|
Update of /cvsroot/activelock/alcrypto In directory sc8-pr-cvs1:/tmp/cvs-serv5008 Added Files: .cvsignore Log Message: Igores C++ build files. --- NEW FILE: .cvsignore --- Debug ALCrypto.plg ALCrypto.ncb ALCrypto.ncb |
Update of /cvsroot/activelock/activelock2/doc/API
In directory sc8-pr-cvs1:/tmp/cvs-serv27264/doc/API
Added Files:
ActiveLock.Get.IActiveLock_EventNotifier.html
ActiveLock.IActiveLock.html ActiveLock.UpdateLastUsed.html
ActiveLock.ValidateKey.html ActiveLock.ValidateLic.html
ActiveLock.html ActiveLock2_bug.html ActiveLock2_history.html
ActiveLock2_todo.html
ActiveLockEventNotifier.ValidateValue.html
ActiveLockEventNotifier.html
FileKeyStoreProvider.FileExists.html
FileKeyStoreProvider.IKeyStoreProvider.html
FileKeyStoreProvider.IKeyStoreProvider_Retrieve.html
FileKeyStoreProvider.html
Globals.ActiveLockErrCodeConstants.html
Globals.Base64Decode.html Globals.Base64Encode.html
Globals.CreateProductLicense.html
Globals.GetLicTypeString.html Globals.MD5Hash.html
Globals.NewInstance.html Globals.RSASign.html
Globals.RSAVerify.html Globals.TrimNulls.html Globals.html
IActiveLock.ALLicType.html IActiveLock.ALLockTypes.html
IActiveLock.Acquire.html IActiveLock.Get.EventNotifier.html
IActiveLock.Get.ExpirationDate.html
IActiveLock.Get.LicenseType.html IActiveLock.Get.LockType.html
IActiveLock.Get.RegisteredDate.html
IActiveLock.Get.SoftwareName.html
IActiveLock.Get.SoftwareVersion.html
IActiveLock.Get.UsedDays.html IActiveLock.Init.html
IActiveLock.Let.KeyStorePath.html
IActiveLock.Let.KeyStoreType.html
IActiveLock.Let.LicenseType.html IActiveLock.Let.LockType.html
IActiveLock.Let.SoftwareCode.html
IActiveLock.Let.SoftwareName.html
IActiveLock.Let.SoftwareVersion.html IActiveLock.LicFlags.html
IActiveLock.LicStoreType.html IActiveLock.LockCode.html
IActiveLock.Register.html IActiveLock.Release.html
IActiveLock.Transfer.html IActiveLock.html
IKeyStoreProvider.Let.KeyStorePath.html
IKeyStoreProvider.Retrieve.html IKeyStoreProvider.Store.html
IKeyStoreProvider.html INIFile.html
ProductLicense.Get.CLASS_1.html
ProductLicense.Get.CLASS_2.html
ProductLicense.Get.Expiration.html
ProductLicense.Get.Hash1.html ProductLicense.Get.LastUsed.html
ProductLicense.Get.LicenseClass.html
ProductLicense.Get.LicenseKey.html
ProductLicense.Get.LicenseType.html
ProductLicense.Get.Licensee.html
ProductLicense.Get.ProductKey.html
ProductLicense.Get.ProductName.html
ProductLicense.Get.ProductVer.html
ProductLicense.Get.RegisteredDate.html
ProductLicense.Let.Expiration.html
ProductLicense.Let.Hash1.html ProductLicense.Let.LastUsed.html
ProductLicense.Let.LicenseClass.html
ProductLicense.Let.LicenseKey.html
ProductLicense.Let.LicenseType.html
ProductLicense.Let.Licensee.html
ProductLicense.Let.ProductKey.html
ProductLicense.Let.ProductName.html
ProductLicense.Let.ProductVer.html
ProductLicense.Let.RegisteredDate.html
ProductLicense.Load.html ProductLicense.Save.html
ProductLicense.ToString.html ProductLicense.html
RegistryKeyStoreProvider.html backsdk3.css backsdk4.css
class.gif const.gif contents.hhc declare.gif enum.gif
error.log event.gif filter.gif form.gif function.gif help.hhp
index.hhk index.html langref.js lib.gif linkcss.js
modActiveLock.CRCCheckSumTypeLib.html
modActiveLock.Function.rsa_generate.html
modActiveLock.IsRunningInIde.html
modActiveLock.MD5HashFile.html
modActiveLock.MD5HashTypeLib.html modActiveLock.ReadFile.html
modActiveLock.TrimNulls.html modActiveLock.html modBase64.html
modComputerName.html modHDSerial.html modMACAddress.html
modMD5.html modRegistryAPIs.html modSHA1.html modWinApi.html
modWindowsSerial.html module.gif parchild.gif parlower.gif
parmult.gif parspace.gif project.gif property.gif
requirements.gif seealso.gif sub.gif type.gif unknown.gif
usercontrol.gif variable.gif
Log Message:
Inital add of API docs
--- NEW FILE: ActiveLock.Get.IActiveLock_EventNotifier.html ---
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
<head>
<meta http-equiv="Content-Type" content="Text/html; charset=iso-8859-1">
<meta name="Author" content = "m.stamenov" >
<meta name="GENERATOR" content="VBDOX [2.0.20]" >
<link REL="stylesheet" TYPE="text/css" HREF="backsdk4.css">
<script SRC="langref.js"></script>
<title>ActiveLock: IActiveLock_EventNotifier (get)</title>
</head>
<BODY TOPMARGIN="0">
<TABLE CLASS="buttonbarshade" CELLSPACING=0><TR><TD> </TD></TR></TABLE>
<TABLE CLASS="buttonbartable" CELLSPACING=0>
<TR ID="hdr"><TD CLASS="runninghead" NOWRAP>ActiveLock: IActiveLock_EventNotifier (get)</TD></TR>
</TABLE>
<!-- ============ METHOD ENTRY ============ -->
<H1>IActiveLock_EventNotifier</H1>
<P>
IActiveLock Interface implementations
<PRE class=syntax><B><font class="keyword"> Private</font><font class="keyword"> Property</font><font class="keyword"> Get</font><font class="identifier"> IActiveLock_EventNotifier</font> ( )<font class="keyword"> As</font><font class="identifier"> ActiveLockEventNotifier</font></B></PRE>
<H4>Return Values</H4>
<B><A href="ActiveLockEventNotifier.html">ActiveLockEventNotifier</A></B> -
<H4>Remarks</H4>
<P></P>
<P><B>Read Only.</B></P>
<H4>See Also</H4>
<P>
<A HREF="ActiveLock2.html">Project ActiveLock2 Overview</A>
<A HREF="ActiveLock.html">Class ActiveLock Overview</A>
<A HREF="ActiveLock.html#public_props">ActiveLock Properties</A>
<A HREF="ActiveLock.html#public_methods">ActiveLock Methods</A>
<B><A HREF="ActiveLock.IActiveLock.html">IActiveLock</A></B>
<B><A HREF="ActiveLock.UpdateLastUsed.html">UpdateLastUsed</A></B>
<DIV class=footer>Build on Sunday, August 03, 2003 by Michael E. Crute <BR>Copyright © 2000 - 2003 ActiveLock Software Group</DIV>
<DIV class=footer style="COLOR: #000000; FONT-SIZE: 90%">
</body>
</html>
--- NEW FILE: ActiveLock.IActiveLock.html ---
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
<head>
<meta http-equiv="Content-Type" content="Text/html; charset=iso-8859-1">
<meta name="Author" content = "m.stamenov" >
<meta name="GENERATOR" content="VBDOX [2.0.20]" >
<link REL="stylesheet" TYPE="text/css" HREF="backsdk4.css">
<script SRC="langref.js"></script>
<title>ActiveLock: IActiveLock</title>
</head>
<BODY TOPMARGIN="0">
<TABLE CLASS="buttonbarshade" CELLSPACING=0><TR><TD> </TD></TR></TABLE>
<TABLE CLASS="buttonbartable" CELLSPACING=0>
<TR ID="hdr"><TD CLASS="runninghead" NOWRAP>ActiveLock: IActiveLock</TD></TR>
</TABLE>
<!-- ============ METHOD ENTRY ============ -->
<H1>IActiveLock</H1>
<P>
Implements the IActiveLock interface.
<PRE class=syntax><B><font class="keyword"> Implements</font><font class="identifier"> IActiveLock</font></B></PRE>
<H4>Return Values</H4>
<B><A href="IActiveLock.html">IActiveLock</A></B> -
<H4>Remarks</H4>
<P></P>
<H4>See Also</H4>
<P>
<A HREF="ActiveLock2.html">Project ActiveLock2 Overview</A>
<A HREF="ActiveLock.html">Class ActiveLock Overview</A>
<A HREF="ActiveLock.html#public_props">ActiveLock Properties</A>
<A HREF="ActiveLock.html#public_methods">ActiveLock Methods</A>
<B><A HREF="ActiveLock.Get.IActiveLock_EventNotifier.html">IActiveLock_EventNotifier (get)</A></B>
<DIV class=footer>Build on Sunday, August 03, 2003 by Michael E. Crute <BR>Copyright © 2000 - 2003 ActiveLock Software Group</DIV>
<DIV class=footer style="COLOR: #000000; FONT-SIZE: 90%">
</body>
</html>
--- NEW FILE: ActiveLock.UpdateLastUsed.html ---
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
<head>
<meta http-equiv="Content-Type" content="Text/html; charset=iso-8859-1">
<meta name="Author" content = "m.stamenov" >
<meta name="GENERATOR" content="VBDOX [2.0.20]" >
<link REL="stylesheet" TYPE="text/css" HREF="backsdk4.css">
<script SRC="langref.js"></script>
<title>ActiveLock: UpdateLastUsed</title>
</head>
<BODY TOPMARGIN="0">
<TABLE CLASS="buttonbarshade" CELLSPACING=0><TR><TD> </TD></TR></TABLE>
<TABLE CLASS="buttonbartable" CELLSPACING=0>
<TR ID="hdr"><TD CLASS="runninghead" NOWRAP>ActiveLock: UpdateLastUsed</TD></TR>
</TABLE>
<!-- ============ METHOD ENTRY ============ -->
<H1>UpdateLastUsed</H1>
<P>
Updates LastUsed property with current date stamp.
<PRE class=syntax><B><font class="keyword"> Private</font><font class="keyword"> Sub</font><font class="identifier"> UpdateLastUsed</font>(
<font class="identifier"> Lic</font><font class="keyword"> As</font><font class="identifier"> ProductLicense</font> )</B></PRE>
<H4>Parameters</H4>
<DL>
<DT><I>Lic</I></TD>
<DD>
[ByRef]
<B><A href="ProductLicense.html">ProductLicense</A></B>.
-<font color="red">ERROR: Can not find parameter 'Lic'.</font>
<pre><font color="green">'
Updates LastUsed property with current date stamp.
</font></pre>
</DD>
</DL>
<H4>Remarks</H4>
<P></P>
<H4>See Also</H4>
<P>
<A HREF="ActiveLock2.html">Project ActiveLock2 Overview</A>
<A HREF="ActiveLock.html">Class ActiveLock Overview</A>
<A HREF="ActiveLock.html#public_props">ActiveLock Properties</A>
<A HREF="ActiveLock.html#public_methods">ActiveLock Methods</A>
<B><A HREF="ActiveLock.Get.IActiveLock_EventNotifier.html">IActiveLock_EventNotifier (get)</A></B>
<B><A HREF="ActiveLock.ValidateKey.html">ValidateKey</A></B>
<DIV class=footer>Build on Sunday, August 03, 2003 by Michael E. Crute <BR>Copyright © 2000 - 2003 ActiveLock Software Group</DIV>
<DIV class=footer style="COLOR: #000000; FONT-SIZE: 90%">
</body>
</html>
--- NEW FILE: ActiveLock.ValidateKey.html ---
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
<head>
<meta http-equiv="Content-Type" content="Text/html; charset=iso-8859-1">
<meta name="Author" content = "m.stamenov" >
<meta name="GENERATOR" content="VBDOX [2.0.20]" >
<link REL="stylesheet" TYPE="text/css" HREF="backsdk4.css">
<script SRC="langref.js"></script>
<title>ActiveLock: ValidateKey</title>
</head>
<BODY TOPMARGIN="0">
<TABLE CLASS="buttonbarshade" CELLSPACING=0><TR><TD> </TD></TR></TABLE>
<TABLE CLASS="buttonbartable" CELLSPACING=0>
<TR ID="hdr"><TD CLASS="runninghead" NOWRAP>ActiveLock: ValidateKey</TD></TR>
</TABLE>
<!-- ============ METHOD ENTRY ============ -->
<H1>ValidateKey</H1>
<P>
Validate the License Key using RSA signature verification.
License key contains the RSA signature of IActiveLock_LockCode.
<PRE class=syntax><B><font class="keyword"> Private</font><font class="keyword"> Sub</font><font class="identifier"> ValidateKey</font>(
<font class="identifier"> Lic</font><font class="keyword"> As</font><font class="identifier"> ProductLicense</font> )</B></PRE>
<H4>Parameters</H4>
<DL>
<DT><I>Lic</I></TD>
<DD>
[ByRef]
<B><A href="ProductLicense.html">ProductLicense</A></B>.
-<font color="red">ERROR: Can not find parameter 'Lic'.</font>
<pre><font color="green">'
Validate the License Key using RSA signature verification.
License key contains the RSA signature of IActiveLock_LockCode.
</font></pre>
</DD>
</DL>
<H4>Remarks</H4>
<P></P>
<H4>See Also</H4>
<P>
<A HREF="ActiveLock2.html">Project ActiveLock2 Overview</A>
<A HREF="ActiveLock.html">Class ActiveLock Overview</A>
<A HREF="ActiveLock.html#public_props">ActiveLock Properties</A>
<A HREF="ActiveLock.html#public_methods">ActiveLock Methods</A>
<B><A HREF="ActiveLock.UpdateLastUsed.html">UpdateLastUsed</A></B>
<B><A HREF="ActiveLock.ValidateLic.html">ValidateLic</A></B>
<DIV class=footer>Build on Sunday, August 03, 2003 by Michael E. Crute <BR>Copyright © 2000 - 2003 ActiveLock Software Group</DIV>
<DIV class=footer style="COLOR: #000000; FONT-SIZE: 90%">
</body>
</html>
--- NEW FILE: ActiveLock.ValidateLic.html ---
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
<head>
<meta http-equiv="Content-Type" content="Text/html; charset=iso-8859-1">
<meta name="Author" content = "m.stamenov" >
<meta name="GENERATOR" content="VBDOX [2.0.20]" >
<link REL="stylesheet" TYPE="text/css" HREF="backsdk4.css">
<script SRC="langref.js"></script>
<title>ActiveLock: ValidateLic</title>
</head>
<BODY TOPMARGIN="0">
<TABLE CLASS="buttonbarshade" CELLSPACING=0><TR><TD> </TD></TR></TABLE>
<TABLE CLASS="buttonbartable" CELLSPACING=0>
<TR ID="hdr"><TD CLASS="runninghead" NOWRAP>ActiveLock: ValidateLic</TD></TR>
</TABLE>
<!-- ============ METHOD ENTRY ============ -->
<H1>ValidateLic</H1>
<P>
Validate the entire license (including lastused, etc...)
<PRE class=syntax><B><font class="keyword"> Private</font><font class="keyword"> Sub</font><font class="identifier"> ValidateLic</font>(
<font class="identifier"> Lic</font><font class="keyword"> As</font><font class="identifier"> ProductLicense</font> )</B></PRE>
<H4>Parameters</H4>
<DL>
<DT><I>Lic</I></TD>
<DD>
[ByRef]
<B><A href="ProductLicense.html">ProductLicense</A></B>.
-<font color="red">ERROR: Can not find parameter 'Lic'.</font>
<pre><font color="green">'
Validate the entire license (including lastused, etc...)
</font></pre>
</DD>
</DL>
<H4>Remarks</H4>
<P></P>
<H4>See Also</H4>
<P>
<A HREF="ActiveLock2.html">Project ActiveLock2 Overview</A>
<A HREF="ActiveLock.html">Class ActiveLock Overview</A>
<A HREF="ActiveLock.html#public_props">ActiveLock Properties</A>
<A HREF="ActiveLock.html#public_methods">ActiveLock Methods</A>
<B><A HREF="ActiveLock.ValidateKey.html">ValidateKey</A></B>
<DIV class=footer>Build on Sunday, August 03, 2003 by Michael E. Crute <BR>Copyright © 2000 - 2003 ActiveLock Software Group</DIV>
<DIV class=footer style="COLOR: #000000; FONT-SIZE: 90%">
</body>
</html>
--- NEW FILE: ActiveLock.html ---
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
<head>
<meta http-equiv="Content-Type" content="Text/html; charset=iso-8859-1">
<meta name="Author" content = "m.stamenov" >
<meta name="GENERATOR" content="VBDOX [2.0.20]" >
<link REL="stylesheet" TYPE="text/css" HREF="backsdk4.css">
<script SRC="langref.js"></script>
<title>ActiveLock</title>
</head>
<BODY TOPMARGIN="0">
<TABLE CLASS="buttonbarshade" CELLSPACING=0><TR><TD> </TD></TR></TABLE>
<TABLE CLASS="buttonbartable" CELLSPACING=0>
<TR ID="hdr"><TD CLASS="runninghead" NOWRAP>ActiveLock</TD></TR>
</TABLE>
<!-- ============ MODULE ============ -->
<h2>ActiveLock</h2>
<br>
This is an implementation of IActiveLock. It is not public-creatable, and so must only
be accessed via ActiveLock.NewInstance() method.
<h4><a name="class_diagram"></a>Class Diagram</h4>
<A href="ActiveLock.html" class="diagClass"><B>ActiveLock</B></A><BR>
<IMG src="parchild.gif"><A href="ActiveLock.Get.IActiveLock_EventNotifier.html" class="diagClass">IActiveLock_EventNotifier</A><BR>
<!-- ============ INHERITS ============ -->
<!-- ============ IMPLEMENTS ============ -->
<h3><a name="implements"></a>Implements:</h3><table cellspacing="0" cellpadding="0">
<tr valign="top"><td width="30%"><A href="IActiveLock.html">IActiveLock</A></td><td width="70%">
Implements the IActiveLock interface.
</td></tr>
</table>
<!-- ============ IActiveLock ============ -->
<h4><a name="IActiveLock"></a></h4><table><thead><tr valign="top"><th align="left" width="48%">Name</th><th align="left" width="52%">Description</th></tr></thead><tbody><tr valign="top"><td width="48%"><IMG src="Sub.gif" align="middle" border="0" alt=""></IMG> IActiveLock_Acquire</td><td width="52%"> </td></tr><tr valign="top"><td width="48%"><IMG src="Sub.gif" align="middle" border="0" alt=""></IMG> IActiveLock_Init</td><td width="52%"> </td></tr><tr valign="top"><td width="48%"><IMG src="Function.gif" align="middle" border="0" alt=""></IMG> IActiveLock_LockCode</td><td width="52%"> </td></tr><tr valign="top"><td width="48%"><IMG src="Sub.gif" align="middle" border="0" alt=""></IMG> IActiveLock_Register</td><td width="52%"> </td></tr><tr valign="top"><td width="48%"><IMG src="Sub.gif" align="middle" border="0" alt=""></IMG> IActiveLock_Release</td><td width="52%"> </td></tr><tr valign="top"><td width="48%"><IMG src="Function.gif" align="middle" border="0" alt=""></IMG> IActiveLock_Transfer</td><td width="52%"> </td></tr></tbody></table>
<!-- ============ PUBLIC ============ -->
<!-- ============ PRIVATE ============ -->
<h3><a name="private"></a>Private:</h3><!-- ============ CONSTANTS ============ -->
<h4><a name="private_consts"></a>Constants:</h4><table><thead><tr valign="top"><th align="left" width="48%">Name</th><th align="left" width="52%">Description</th></tr></thead><tbody><tr valign="top"><td width="48%"><IMG src="Const.gif" align="middle" border="0" alt=""></IMG> AL_REGISTRY_HIVE</td><td width="52%"> </td></tr></tbody></table>
<!-- ============ PROPERTIES ============ -->
<h4><a name="private_props"></a>Properties:</h4><table><thead><tr valign="top"><th align="left" width="48%">Name</th><th align="left" width="52%">Description</th></tr></thead><tbody><tr valign="top"><td width="48%"><IMG src="Property.gif" align="middle" border="0" alt=""></IMG> <a href="ActiveLock.Get.IActiveLock_EventNotifier.html">IActiveLock_EventNotifier</a> (get)</td><td width="52%">
IActiveLock Interface implementations
</td></tr><tr valign="top"><td width="48%"><IMG src="Property.gif" align="middle" border="0" alt=""></IMG> IActiveLock_ExpirationDate (get)</td><td width="52%"> </td></tr><tr valign="top"><td width="48%"><IMG src="Property.gif" align="middle" border="0" alt=""></IMG> IActiveLock_KeyStorePath (let)</td><td width="52%"> </td></tr><tr valign="top"><td width="48%"><IMG src="Property.gif" align="middle" border="0" alt=""></IMG> IActiveLock_KeyStoreType (let)</td><td width="52%"> </td></tr><tr valign="top"><td width="48%"><IMG src="Property.gif" align="middle" border="0" alt=""></IMG> IActiveLock_LicenseType (get)</td><td width="52%"> </td></tr><tr valign="top"><td width="48%"><IMG src="Property.gif" align="middle" border="0" alt=""></IMG> IActiveLock_LicenseType (let)</td><td width="52%"> </td></tr><tr valign="top"><td width="48%"><IMG src="Property.gif" align="middle" border="0" alt=""></IMG> IActiveLock_LockType (get)</td><td width="52%"> </td></tr><tr valign="top"><td width="48%"><IMG src="Property.gif" align="middle" border="0" alt=""></IMG> IActiveLock_LockType (let)</td><td width="52%"> </td></tr><tr valign="top"><td width="48%"><IMG src="Property.gif" align="middle" border="0" alt=""></IMG> IActiveLock_RegisteredDate (get)</td><td width="52%"> </td></tr><tr valign="top"><td width="48%"><IMG src="Property.gif" align="middle" border="0" alt=""></IMG> IActiveLock_SoftwareCode (let)</td><td width="52%"> </td></tr><tr valign="top"><td width="48%"><IMG src="Property.gif" align="middle" border="0" alt=""></IMG> IActiveLock_SoftwareName (get)</td><td width="52%"> </td></tr><tr valign="top"><td width="48%"><IMG src="Property.gif" align="middle" border="0" alt=""></IMG> IActiveLock_SoftwareName (let)</td><td width="52%"> </td></tr><tr valign="top"><td width="48%"><IMG src="Property.gif" align="middle" border="0" alt=""></IMG> IActiveLock_SoftwareVersion (get)</td><td width="52%"> </td></tr><tr valign="top"><td width="48%"><IMG src="Property.gif" align="middle" border="0" alt=""></IMG> IActiveLock_SoftwareVersion (let)</td><td width="52%"> </td></tr><tr valign="top"><td width="48%"><IMG src="Property.gif" align="middle" border="0" alt=""></IMG> IActiveLock_UsedDays (get)</td><td width="52%"> </td></tr><tr valign="top"><td width="48%"><IMG src="Variable.gif" align="middle" border="0" alt=""></IMG> mfInit</td><td width="52%"> </td></tr><tr valign="top"><td width="48%"><IMG src="Variable.gif" align="middle" border="0" alt=""></IMG> mKeyStore</td><td width="52%"> </td></tr><tr valign="top"><td width="48%"><IMG src="Variable.gif" align="middle" border="0" alt=""></IMG> mKeyStorePath</td><td width="52%"> </td></tr><tr valign="top"><td width="48%"><IMG src="Variable.gif" align="middle" border="0" alt=""></IMG> mLicType</td><td width="52%"> </td></tr><tr valign="top"><td width="48%"><IMG src="Variable.gif" align="middle" border="0" alt=""></IMG> mLockTypes</td><td width="52%"> </td></tr><tr valign="top"><td width="48%"><IMG src="Variable.gif" align="middle" border="0" alt=""></IMG> mSoftwareCode</td><td width="52%"> </td></tr><tr valign="top"><td width="48%"><IMG src="Variable.gif" align="middle" border="0" alt=""></IMG> mSoftwareName</td><td width="52%"> </td></tr><tr valign="top"><td width="48%"><IMG src="Variable.gif" align="middle" border="0" alt=""></IMG> mSoftwareVer</td><td width="52%"> </td></tr><tr valign="top"><td width="48%"><IMG src="Variable.gif" align="middle" border="0" alt=""></IMG> MyGlobals</td><td width="52%"> </td></tr><tr valign="top"><td width="48%"><IMG src="Variable.gif" align="middle" border="0" alt=""></IMG> MyNotifier</td><td width="52%"> </td></tr></tbody></table>
<!-- ============ METHODS ============ -->
<h4><a name="private_methods"></a>Methods:</h4><table><thead><tr valign="top"><th align="left" width="48%">Name</th><th align="left" width="52%">Description</th></tr></thead><tbody><tr valign="top"><td width="48%"><IMG src="Function.gif" align="middle" border="0" alt=""></IMG> RandomNumber</td><td width="52%"> </td></tr><tr valign="top"><td width="48%"><IMG src="Sub.gif" align="middle" border="0" alt=""></IMG> <a href="ActiveLock.UpdateLastUsed.html">UpdateLastUsed</a></td><td width="52%">
Updates LastUsed property with current date stamp.
</td></tr><tr valign="top"><td width="48%"><IMG src="Sub.gif" align="middle" border="0" alt=""></IMG> <a href="ActiveLock.ValidateKey.html">ValidateKey</a></td><td width="52%">
Validate the License Key using RSA signature verification.
License key contains the RSA signature of IActiveLock_LockCode. </td></tr><tr valign="top"><td width="48%"><IMG src="Sub.gif" align="middle" border="0" alt=""></IMG> <a href="ActiveLock.ValidateLic.html">ValidateLic</a></td><td width="52%">
Validate the entire license (including lastused, etc...)
</td></tr></tbody></table>
<H4>Requirements</H4>
<P> 2.0.0
</P>
<DIV class=footer>Build on Sunday, August 03, 2003 by Michael E. Crute <BR>Copyright © 2000 - 2003 ActiveLock Software Group</DIV>
<DIV class=footer style="COLOR: #000000; FONT-SIZE: 90%">
</body>
</html>
--- NEW FILE: ActiveLock2_bug.html ---
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
<head>
<meta http-equiv="Content-Type" content="Text/html; charset=iso-8859-1">
<meta name="Author" content = "m.stamenov" >
<meta name="GENERATOR" content="VBDOX [2.0.20]" >
<link REL="stylesheet" TYPE="text/css" HREF="backsdk4.css">
<script SRC="langref.js"></script>
<title>Bugs</title>
</head>
<BODY TOPMARGIN="0">
<TABLE CLASS="buttonbarshade" CELLSPACING=0><TR><TD> </TD></TR></TABLE>
<TABLE CLASS="buttonbartable" CELLSPACING=0>
<TR ID="hdr"><TD CLASS="runninghead" NOWRAP>Bugs</TD></TR>
</TABLE>
<!-- ============ Bugs ============ -->
<br><h1>Bugs</h1>
<DIV class=footer>Build on Sunday, August 03, 2003 by Michael E. Crute <BR>Copyright © 2000 - 2003 ActiveLock Software Group</DIV>
<DIV class=footer style="COLOR: #000000; FONT-SIZE: 90%">
</body>
</html>
--- NEW FILE: ActiveLock2_history.html ---
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
<head>
<meta http-equiv="Content-Type" content="Text/html; charset=iso-8859-1">
<meta name="Author" content = "m.stamenov" >
<meta name="GENERATOR" content="VBDOX [2.0.20]" >
<link REL="stylesheet" TYPE="text/css" HREF="backsdk4.css">
<script SRC="langref.js"></script>
<title>History</title>
</head>
<BODY TOPMARGIN="0">
<TABLE CLASS="buttonbarshade" CELLSPACING=0><TR><TD> </TD></TR></TABLE>
<TABLE CLASS="buttonbartable" CELLSPACING=0>
<TR ID="hdr"><TD CLASS="runninghead" NOWRAP>History</TD></TR>
</TABLE>
<!-- ============ History ============ -->
<br><h1>History</h1>
<BR><A href="ActiveLockEventNotifier.html">ActiveLock2."ActiveLockEventNotifier"</A>
<BR>
<pre>
07.20.03 - th2tran - Created
08.03.03 - th2tran - VBDox'ed this interface.
</pre>
<BR><A href="IActiveLock.html">ActiveLock2."IActiveLock"</A>
<BR>
<pre>
07.07.03 - mcrute - Updated the header comments for this file.
07.20.03 - th2tran - Added EventNotifier used for firing COM events.
08.03.03 - th2tran - VBDox'ed this interface.
</pre>
<DIV class=footer>Build on Sunday, August 03, 2003 by Michael E. Crute <BR>Copyright © 2000 - 2003 ActiveLock Software Group</DIV>
<DIV class=footer style="COLOR: #000000; FONT-SIZE: 90%">
</body>
</html>
--- NEW FILE: ActiveLock2_todo.html ---
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
<head>
<meta http-equiv="Content-Type" content="Text/html; charset=iso-8859-1">
<meta name="Author" content = "m.stamenov" >
<meta name="GENERATOR" content="VBDOX [2.0.20]" >
<link REL="stylesheet" TYPE="text/css" HREF="backsdk4.css">
<script SRC="langref.js"></script>
<title>To Do</title>
</head>
<BODY TOPMARGIN="0">
<TABLE CLASS="buttonbarshade" CELLSPACING=0><TR><TD> </TD></TR></TABLE>
<TABLE CLASS="buttonbartable" CELLSPACING=0>
<TR ID="hdr"><TD CLASS="runninghead" NOWRAP>To Do</TD></TR>
</TABLE>
<!-- ============ To Do ============ -->
<br><h1>To Do</h1>
<BR><A href="ActiveLock.html">ActiveLock2."ActiveLock"</A>
<BR> Implement IActiveLock_Release. Not sure what if anything needs to be
done here.
<BR> Implement IActiveLock_Transfer. This is the functionality to transfer
a license from one machine to another.
<BR><A href="Globals.html">ActiveLock2."Globals"</A>
<BR> GetLicTypeString() - Implement this fully.
<BR><A href="IActiveLock.Init.html">IActiveLock.Init</A>
<BR> [th2tran20030720] I cant think of any special initialization that is required right now. But lets keep this for future use.
<DIV class=footer>Build on Sunday, August 03, 2003 by Michael E. Crute <BR>Copyright © 2000 - 2003 ActiveLock Software Group</DIV>
<DIV class=footer style="COLOR: #000000; FONT-SIZE: 90%">
</body>
</html>
--- NEW FILE: ActiveLockEventNotifier.ValidateValue.html ---
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
<head>
<meta http-equiv="Content-Type" content="Text/html; charset=iso-8859-1">
<meta name="Author" content = "m.stamenov" >
<meta name="GENERATOR" content="VBDOX [2.0.20]" >
<link REL="stylesheet" TYPE="text/css" HREF="backsdk4.css">
<script SRC="langref.js"></script>
<title>ActiveLockEventNotifier: ValidateValue</title>
</head>
<BODY TOPMARGIN="0">
<TABLE CLASS="buttonbarshade" CELLSPACING=0><TR><TD> </TD></TR></TABLE>
<TABLE CLASS="buttonbartable" CELLSPACING=0>
<TR ID="hdr"><TD CLASS="runninghead" NOWRAP>ActiveLockEventNotifier: ValidateValue</TD></TR>
</TABLE>
<!-- ============ METHOD ENTRY ============ -->
<H1>ValidateValue</H1>
<P>
ProductLicense Property Value validation event allows the client application
to return the encrypted version of a license property value.
The client will receive this event, encrypt <code>Value</code> using its own encryption algorithm,
and store the result in <code>Result</code> to be returned to ActiveLock.
<PRE class=syntax><B><font class="keyword"> Public</font><font class="keyword"> Event</font><font class="identifier"> ValidateValue</font>(
<font class="keyword"> ByVal</font><font class="identifier"> Value</font><font class="keyword"> As</font><font class="keyword"> String</font>,
<font class="identifier"> Result</font><font class="keyword"> As</font><font class="keyword"> String</font> )</B></PRE>
<H4>Parameters</H4>
<DL>
<DT><I>Value</I></TD>
<DD>
[ByVal]
<B>String</B>.
Property value.
</DD>
<DT><I>Result</I></TD>
<DD>
[ByRef]
<B>String</B>.
Encrypted value.
</DD>
</DL>
<H4>Remarks</H4>
<P></P>
<H4>See Also</H4>
<P>
<A HREF="ActiveLock2.html">Project ActiveLock2 Overview</A>
<A HREF="ActiveLockEventNotifier.html">Class ActiveLockEventNotifier Overview</A>
<A HREF="ActiveLockEventNotifier.html#public_props">ActiveLockEventNotifier Properties</A>
<A HREF="ActiveLockEventNotifier.html#public_methods">ActiveLockEventNotifier Methods</A>
<DIV class=footer>Build on Sunday, August 03, 2003 by Michael E. Crute <BR>Copyright © 2000 - 2003 ActiveLock Software Group</DIV>
<DIV class=footer style="COLOR: #000000; FONT-SIZE: 90%">
</body>
</html>
--- NEW FILE: ActiveLockEventNotifier.html ---
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
<head>
<meta http-equiv="Content-Type" content="Text/html; charset=iso-8859-1">
<meta name="Author" content = "m.stamenov" >
<meta name="GENERATOR" content="VBDOX [2.0.20]" >
<link REL="stylesheet" TYPE="text/css" HREF="backsdk4.css">
<script SRC="langref.js"></script>
<title>ActiveLockEventNotifier</title>
</head>
<BODY TOPMARGIN="0">
<TABLE CLASS="buttonbarshade" CELLSPACING=0><TR><TD> </TD></TR></TABLE>
<TABLE CLASS="buttonbartable" CELLSPACING=0>
<TR ID="hdr"><TD CLASS="runninghead" NOWRAP>ActiveLockEventNotifier</TD></TR>
</TABLE>
<!-- ============ MODULE ============ -->
<h2>ActiveLockEventNotifier</h2>
<br>
This class handles ActiveLock COM event notifications to the interested observers.
It is simply a wrapper containing pubic events. These events should
really belong in IActiveLock, but since VB doesn't support inheritance
of events, we have to do it this way.
<h4><a name="class_diagram"></a>Class Diagram</h4>
<A href="ActiveLockEventNotifier.html" class="diagClass"><B>ActiveLockEventNotifier</B></A><BR>
<!-- ============ INHERITS ============ -->
<!-- ============ IMPLEMENTS ============ -->
<!-- ============ PUBLIC ============ -->
<h3><a name="public"></a>Public:</h3><!-- ============ EVENTS ============ -->
<h4><a name="public_events"></a>Events:</h4><table><thead><tr valign="top"><th align="left" width="48%">Name</th><th align="left" width="52%">Description</th></tr></thead><tbody><tr valign="top"><td width="48%"><IMG src="Event.gif" align="middle" border="0" alt=""></IMG> <a href="ActiveLockEventNotifier.ValidateValue.html">ValidateValue</a></td><td width="52%">
ProductLicense Property Value validation event allows the client application
to return the encrypted version of a license property value.
The client will receive this event, encrypt <code>Value</code> using its own encryption algorithm,
and store the result in <code>Result</code> to be returned to ActiveLock.
</td></tr></tbody></table>
<!-- ============ PRIVATE ============ -->
<h3><a name="private"></a>Private:</h3><!-- ============ METHODS ============ -->
<h4><a name="private_methods"></a>Methods:</h4><table><thead><tr valign="top"><th align="left" width="48%">Name</th><th align="left" width="52%">Description</th></tr></thead><tbody><tr valign="top"><td width="48%"><IMG src="Sub.gif" align="middle" border="0" alt=""></IMG> Notify</td><td width="52%"> </td></tr></tbody></table>
<H4>Requirements</H4>
<P> 2.0.0
</P>
<DIV class=footer>Build on Sunday, August 03, 2003 by Michael E. Crute <BR>Copyright © 2000 - 2003 ActiveLock Software Group</DIV>
<DIV class=footer style="COLOR: #000000; FONT-SIZE: 90%">
</body>
</html>
--- NEW FILE: FileKeyStoreProvider.FileExists.html ---
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
<head>
<meta http-equiv="Content-Type" content="Text/html; charset=iso-8859-1">
<meta name="Author" content = "m.stamenov" >
<meta name="GENERATOR" content="VBDOX [2.0.20]" >
<link REL="stylesheet" TYPE="text/css" HREF="backsdk4.css">
<script SRC="langref.js"></script>
<title>FileKeyStoreProvider: FileExists</title>
</head>
<BODY TOPMARGIN="0">
<TABLE CLASS="buttonbarshade" CELLSPACING=0><TR><TD> </TD></TR></TABLE>
<TABLE CLASS="buttonbartable" CELLSPACING=0>
<TR ID="hdr"><TD CLASS="runninghead" NOWRAP>FileKeyStoreProvider: FileExists</TD></TR>
</TABLE>
<!-- ============ METHOD ENTRY ============ -->
<H1>FileExists</H1>
<P>
Determines if a file exists.
<PRE class=syntax><B><font class="keyword"> Private</font><font class="keyword"> Function</font><font class="identifier"> FileExists</font>(
<font class="identifier"> FilePath</font><font class="keyword"> As</font><font class="keyword"> String</font> )<font class="keyword"> As</font><font class="keyword"> Boolean</font></B></PRE>
<H4>Parameters</H4>
<DL>
<DT><I>FilePath</I></TD>
<DD>
[ByRef]
<B>String</B>.
-<font color="red">ERROR: Can not find parameter 'FilePath'.</font>
<pre><font color="green">'
Determines if a file exists.
</font></pre>
</DD>
</DL>
<H4>Return Values</H4>
<B>Boolean</B> -
<H4>Remarks</H4>
<P></P>
<H4>See Also</H4>
<P>
<A HREF="ActiveLock2.html">Project ActiveLock2 Overview</A>
<A HREF="FileKeyStoreProvider.html">Class FileKeyStoreProvider Overview</A>
<A HREF="FileKeyStoreProvider.html#public_props">FileKeyStoreProvider Properties</A>
<A HREF="FileKeyStoreProvider.html#public_methods">FileKeyStoreProvider Methods</A>
<B><A HREF="FileKeyStoreProvider.IKeyStoreProvider.html">IKeyStoreProvider</A></B>
<DIV class=footer>Build on Sunday, August 03, 2003 by Michael E. Crute <BR>Copyright © 2000 - 2003 ActiveLock Software Group</DIV>
<DIV class=footer style="COLOR: #000000; FONT-SIZE: 90%">
</body>
</html>
--- NEW FILE: FileKeyStoreProvider.IKeyStoreProvider.html ---
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
<head>
<meta http-equiv="Content-Type" content="Text/html; charset=iso-8859-1">
<meta name="Author" content = "m.stamenov" >
<meta name="GENERATOR" content="VBDOX [2.0.20]" >
<link REL="stylesheet" TYPE="text/css" HREF="backsdk4.css">
<script SRC="langref.js"></script>
<title>FileKeyStoreProvider: IKeyStoreProvider</title>
</head>
<BODY TOPMARGIN="0">
<TABLE CLASS="buttonbarshade" CELLSPACING=0><TR><TD> </TD></TR></TABLE>
<TABLE CLASS="buttonbartable" CELLSPACING=0>
<TR ID="hdr"><TD CLASS="runninghead" NOWRAP>FileKeyStoreProvider: IKeyStoreProvider</TD></TR>
</TABLE>
<!-- ============ METHOD ENTRY ============ -->
<H1>IKeyStoreProvider</H1>
<P>
Implements IKeyStoreProvider interface.
<PRE class=syntax><B><font class="keyword"> Implements</font><font class="identifier"> IKeyStoreProvider</font></B></PRE>
<H4>Return Values</H4>
<B><A href="IKeyStoreProvider.html">IKeyStoreProvider</A></B> -
<H4>Remarks</H4>
<P></P>
<H4>See Also</H4>
<P>
<A HREF="ActiveLock2.html">Project ActiveLock2 Overview</A>
<A HREF="FileKeyStoreProvider.html">Class FileKeyStoreProvider Overview</A>
<A HREF="FileKeyStoreProvider.html#public_props">FileKeyStoreProvider Properties</A>
<A HREF="FileKeyStoreProvider.html#public_methods">FileKeyStoreProvider Methods</A>
<B><A HREF="FileKeyStoreProvider.FileExists.html">FileExists</A></B>
<B><A HREF="FileKeyStoreProvider.IKeyStoreProvider_Retrieve.html">IKeyStoreProvider_Retrieve</A></B>
<DIV class=footer>Build on Sunday, August 03, 2003 by Michael E. Crute <BR>Copyright © 2000 - 2003 ActiveLock Software Group</DIV>
<DIV class=footer style="COLOR: #000000; FONT-SIZE: 90%">
</body>
</html>
--- NEW FILE: FileKeyStoreProvider.IKeyStoreProvider_Retrieve.html ---
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
<head>
<meta http-equiv="Content-Type" content="Text/html; charset=iso-8859-1">
<meta name="Author" content = "m.stamenov" >
<meta name="GENERATOR" content="VBDOX [2.0.20]" >
<link REL="stylesheet" TYPE="text/css" HREF="backsdk4.css">
<script SRC="langref.js"></script>
<title>FileKeyStoreProvider: IKeyStoreProvider_Retrieve</title>
</head>
<BODY TOPMARGIN="0">
<TABLE CLASS="buttonbarshade" CELLSPACING=0><TR><TD> </TD></TR></TABLE>
<TABLE CLASS="buttonbartable" CELLSPACING=0>
<TR ID="hdr"><TD CLASS="runninghead" NOWRAP>FileKeyStoreProvider: IKeyStoreProvider_Retrieve</TD></TR>
</TABLE>
<!-- ============ METHOD ENTRY ============ -->
<H1>IKeyStoreProvider_Retrieve</H1>
<P>
Retrieves the registered license for the specified product.
<PRE class=syntax><B><font class="keyword"> Private</font><font class="keyword"> Function</font><font class="identifier"> IKeyStoreProvider_Retrieve</font>(
<font class="identifier"> ProductName</font><font class="keyword"> As</font><font class="keyword"> String</font> )<font class="keyword"> As</font><font class="identifier"> ProductLicense</font></B></PRE>
<H4>Parameters</H4>
<DL>
<DT><I>ProductName</I></TD>
<DD>
[ByRef]
<B>String</B>.
-<font color="red">ERROR: Can not find parameter 'ProductName'.</font>
<pre><font color="green">'
Retrieves the registered license for the specified product.
</font></pre>
</DD>
</DL>
<H4>Return Values</H4>
<B><A href="ProductLicense.html">ProductLicense</A></B> -
<H4>Remarks</H4>
<P></P>
<H4>See Also</H4>
<P>
<A HREF="ActiveLock2.html">Project ActiveLock2 Overview</A>
<A HREF="FileKeyStoreProvider.html">Class FileKeyStoreProvider Overview</A>
<A HREF="FileKeyStoreProvider.html#public_props">FileKeyStoreProvider Properties</A>
<A HREF="FileKeyStoreProvider.html#public_methods">FileKeyStoreProvider Methods</A>
<B><A HREF="FileKeyStoreProvider.IKeyStoreProvider.html">IKeyStoreProvider</A></B>
<DIV class=footer>Build on Sunday, August 03, 2003 by Michael E. Crute <BR>Copyright © 2000 - 2003 ActiveLock Software Group</DIV>
<DIV class=footer style="COLOR: #000000; FONT-SIZE: 90%">
</body>
</html>
--- NEW FILE: FileKeyStoreProvider.html ---
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
<head>
<meta http-equiv="Content-Type" content="Text/html; charset=iso-8859-1">
<meta name="Author" content = "m.stamenov" >
<meta name="GENERATOR" content="VBDOX [2.0.20]" >
<link REL="stylesheet" TYPE="text/css" HREF="backsdk4.css">
<script SRC="langref.js"></script>
<title>FileKeyStoreProvider</title>
</head>
<BODY TOPMARGIN="0">
<TABLE CLASS="buttonbarshade" CELLSPACING=0><TR><TD> </TD></TR></TABLE>
<TABLE CLASS="buttonbartable" CELLSPACING=0>
<TR ID="hdr"><TD CLASS="runninghead" NOWRAP>FileKeyStoreProvider</TD></TR>
</TABLE>
<!-- ============ MODULE ============ -->
<h2>FileKeyStoreProvider</h2>
<br>
This IKeyStoreProvider implementation is used to maintain the license keys on a file system.
<h4><a name="class_diagram"></a>Class Diagram</h4>
<A href="FileKeyStoreProvider.html" class="diagClass"><B>FileKeyStoreProvider</B></A><BR>
<!-- ============ INHERITS ============ -->
<!-- ============ IMPLEMENTS ============ -->
<h3><a name="implements"></a>Implements:</h3><table cellspacing="0" cellpadding="0">
<tr valign="top"><td width="30%"><A href="IKeyStoreProvider.html">IKeyStoreProvider</A></td><td width="70%">
Implements IKeyStoreProvider interface. </td></tr>
</table>
<!-- ============ IKeyStoreProvider ============ -->
<h4><a name="IKeyStoreProvider"></a></h4><table><thead><tr valign="top"><th align="left" width="48%">Name</th><th align="left" width="52%">Description</th></tr></thead><tbody><tr valign="top"><td width="48%"><IMG src="Function.gif" align="middle" border="0" alt=""></IMG> <a href="FileKeyStoreProvider.IKeyStoreProvider_Retrieve.html">IKeyStoreProvider_Retrieve</a></td><td width="52%">
Retrieves the registered license for the specified product.
</td></tr><tr valign="top"><td width="48%"><IMG src="Sub.gif" align="middle" border="0" alt=""></IMG> IKeyStoreProvider_Store</td><td width="52%"> </td></tr></tbody></table>
<!-- ============ PUBLIC ============ -->
<!-- ============ PRIVATE ============ -->
<h3><a name="private"></a>Private:</h3><!-- ============ CONSTANTS ============ -->
<h4><a name="private_consts"></a>Constants:</h4><table><thead><tr valign="top"><th align="left" width="48%">Name</th><th align="left" width="52%">Description</th></tr></thead><tbody><tr valign="top"><td width="48%"><IMG src="Const.gif" align="middle" border="0" alt=""></IMG> KEY_EXP</td><td width="52%"> </td></tr><tr valign="top"><td width="48%"><IMG src="Const.gif" align="middle" border="0" alt=""></IMG> KEY_LASTRUN_DATE</td><td width="52%"> </td></tr><tr valign="top"><td width="48%"><IMG src="Const.gif" align="middle" border="0" alt=""></IMG> KEY_LASTRUN_DATE_HASH</td><td width="52%"> </td></tr><tr valign="top"><td width="48%"><IMG src="Const.gif" align="middle" border="0" alt=""></IMG> KEY_LICCLASS</td><td width="52%"> </td></tr><tr valign="top"><td width="48%"><IMG src="Const.gif" align="middle" border="0" alt=""></IMG> KEY_LICENSEE</td><td width="52%"> </td></tr><tr valign="top"><td width="48%"><IMG src="Const.gif" align="middle" border="0" alt=""></IMG> KEY_LICKEY</td><td width="52%"> </td></tr><tr valign="top"><td width="48%"><IMG src="Const.gif" align="middle" border="0" alt=""></IMG> KEY_LICTYPE</td><td width="52%"> </td></tr><tr valign="top"><td width="48%"><IMG src="Const.gif" align="middle" border="0" alt=""></IMG> KEY_PRODKEY</td><td width="52%"> </td></tr><tr valign="top"><td width="48%"><IMG src="Const.gif" align="middle" border="0" alt=""></IMG> KEY_PRODNAME</td><td width="52%"> </td></tr><tr valign="top"><td width="48%"><IMG src="Const.gif" align="middle" border="0" alt=""></IMG> KEY_PRODVER</td><td width="52%"> </td></tr><tr valign="top"><td width="48%"><IMG src="Const.gif" align="middle" border="0" alt=""></IMG> KEY_REGISTERED_DATE</td><td width="52%"> </td></tr></tbody></table>
<!-- ============ PROPERTIES ============ -->
<h4><a name="private_props"></a>Properties:</h4><table><thead><tr valign="top"><th align="left" width="48%">Name</th><th align="left" width="52%">Description</th></tr></thead><tbody><tr valign="top"><td width="48%"><IMG src="Property.gif" align="middle" border="0" alt=""></IMG> IKeyStoreProvider_KeyStorePath (let)</td><td width="52%"> </td></tr><tr valign="top"><td width="48%"><IMG src="Variable.gif" align="middle" border="0" alt=""></IMG> mIniFile</td><td width="52%"> </td></tr><tr valign="top"><td width="48%"><IMG src="Variable.gif" align="middle" border="0" alt=""></IMG> mstrPath</td><td width="52%"> </td></tr></tbody></table>
<!-- ============ METHODS ============ -->
<h4><a name="private_methods"></a>Methods:</h4><table><thead><tr valign="top"><th align="left" width="48%">Name</th><th align="left" width="52%">Description</th></tr></thead><tbody><tr valign="top"><td width="48%"><IMG src="Function.gif" align="middle" border="0" alt=""></IMG> <a href="FileKeyStoreProvider.FileExists.html">FileExists</a></td><td width="52%">
Determines if a file exists.
</td></tr></tbody></table>
<H4>Requirements</H4>
<P> 2.0.0
</P>
<DIV class=footer>Build on Sunday, August 03, 2003 by Michael E. Crute <BR>Copyright © 2000 - 2003 ActiveLock Software Group</DIV>
<DIV class=footer style="COLOR: #000000; FONT-SIZE: 90%">
</body>
</html>
--- NEW FILE: Globals.ActiveLockErrCodeConstants.html ---
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
<head>
<meta http-equiv="Content-Type" content="Text/html; charset=iso-8859-1">
<meta name="Author" content = "m.stamenov" >
<meta name="GENERATOR" content="VBDOX [2.0.20]" >
<link REL="stylesheet" TYPE="text/css" HREF="backsdk4.css">
<script SRC="langref.js"></script>
<title>Globals: ActiveLockErrCodeConstants</title>
</head>
<BODY TOPMARGIN="0">
<TABLE CLASS="buttonbarshade" CELLSPACING=0><TR><TD> </TD></TR></TABLE>
<TABLE CLASS="buttonbartable" CELLSPACING=0>
<TR ID="hdr"><TD CLASS="runninghead" NOWRAP>Globals: ActiveLockErrCodeConstants</TD></TR>
</TABLE>
<!-- ============ ENUM ENTRY ============ -->
<H1>ActiveLockErrCodeConstants</H1>
<P>
ActiveLock Error Codes
<PRE class=syntax><B><font class="keyword"> Public</font><font class="keyword"> Enum</font><font class="identifier"> ActiveLockErrCodeConstants</font></B></PRE>
<H4>Values</H4>
<DL>
<DT><I>alerrOK = 0</I></TD>
<DD> No error. Operation was successful.
</DD>
<DT><I>alerrNoLicense = &H80040001</I></TD>
<DD> No license available.
</DD>
<DT><I>alerrLicenseInvalid = &H80040002</I></TD>
<DD> License is invalid.
</DD>
<DT><I>alerrLicenseExpired = &H80040003</I></TD>
<DD> License has expired.
</DD>
<DT><I>alerrLicenseTampered = &H80040004</I></TD>
<DD> License has been tampered.
</DD>
<DT><I>alerrClockChanged = &H80040005</I></TD>
<DD> System as been set back.
</DD>
<DT><I>alerrKeyStoreInvalid = &H80040010</I></TD>
<DD> Key Store Provider has not been initialized yet.
</DD>
<DT><I>alerrFileTampered = &H80040011</I></TD>
<DD> License file has been tampered.
</DD>
<DT><I>alerrNotInitialized = &H80040012</I></TD>
<DD> ActiveLock has not been initialized yet.</DD>
</DL>
<H4>Remarks</H4>
<P></P>
<H4>See Also</H4>
<P>
<A HREF="ActiveLock2.html">Project ActiveLock2 Overview</A>
<A HREF="Globals.html">Class Globals Overview</A>
<A HREF="Globals.html#public_props">Globals Properties</A>
<A HREF="Globals.html#public_methods">Globals Methods</A>
<B><A HREF="Globals.Base64Decode.html">Base64Decode</A></B>
<DIV class=footer>Build on Sunday, August 03, 2003 by Michael E. Crute <BR>Copyright © 2000 - 2003 ActiveLock Software Group</DIV>
<DIV class=footer style="COLOR: #000000; FONT-SIZE: 90%">
</body>
</html>
--- NEW FILE: Globals.Base64Decode.html ---
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
<head>
<meta http-equiv="Content-Type" content="Text/html; charset=iso-8859-1">
<meta name="Author" content = "m.stamenov" >
<meta name="GENERATOR" content="VBDOX [2.0.20]" >
<link REL="stylesheet" TYPE="text/css" HREF="backsdk4.css">
<script SRC="langref.js"></script>
<title>Globals: Base64Decode</title>
</head>
<BODY TOPMARGIN="0">
<TABLE CLASS="buttonbarshade" CELLSPACING=0><TR><TD> </TD></TR></TABLE>
<TABLE CLASS="buttonbartable" CELLSPACING=0>
<TR ID="hdr"><TD CLASS="runninghead" NOWRAP>Globals: Base64Decode</TD></TR>
</TABLE>
<!-- ============ METHOD ENTRY ============ -->
<H1>Base64Decode</H1>
<P>
Base-64 decode the string.
<PRE class=syntax><B><font class="keyword"> Public</font><font class="keyword"> Function</font><font class="identifier"> Base64Decode</font>(
<font class="identifier"> strEncoded</font><font class="keyword"> As</font><font class="keyword"> String</font> )<font class="keyword"> As</font><font class="keyword"> String</font></B></PRE>
<H4>Parameters</H4>
<DL>
<DT><I>strEncoded</I></TD>
<DD>
[ByRef]
<B>String</B>.
String to be decoded
</DD>
</DL>
<H4>Return Values</H4>
<B>String</B> -
<H4>Remarks</H4>
<P></P>
<H4>See Also</H4>
<P>
<A HREF="ActiveLock2.html">Project ActiveLock2 Overview</A>
<A HREF="Globals.html">Class Globals Overview</A>
<A HREF="Globals.html#public_props">Globals Properties</A>
<A HREF="Globals.html#public_methods">Globals Methods</A>
<B><A HREF="Globals.ActiveLockErrCodeConstants.html">ActiveLockErrCodeConstants</A></B>
<B><A HREF="Globals.Base64Encode.html">Base64Encode</A></B>
<DIV class=footer>Build on Sunday, August 03, 2003 by Michael E. Crute <BR>Copyright © 2000 - 2003 ActiveLock Software Group</DIV>
<DIV class=footer style="COLOR: #000000; FONT-SIZE: 90%">
</body>
</html>
--- NEW FILE: Globals.Base64Encode.html ---
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
<head>
<meta http-equiv="Content-Type" content="Text/html; charset=iso-8859-1">
<meta name="Author" content = "m.stamenov" >
<meta name="GENERATOR" content="VBDOX [2.0.20]" >
<link REL="stylesheet" TYPE="text/css" HREF="backsdk4.css">
<script SRC="langref.js"></script>
<title>Globals: Base64Encode</title>
</head>
<BODY TOPMARGIN="0">
<TABLE CLASS="buttonbarshade" CELLSPACING=0><TR><TD> </TD></TR></TABLE>
<TABLE CLASS="buttonbartable" CELLSPACING=0>
<TR ID="hdr"><TD CLASS="runninghead" NOWRAP>Globals: Base64Encode</TD></TR>
</TABLE>
<!-- ============ METHOD ENTRY ============ -->
<H1>Base64Encode</H1>
<P>
Base-64 encode the specified string.
<PRE class=syntax><B><font class="keyword"> Public</font><font class="keyword"> Function</font><font class="identifier"> Base64Encode</font>(
<font class="identifier"> str</font><font class="keyword"> As</font><font class="keyword"> String</font> )<font class="keyword"> As</font><font class="keyword"> String</font></B></PRE>
<H4>Parameters</H4>
<DL>
<DT><I>str</I></TD>
<DD>
[ByRef]
<B>String</B>.
String to be encoded
</DD>
</DL>
<H4>Return Values</H4>
<B>String</B> -
<H4>Remarks</H4>
<P></P>
<H4>See Also</H4>
<P>
<A HREF="ActiveLock2.html">Project ActiveLock2 Overview</A>
<A HREF="Globals.html">Class Globals Overview</A>
<A HREF="Globals.html#public_props">Globals Properties</A>
<A HREF="Globals.html#public_methods">Globals Methods</A>
<B><A HREF="Globals.Base64Decode.html">Base64Decode</A></B>
<B><A HREF="Globals.CreateProductLicense.html">CreateProductLicense</A></B>
<DIV class=footer>Build on Sunday, August 03, 2003 by Michael E. Crute <BR>Copyright © 2000 - 2003 ActiveLock Software Group</DIV>
<DIV class=footer style="COLOR: #000000; FONT-SIZE: 90%">
</body>
</html>
--- NEW FILE: Globals.CreateProductLicense.html ---
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
<head>
<meta http-equiv="Content-Type" content="Text/html; charset=iso-8859-1">
<meta name="Author" content = "m.stamenov" >
<meta name="GENERATOR" content="VBDOX [2.0.20]" >
<link REL="stylesheet" TYPE="text/css" HREF="backsdk4.css">
<script SRC="langref.js"></script>
<title>Globals: CreateProductLicense</title>
</head>
<BODY TOPMARGIN="0">
<TABLE CLASS="buttonbarshade" CELLSPACING=0><TR><TD> </TD></TR></TABLE>
<TABLE CLASS="buttonbartable" CELLSPACING=0>
<TR ID="hdr"><TD CLASS="runninghead" NOWRAP>Globals: CreateProductLicense</TD></TR>
</TABLE>
<!-- ============ METHOD ENTRY ============ -->
<H1>CreateProductLicense</H1>
<P>
Instantiates a new ProductLicense object.
If LicType is "Permanent", then Expiration date parameter will be ignored.
<PRE class=syntax><B><font class="keyword"> Public</font><font class="keyword"> Function</font><font class="identifier"> CreateProductLicense</font>(
<font class="identifier"> name</font><font class="keyword"> As</font><font class="keyword"> String</font>,
<font class="identifier"> Code</font><font class="keyword"> As</font><font class="keyword"> String</font>,
<font class="identifier"> Ver</font><font class="keyword"> As</font><font class="keyword"> String</font>,
<font class="identifier"> LicClass</font><font class="keyword"> As</font><font class="identifier"> ActiveLock2</font>.<font class="identifier"> ALLockTypes</font>,
<font class="identifier"> LicType</font><font class="keyword"> As</font><font class="identifier"> ActiveLock2</font>.<font class="identifier"> ALLicType</font>,
<font class="identifier"> Licensee</font><font class="keyword"> As</font><font class="keyword"> String</font>,
<font class="identifier"> Expiration</font><font class="keyword"> As</font><font class="keyword"> String</font>,
<font class="keyword"> Optional</font><font class="identifier"> LicKey</font><font class="keyword"> As</font><font class="keyword"> String</font>,
<font class="keyword"> Optional</font><font class="identifier"> RegisteredDate</font><font class="keyword"> As</font><font class="keyword"> String</font>,
<font class="keyword"> Optional</font><font class="identifier"> Hash1</font><font class="keyword"> As</font><font class="keyword"> String</font> )<font class="keyword"> As</font><font class="identifier"> ProductLicense</font></B></PRE>
<H4>Parameters</H4>
<DL>
<DT><I>name</I></TD>
<DD>
[ByRef]
<B>String</B>.
Product/Software Name
</DD>
<DT><I>Code</I></TD>
<DD>
[ByRef]
<B>String</B>.
Product/Software Code
</DD>
<DT><I>Ver</I></TD>
<DD>
[ByRef]
<B>String</B>.
Product version
</DD>
<DT><I>LicClass</I></TD>
<DD>
[ByRef]
<B><A href="IActiveLock.ALLockTypes.html">ALLockTypes</A></B>.
License class
</DD>
<DT><I>LicType</I></TD>
<DD>
[ByRef]
<B><A href="IActiveLock.ALLicType.html">ALLicType</A></B>.
License type
</DD>
<DT><I>Licensee</I></TD>
<DD>
[ByRef]
<B>String</B>.
Registered party for which the license has been issued
</DD>
<DT><I>Expiration</I></TD>
<DD>
[ByRef]
<B>String</B>.
Expiration date
</DD>
<DT><I>LicKey</I></TD>
<DD>
[ByRef]
Optional.
<B>String</B>.
License key
</DD>
<DT><I>RegisteredDate</I></TD>
<DD>
[ByRef]
Optional.
<B>String</B>.
Date on which the product is registered
</DD>
<DT><I>Hash1</I></TD>
<DD>
[ByRef]
Optional.
<B>String</B>.
Hash-1 code
</DD>
</DL>
<H4>Return Values</H4>
<B><A href="ProductLicense.html">ProductLicense</A></B> -
<H4>Remarks</H4>
<P></P>
<H4>See Also</H4>
<P>
<A HREF="ActiveLock2.html">Project ActiveLock2 Overview</A>
<A HREF="Globals.html">Class Globals Overview</A>
<A HREF="Globals.html#public_props">Globals Properties</A>
<A HREF="Globals.html#public_methods">Globals Methods</A>
<B><A HREF="Globals.Base64Encode.html">Base64Encode</A></B>
<B><A HREF="Globals.GetLicTypeString.html">GetLicTypeString</A></B>
<DIV class=footer>Build on Sunday, August 03, 2003 by Michael E. Crute <BR>Copyright © 2000 - 2003 ActiveLock Software Group</DIV>
<DIV class=footer style="COLOR: #000000; FONT-SIZE: 90%">
</body>
</html>
--- NEW FILE: Globals.GetLicTypeString.html ---
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
<head>
<meta http-equiv="Content-Type" content="Text/html; charset=iso-8859-1">
<meta name="Author" content = "m.stamenov" >
<meta name="GENERATOR" content="VBDOX [2.0.20]" >
<link REL="stylesheet" TYPE="text/css" HREF="backsdk4.css">
<script SRC="langref.js"></script>
<title>Globals: GetLicTypeString</title>
</head>
<BODY TOPMARGIN="0">
<TABLE CLASS="buttonbarshade" CELLSPACING=0><TR><TD> </TD></TR></TABLE>
<TABLE CLASS="buttonbartable" CELLSPACING=0>
<TR ID="hdr"><TD CLASS="runninghead" NOWRAP>Globals: GetLicTypeString</TD></TR>
</TABLE>
<!-- ============ METHOD ENTRY ============ -->
<H1>GetLicTypeString</H1>
<P>
Returns a string version of LicType
<PRE class=syntax><B><font class="keyword"> Private</font><font class="keyword"> Function</font><font class="identifier"> GetLicTypeString</font>(
<font class="identifier"> LicType</font><font class="keyword"> As</font><font class="identifier"> ALLicType</font> )<font class="keyword"> As</font><font class="keyword"> String</font></B></PRE>
<H4>Parameters</H4>
<DL>
<DT><I>LicType</I></TD>
<DD>
[ByRef]
<B><A href="IActiveLock.ALLicType.html">ALLicType</A></B>.
License Type
</DD>
</DL>
<H4>Return Values</H4>
<B>String</B> -
<H4>Remarks</H4>
<P></P>
<H4>See Also</H4>
<P>
<A HREF="ActiveLock2.html">Project ActiveLock2 Overview</A>
<A HREF="Globals.html">Class Globals Overview</A>
<A HREF="Globals.html#public_props">Globals Properties</A>
<A HREF="Globals.html#public_methods">Globals Methods</A>
<B><A HREF="Globals.CreateProductLicense.html">CreateProductLicense</A></B>
<B><A HREF="Globals.MD5Hash.html">MD5Hash</A></B>
<DIV class=footer>Build on Sunday, August 03, 2003 by Michael E. Crute <BR>Copyright © 2000 - 2003 ActiveLock Software Group</DIV>
<DIV class=footer style="COLOR: #000000; FONT-SIZE: 90%">
</body>
</html>
--- NEW FILE: Globals.MD5Hash.html ---
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
<head>
<meta http-equiv="Content-Type" content="Text/html; charset=iso-8859-1">
<meta name="Author" content = "m.stamenov" >
<meta name="GENERATOR" content="VBDOX [2.0.20]" >
<link REL="stylesheet" TYPE="text/css" HREF="backsdk4.css">
<script SRC="langref.js"></script>
<title>Globals: MD5Hash</title>
</head>
<BODY TOPMARGIN="0">
<TABLE CLASS="buttonbarshade" CELLSPACING=0><TR><TD> </TD></TR></TABLE>
<TABLE CLASS="buttonbartable" CELLSPACING=0>
<TR ID="hdr"><TD CLASS="runninghead" NOWRAP>Globals: MD5Hash</TD></TR>
</TABLE>
<!-- ============ METHOD ENTRY ============ -->
<H1>MD5Hash</H1>
<P>
Computes an MD5 hash of the specified string.
<PRE class=syntax><B><font class="keyword"> Public</font><font class="keyword"> Function</font><font class="identifier"> MD5Hash</font>(
<font class="identifier"> str</font><font class="keyword"> As</font><font class="keyword"> String</font> )<font class="keyword"> As</font><font class="keyword"> String</font></B></PRE>
<H4>Parameters</H4>
<DL>
<DT><I>str</I></TD>
<DD>
[ByRef]
<B>String</B>.
String to be hashed.
</DD>
</DL>
<H4>Return Values</H4>
<B>String</B> -
<H4>Remarks</H4>
<P></P>
<H4>See Also</H4>
<P>
<A HREF="ActiveLock2.html">Project ActiveLock2 Overview</A>
<A HREF="Globals.html">Class Globals Overview</A>
<A HREF="Globals.html#public_props">Globals Properties</A>
<A HREF="Globals.html#public_methods">Globals Methods</A>
<B><A HREF="Globals.GetLicTypeString.html">GetLicTypeString</A></B>
<B><A HREF="Globals.NewInstance.html">NewInstance</A></B>
<DIV class=footer>Build on Sunday, August 03, 2003 by Michael E. Crute <BR>Copyright © 2000 - 2003 ActiveLock Software Group</DIV>
<DIV class=footer style="COLOR: #000000; FONT-SIZE: 90%">
</body>
</html>
--- NEW FILE: Globals.NewInstance.html ---
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
<head>
<meta http-equiv="Content-Type" content="Text/html; charset=iso-8859-1">
<meta name="Author" content = "m.stamenov" >
<meta name="GENERATOR" content="VBDOX [2.0.20]" >
<link REL="stylesheet" TYPE="text/css" HREF="backsdk4.css">
<script SRC="langref.js"></script>
<title>Globals: NewInstance</title>
</head>
<BODY TOPMARGIN="0">
<TABLE CLASS="buttonbarshade" CELLSPACING=0><TR><TD> </TD></TR></TABLE>
<TABLE CLASS="buttonbartable" CELLSPACING=0>
<TR ID="hdr"><TD CLASS="runninghead" NOWRAP>Globals: NewInstance</TD></TR>
</TABLE>
<!-- ============ METHOD ENTRY ============ -->
<H1>NewInstance</H1>
<P>
Returns a new instance of an object that implements IActiveLock interface.
<PRE class=syntax><B><font class="keyword"> Public</font><font class="keyword"> Function</font><font class="identifier"> NewInstance</font>(
<font class="keyword"> Optional</font><font class="identifier"> Args</font><font class="keyword"> As</font><font class="keyword"> Variant</font> )<font class="keyword"> As</font><font class="identifier"> IActiveLock</font></B></PRE>
<H4>Parameters</H4>
<DL>
<DT><I>Args</I></TD>
<DD>
[ByRef]
Optional.
<B>Variant</B>.
Optional list of parameters.
</DD>
</DL>
<H4>Return Values</H4>
<B><A href="IActiveLock.html">IActiveLock</A></B> -
<H4>Remarks</H4>
<P></P>
<H4>See Also</H4>
<P>
<A HREF="ActiveLock2.html">Project ActiveLock2 Overview</A>
<A HREF="Globals.html">Class Globals Overview</A>
<A HREF="Globals.html#public_props">Globals Properties</A>
<A HREF="Globals.html#public_methods">Globals Methods</A>
<B><A HREF="Globals.MD5Hash.html">MD5Hash</A></B>
<B><A HREF="Globals.RSASign.html">RSASign</A></B>
<DIV class=footer>Build on Sunday, August 03, 2003 by Michael E. Crute <BR>Copyright © 2000 - 2003 ActiveLock Software Group</DIV>
<DIV class=footer style="COLOR: #000000; FONT-SIZE: 90%">
</body>
</html>
--- NEW FILE: Globals.RSASign.html ---
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
<head>
<meta http-equiv="Content-Type" content="Text/html; charset=iso-8859-1">
<meta name="Author" content = "m.stamenov" >
<meta name="GENERATOR" content="VBDOX [2.0.20]" >
<link REL="stylesheet" TYPE="text/css" HREF="backsdk4.css">
<script SRC="langref.js"></script>
<title>Globals: RSASign</title>
</head>
<BODY TOPMARGIN="0">
<TABLE CLASS="buttonbarshade" CELLSPACING=0><TR><TD> </TD></TR></TABLE>
<TABLE CLASS="buttonbartable" CELLSPACING=0>
<TR ID="hdr...
[truncated message content] |
|
From: Michael E. C. <mc...@us...> - 2003-08-04 01:40:50
|
Update of /cvsroot/activelock/activelock2/doc/API In directory sc8-pr-cvs1:/tmp/cvs-serv26966/API Log Message: Directory /cvsroot/activelock/activelock2/doc/API added to the repository |
|
From: Dan <wiz...@us...> - 2003-08-04 01:34:05
|
Update of /cvsroot/activelock/activelock2/test
In directory sc8-pr-cvs1:/tmp/cvs-serv25946/test
Modified Files:
ALTestApp.vbp frmMain.frm modMain.bas
Log Message:
Added TrimNulls to modComputerName and added vbLf's to LockTo string for easy separation later on.
- Dan
Index: ALTestApp.vbp
===================================================================
RCS file: /cvsroot/activelock/activelock2/test/ALTestApp.vbp,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- ALTestApp.vbp 3 Aug 2003 09:26:21 -0000 1.6
+++ ALTestApp.vbp 4 Aug 2003 01:34:02 -0000 1.7
@@ -1,5 +1,5 @@
Type=Exe
-Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#stdole2.tlb#OLE Automation
+Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\..\..\..\WINNT\system32\STDOLE2.TLB#OLE Automation
Reference=*\G{AAED8AB4-AC83-4C51-93EE-64664DB96265}#7.0#0#..\src\ActiveLock2.dll#ActiveLock2
Object={BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0; TABCTL32.OCX
Form=frmMain.frm
Index: frmMain.frm
===================================================================
RCS file: /cvsroot/activelock/activelock2/test/frmMain.frm,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- frmMain.frm 3 Aug 2003 09:26:21 -0000 1.8
+++ frmMain.frm 4 Aug 2003 01:34:02 -0000 1.9
@@ -66,15 +66,15 @@
TabCaption(1) = "Registration"
TabPicture(1) = "frmMain.frx":001C
Tab(1).ControlEnabled= 0 'False
- Tab(1).Control(0)= "fraReg"
- Tab(1).Control(1)= "fraRegStatus"
+ Tab(1).Control(0)= "fraRegStatus"
+ Tab(1).Control(1)= "fraReg"
Tab(1).ControlCount= 2
TabCaption(2) = "Sample App"
TabPicture(2) = "frmMain.frx":0038
Tab(2).ControlEnabled= 0 'False
- Tab(2).Control(0)= "fraTicker"
+ Tab(2).Control(0)= "Frame1"
Tab(2).Control(1)= "fraViewport"
- Tab(2).Control(2)= "Frame1"
+ Tab(2).Control(2)= "fraTicker"
Tab(2).ControlCount= 3
Begin VB.TextBox txtChecksum
BackColor = &H80000011&
@@ -796,8 +796,15 @@
End Function
Private Sub GetLockAndUserFromRequestCode(ByVal strReq As String, strLock As String, strUser As String)
- Dim Index%
+ Dim Index%, i
+
+ For i = 1 To Len(strReq)
+ If Mid(strReq, i, 1) = vbLf Then Index = i
+ Next i
+
Index = InStr(1, strReq, vbLf)
+
+
If Index <= 0 Then Exit Sub
strLock = Left(strReq, Index - 1)
@@ -811,10 +818,10 @@
On Error GoTo errHandler
Dim arrBytes() As Byte
arrBytes = StrConv(Str, vbFromUnicode)
- Dim I%
- For I = LBound(arrBytes) To UBound(arrBytes)
- If arrBytes(I) = char Then
- IndexOf = I
+ Dim i%
+ For i = LBound(arrBytes) To UBound(arrBytes)
+ If arrBytes(i) = char Then
+ IndexOf = i
Exit Function
End If
Next
Index: modMain.bas
===================================================================
RCS file: /cvsroot/activelock/activelock2/test/modMain.bas,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- modMain.bas 2 Aug 2003 07:18:17 -0000 1.7
+++ modMain.bas 4 Aug 2003 01:34:02 -0000 1.8
@@ -207,7 +207,7 @@
' that you generate your own set of keys to use before deploying your app.
Public Const PRIV_KEY$ = "AAAAgEPRFzhQEF7S91vt2K6kOcEdDDe5BfwNiEL30/+ozTFHc7cZctB8NIlS++ZR//D3AjSMqScjh7xUF/gwvUgGCjiExjj1DF/XWFWnPOCfF8UxYAizCLZ9fdqxb1FRpI5NoW0xxUmvxGjmxKwazIW4P4XVi/+i1Bvh2qQ6ri3whcsNAAAAQQCyWGsbJKO28H2QLYH+enb7ehzwBThqfAeke/Gv1Te95yIAWme71I9aCTTlLsmtIYSk9rNrp3sh9ItD2Re67SE7AAAAQQCAookH1nws1gS2XP9cZTPaZEmFLwuxlSVsLQ5RWmd9cuxpgw5y2gIskbL4c+4oBuj0IDwKtnMrZq7UfV9I5VfVAAAAQQCEnyAuO0ahXH3KhAboop9+tCmRzZInTrDYdMy23xf3PLCLd777dL/Y2Y+zmaH1VO03m6iOog7WLiN4dCL7m+Im"
Public Const PUB_KEY$ = "AAAAB3NzaC1yc2EAAAABJQAAAIBZnXD4IKfrBH25ekwLWQMs5mJuNH7D7U99EKFIsVhKQv17GHxKWvxHv/FwWhI1Rmd8TCiqk4Wmk7H1rh6xdbIVBwDj+RSeiXs8mmQX4/XvaWZx9BIQr5wODWnQCH/tj6Y6In2Xjc2J3B7LSjD60cWDBY/u+z9cSheTHLyhb16zFw=="
-Private Const AL_CRC& = 308603 ' ActiveLock2.dll's CRC checksum to be used for comparison
+Private Const AL_CRC& = 183580 ' ActiveLock2.dll's CRC checksum to be used for comparison
Public Function Encrypt(strData As String) As String
Dim Key As RSAKey
' create the key from the key blobs
|
|
From: Dan <wiz...@us...> - 2003-08-04 01:34:05
|
Update of /cvsroot/activelock/activelock2/src
In directory sc8-pr-cvs1:/tmp/cvs-serv25946/src
Modified Files:
ActiveLock.cls ActiveLock2.dll ActiveLock2.vbp
modComputerName.bas
Log Message:
Added TrimNulls to modComputerName and added vbLf's to LockTo string for easy separation later on.
- Dan
Index: ActiveLock.cls
===================================================================
RCS file: /cvsroot/activelock/activelock2/src/ActiveLock.cls,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- ActiveLock.cls 3 Aug 2003 08:38:11 -0000 1.12
+++ ActiveLock.cls 4 Aug 2003 01:34:01 -0000 1.13
@@ -110,9 +110,9 @@
Private Sub IActiveLock_Init(Arg1 As Variant, ParamArray OtherArgs() As Variant)
' Checksum ALCrypto.dll
Const ALCRYPTO_MD5$ = "ac0dd6351905e6d688199146165170c4"
- Dim strData As String, strMD5 As String
- Call modActiveLock.ReadFile(App.Path & "\ALCrypto.Dll", strData)
- strMD5 = modMD5.Hash(strData) ' use our own MD5 hashing routine instead of ALCrypto's md5_hash() function.
+ Dim strdata As String, strMD5 As String
+ Call modActiveLock.ReadFile(App.path & "\ALCrypto.Dll", strdata)
+ strMD5 = modMD5.Hash(strdata) ' use our own MD5 hashing routine instead of ALCrypto's md5_hash() function.
If strMD5 <> ALCRYPTO_MD5 Then
Err.Raise ActiveLockErrCodeConstants.alerrFileTampered, "IActiveLock_Acquire", "ALCrypto.dll has been tampered."
End If
@@ -309,17 +309,20 @@
Dim strLock As String
If (mLockTypes And lockMAC) = lockMAC Then
- strLock = strLock & modMACAddress.GetMACAddress()
+ strLock = strLock & vbLf & modMACAddress.GetMACAddress()
End If
If mLockTypes And lockComp Then
- strLock = strLock & modComputerName.GetComputerName()
+ strLock = strLock & vbLf & modComputerName.GetComputerName()
End If
If mLockTypes And lockHD Then
- strLock = strLock & modHDSerial.GetHDSerial()
+ strLock = strLock & vbLf & modHDSerial.GetHDSerial()
End If
If mLockTypes And lockWindows Then
- strLock = strLock & modWindowsSerial.GetWindowsSerial()
+ strLock = strLock & vbLf & modWindowsSerial.GetWindowsSerial()
End If
+
+ If Left(strLock, 1) = vbLf Then strLock = Mid(strLock, 2)
+
If Lic Is Nothing Then
IActiveLock_LockCode = strLock
Else
Index: ActiveLock2.dll
===================================================================
RCS file: /cvsroot/activelock/activelock2/src/ActiveLock2.dll,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
Binary files /tmp/cvsISBwEp and /tmp/cvsqI6J9F differ
Index: ActiveLock2.vbp
===================================================================
RCS file: /cvsroot/activelock/activelock2/src/ActiveLock2.vbp,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -d -r1.11 -r1.12
--- ActiveLock2.vbp 3 Aug 2003 08:33:35 -0000 1.11
+++ ActiveLock2.vbp 4 Aug 2003 01:34:02 -0000 1.12
@@ -1,5 +1,5 @@
Type=OleDll
-Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#STDOLE2.TLB#OLE Automation
+Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\..\..\..\WINNT\system32\STDOLE2.TLB#OLE Automation
Class=ActiveLock; ActiveLock.cls
Class=IActiveLock; IActiveLock.cls
Class=Globals; Globals.cls
Index: modComputerName.bas
===================================================================
RCS file: /cvsroot/activelock/activelock2/src/modComputerName.bas,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- modComputerName.bas 29 Jul 2003 18:58:16 -0000 1.1
+++ modComputerName.bas 4 Aug 2003 01:34:02 -0000 1.2
@@ -69,5 +69,5 @@
maxSize = MAX_COMPUTERNAME_LENGTH + 1
name = String(maxSize, 0)
tmp = ComputerName(name, maxSize)
- GetComputerName = name
+ GetComputerName = TrimNulls(name)
End Function
|
3 messages has been excluded from this view by a project administrator.
