activelock-development Mailing List for ActiveLock (Page 10)
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: Thanh H. T. <th...@sy...> - 2003-10-15 05:19:32
|
OK. Who would kike to volunteer for this task? C'mon. Step right up. Don't be shy. :-) SourceForge.net wrote: >Task #80351 has been updated. > >Project: ActiveLock >Subproject: ActiveLock 2.0 General >Summary: Create a Tutorial >Complete: 0% >Status: Open >Authority : kingrikk >Assigned to: nobody > >Description: Ensure that user guides, quick runthroughs and tutorials are created for this version of ActiveLock before we continue. > >Follow-Ups: > >------------------------------------------------------- >Date: 2003-10-15 05:10 >By: th2tran > >Comment: >...and by the way, I'm designating this task solely for creating a tutorial. We'll need to create a separate task for user guide documentation, later. > >------------------------------------------------------- >Date: 2003-10-15 05:02 >By: th2tran > >Comment: >Need a step-by-step "ActiveLock 2 for Dummies" tutorial that shows how developers can use ActiveLock 2 within their existing application. > >------------------------------------------------------- >For more info, visit: > >http://sourceforge.net/pm/task.php?func=detailtask&project_task_id=80351&group_id=70007&group_project_id=29689 > > > |
|
From: SourceForge.net <no...@so...> - 2003-10-15 05:10:59
|
Task #80351 has been updated. Project: ActiveLock Subproject: ActiveLock 2.0 General Summary: Create a Tutorial Complete: 0% Status: Open Authority : kingrikk Assigned to: nobody Description: Ensure that user guides, quick runthroughs and tutorials are created for this version of ActiveLock before we continue. Follow-Ups: ------------------------------------------------------- Date: 2003-10-15 05:10 By: th2tran Comment: ...and by the way, I'm designating this task solely for creating a tutorial. We'll need to create a separate task for user guide documentation, later. ------------------------------------------------------- Date: 2003-10-15 05:02 By: th2tran Comment: Need a step-by-step "ActiveLock 2 for Dummies" tutorial that shows how developers can use ActiveLock 2 within their existing application. ------------------------------------------------------- For more info, visit: http://sourceforge.net/pm/task.php?func=detailtask&project_task_id=80351&group_id=70007&group_project_id=29689 |
|
From: SourceForge.net <no...@so...> - 2003-10-15 05:02:53
|
Task #80351 has been updated. Project: ActiveLock Subproject: ActiveLock 2.0 General Summary: Create a Tutorial Complete: 0% Status: Open Authority : kingrikk Assigned to: nobody Description: Ensure that user guides, quick runthroughs and tutorials are created for this version of ActiveLock before we continue. Follow-Ups: ------------------------------------------------------- Date: 2003-10-15 05:02 By: th2tran Comment: Need a step-by-step "ActiveLock 2 for Dummies" tutorial that shows how developers can use ActiveLock 2 within their existing application. ------------------------------------------------------- For more info, visit: http://sourceforge.net/pm/task.php?func=detailtask&project_task_id=80351&group_id=70007&group_project_id=29689 |
|
From: SourceForge.net <no...@so...> - 2003-10-15 04:39:39
|
Feature Requests item #823893, was opened at 2003-10-15 04:39 Message generated for change (Tracker Item Submitted) made by Item Submitter You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=526388&aid=823893&group_id=70007 Category: General Group: Next Release (Any) Status: Open Resolution: None Priority: 5 Submitted By: Thanh Hai Tran (th2tran) Assigned to: Nobody/Anonymous (nobody) Summary: Can you allow for reduction of the key length Initial Comment: Logged on behalf of Hypercubed.... Currently, the generated key is very long (probably because of using 1024-bit encryption). Would like to be able to generate keys with shorter length. ---------------------------------------------------------------------- You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=526388&aid=823893&group_id=70007 |
|
From: AJcompany A. <ajc...@ya...> - 2003-10-14 11:29:52
|
Whoops, missed that message. Sorry bout that.
(A little too late now, but when's the next meeting?)
AJ
----- Original Message -----
From: Thanh Hai Tran
To: act...@li...
Sent: Monday, October 13, 2003 5:14 PM
Subject: [family] Re: [ActiveLock-Development] Alpha 2 Release Prep
Mike: No execuse (especially for a PM) for being busy, man. So am I. So are we all. See you then.
AJ,
I just saw your reply from the list archive (it didn't make it to my inbox though...wonder why).
Anyway, you are ALL more than welcome to join us.
Time: Monday, Oct 13, 2003 9:00PM EST
Place: MSN Messenger
I now have your MSN ID so I can bring you into the meeting chat when I see you online.
I've posted the weekly build (2.0.3) on SF. Please download and help me give it some quick tests if you would. This will be our Alpha 2 candidate. If there's no major issue with it, we will promote it to "Alpha 2" status tonight.
- Thanh
----- Original Message -----
From: Michael E. Crute
To: act...@li...
Sent: Monday, October 13, 2003 5:10 PM
Subject: Re: [ActiveLock-Development] Alpha 2 Release Prep
Sure man... we can talk tonight (9PM EST)... I got no excuses just really fuckin busy. See ya then...
-Mike
Thanh Hai Tran wrote:
Mike!
Where did you disappear to? We need to get together to prepare for Alpha 2 release.
9PM EST tonight.
Let me know your availability.
- Thanh
---------------------------------
Do you Yahoo!?
The New Yahoo! Shopping - with improved product search |
|
From: Thanh H. T. <th...@sy...> - 2003-10-13 22:14:26
|
Mike: No execuse (especially for a PM) for being busy, man. So am I. So =
are we all. See you then.
AJ,
I just saw your reply from the list archive (it didn't make it to my =
inbox though...wonder why).
Anyway, you are ALL more than welcome to join us.=20
Time: Monday, Oct 13, 2003 9:00PM EST
Place: MSN Messenger
I now have your MSN ID so I can bring you into the meeting chat when I =
see you online.
I've posted the weekly build (2.0.3) on SF. Please download and help me =
give it some quick tests if you would. This will be our Alpha 2 =
candidate. If there's no major issue with it, we will promote it to =
"Alpha 2" status tonight.
- Thanh
----- Original Message -----=20
From: Michael E. Crute=20
To: act...@li...=20
Sent: Monday, October 13, 2003 5:10 PM
Subject: Re: [ActiveLock-Development] Alpha 2 Release Prep
Sure man... we can talk tonight (9PM EST)... I got no excuses just =
really fuckin busy. See ya then...
-Mike
Thanh Hai Tran wrote:
Mike!
Where did you disappear to? We need to get together to prepare for =
Alpha 2 release.
9PM EST tonight. =20
Let me know your availability.
- Thanh |
|
From: Michael E. C. <mc...@so...> - 2003-10-13 21:10:31
|
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <meta http-equiv="Content-Type" content="text/html;charset=UTF-8"> <title></title> </head> <body text="#3333ff" bgcolor="#ffffff"> <font size="-1"><span style="font-family: verdana;">Sure man... we can talk tonight (9PM EST)... I got no excuses just really fuckin busy. See ya then...<br> <br> -Mike<br> </span></font><br> Thanh Hai Tran wrote:<br> <blockquote type="cite" cite="mid060b01c391bc$d426d620$750...@ka..."> <meta content="text/html; " http-equiv="Content-Type"> <meta name="GENERATOR" content="MSHTML 6.00.2800.1264"> <style></style> <div><font size="2">Mike!</font></div> <div><font size="2">Where did you disappear to? We need to get together to prepare for Alpha 2 release.</font></div> <div><font size="2">9PM EST tonight. </font></div> <div><font size="2">Let me know your availability.</font></div> <div><font size="2">- Thanh</font></div> </blockquote> <br> <pre cols="72" class="moz-signature">-- **************************************** Michael E. Crute Senior Applications Developer SoftGroup Development Corporation <a class="moz-txt-link-abbreviated" href="mailto:mc...@so...">mc...@so...</a></pre> </body> </html> |
|
From: AJcompany A. <ajc...@ya...> - 2003-10-13 20:03:12
|
Umm.... I know I'm not Mike. Sorry for intruding, but do we have a schedule for timing of meetings? I was online (aj...@ho...) last night at 9PM EST, but nobody else was. Thanks, AJ ----- Original Message ----- From: Thanh Hai Tran To: act...@li... Sent: Monday, October 13, 2003 2:04 PM Subject: [family] [ActiveLock-Development] Alpha 2 Release Prep Mike! Where did you disappear to? We need to get together to prepare for Alpha 2 release. 9PM EST tonight. Let me know your availability. - Thanh --------------------------------- Do you Yahoo!? The New Yahoo! Shopping - with improved product search |
|
From: Thanh H. T. <th...@sy...> - 2003-10-13 19:04:33
|
Mike! Where did you disappear to? We need to get together to prepare for = Alpha 2 release. 9PM EST tonight. =20 Let me know your availability. - Thanh |
|
From: Thanh H. T. <th...@us...> - 2003-10-13 09:03:39
|
Update of /cvsroot/activelock/installer
In directory sc8-pr-cvs1:/tmp/cvs-serv32597
Modified Files:
ActiveLock.nsi
Log Message:
Updated MUI_VERSION to 2.0.3
Index: ActiveLock.nsi
===================================================================
RCS file: /cvsroot/activelock/installer/ActiveLock.nsi,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- ActiveLock.nsi 13 Oct 2003 08:27:57 -0000 1.4
+++ ActiveLock.nsi 13 Oct 2003 09:03:27 -0000 1.5
@@ -58,7 +58,7 @@
;Modern UI Configuration
!define MUI_PRODUCT "ActiveLock"
- !define MUI_VERSION "2.0.2"
+ !define MUI_VERSION "2.0.3"
!define MUI_NAME "ActiveLock ${MUI_VERSION}" ;Installer name
|
|
From: Thanh H. T. <th...@us...> - 2003-10-13 08:59:24
|
Update of /cvsroot/activelock/activelock In directory sc8-pr-cvs1:/tmp/cvs-serv31828 Modified Files: build.bat Log Message: re-register activelock2.dll immediately after successful compile. Index: build.bat =================================================================== RCS file: /cvsroot/activelock/activelock/build.bat,v retrieving revision 1.2 retrieving revision 1.3 diff -u -d -r1.2 -r1.3 --- build.bat 13 Oct 2003 08:44:43 -0000 1.2 +++ build.bat 13 Oct 2003 08:59:20 -0000 1.3 @@ -76,14 +76,14 @@ echo Compiling activelock2.dll... vb6.exe /make src\ActiveLock2.vbp /out build.log if errorlevel == 1 goto error -copy src\activelock2.dll bin\ regsvr32 /s /u src\activelock2.dll +copy src\activelock2.dll bin\ +regsvr32 /s bin\activelock2.dll echo The build will now pause for you to update ALTestApp with the new activelock2.dll checksum. pause if "%1" == "compile-activelock" goto done :compile-alugen -regsvr32 /s bin\activelock2.dll echo Unregistering alugen.dll... regsvr32 /s /u ..\alugen\lib\alugen.dll echo Compiling alugen.dll... |
|
From: Thanh H. T. <th...@us...> - 2003-10-13 08:50:45
|
Update of /cvsroot/activelock/activelock/docs In directory sc8-pr-cvs1:/tmp/cvs-serv30720 Modified Files: ReleaseNotes.htm Log Message: Alpha 2 Release Notes - FIRST DRAFT Index: ReleaseNotes.htm =================================================================== RCS file: /cvsroot/activelock/activelock/docs/ReleaseNotes.htm,v retrieving revision 1.1 retrieving revision 1.2 diff -u -d -r1.1 -r1.2 --- ReleaseNotes.htm 15 Aug 2003 18:51:55 -0000 1.1 +++ ReleaseNotes.htm 13 Oct 2003 08:50:41 -0000 1.2 @@ -1,75 +1,167 @@ -<html> -<body> -<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><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 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 license storage methods</font><font size="2"> - </font> - <ul> - <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> - </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> +<html><head> +<title>ActiveLock 2.0 Release Notes</title> -<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> +<style>.dtcheading1 { + FONT-WEIGHT: bold; FONT-SIZE: 14pt; MARGIN-BOTTOM: 0px +} +.dtcheading2 { + MARGIN-TOP: 0px; FONT-WEIGHT: bold; FONT-SIZE: 12pt +} +.dtcMajorheading1 { + FONT-WEIGHT: bold; FONT-SIZE: 12pt; MARGIN-BOTTOM: 0px +} +.dtcMajorheading2 { + MARGIN-TOP: 0px; FONT-WEIGHT: bold; FONT-SIZE: 12pt; MARGIN-BOTTOM: 0px +} +.dtcMajorheading3 { + FONT-WEIGHT: bold; FONT-SIZE: 12pt +} +.dtcsubheading { + FONT-WEIGHT: bold; FONT-SIZE: 10pt; MARGIN-BOTTOM: 0px +} +.dtcsubheadingindent { + MARGIN-TOP: 0px; FONT-WEIGHT: bold; FONT-SIZE: 10pt; MARGIN-BOTTOM: 0px; MARGIN-LEFT: 60px; TEXT-ALIGN: left +} +.dtcbody { + MARGIN-TOP: 0px; FONT-SIZE: 10pt +} +.dtcbulleted { + FONT-SIZE: 12pt +} +.dtcnumbered { + FONT-SIZE: 12pt +} +.dtcbodycr { + MARGIN-TOP: 0px; FONT-SIZE: 14px +} +</style> +</head> + +<body bgcolor="#ffffff"> + +<center> +<h1>Release Notes</h1> +<h3>ActiveLock<sup><font size=-2>TM</font></sup> 2<br> +Alpha 2 (Oct. 13, 2003)</h3> +</center> +<hr> +<p> +<h2>Contents</h2> <ul> - <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> + <li><a href=#introduction>Introduction</a> + <li><a href=#legalese>Legal Disclaimer</a> + <li><a href=#changes>Change History</a> + <li><a href=#compatibility>Compatibility</a> + <li><a href=#redistribution>Redistribution</a> + <li><a href=#resources>Online Resources</a> </ul> -<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> +<a name="introduction"><h2>Introduction</h2></a> +<blockquote> +Thank you for downloading this release of +ActiveLock<sup><font size=-2>TM</font></sup> 2. +ActiveLock is a software licensing tool written primarily in Microsoft Visual Basic 6.0. + +<p> +ActiveLock has undergone major changes since version 1.89. +Version 2.0 is a complete redesign with new system architecture for better protection against hackers. +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. +</blockquote> + +<a name="legalese"><h2>Legal Disclaimer</h2></a> +<p> +Before proceeding any further, please ensure that you read and understand <b>License.txt</b> +accompanying this release. Proceeding beyond this point implies that you have read and agreed to +the terms and conditions specified in <b>License.txt</b>. + +<a name="changes"><h2>Change History</h2></a> +<blockquote> + <h3>2.0.3 (Alpha 2) - Oct. 13, 2003</h3> + <h4>New Features</h4> + <ul> + <li>ActiveLock Universal GENerator (ALUGEN). This is a key generator that will work against + any application using ActiveLock 2. This generator will also create <code>SoftwareCode</code> + that you'll need to set in your application. + </ul> + <h4>Bug Fixes In This Release</h4> + <ul> + <li>The issue of alcrypto.dll crashing has now been resolved. + </ul> + + <h3>2.0.0 (Alpha 1) - Aug. 05, 2003</h3> + <h4>New Features</h4> + <ul> + <li>New DLL API - no more OCX + <li>Enhanced security. Available functions allow users to checksum the ActiveLock DLL before use. + <li>Strong Encryption. ActiveLock now employs 1024-bit RSA encryption technology for its key generation. + <li>New License Types. Trial and Timed Expiry licenses are now supported. + <li>Flexible license storage methods. License data are now stored in a license file instead. Future releases will support Windows Registry Storage. + </ul> + + <h4>Known Issues for This Release</h4> + <h5 class=dtcsubheading>alcrypto.dll crashing</h5> + <p class=dtcbody>rsa_createkey() sometimes crashed your application. + This is due to a bug in alcrypto.dll in which a bad + keyset is sometimes generated, either caused by rsa_generate() or one of + rsa_private_key_blob() and rsa_public_key_blob(). + This causes the rsa_createkey() call encryption routines to crash. +</blockquote> + + +<a name=compatibility><h2>Compatibility</h2></a> +<blockquote> + +<p> +ActiveLock 2 will NOT be compatible with ActiveLock 1.x. +</blockquote> + + +<a name="redistribution"><h2>Redistribution</h2></a> +<blockquote> +You are free to redistribute however you wish, provided that you include the +<a href="http://www.activelock.org/License.txt">ActiveLock License</a>. +<p>Here is the list of libraries that you'll need to redistribute. <ul> - <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> + <li><b>activelock2.dll</b>. ActiveLock 2 COM library. + <li><b>alcrypto.dll</b>. ActiveLock 2 cryptography Windows regular DLL + <li><b>alutil.dll</b>. ActiveLock 2 Utility COM library used by activelock2.dll </ul> -<p align="center"><font size="1" face="Verdana"><strong>Created August 4, 2003 by Michael E. Crute</strong></font></p> -</body> -</html> \ No newline at end of file + +</blockquote> + +<a name="resources"><h2>Online Resources</h2></a> +<blockquote> +For additional information, refer to these ActiveLock pages on the +World Wide Web: +<dl> + <dt><a href="http://www.activelock.org">http://www.activelock.org</a> + <dd>This is the official web site of The ActiveLock Software Group. + Please check this site for documentation and other online resources. + + <dt><a href="http://www.sourceforge.net/projects/activelock">http://www.sourceforge.net/projects/activelock</a> + <dd>This is the ActiveLock Project Page on SourceForge.Net. + Please refer to this page for new releases, + <a href="http://sourceforge.net/tracker/?group_id=70007&atid=526385">feature requests</a>, + and <a href="http://sourceforge.net/tracker/?group_id=70007&atid=526385">bug reports</a>. + + <dt><a href="http://lists.sourceforge.net/mailman/listinfo/activelock-users">ActiveLock Users Mailing List</a> + <dd>This is the fastest way to get help if you're having trouble using ActiveLock. + + <dt><a href="http://activelock.sourceforge.net/boards/">ActiveLock Message Board</a> + <dd>You can also post questions and discussions here. This way any newcomers who has not joined + our mailing list can also benefit from your discussions. +</dl> +</blockquote> + +<p> +<hr> +<small> +ActiveLock<sup><font size=-2>TM</font></sup> is a trademark of Nelson Ferraz <br> +Copyright 1998-2002 Nelson Ferraz <br> +Copyright 2003 The ActiveLock Software Group (ASG) <br> +All material is the property of the contributing authors. <br> +</pre> +</small> +</body></html> + |
|
From: Thanh H. T. <th...@us...> - 2003-10-13 08:47:23
|
Update of /cvsroot/activelock/activelock/bin In directory sc8-pr-cvs1:/tmp/cvs-serv30225 Modified Files: activelock2.dll alutil.dll Log Message: New dll for binary compatibility Index: activelock2.dll =================================================================== RCS file: /cvsroot/activelock/activelock/bin/activelock2.dll,v retrieving revision 1.3 retrieving revision 1.4 diff -u -d -r1.3 -r1.4 Binary files /tmp/cvsbyppOl and /tmp/cvsept5Gw differ Index: alutil.dll =================================================================== RCS file: /cvsroot/activelock/activelock/bin/alutil.dll,v retrieving revision 1.1 retrieving revision 1.2 diff -u -d -r1.1 -r1.2 Binary files /tmp/cvsTP5l7n and /tmp/cvsgG2uTB differ |
|
From: Thanh H. T. <th...@us...> - 2003-10-13 08:44:47
|
Update of /cvsroot/activelock/activelock In directory sc8-pr-cvs1:/tmp/cvs-serv29807 Modified Files: build.bat Log Message: Uncommented pause line after activelock2.dll compilation. Index: build.bat =================================================================== RCS file: /cvsroot/activelock/activelock/build.bat,v retrieving revision 1.1 retrieving revision 1.2 diff -u -d -r1.1 -r1.2 --- build.bat 13 Oct 2003 08:31:58 -0000 1.1 +++ build.bat 13 Oct 2003 08:44:43 -0000 1.2 @@ -79,7 +79,7 @@ copy src\activelock2.dll bin\ regsvr32 /s /u src\activelock2.dll echo The build will now pause for you to update ALTestApp with the new activelock2.dll checksum. -rem pause +pause if "%1" == "compile-activelock" goto done :compile-alugen |
|
From: Thanh H. T. <th...@us...> - 2003-10-13 08:42:00
|
Update of /cvsroot/activelock/activelock/src
In directory sc8-pr-cvs1:/tmp/cvs-serv29374
Modified Files:
ProductLicense.cls
Log Message:
Handle CRLF within liberation key.
Index: ProductLicense.cls
===================================================================
RCS file: /cvsroot/activelock/activelock/src/ProductLicense.cls,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- ProductLicense.cls 13 Oct 2003 04:49:03 -0000 1.2
+++ ProductLicense.cls 13 Oct 2003 08:41:56 -0000 1.3
@@ -65,6 +65,9 @@
' 07.07.03 - mecrute - Updated the header comments for this file.
' 08.03.03 - th2tran - VBDox'ed this class.
' 10.12.03 - th2tran - Added VB doc Attributes for showing in VB Object Browser
+' - Load() now drops CRLF chars from the liberation key.
+' This allows users to format the key into nice 64-byte
+' for better readability.
' </pre>
@@ -103,8 +106,8 @@
''
' [INTERNAL] Specifies product name.
'
-Friend Property Let ProductName(name As String)
- mstrProductName = name
+Friend Property Let ProductName(ByVal Name As String)
+ mstrProductName = Name
End Property
''
@@ -119,7 +122,7 @@
''
' [INTERNAL] Specified product version.
'
-Friend Property Let ProductVer(Ver As String)
+Friend Property Let ProductVer(ByVal Ver As String)
mstrProductVer = Ver
End Property
@@ -139,7 +142,7 @@
' if you call this method without knowing what you are doing.
' @param Key Product Key
'
-Public Property Let ProductKey(Key As String)
+Public Property Let ProductKey(ByVal Key As String)
Attribute ProductKey.VB_Description = "Product Key."
mstrProductKey = Key
End Property
@@ -155,7 +158,7 @@
''
' [INTERNAL] Specifies license type.
'
-Friend Property Let LicenseType(LicType As String)
+Friend Property Let LicenseType(ByVal LicType As String)
mstrType = LicType
End Property
@@ -171,7 +174,7 @@
''
' [INTERNAL] Specifies the license class string.
'
-Friend Property Let LicenseClass(LicClass As String)
+Friend Property Let LicenseClass(ByVal LicClass As String)
mstrLicenseClass = LicClass
End Property
@@ -187,8 +190,8 @@
''
' [INTERNAL] Specifies the licensed user.
'
-Friend Property Let Licensee(name As String)
- mstrLicensee = name
+Friend Property Let Licensee(ByVal Name As String)
+ mstrLicensee = Name
End Property
''
@@ -207,7 +210,7 @@
'
' @param Key New license key to be updated.
'
-Public Property Let LicenseKey(Key As String)
+Public Property Let LicenseKey(ByVal Key As String)
Attribute LicenseKey.VB_Description = "License key."
mstrLicenseKey = Key
End Property
@@ -224,7 +227,7 @@
' [INTERNAL] Specifies expiration data.
' @param strData expiration date string
'
-Friend Property Let Expiration(strDate As String)
+Friend Property Let Expiration(ByVal strDate As String)
mstrExpiration = strDate
End Property
@@ -249,7 +252,7 @@
''
' [INTERNAL] Specifies the registered date.
' @param strDate registered date
-Friend Property Let RegisteredDate(strDate As String)
+Friend Property Let RegisteredDate(ByVal strDate As String)
mstrRegisteredDate = strDate
End Property
@@ -266,7 +269,7 @@
' [INTERNAL] Sets the last used date.
' @param strDateTime DateTime string
'
-Friend Property Let LastUsed(strDateTime As String)
+Friend Property Let LastUsed(ByVal strDateTime As String)
mstrLastUsed = strDateTime
End Property
@@ -282,7 +285,7 @@
''
' [INTERNAL] Sets the Hash-1 code.
'
-Friend Property Let Hash1(hcode As String)
+Friend Property Let Hash1(ByVal hcode As String)
mstrHash1 = hcode
End Property
@@ -308,12 +311,15 @@
' Loads the license from a formatted string created from <a href="ProductLicense.Save.html">Save()</a>.
' @param strLic Formatted license string, delimited by CrLf characters.
'
-Public Sub Load(strLic As String)
+Public Sub Load(ByVal strLic As String)
Attribute Load.VB_Description = "Loads the license from a formatted string created by Save() method."
- ' First, base64-decode it
+ ' First, take out all crlf characters
+ strLic = Replace(strLic, vbCrLf, "")
+ ' base64-decode it
strLic = modBase64.Base64_Decode(strLic)
Dim arrParts() As String
arrParts = Split(strLic, vbCrLf)
+ ' Initialize appropriate properties
ProductName = arrParts(0)
ProductVer = arrParts(1)
ProductKey = arrParts(2)
@@ -329,7 +335,7 @@
' Saves the license into a formatted string.
' @param strOut [out] Formatted license string will be saved into this parameter when the routine returns.
'
-Public Sub Save(strOut As String)
+Public Sub Save(ByRef strOut As String)
Attribute Save.VB_Description = "Saves the license into a formatted string."
strOut = ToString() & vbCrLf & LicenseKey 'add License Key at the end
strOut = modBase64.Base64_Encode(strOut)
|
|
From: Thanh H. T. <th...@us...> - 2003-10-13 08:32:03
|
Update of /cvsroot/activelock/activelock In directory sc8-pr-cvs1:/tmp/cvs-serv27562 Added Files: build.bat Removed Files: _build.bat Log Message: Renamed _build.bat to build.bat --- NEW FILE: build.bat --- @echo off rem =================================================================================== rem This is the automated build script for ActiveLock2. rem rem Before you can run this script, you'll need to do the following environment setups rem 1. vb6.exe must be in your PATH rem 2. Install vbdox, and add its directory to your PATH rem 3. Install HTMLHelp Workshop, available at rem http://msdn.microsoft.com/library/default.asp?url=/library/en-us/htmlhelp/html/hwMicrosoftHTMLHelpDownloads.asp rem 4. Add HTMLHelp Workshop directory to your PATH. (e.g. "C:\Program Files\HTML Help Workshop") rem 5. Download and install NullSoft Install System (NSIS) rem Available at http://nsis.sourceforge.net/site/index.php rem 6. Add NSIS directory to your PATH rem =================================================================================== rem rem =================================================================================== rem REVISION HISTORY rem ================ rem Date ID Description rem -------- ------------- --------------------------------------------------------- rem 08.14.03 - th2tran - Created rem 10.05.03 - th2tran - Added compile steps for ALUGEN and building the setup rem - Added compile steps for Examples rem - Sent vb compile output to build.log rem 10.13.03 - th2tran - Added more comments and instructions. rem - Corrected if-test syntax...both operands needs to be inside quotes. rem - Use errorlevel to detect compile failure rem rem =================================================================================== rem Usage: To run a build of ActiveLock, run the following command: rem > _build <target> rem List of available targets: rem - all (default) rem - skip-activelock (same as all except activelock2.dll will not be recompiled) rem - compile-activelock rem - docs rem - installer rem Examples: rem * To run the installer, use: rem _build installer rem * To build API documentation, use: rem _build docs rem * Running _build specifying any target will run a complete build SETLOCAL rem Delete previous VB compilation log file del build.log if "%1" == "installer" goto installer if "%1" == "docs" goto docs if "%1" == "compile-activelock" goto compile-activelock rem ========================================================================================= rem Compile ActiveLock Libraries rem ========================================================================================= :all rem alutil.dll rem Make sure we unregister it before rebuilding, so that we don't leave junk old version stuff in the Registry echo Unregistering alutil.dll... regsvr32 /s /u bin\alutil.dll echo Compiling alutil.dll... rem Need to make sure vb6.exe is in our system PATH vb6.exe /make ..\alutil\ActiveLockUtil.vbp /out build.log if errorlevel == 1 goto error echo Copying autil.dll to bin\ directory copy ..\alutil\alutil.dll bin\ :compile-activelock if "%1" == "skip-activelock" goto compile-alugen rem Skip ActiveLock2.dll compilation. rem Because of the checksum, you'll need to compile this manually and update the Test App CRC checksum accordingly rem before you run this build. echo ActiveLock2.dll compilation skipped. echo Unregistering activelock2.dll... regsvr32 /s /u bin\activelock2.dll echo Compiling activelock2.dll... vb6.exe /make src\ActiveLock2.vbp /out build.log if errorlevel == 1 goto error copy src\activelock2.dll bin\ regsvr32 /s /u src\activelock2.dll echo The build will now pause for you to update ALTestApp with the new activelock2.dll checksum. rem pause if "%1" == "compile-activelock" goto done :compile-alugen regsvr32 /s bin\activelock2.dll echo Unregistering alugen.dll... regsvr32 /s /u ..\alugen\lib\alugen.dll echo Compiling alugen.dll... vb6.exe /make ..\alugen\lib\ALUGENLib.vbp /out build.log if errorlevel == 1 goto error rem move ..\alugen\lib\alugen.dll bin\ echo Compiling alugen.exe... vb6.exe /make ..\alugen\app\ALUGEN.vbp /out build.log if errorlevel == 1 goto error rem move ..\alugen\app\alugen.exe bin\ echo Compiling Examples vb6.exe /make examples\example1\ALTestApp.vbp /out build.log if errorlevel == 1 goto error if "%1" == "compile-all" goto done rem ========================================================================================= rem Build API Documentation rem Before running the docs build, you should set your VBDox options as follows: rem - Report Manager: .NET Style rem - Doc Parser: Java Style rem - Disable the spell checker, because it doesn't like VB keywords too much rem - .NEt Style Report Manager Options rem - Show property access [checked] rem - Show module description in project module list [checked] rem - Show module and entry icons [checked] rem - Include: rem - All modules and classes [checked] rem - Include All entries [unchecked] rem - Form controls [unchecked] rem - HTML Help: rem - Help project [checked] rem - Lists: rem - TO DO [checked] rem - BUG [checked] rem - History [checked] rem ========================================================================================= :docs rem Note: There's a problem with VBDox 2.0.30. If you're building vbdox for the first time, rem there will be some missing icons after the vbdox build. So you'll need to copy rem the icons from <vbdox_root>\icons over to generated doc's directory. rem This is why I'm commenting out the lines that cleans up old vbdox\*.*, so that you don't rem have to do the copying every time you build. rem rem echo Deleting old vbdox files... rem del /f /q /s vbdox\*.* echo Compiling vbdox help files... vbdox -q -o ..\..\vbdox -rm VBDOXEXT.clsReportManagerNET -dp VBDOXEXT.clsDocParserJ src\vbdox\ActiveLock2.vbp rem Build .chm using HTMLHelp Workshop echo Building ActiveLock2.chm... hhc vbdox\help.hhp rem Move ActiveLock2.chm out of vbdox directory into src directory (same dir where dll is) move vbdox\ActiveLock2.chm bin\ if "%1" == "docs" goto done rem ========================================================================================= rem Build the Installer rem ========================================================================================= :installer echo Building the ActiveLock Installer... makensis ..\installer\ActiveLock.nsi goto done :error echo Build failed due to errors. Please check the logs. type build.log :done echo Build Completed! ENDLOCAL --- _build.bat DELETED --- |
|
From: Thanh H. T. <th...@us...> - 2003-10-13 08:28:02
|
Update of /cvsroot/activelock/installer
In directory sc8-pr-cvs1:/tmp/cvs-serv26907
Modified Files:
ActiveLock.nsi
Log Message:
Added alutil source to the distribution.
Index: ActiveLock.nsi
===================================================================
RCS file: /cvsroot/activelock/installer/ActiveLock.nsi,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- ActiveLock.nsi 6 Oct 2003 05:28:14 -0000 1.3
+++ ActiveLock.nsi 13 Oct 2003 08:27:57 -0000 1.4
@@ -20,11 +20,13 @@
; then we have to put alcrypto.dll in the same directory as alugen.exe,
; ALTestApp.exe, which doesn't sound too bad since they all reside in the
; bin directory, but will cause you pains when you start debugging.
+; 10.11.03 - th2tran - Included alutil in the source code section.
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
!define VER_MAJOR 2
-!define VER_MINOR 0.2
+!define VER_MINOR 0.3
+!define ALUTIL_SRC_ROOT "..\alutil"
!define AL_SRC_ROOT "..\activelock"
!define ALCRYPTO_ROOT "..\alcrypto"
!define ALUGEN_ROOT "..\alugen"
@@ -117,7 +119,7 @@
SetOverwrite on
File ${AL_SRC_ROOT}\bin\alutil.dll
File ${AL_SRC_ROOT}\bin\activelock2.dll
- File ${AL_SRC_ROOT}\src\activelock2.chm
+ File ${AL_SRC_ROOT}\bin\activelock2.chm
;File ${AL_SRC_ROOT}\Examples\Example1\ALTestApp.exe
; ALCrypto.dll goes to Windows directory
@@ -173,12 +175,22 @@
WriteINIStr "$SMPROGRAMS\ActiveLock\ActiveLock Development Site.url" "InternetShortcut" "URL" "http://activelock.sourceforge.net/"
CreateShortCut "$SMPROGRAMS\ActiveLock\Uninstall ActiveLock.lnk" "$INSTDIR\uninst.exe"
- CreateShortCut "$SMPROGRAMS\ActiveLock\API Documentation.lnk" "$SYSDIR\ActiveLock2.chm"
+ CreateShortCut "$SMPROGRAMS\ActiveLock\API Documentation.lnk" "$INSTDIR\bin\activelock2.chm"
!endif
SectionEnd
SubSection "Source Code" SecSrc
+ Section "ActiveLock Utilities Library" SecSrcALUtil
+ SectionIn 1
+ DetailPrint "Extracting ActiveLockUtil source code...."
+ SetDetailsPrint textonly
+ SetOutPath $INSTDIR\Src\alutil
+ File ${ALUTIL_SRC_ROOT}\ActiveLockUtil.vbp
+ File ${ALUTIL_SRC_ROOT}\*.cls
+ File ${ALUTIL_SRC_ROOT}\*.bas
+ SetDetailsPrint both
+ SectionEnd
Section "ActiveLock Source Code" SecSrcAL
SectionIn 1
DetailPrint "Extracting ActiveLock source code...."
@@ -194,7 +206,7 @@
SectionIn 1
DetailPrint "Extracting ALCrypto source code...."
SetDetailsPrint textonly
- SetOutPath $INSTDIR\Src\ALCrypto
+ SetOutPath $INSTDIR\Src\alcrypto
File ${ALCRYPTO_ROOT}\ALCrypto.def
File ${ALCRYPTO_ROOT}\ALCrypto.dsp
File ${ALCRYPTO_ROOT}\ALCrypto.dsw
@@ -206,7 +218,7 @@
SectionIn 1
DetailPrint "Extracting ALUGEN source code...."
SetDetailsPrint textonly
- SetOutPath $INSTDIR\Src\ALUGEN\lib
+ SetOutPath $INSTDIR\Src\alugen\lib
File ${ALUGEN_ROOT}\lib\*.cls
File ${ALUGEN_ROOT}\lib\*.bas
File ${ALUGEN_ROOT}\lib\ALUGENLib.vbp
@@ -263,6 +275,7 @@
!insertmacro MUI_DESCRIPTION_TEXT ${SecCore} "The core files required to use ActiveLock"
!insertmacro MUI_DESCRIPTION_TEXT ${SecExample} "Example applications that show you how to use ActiveLock"
!insertmacro MUI_DESCRIPTION_TEXT ${SecSrc} "Source code for ActiveLock and all related files"
+ !insertmacro MUI_DESCRIPTION_TEXT ${SecSrcALUtil} "Source code for ActiveLockUtil"
!insertmacro MUI_DESCRIPTION_TEXT ${SecSrcAL} "Source code for ActiveLock"
!insertmacro MUI_DESCRIPTION_TEXT ${SecSrcALCrypto} "Source code for ALCrypto"
!insertmacro MUI_DESCRIPTION_TEXT ${SecSrcALUGEN} "Source code for ALUGEN"
|
|
From: Thanh H. T. <th...@us...> - 2003-10-13 08:24:20
|
Update of /cvsroot/activelock/activelock In directory sc8-pr-cvs1:/tmp/cvs-serv26344 Modified Files: _build.bat Log Message: See revision history inside the file. I'm getting tired of commenting twice. Index: _build.bat =================================================================== RCS file: /cvsroot/activelock/activelock/_build.bat,v retrieving revision 1.3 retrieving revision 1.4 diff -u -d -r1.3 -r1.4 --- _build.bat 6 Oct 2003 05:17:26 -0000 1.3 +++ _build.bat 13 Oct 2003 08:24:14 -0000 1.4 @@ -15,15 +15,26 @@ rem rem =================================================================================== rem REVISION HISTORY +rem ================ +rem Date ID Description rem -------- ------------- --------------------------------------------------------- rem 08.14.03 - th2tran - Created rem 10.05.03 - th2tran - Added compile steps for ALUGEN and building the setup rem - Added compile steps for Examples rem - Sent vb compile output to build.log - +rem 10.13.03 - th2tran - Added more comments and instructions. +rem - Corrected if-test syntax...both operands needs to be inside quotes. +rem - Use errorlevel to detect compile failure +rem rem =================================================================================== rem Usage: To run a build of ActiveLock, run the following command: rem > _build <target> +rem List of available targets: +rem - all (default) +rem - skip-activelock (same as all except activelock2.dll will not be recompiled) +rem - compile-activelock +rem - docs +rem - installer rem Examples: rem * To run the installer, use: rem _build installer @@ -34,63 +45,101 @@ rem Delete previous VB compilation log file del build.log -if %1 == installer goto installer -if %1 == docs goto docs +if "%1" == "installer" goto installer +if "%1" == "docs" goto docs +if "%1" == "compile-activelock" goto compile-activelock rem ========================================================================================= rem Compile ActiveLock Libraries rem ========================================================================================= +:all rem alutil.dll rem Make sure we unregister it before rebuilding, so that we don't leave junk old version stuff in the Registry echo Unregistering alutil.dll... -regsvr32 /s /u ..\bin\alutil.dll +regsvr32 /s /u bin\alutil.dll echo Compiling alutil.dll... rem Need to make sure vb6.exe is in our system PATH -vb6.exe /make ..\alutil\ActiveLockUtil.vbp +vb6.exe /make ..\alutil\ActiveLockUtil.vbp /out build.log +if errorlevel == 1 goto error echo Copying autil.dll to bin\ directory copy ..\alutil\alutil.dll bin\ +:compile-activelock +if "%1" == "skip-activelock" goto compile-alugen rem Skip ActiveLock2.dll compilation. rem Because of the checksum, you'll need to compile this manually and update the Test App CRC checksum accordingly rem before you run this build. echo ActiveLock2.dll compilation skipped. -rem echo Unregistering activelock2.dll... -rem regsvr32 /s /u src\activelock2.dll -rem echo Compiling activelock2.dll... -rem vb6.exe /make src\ActiveLock2.vbp /out build.log -rem Pause the build now to allow user to update sample app with new ActiveLock2.dll checksum -rem TODO: implement +echo Unregistering activelock2.dll... +regsvr32 /s /u bin\activelock2.dll +echo Compiling activelock2.dll... +vb6.exe /make src\ActiveLock2.vbp /out build.log +if errorlevel == 1 goto error +copy src\activelock2.dll bin\ +regsvr32 /s /u src\activelock2.dll +echo The build will now pause for you to update ALTestApp with the new activelock2.dll checksum. +rem pause +if "%1" == "compile-activelock" goto done +:compile-alugen +regsvr32 /s bin\activelock2.dll echo Unregistering alugen.dll... regsvr32 /s /u ..\alugen\lib\alugen.dll echo Compiling alugen.dll... vb6.exe /make ..\alugen\lib\ALUGENLib.vbp /out build.log +if errorlevel == 1 goto error rem move ..\alugen\lib\alugen.dll bin\ echo Compiling alugen.exe... vb6.exe /make ..\alugen\app\ALUGEN.vbp /out build.log +if errorlevel == 1 goto error rem move ..\alugen\app\alugen.exe bin\ echo Compiling Examples vb6.exe /make examples\example1\ALTestApp.vbp /out build.log +if errorlevel == 1 goto error -if %1 == compile goto done +if "%1" == "compile-all" goto done rem ========================================================================================= rem Build API Documentation +rem Before running the docs build, you should set your VBDox options as follows: +rem - Report Manager: .NET Style +rem - Doc Parser: Java Style +rem - Disable the spell checker, because it doesn't like VB keywords too much +rem - .NEt Style Report Manager Options +rem - Show property access [checked] +rem - Show module description in project module list [checked] +rem - Show module and entry icons [checked] +rem - Include: +rem - All modules and classes [checked] +rem - Include All entries [unchecked] +rem - Form controls [unchecked] +rem - HTML Help: +rem - Help project [checked] +rem - Lists: +rem - TO DO [checked] +rem - BUG [checked] +rem - History [checked] rem ========================================================================================= :docs -echo Deleting old vbdox files... -del /f /q /s vbdox\*.* +rem Note: There's a problem with VBDox 2.0.30. If you're building vbdox for the first time, +rem there will be some missing icons after the vbdox build. So you'll need to copy +rem the icons from <vbdox_root>\icons over to generated doc's directory. +rem This is why I'm commenting out the lines that cleans up old vbdox\*.*, so that you don't +rem have to do the copying every time you build. +rem +rem echo Deleting old vbdox files... +rem del /f /q /s vbdox\*.* echo Compiling vbdox help files... vbdox -q -o ..\..\vbdox -rm VBDOXEXT.clsReportManagerNET -dp VBDOXEXT.clsDocParserJ src\vbdox\ActiveLock2.vbp rem Build .chm using HTMLHelp Workshop echo Building ActiveLock2.chm... hhc vbdox\help.hhp rem Move ActiveLock2.chm out of vbdox directory into src directory (same dir where dll is) -move vbdox\ActiveLock2.chm src\ -if %1 == docs goto done +move vbdox\ActiveLock2.chm bin\ +if "%1" == "docs" goto done rem ========================================================================================= rem Build the Installer @@ -98,7 +147,10 @@ :installer echo Building the ActiveLock Installer... makensis ..\installer\ActiveLock.nsi +goto done +:error +echo Build failed due to errors. Please check the logs. +type build.log :done echo Build Completed! -pause ENDLOCAL |
|
From: Thanh H. T. <th...@us...> - 2003-10-13 07:45:35
|
Update of /cvsroot/activelock/activelock/examples/example1
In directory sc8-pr-cvs1:/tmp/cvs-serv18918
Modified Files:
ALTestApp.vbp frmMain.frm modMain.bas
Log Message:
- Removed dependency on modActiveLock
- Added simple encryption routine to illustrate handling of ValidateValue() event.
Index: ALTestApp.vbp
===================================================================
RCS file: /cvsroot/activelock/activelock/examples/example1/ALTestApp.vbp,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- ALTestApp.vbp 22 Sep 2003 03:09:18 -0000 1.2
+++ ALTestApp.vbp 13 Oct 2003 07:45:31 -0000 1.3
@@ -1,11 +1,10 @@
Type=Exe
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#stdole2.tlb#OLE Automation
-Reference=*\G{C3B56087-6690-42ED-8914-633AA166AB41}#1.0#0#ActiveLock2.dll#ActiveLock2
+Reference=*\G{C3B56087-6690-42ED-8914-633AA166AB41}#1.0#0#..\..\bin\activelock2.dll#ActiveLock2
Object={BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0; TABCTL32.OCX
Form=frmMain.frm
UserControl=atViewPort.ctl
Module=modMain; modMain.bas
-Module=modActiveLock; ..\..\src\modActiveLock.bas
Object={6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0; COMCTL32.OCX
ResFile32="atDisplay.RES"
IconForm="frmMain"
@@ -23,7 +22,6 @@
AutoIncrementVer=0
ServerSupportFiles=0
VersionCompanyName="The ActiveLock Software Group"
-CondComp="AL_DEBUG = 1"
CompilationType=0
OptimizationType=0
FavorPentiumPro(tm)=0
Index: frmMain.frm
===================================================================
RCS file: /cvsroot/activelock/activelock/examples/example1/frmMain.frm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- frmMain.frm 5 Oct 2003 08:36:26 -0000 1.4
+++ frmMain.frm 13 Oct 2003 07:45:31 -0000 1.5
@@ -58,11 +58,11 @@
TabCaption(1) = "Sample App"
TabPicture(1) = "frmMain.frx":0CE6
Tab(1).ControlEnabled= 0 'False
- Tab(1).Control(0)= "fraViewport"
- Tab(1).Control(1)= "fraTicker"
+ Tab(1).Control(0)= "lblLockStatus"
+ Tab(1).Control(1)= "lblLockStatus2"
Tab(1).Control(2)= "Frame1"
- Tab(1).Control(3)= "lblLockStatus2"
- Tab(1).Control(4)= "lblLockStatus"
+ Tab(1).Control(3)= "fraTicker"
+ Tab(1).Control(4)= "fraViewport"
Tab(1).ControlCount= 5
Begin VB.Frame fraViewport
BorderStyle = 0 'None
@@ -494,7 +494,8 @@
' 08.03.03 - th2tran - Added SoftwareCode generator and usage instructions.
' 09.14.03 - th2tran - Removed Key Generator functionality. This is now handled
' by ALUGEN.
-'
+' 10.13.03 - th2tran - Added simple Encrypt routine to illustrate handling of
+' ActiveLockEventNotifier.ValidateValue() event.
' ///////////////////////////////////////////////////////////////////////
' / MODULE CODE BEGINS BELOW THIS LINE /
' ///////////////////////////////////////////////////////////////////////
@@ -581,9 +582,20 @@
' 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 = Value ' modMain.Encrypt(Value)
+Private Sub ActiveLockEventSink_ValidateValue(ByRef Value As String)
+ Value = Encrypt(Value)
End Sub
+
+Private Function Encrypt(strData As String) As String
+ Dim i&, n&
+ Dim sResult$
+ n = Len(strData)
+ For i = 1 To n
+ sResult = sResult & Asc(Mid$(strData, i, 1)) * 7
+ Next i
+ Encrypt = sResult
+End Function
+
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Key Request and Registration Functionalities
Index: modMain.bas
===================================================================
RCS file: /cvsroot/activelock/activelock/examples/example1/modMain.bas,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- modMain.bas 6 Oct 2003 03:51:11 -0000 1.5
+++ modMain.bas 13 Oct 2003 07:45:31 -0000 1.6
@@ -54,9 +54,11 @@
' Compute the expected CRC instead leaving it as a plain
' value to make it more difficult to spot in a hex editor.
' 09.21.03 - th2tran - Dumped PRIV_KEY. PRIV_KEY should only be accessible to ALUGEN.
+' 10.13.03 - th2tran - Copied a small number of functions from modActiveLock.bas into here
+' so that our test app doesn't need to depend on modActiveLock.
' </pre>
-' ///////////////////////////////////////////////////////////////////////
+'* ///////////////////////////////////////////////////////////////////////
' / MODULE CODE BEGINS BELOW THIS LINE /
' ///////////////////////////////////////////////////////////////////////
Option Explicit
@@ -261,6 +263,10 @@
End Enum
+''
+' Windows API Declares
+Private Declare Function MapFileAndCheckSum Lib "imagehlp" Alias "MapFileAndCheckSumA" (ByVal FileName As String, HeaderSum As Long, CheckSum As Long) As Long
+
' Application Encryption keys:
' !!!WARNING!!!
' It is alright to use these same keys for testing your application. But it is highly recommended
@@ -300,7 +306,7 @@
'
Public Function VerifyActiveLockdll(obj As IUnknown) As String
Dim crc As Long
- crc = modActiveLock.CRCCheckSumTypeLib(obj)
+ crc = CRCCheckSumTypeLib(obj)
Debug.Print "Hash: " & crc
If crc <> Value Then
MsgBox "activelock2.dll has been corrupted. If you were running a real application, it should terminate at this point."
@@ -312,7 +318,7 @@
' Returns the expected CRC value of ActiveLock2.dll
'
Private Property Get Value() As Long
- Value = 139926 + 1792 ' 141718 - computed so that it can't be easily spotted via a Hex Editor
+ Value = 176794 + 1856 ' 178650 - computed so that it can't be easily spotted via a Hex Editor
End Property
''
@@ -321,3 +327,27 @@
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
+
+
+Private Function GetTypeLibPathFromObject(obj As IUnknown) As String
+ ' Retrieve TypeLib info using TLI library (tlbinfo.dll)
+ ' Use late-binding so that the user doesn't have to add it to their project reference
+ Dim tliApp As Object
+ Set tliApp = CreateObject("TLI.TLIApplication")
+ Dim ti As Object ' actually TLI.TypeInfo
+ Set ti = tliApp.ClassInfoFromObject(obj)
+ Dim strDllPath As String
+ GetTypeLibPathFromObject = ti.Parent.ContainingFile
+End Function
+
+''
+' 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
+ strDllPath = GetTypeLibPathFromObject(obj)
+ Dim HeaderSum As Long, RealSum As Long
+ MapFileAndCheckSum strDllPath, HeaderSum, RealSum
+ CRCCheckSumTypeLib = RealSum
+End Function
|
|
From: Thanh H. T. <th...@us...> - 2003-10-13 07:23:55
|
Update of /cvsroot/activelock/alugen/app
In directory sc8-pr-cvs1:/tmp/cvs-serv14902
Modified Files:
ALUGEN.vbp frmMain.frm products.ini frmMain.frx
Log Message:
- Handle property changes for Code1 and Code2 in ALUGENLib.ProductInfo to VCode and GCode respectively.
- GUI changes
- Bug fix: shouldnot process button-clicks unless button is visible (i.e. correct tab is displayed).
Index: ALUGEN.vbp
===================================================================
RCS file: /cvsroot/activelock/alugen/app/ALUGEN.vbp,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- ALUGEN.vbp 22 Sep 2003 02:53:49 -0000 1.2
+++ ALUGEN.vbp 13 Oct 2003 07:23:51 -0000 1.3
@@ -1,7 +1,7 @@
Type=Exe
-Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\System32\stdole2.tlb#OLE Automation
-Reference=*\G{D073A961-5725-46E8-B51F-B76EB02685B5}#1.0#0#..\lib\alugen.dll#ActiveLock Universal Generator Library
-Reference=*\G{C3B56087-6690-42ED-8914-633AA166AB41}#1.0#0#..\..\activelock\src\ActiveLock2.dll#ActiveLock2
+Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#stdole2.tlb#OLE Automation
+Reference=*\G{9ED8E727-A621-485F-B922-A7C4908A3BF2}#1.0#0#..\lib\alugen.dll#ActiveLock Universal Generator Library
+Reference=*\G{C3B56087-6690-42ED-8914-633AA166AB41}#1.0#0#..\..\activelock\bin\activelock2.dll#ActiveLock2
Object={5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0; MSFLXGRD.OCX
Object={BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0; TABCTL32.OCX
Form=frmMain.frm
@@ -10,7 +10,7 @@
Startup="frmMain"
HelpFile=""
Title="ALUGEN"
-ExeName32="ALUGEN.exe"
+ExeName32="alugen.exe"
Command32=""
Name="ALUGEN"
HelpContextID="0"
@@ -18,7 +18,7 @@
CompatibleMode="1"
MajorVer=2
MinorVer=0
-RevisionVer=2
+RevisionVer=3
AutoIncrementVer=0
ServerSupportFiles=0
VersionCompanyName="The ActiveLock Software Group"
Index: frmMain.frm
===================================================================
RCS file: /cvsroot/activelock/alugen/app/frmMain.frm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- frmMain.frm 22 Sep 2003 02:53:49 -0000 1.2
+++ frmMain.frm 13 Oct 2003 07:23:51 -0000 1.3
@@ -8,26 +8,26 @@
ClientHeight = 5685
ClientLeft = 45
ClientTop = 330
- ClientWidth = 8595
+ ClientWidth = 9735
Icon = "frmMain.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5685
- ScaleWidth = 8595
+ ScaleWidth = 9735
StartUpPosition = 3 'Windows Default
Begin TabDlg.SSTab SSTab1
Height = 5655
Left = 0
TabIndex = 0
Top = 0
- Width = 8535
- _ExtentX = 15055
+ Width = 9735
+ _ExtentX = 17171
_ExtentY = 9975
_Version = 393216
Tabs = 2
TabHeight = 520
- TabCaption(0) = "Product Code Generator"
+ TabCaption(0) = "Pro&duct Code Generator"
TabPicture(0) = "frmMain.frx":0CCA
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "Label1"
@@ -39,64 +39,62 @@
Tab(0).Control(3)= "cmdRemove"
Tab(0).Control(3).Enabled= 0 'False
Tab(0).ControlCount= 4
- TabCaption(1) = "License Key Generator"
+ TabCaption(1) = "&License Key Generator"
TabPicture(1) = "frmMain.frx":0CE6
Tab(1).ControlEnabled= 0 'False
- Tab(1).Control(0)= "cmbProds"
- Tab(1).Control(0).Enabled= 0 'False
+ Tab(1).Control(0)= "Label8"
Tab(1).Control(1)= "frmKeyGen"
- Tab(1).Control(1).Enabled= 0 'False
- Tab(1).Control(2)= "Label8"
- Tab(1).Control(2).Enabled= 0 'False
+ Tab(1).Control(2)= "cmbProds"
Tab(1).ControlCount= 3
Begin VB.CommandButton cmdRemove
Caption = "&Remove"
Enabled = 0 'False
Height = 315
- Left = 7200
+ Left = 8520
TabIndex = 11
Top = 3000
Width = 1000
End
Begin VB.ComboBox cmbProds
Height = 315
- Left = -73560
- TabIndex = 26
+ Left = -73680
+ Style = 2 'Dropdown List
+ TabIndex = 15
Top = 480
- Width = 5655
+ Width = 3615
End
Begin VB.Frame frmKeyGen
BorderStyle = 0 'None
- Height = 2535
+ Height = 4215
Left = -74880
TabIndex = 13
- Top = 1080
- Width = 8175
+ Top = 960
+ Width = 9375
Begin VB.ComboBox cmbLicClass
Height = 315
ItemData = "frmMain.frx":0D02
- Left = 1320
+ Left = 1200
List = "frmMain.frx":0D12
Style = 2 'Dropdown List
- TabIndex = 17
+ TabIndex = 21
Top = 585
- Width = 5655
+ Width = 3615
End
Begin VB.ComboBox cmbLicType
Height = 315
ItemData = "frmMain.frx":0D95
- Left = 1320
+ Left = 1200
List = "frmMain.frx":0DA2
Style = 2 'Dropdown List
- TabIndex = 18
+ TabIndex = 17
Top = 0
- Width = 5655
+ Width = 3615
End
Begin VB.TextBox txtDays
Alignment = 1 'Right Justify
BackColor = &H8000000F&
Height = 315
- Left = 1320
+ Left = 1200
Locked = -1 'True
TabIndex = 19
Text = "30"
@@ -105,57 +103,70 @@
End
Begin VB.TextBox txtReqCodeIn
Height = 315
- Left = 1320
- TabIndex = 16
+ Left = 1200
+ TabIndex = 23
Top = 960
- Width = 5655
+ Width = 7095
End
Begin VB.TextBox txtLibKey
BackColor = &H80000011&
- Height = 315
- Left = 1320
- TabIndex = 15
+ BeginProperty Font
+ Name = "Courier New"
+ Size = 8.25
+ Charset = 0
+ Weight = 400
+ Underline = 0 'False
+ Italic = 0 'False
+ Strikethrough = 0 'False
+ EndProperty
+ Height = 2475
+ Left = 1200
+ Locked = -1 'True
+ MultiLine = -1 'True
+ ScrollBars = 2 'Vertical
+ TabIndex = 25
+ Text = "frmMain.frx":0DC8
Top = 1320
- Width = 5655
+ Width = 7095
End
Begin VB.CommandButton cmdKeyGen
- Caption = "&Generate"
+ Caption = "Genera&te"
Enabled = 0 'False
Height = 315
- Left = 7080
- TabIndex = 14
+ Left = 8400
+ TabIndex = 26
ToolTipText = "Generate liberation key for the above request code (which should not be blank)."
Top = 1320
Width = 975
End
Begin VB.Label lblExpiry
- Caption = "&Expires after:"
+ Caption = "&Expires After:"
Height = 255
- Left = 120
- TabIndex = 25
+ Left = 0
+ TabIndex = 18
Top = 285
Width = 1335
End
Begin VB.Label Label5
Caption = "License &Class:"
Height = 255
- Left = 120
- TabIndex = 24
+ Left = 0
+ TabIndex = 20
Top = 585
Width = 1335
End
Begin VB.Label Label6
Caption = "License &Type:"
Height = 255
- Left = 120
- TabIndex = 23
+ Left = 0
+ TabIndex = 16
Top = 0
Width = 1335
End
Begin VB.Label Label7
Caption = "Request C&ode:"
Height = 255
- Left = 120
+ Left = 0
TabIndex = 22
Top = 960
Width = 1335
@@ -163,44 +174,43 @@
Begin VB.Label Label12
Caption = "Liberation &Key:"
Height = 255
- Left = 120
- TabIndex = 21
+ Left = 0
+ TabIndex = 24
Top = 1320
Width = 1335
End
Begin VB.Label lblDays
Caption = "days"
Height = 255
- Left = 2640
- TabIndex = 20
+ Left = 2520
+ TabIndex = 27
Top = 315
Width = 1335
End
End
Begin VB.Frame fraProdNew
- Caption = "Product Editor"
- Height = 1935
+ Height = 2055
Left = 120
TabIndex = 12
Top = 360
- Width = 8175
+ Width = 9495
Begin VB.CommandButton cmdCodeGen
Caption = "&Generate"
Enabled = 0 'False
Height = 315
- Left = 7080
+ Left = 8400
TabIndex = 8
- Top = 1080
+ Top = 1320
Width = 1000
End
Begin VB.TextBox txtCode2
BackColor = &H8000000F&
Height = 315
- Left = 4320
+ Left = 5040
Locked = -1 'True
TabIndex = 7
- Top = 1080
- Width = 2625
+ Top = 1320
+ Width = 3345
End
Begin VB.TextBox txtCode1
BackColor = &H8000000F&
@@ -208,22 +218,23 @@
Left = 1320
Locked = -1 'True
TabIndex = 6
- Top = 1080
- Width = 2985
+ ToolTipText = "Use this code to set ActiveLock's SoftwareCode property within your application."
+ Top = 1320
+ Width = 3705
End
Begin VB.TextBox txtName
Height = 315
Left = 1320
TabIndex = 2
Top = 360
- Width = 5625
+ Width = 3705
End
Begin VB.TextBox txtVer
Height = 315
Left = 1320
TabIndex = 4
Top = 720
- Width = 5625
+ Width = 1545
End
Begin VB.CommandButton cmdAdd
Caption = "&Add To Product List"
@@ -231,15 +242,31 @@
Height = 315
Left = 1320
TabIndex = 9
- Top = 1440
+ Top = 1680
Width = 1845
End
+ Begin VB.Label Label10
+ Caption = "GCode"
+ Height = 255
+ Left = 5040
+ TabIndex = 30
+ Top = 1080
+ Width = 1695
+ End
+ Begin VB.Label Label9
+ Caption = "VCode"
+ Height = 255
+ Left = 1320
+ TabIndex = 29
+ Top = 1080
+ Width = 1695
+ End
Begin VB.Label Label4
- Caption = "Code:"
+ Caption = "&Code:"
Height = 375
Left = 120
TabIndex = 5
- Top = 1080
+ Top = 1320
Width = 1095
End
Begin VB.Label Label2
@@ -264,8 +291,8 @@
Left = 120
TabIndex = 10
Top = 2760
- Width = 6945
- _ExtentX = 12250
+ Width = 8265
+ _ExtentX = 14579
_ExtentY = 4895
_Version = 393216
Cols = 4
@@ -281,7 +308,7 @@
ScrollBars = 2
SelectionMode = 1
Appearance = 0
- FormatString = "Name |Version | Product Code 1 |Product Code 2 "
+ FormatString = $"frmMain.frx":0E0B
End
Begin VB.Label Label1
Caption = "&Product List:"
@@ -294,8 +321,8 @@
Begin VB.Label Label8
Caption = "&Product:"
Height = 255
- Left = -74760
- TabIndex = 27
+ Left = -74880
+ TabIndex = 14
Top = 480
Width = 975
End
@@ -360,7 +387,14 @@
' 08.15.03 - th2tran - Created
' 09.21.03 - th2tran - Finished first pass of implementation.
' ALUGEN is now able to create product codes and liberation keys.
-'
+' 10.13.03 - th2tran - Renamed Code1 and Code2 to VCode and GCode respectively.
+' - Added accessor keys to all controls.
+' - Split Liberation Key into 64-byte chunks to make it look nicer.
+' Need handle this on ActiveLock's side. i.e. ignore vbCrLf characters
+' in the liberation key.
+' - Don't process button click when not in the right tab.
+' e.g. when in Key Generator tab and accessor key for cmdRemove is pressed,
+' just ignore the event.
' </pre>
' ///////////////////////////////////////////////////////////////////////
@@ -417,11 +451,11 @@
txtDays.BackColor = &H80000011
End If
If cmbLicType = "Time Locked" Then
- lblExpiry = "Expires on date:"
+ lblExpiry = "&Expires on Date:"
txtDays = Format$(Now() + 30, "YYYY/MM/DD")
lblDays = "YYYY/MM/DD"
Else
- lblExpiry = "Expires after:"
+ lblExpiry = "&Expires after:"
txtDays = "30"
lblDays = "Day(s)"
End If
@@ -429,10 +463,11 @@
End Sub
Private Sub cmbProds_Click()
- ' TODO
+ UpdateKeyGenButtonStatus
End Sub
Private Sub cmdAdd_Click()
+ If SSTab1.Tab <> 0 Then Exit Sub ' our tab not active - do nothing
AddRow txtName, txtVer, txtCode1, txtCode2
cmdAdd.Enabled = False ' disallow repeated clicking of Add button
gridProds_EnterCell
@@ -440,6 +475,8 @@
End Sub
Private Sub cmdCodeGen_Click()
+ If SSTab1.Tab <> 0 Then Exit Sub ' our tab not active - do nothing
+
Screen.MousePointer = vbHourglass
fDisableNotifications = True
txtCode1 = ""
@@ -493,7 +530,10 @@
''
' Generate liberation key
Private Sub cmdKeyGen_Click()
+ If SSTab1.Tab <> 1 Then Exit Sub ' our tab not active - do nothing
' get product and version
+ Screen.MousePointer = vbHourglass
+ On Error GoTo ErrHandler
Dim arrProdVer() As String
arrProdVer = Split(cmbProds, "-")
Dim strName$, strVer$
@@ -508,9 +548,28 @@
strExpire = GetExpirationDate()
Dim strLibKey As String
strLibKey = GeneratorInstance.GenKey(ActiveLock, txtReqCodeIn, strExpire)
- txtLibKey = strLibKey
+ txtLibKey = Make64ByteChunks(strLibKey)
+ErrHandler:
+ Screen.MousePointer = vbNormal
End Sub
+''
+' Breaks a long string into chunks of 64-byte lines.
+'
+Private Function Make64ByteChunks(strData As String) As String
+ Dim I As Long
+ Dim Count As Long
+ Count = Len(strData)
+ Dim sResult As String
+ sResult = Left$(strData, 64)
+ I = 65
+ While I <= Count
+ sResult = sResult & vbCrLf & Mid$(strData, I, 64)
+ I = I + 64
+ Wend
+ Make64ByteChunks = sResult
+End Function
+
Private Function GetExpirationDate() As String
If cmbLicType = "Time Locked" Then
GetExpirationDate = txtDays
@@ -520,6 +579,7 @@
End Function
Private Sub cmdRemove_Click()
+ If SSTab1.Tab <> 0 Then Exit Sub ' our tab not active - do nothing
Dim strName$
Dim SelStart%, SelEnd%
Dim fEnableAdd As Boolean
@@ -566,6 +626,7 @@
Set GeneratorInstance = ALUGENLib.GeneratorInstance()
GeneratorInstance.StoragePath = App.Path & "\products.ini"
' Initialize GUI
+ txtLibKey = ""
InitUI
End Sub
@@ -655,6 +716,10 @@
End Sub
Private Sub txtReqCodeIn_Change()
+ UpdateKeyGenButtonStatus
+End Sub
+
+Private Sub UpdateKeyGenButtonStatus()
If txtReqCodeIn = "" Then
cmdKeyGen.Enabled = False
Else
@@ -734,7 +799,7 @@
With gridProds
.Clear
.Rows = 1
- .FormatString = "Name |Version | Product Code 1 |Product Code 2 "
+ .FormatString = "Name |Version | VCode |GCode "
.ColAlignment(0) = flexAlignLeftCenter
.ColAlignment(1) = flexAlignLeftCenter
.ColAlignment(2) = flexAlignLeftCenter
@@ -765,6 +830,6 @@
Private Sub PopulateUI(ProdInfo As ALUGENLib.ProductInfo)
With ProdInfo
- AddRow .Name, .Version, .Code1, .Code2, False
+ AddRow .Name, .Version, .VCode, .GCode, False
End With
End Sub
Index: products.ini
===================================================================
RCS file: /cvsroot/activelock/alugen/app/products.ini,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- products.ini 22 Sep 2003 02:53:49 -0000 1.2
+++ products.ini 13 Oct 2003 07:23:51 -0000 1.3
@@ -1,5 +1,5 @@
[TestApp 1.0]
Name=TestApp
Version=1.0
-Code1=AAAAB3NzaC1yc2EAAAABJQAAAIBmyH+sZ9eXI33MbVFWR85fsHLXndX2WaNokSaqxYltluQx2sX4T81r7jazTFxcczllwuMEauhL1rTqXCma0uA6xAQGajRorXeLcrW5OHIut7+HprXy9MTUp0SwsVFJJjDaRmodPaCBTUPD006lG7LNN5/jO/Cj8dNf6lVHy+VnIQ==
-Code2=AAAAgGE6M5U/omxf190NdnQ2Fj7XV+C35hKMJPQ2RyvrSqXvmZbxitYh+atJHvyiLdrpiVJsPoejZh45zbsY6RXqEl/k1Hm1bT1IggEgHCb7oSnNoiiRLT+b9Y+ffKbbURevs2bbLIcG/yfEuamRlHYj1jIwF0OFEsO7XfP4M8hruZ8JAAAAQLiaDLpPqlhoNTlTMps3k8/Cbl3gJqICKzZIITO268ZRo0FK+5r+9QTupf+ZOXR2LbIincI/Wg+3cYOMsb992g8AAABAjolbxDa/YC4h1ZyJShPjviXJ0+8bXW6clS+klcD7MRo/UJ+aNNWkEfc+rtalnpwEENJkf0z+n7FLk5kokzWbzwAAAEBohtMIkBT9z5BB/HhS2LhJJUqaD5F1fHtIZRZxQExTYvNdFG8sT0ApP/BY8fCfT7JavHwWDSM/inUvOFRGRVMG
+VCode=AAAAB3NzaC1yc2EAAAABJQAAAICnmn99k60EAqe3F8Kjt9oW1gjVViWRFXpfZ1fYEG7tz/DDHYv3y5Xmx71QsQafcIiQGG+/G6/g4KSax1LRtXHi4HWyf4SAurbYSMl0RrP5qIppkFIGZpO92zO8Iy08SChSHDjNXIFk6ajzLYixtoN/xT2k6qzJc1VbojfoiJd1oQ==
+GCode=AAAAgA2W574S5IPI3SqFYs8BEa7TFXkU0p0PlEzstBhwCP6Ge04XJwZA8Hp+5dYcMPgruAuu9E3D+YDvnqTEDaJM+2VKMN+oiUoi/PyoNd88Dl2BgewXtYucDww02JWHn7tsOjBNnt60gsJT/RgHiTs4DaarUqPRiZviRMdX+wiIiS65AAAAQO/6vGkUQRoqZ8RUfmNoc5dSDPNqYDAbsq20y0UxN0EwZd5pntH7wzWGc+uRG+3qLdtW4+2qzlGo2x5IBgSYS9MAAABAssraTShX8QbvFIc0qUUE0/X8zdNBsb50obpnVUn9etTt1dJz2DjvqEZW5QW7apufqOuHOgt4kFw7RtfOmriUOwAAAEDuPPKFsFup1uQ0taiPBjHbdpbfR0tvq/hLg9N1+rar+Mx6lMOV5MhT/8VY5u2KMj+IMC9GSTkAVJgf7ckq1+BL
Index: frmMain.frx
===================================================================
RCS file: /cvsroot/activelock/alugen/app/frmMain.frx,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
Binary files /tmp/cvsgLXaQX and /tmp/cvsAl9btL differ
|
|
From: Thanh H. T. <th...@us...> - 2003-10-13 05:43:48
|
Update of /cvsroot/activelock/alugen/lib
In directory sc8-pr-cvs1:/tmp/cvs-serv1496
Modified Files:
ALUGENLib.vbp Generator.cls Globals.cls IALUGenerator.cls
ProductInfo.cls alugen.dll
Log Message:
Batch commit for 2.0.3 build.
Renamed Code1 and Code2 in ProductInfo to VCode and GCode respectively.
Index: ALUGENLib.vbp
===================================================================
RCS file: /cvsroot/activelock/alugen/lib/ALUGENLib.vbp,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- ALUGENLib.vbp 22 Sep 2003 02:46:02 -0000 1.2
+++ ALUGENLib.vbp 13 Oct 2003 05:43:43 -0000 1.3
@@ -1,7 +1,7 @@
Type=OleDll
-Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\System32\stdole2.tlb#OLE Automation
-Reference=*\G{C3B56087-6690-42ED-8914-633AA166AB41}#1.0#0#..\..\activelock\src\ActiveLock2.dll#ActiveLock2
-Reference=*\G{9AC9BB25-D182-447E-8398-D8A8F40DE906}#1.0#0#..\..\alutil\alutil.dll#ActiveLockUtil
+Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#stdole2.tlb#OLE Automation
+Reference=*\G{C3B56087-6690-42ED-8914-633AA166AB41}#1.0#0#activelock2.dll#ActiveLock2
+Reference=*\G{9AC9BB25-D182-447E-8398-D8A8F40DE906}#1.0#0#alutil.dll#ActiveLockUtil
Class=IALUGenerator; IALUGenerator.cls
Class=Generator; Generator.cls
Class=Globals; Globals.cls
@@ -20,7 +20,7 @@
VersionCompatible32="1"
MajorVer=2
MinorVer=0
-RevisionVer=2
+RevisionVer=3
AutoIncrementVer=0
ServerSupportFiles=0
VersionCompanyName="The ActiveLock Software Group"
Index: Generator.cls
===================================================================
RCS file: /cvsroot/activelock/alugen/lib/Generator.cls,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- Generator.cls 22 Sep 2003 02:46:02 -0000 1.2
+++ Generator.cls 13 Oct 2003 05:43:43 -0000 1.3
@@ -99,8 +99,8 @@
.Section = Section
ProdInfo.Name = .Values("Name")
ProdInfo.Version = .Values("Version")
- ProdInfo.Code1 = .Values("Code1")
- ProdInfo.Code2 = .Values("Code2")
+ ProdInfo.VCode = .Values("VCode")
+ ProdInfo.GCode = .Values("GCode")
End With
End Sub
@@ -113,8 +113,8 @@
.Section = ProdInfo.Name & " " & ProdInfo.Version
.Values("Name") = ProdInfo.Name
.Values("Version") = ProdInfo.Version
- .Values("Code1") = ProdInfo.Code1 '@todo Encrypt code1 and code2, possibly using something as simple as modCrypto.bas
- .Values("Code2") = ProdInfo.Code2
+ .Values("VCode") = ProdInfo.VCode '@todo Encrypt code1 and code2, possibly using something as simple as modCrypto.bas
+ .Values("GCode") = ProdInfo.GCode
End With
End Sub
@@ -141,8 +141,8 @@
With MyIniFile
.Section = Name & " " & Ver
ProdInfo.Version = .Values("Version")
- ProdInfo.Code1 = .Values("Code1") '@todo Decrypt code1 and code2
- ProdInfo.Code2 = .Values("Code2")
+ ProdInfo.VCode = .Values("VCode") '@todo Decrypt code1 and code2
+ ProdInfo.GCode = .Values("GCode")
End With
Set IALUGenerator_RetrieveProduct = ProdInfo
End Function
@@ -184,7 +184,7 @@
Dim Lic As ProductLicense
With ActiveLock
- Set Lic = ActiveLock2.CreateProductLicense(ProdInfo.Name, ProdInfo.Code1, _
+ Set Lic = ActiveLock2.CreateProductLicense(ProdInfo.Name, ProdInfo.VCode, _
ProdInfo.Version, .LockType, .LicenseType, strUser, ExpireDate, , strRegDate, strEncrypted)
End With
Dim strLic As String
@@ -193,7 +193,7 @@
Debug.Print "strLic: " & vbCrLf & strLic
' sign it
Dim strSig As String
- strSig = ActiveLock2.RSASign(ProdInfo.Code1, ProdInfo.Code2, strLic)
+ strSig = ActiveLock2.RSASign(ProdInfo.VCode, ProdInfo.GCode, strLic)
' Create liberation key. This will be a base-64 encoded string of the whole license.
Dim strLicKey As String
@@ -201,12 +201,12 @@
' update Lic with license key
Lic.LicenseKey = strLicKey
' Print some info for debugging purposes
-Debug.Print "Code1: " & ProdInfo.Code1
+Debug.Print "VCode: " & ProdInfo.VCode
Debug.Print "Lic: " & strLic
Debug.Print "Lic hash: " & ActiveLock2.MD5Hash(strLic)
Debug.Print "LicKey: " & strLicKey
Debug.Print "Sig: " & strSig
-Debug.Print "Verify: " & ActiveLock2.RSAVerify(ProdInfo.Code1, strLic, ActiveLock2.Base64Decode(strLicKey))
+Debug.Print "Verify: " & ActiveLock2.RSAVerify(ProdInfo.VCode, strLic, ActiveLock2.Base64Decode(strLicKey))
Debug.Print "===================================================="
' Serialize it into a formatted string
Index: Globals.cls
===================================================================
RCS file: /cvsroot/activelock/alugen/lib/Globals.cls,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- Globals.cls 24 Aug 2003 18:06:36 -0000 1.1
+++ Globals.cls 13 Oct 2003 05:43:43 -0000 1.2
@@ -81,13 +81,13 @@
''
' Instantiates a new ProductInfo object.
'
-Public Function CreateProductInfo(ByVal Name As String, ByVal Ver As String, ByVal Code1 As String, ByVal Code2 As String) As ProductInfo
+Public Function CreateProductInfo(ByVal Name As String, ByVal Ver As String, ByVal VCode As String, ByVal GCode As String) As ProductInfo
Dim ProdInfo As New ProductInfo
With ProdInfo
.Name = Name
.Version = Ver
- .Code1 = Code1
- .Code2 = Code2
+ .VCode = VCode
+ .GCode = GCode
End With
Set CreateProductInfo = ProdInfo
End Function
Index: IALUGenerator.cls
===================================================================
RCS file: /cvsroot/activelock/alugen/lib/IALUGenerator.cls,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- IALUGenerator.cls 22 Sep 2003 02:46:02 -0000 1.2
+++ IALUGenerator.cls 13 Oct 2003 05:43:43 -0000 1.3
@@ -67,7 +67,7 @@
' GenKey(ByVal Name As String, ByVal Ver As String, ByVal ReqCode As String, LicType As Long, ExpireDate As String)
' to
' GenKey(objActiveLock As IActiveLock, ByVal ReqCode As String, ExpireDate As String)
-'
+' 10.13.03 - th2tran - Renamed Code1 and Code2 to VCode and GCode respectively.
' </pre>
' ///////////////////////////////////////////////////////////////////////
@@ -78,23 +78,34 @@
Private mstrProductFile As String
Private mINIFile As New INIFile
+''
+' Specifies the path where information about the products is stored.
+' @param strPath Path string.
+'
Public Property Let StoragePath(strPath As String)
+Attribute StoragePath.VB_Description = "Specifies the path where information about the products is stored."
mstrProductFile = strPath
mINIFile.File = strPath
End Property
''
-' Added a new product to the product store.
+' Saves a new product information to the product store.
' Raises error if product already exists.
+' @param ProdInfo Object containing product information to be saved.
'
Public Sub SaveProduct(ProdInfo As ProductInfo)
+Attribute SaveProduct.VB_Description = "Saves a new product information to the product store."
End Sub
''
' Retrieves product information.
+' @param Name Product Name
+' @param Ver Product Version
+' @return Object containing product information.
'
Public Function RetrieveProduct(ByVal Name As String, ByVal Ver As String) As ProductInfo
+Attribute RetrieveProduct.VB_Description = "Retrieves product information."
End Function
@@ -103,6 +114,7 @@
' @return Array of ProductInfo objects.
'
Public Function RetrieveProducts() As ProductInfo()
+Attribute RetrieveProducts.VB_Description = "Retrieves all information about all products in the store."
End Function
@@ -114,6 +126,7 @@
' @param Ver Product Version
'
Public Sub DeleteProduct(ByVal Name As String, ByVal Ver As String)
+Attribute DeleteProduct.VB_Description = "Removes a product from the store."
End Sub
@@ -125,5 +138,6 @@
' @param ExpireDate Expiration Date
'
Public Function GenKey(objActiveLock As IActiveLock, ByVal ReqCode As String, ExpireDate As String) As String
+Attribute GenKey.VB_Description = "Generates liberation key for the specified product."
End Function
Index: ProductInfo.cls
===================================================================
RCS file: /cvsroot/activelock/alugen/lib/ProductInfo.cls,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- ProductInfo.cls 22 Sep 2003 02:46:02 -0000 1.2
+++ ProductInfo.cls 13 Oct 2003 05:43:43 -0000 1.3
@@ -64,7 +64,7 @@
' 08.15.03 - th2tran - Created
' 09.21.03 - th2tran - Fixed bug: Name() property wasn't implemented.
' Originally, the methods were there but had no code.
-'
+' 10.13.03 - th2tran - Renamed Code1 and Code2 to VCode and GCode respectively.
' </pre>
' ///////////////////////////////////////////////////////////////////////
@@ -79,6 +79,7 @@
''
' Product Name
+' @return Name string.
'
Public Property Get Name() As String
Name = mstrName
@@ -89,6 +90,7 @@
''
' Product version.
+' @return Version string.
'
Public Property Get Version() As String
Version = mstrVer
@@ -98,21 +100,23 @@
End Property
''
-' Product Code 1 (public key)
+' Product VCode. This is the public encryption key used to verify product license keys.
+' @return Code string.
'
-Public Property Get Code1() As String
- Code1 = mstrCode1
+Public Property Get VCode() As String
+ VCode = mstrCode1
End Property
-Friend Property Let Code1(sCode As String)
+Friend Property Let VCode(sCode As String)
mstrCode1 = sCode
End Property
''
-' Product Code 2 (private key)
+' Product GCode. This is the private encryption key used to generate product license keys.
+' @return Code string.
'
-Public Property Get Code2() As String
- Code2 = mstrCode2
+Public Property Get GCode() As String
+ GCode = mstrCode2
End Property
-Friend Property Let Code2(sCode As String)
+Friend Property Let GCode(sCode As String)
mstrCode2 = sCode
End Property
Index: alugen.dll
===================================================================
RCS file: /cvsroot/activelock/alugen/lib/alugen.dll,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
Binary files /tmp/cvs7741Gc and /tmp/cvsKdFGih differ
|
|
From: Thanh H. T. <th...@us...> - 2003-10-13 05:01:14
|
Update of /cvsroot/activelock/activelock/src/vbdox
In directory sc8-pr-cvs1:/tmp/cvs-serv28892
Modified Files:
ActiveLock2.vbp
Log Message:
Removed IKeyStoreProvider and modActiveLock. These objects are internal and don't need to be exposed.
Index: ActiveLock2.vbp
===================================================================
RCS file: /cvsroot/activelock/activelock/src/vbdox/ActiveLock2.vbp,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- ActiveLock2.vbp 7 Aug 2003 17:30:59 -0000 1.1
+++ ActiveLock2.vbp 13 Oct 2003 05:01:08 -0000 1.2
@@ -2,10 +2,8 @@
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"
@@ -17,7 +15,7 @@
CompatibleEXE32="ActiveLock2.dll"
MajorVer=2
MinorVer=0
-RevisionVer=0
+RevisionVer=3
AutoIncrementVer=0
ServerSupportFiles=0
VersionCompanyName="The ActiveLock Software Group"
|
|
From: Thanh H. T. <th...@us...> - 2003-10-13 04:56:54
|
Update of /cvsroot/activelock/alutil In directory sc8-pr-cvs1:/tmp/cvs-serv28258 Modified Files: ActiveLockUtil.vbp Log Message: Use /activelock/bin/alutil.dll for binary compatibility. Index: ActiveLockUtil.vbp =================================================================== RCS file: /cvsroot/activelock/alutil/ActiveLockUtil.vbp,v retrieving revision 1.1 retrieving revision 1.2 diff -u -d -r1.1 -r1.2 --- ActiveLockUtil.vbp 19 Aug 2003 04:45:58 -0000 1.1 +++ ActiveLockUtil.vbp 13 Oct 2003 04:56:46 -0000 1.2 @@ -8,15 +8,15 @@ ExeName32="alutil.dll" Command32="" Name="ActiveLockUtil" -Description="ActiveLock Helper Library" HelpContextID="0" +Description="ActiveLock Helper Library" CompatibleMode="2" -CompatibleEXE32="alutil.dll" +CompatibleEXE32="..\activelock\bin\alutil.dll" VersionCompatible32="1" MajorVer=2 MinorVer=0 -RevisionVer=2 -AutoIncrementVer=1 +RevisionVer=3 +AutoIncrementVer=0 ServerSupportFiles=0 VersionCompanyName="The ActiveLock Software Group" VersionFileDescription="A Collection of useful classes used by ActiveLock." |
|
From: Thanh H. T. <th...@us...> - 2003-10-13 04:54:07
|
Update of /cvsroot/activelock/alutil In directory sc8-pr-cvs1:/tmp/cvs-serv27798 Removed Files: alutil.dll Log Message: moved to /activelock/bin --- alutil.dll DELETED --- |
|
From: Thanh H. T. <th...@us...> - 2003-10-13 04:50:05
|
Update of /cvsroot/activelock/activelock/bin In directory sc8-pr-cvs1:/tmp/cvs-serv27296 Modified Files: activelock2.dll Log Message: ActiveLockEventNotifier's ValidateValue() event signature changed. Binary compatibility had to be broken. Index: activelock2.dll =================================================================== RCS file: /cvsroot/activelock/activelock/bin/activelock2.dll,v retrieving revision 1.2 retrieving revision 1.3 diff -u -d -r1.2 -r1.3 Binary files /tmp/cvs2Qmgfh and /tmp/cvsAX5RCn differ |
3 messages has been excluded from this view by a project administrator.
