activelock-development Mailing List for ActiveLock (Page 3)
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: sdmad m <sd...@ho...> - 2004-07-23 09:11:00
|
After installation of ActiveLock-2.0.10, and when I first run ALTestApp I got this error message: <<-2147221499: License invalid. You have set your system clock backward!>> Shouldnt this work without problem until license expired? From original al.lic file:Expiration=2004/8/17 I removed AL.LIC file and registered ALTestApp with same user, then it worked fine. I tested on Win 2000 PRO system with Norwegian locals. This is the content of a testapp.all file I generated with LockType = lockNone, the PUB_KEY remains like in the downloaded version: VGVzdEFwcA0KMS4wDQpTaW5nbGUNCjMNCkV2YWx1YXRpb24gVXNlcg0KMjAwNC83 LzIzDQoyMDA0LzgvMjINCjENCkFBQUFCM056YUMxeWMyRUFBQUNBTTd5dVE2NjFo UlorUFFxUHN2eWRMMG0yYXF1N3NlNnJ4dzEvNTY1Y1BwenRYbjBBQ3pBem1RN2NM aXdCVGRMeU8yeFZjd3MvamFBMTRsTFU5SHF5ekNUYmNaMVg4RWdLcG11eGJDczJn S1BUTmxva0I2a0x4YWpkVkJVeTJnOStycURkKzZvQjBOR1hSMXVwN1FYcUpOd2h6 Wm8vcGtsR2dQdWhGY3U2aC9J Maybe you can test it in your locale. Mads _________________________________________________________________ MSN Messenger http://www.msn.no/computing/messenger Den raskeste veien mellom deg og dine venner |
|
From: sdmad m <sd...@ho...> - 2004-07-22 19:37:39
|
Hi Tran. It will be a pleassure. Mads >From: Thanh Hai Tran <th...@sy...> >Reply-To: act...@li... >To: act...@li... >Subject: [ActiveLock-Development] 2.0 Beta 3 Candidate >Date: Thu, 22 Jul 2004 13:18:09 -0400 > >-----BEGIN PGP SIGNED MESSAGE----- >Hash: SHA1 > >Hi, >I would like to release 2.0.10 as beta 3, but I'd like the development >team to give it some tests before we officially release it to the world. >If you have some time, could you download and give it a quick workout >to see if there's anything obvious that I've missed? You can find it >on the Development Builds package on the SF download page. >Thanks, >- -- >th...@sy... >Thanh Hai Tran, HBIT (Human Being In Training) >PGP Key: http://lytran.homeip.net/gpg/th2tran.key >Web Log: http://www.bloglines.com/blog/th2tran >-----BEGIN PGP SIGNATURE----- >Version: GnuPG v1.2.4 (MingW32) > >iD8DBQFA//bRF8rE9X/XrZIRAlAmAKCuLxukuXVPwAQ3vQqO+kRgwj0A/gCgiJ9A >xQ4OO6uoU2O0+ZAHGPzx/Cw= >=BR06 >-----END PGP SIGNATURE----- > > > >------------------------------------------------------- >This SF.Net email is sponsored by BEA Weblogic Workshop >FREE Java Enterprise J2EE developer tools! >Get your free copy of BEA WebLogic Workshop 8.1 today. >http://ads.osdn.com/?ad_id=4721&alloc_id=10040&op=click >_______________________________________________ >Activelock-Development mailing list >Act...@li... >https://lists.sourceforge.net/lists/listinfo/activelock-development _________________________________________________________________ Last ned MSN Messenger gratis http://www.msn.no/computing/messenger - Den korteste veien mellom deg og dine venner |
|
From: Thanh H. T. <th...@sy...> - 2004-07-22 17:18:12
|
-----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 Hi, I would like to release 2.0.10 as beta 3, but I'd like the development team to give it some tests before we officially release it to the world. If you have some time, could you download and give it a quick workout to see if there's anything obvious that I've missed? You can find it on the Development Builds package on the SF download page. Thanks, - -- th...@sy... Thanh Hai Tran, HBIT (Human Being In Training) PGP Key: http://lytran.homeip.net/gpg/th2tran.key Web Log: http://www.bloglines.com/blog/th2tran -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.2.4 (MingW32) iD8DBQFA//bRF8rE9X/XrZIRAlAmAKCuLxukuXVPwAQ3vQqO+kRgwj0A/gCgiJ9A xQ4OO6uoU2O0+ZAHGPzx/Cw= =BR06 -----END PGP SIGNATURE----- |
|
From: Peter Y. <py...@vb...> - 2004-07-19 15:48:11
|
>|> Does any body have any suggestions on how to implement this >|> either inside or outside of AL? The objective is: once the user >|> installs the product, they should immediately be allowed to begin >|> the trial period. I'd like to hear your inputs. >| >| >| Could you set LockType = None, ship the app with a license file and >| have the installer set the RegisteredDate in the license file? >Therein lies my dilemma. >Right now the RegisteredDate is set during license generation time and >is included as part of the license key (i.e. the RSA signature). >In order to do what you suggested, we'd have to take RegisteredDate >out of the license key. >But if we did that, it would weaken the protection because it would >be possible, then, to hack the RegisteredDate. >- -T About the only option then is for the user to: 1) Accept that it's going to be weak. 2) Use server-side processing in his website to generate the license file when the user requests the download. I'm certain this would not be hard with asp.net. It would be harder with ASP as it would require a custom DLL on the server and not many shared hosting providers are keen on installing custom DLLs. Perhaps if we provided the custom DLL with source, many major hosting providers would be willing to install the DLL. Otherwise, perhaps a PHP solution could be created. I'm not too familiar with PHP so I don't know how capable it is. -Pete |
|
From: SourceForge.net <no...@so...> - 2004-07-19 12:29:52
|
Bugs item #944257, was opened at 2004-04-29 06:47 Message generated for change (Comment added) made by th2tran You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=526385&aid=944257&group_id=70007 Category: ActiveLock 2 Object Library Group: Development Team >Status: Closed Resolution: Fixed Priority: 5 Submitted By: Thanh Hai Tran (th2tran) Assigned to: Thanh Hai Tran (th2tran) Summary: Combining lockTypes doesn't work Initial Comment: Found in 2.0.6 When LockType is set using an OR combination of multiple types, the generated license is always invalid. Some sample combinations tested were: 1) LockType = lockHD Or lockComp 2) LockType = lockHD Or lockMAC 3) LockType = lockHD Or lockMAC Or lockWindows ---------------------------------------------------------------------- >Comment By: Thanh Hai Tran (th2tran) Date: 2004-07-19 12:29 Message: Logged In: YES user_id=797792 Closing ---------------------------------------------------------------------- Comment By: Thanh Hai Tran (th2tran) Date: 2004-05-21 01:41 Message: Logged In: YES user_id=797792 Fixed in 2.0.7 ---------------------------------------------------------------------- You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=526385&aid=944257&group_id=70007 |
|
From: SourceForge.net <no...@so...> - 2004-07-19 12:27:33
|
Bugs item #948958, was opened at 2004-05-06 05:32 Message generated for change (Comment added) made by th2tran You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=526385&aid=948958&group_id=70007 Category: ActiveLock 2 Object Library Group: Development Team Status: Open >Resolution: Fixed Priority: 5 Submitted By: Thanh Hai Tran (th2tran) Assigned to: Thanh Hai Tran (th2tran) Summary: LastUsed property may cause complication during DST Initial Comment: Release 2.0.6 When Daylight Saving Time (DST) comes into effect and the clock is automatically set back 1 hour. Consequently, the license may become valid because LastUsed property validation will fail. ---------------------------------------------------------------------- >Comment By: Thanh Hai Tran (th2tran) Date: 2004-07-19 12:27 Message: Logged In: YES user_id=797792 Fixed in 2.0.10 ---------------------------------------------------------------------- Comment By: Thanh Hai Tran (th2tran) Date: 2004-05-06 22:12 Message: Logged In: YES user_id=797792 > the license may become valid ^^^ That should have said "invalid". ---------------------------------------------------------------------- You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=526385&aid=948958&group_id=70007 |
|
From: SourceForge.net <no...@so...> - 2004-07-19 12:22:48
|
Task #89741 has been updated. Project: ActiveLock Subproject: ActiveLock 2.0 General Summary: Implement TODOs in discussion topic 72 Complete: 100% Status: Open Authority : th2tran Assigned to: th2tran Description: http://www.activelock.org/boards/index.php?showtopic=72&st=0& Follow-Ups: ------------------------------------------------------- Date: 2004-07-19 12:22 By: th2tran Comment: Done for 2.0.10 ------------------------------------------------------- For more info, visit: http://sourceforge.net/pm/task.php?func=detailtask&project_task_id=89741&group_id=70007&group_project_id=29689 |
|
From: SourceForge.net <no...@so...> - 2004-07-19 12:21:58
|
Task #101435 has been updated. Project: ActiveLock Subproject: ActiveLock 2.0 General Summary: Product Code Generation - once per product Complete: 100% Status: Open Authority : th2tran Assigned to: th2tran Description: Implement suggestion in: http://sourceforge.net/tracker/index.php?func=detail&aid=985823&group_id=70007&atid=526386 Once a Product Code set has been added to the list, disable the Generate button. Follow-Ups: ------------------------------------------------------- Date: 2004-07-19 12:21 By: th2tran Comment: Done for 2.0.10 ------------------------------------------------------- For more info, visit: http://sourceforge.net/pm/task.php?func=detailtask&project_task_id=101435&group_id=70007&group_project_id=29689 |
|
From: Thanh H. T. <th...@us...> - 2004-07-19 12:14:51
|
Update of /cvsroot/activelock/activelock/docs In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16439 Modified Files: ReleaseNotes.htm Log Message: Batch commit for 2.0.10 Index: ReleaseNotes.htm =================================================================== RCS file: /cvsroot/activelock/activelock/docs/ReleaseNotes.htm,v retrieving revision 1.5 retrieving revision 1.6 diff -u -d -r1.5 -r1.6 --- ReleaseNotes.htm 9 Jul 2004 08:31:29 -0000 1.5 +++ ReleaseNotes.htm 19 Jul 2004 12:14:43 -0000 1.6 @@ -79,7 +79,30 @@ <a name="changes"><h2>Change History</h2></a> <blockquote> - <h3>2.0.9 - July 09, 2004</h3> + <h3>2.0.10 (Beta 3) - July 19, 2004</h3> + <h4>General Changes</h4> + <ul> + <li>ALUGEN: Added User Name text box to allow liberation key generation for lockToNone + settings without requiring Installation Code to be entered. + <li>ALUGEN: Apparently, having the <b>Generate</b> button enabled on the + <b>Product Code Generator</b> tab, for a product already added to the list (and for which + a code set has already been generated), was confusing to some users who miss the fact that the product code set only needs to be generated once. So from now on, the Generate button will be disabled after a code set has been added to the <b>Product List</b>. + </ul> + + <h4>Bug Fixes In This Release</h4> + <p>The following bugs have been fixed in this release. + <ul> + <li>ActiveLock Bug: For regional setting in which Daylight Savings Time (DST) applies, + There was a chance that ActiveLock could misbehave when DST goes into effect, due to + its usage of local time in the LastUsed property tripping over when Daylights Savings Time (DST) goes into effect. + To avoid this problem, all date-time sensitive values are now to be handled in UTC format. + <li>ActiveLock Bug: KeyStoreType = alsRegistry should raise an alerrNotImplemented error since we haven't implemented it. + <li>API Doc Bug: In IActiveLock's KeyStorePath (let) section, one of the links to KeyStoreType was bad. + <li>ALUGENLib Bug: IALUGenerator_DeleteProduct() didn't remove the product keys from products.ini + <li>ActiveLock Bug: Bad Installation Code was generated when UserName is blank and LockType is other than lockNone, resulting in invalid liberation key being generated. + </ul> + + <h3>2.0.9 - July 10, 2004</h3> <h4>Bug Fixes In This Release</h4> <p>The following bugs have been fixed in this release. <ul> @@ -88,6 +111,7 @@ (or if product info doesn't exist). <li>alugenc Bug: Out of Memory error received if products.ini doesn't exists in the working directory. Now looks for products.ini in the same directory as alugenc.exe. + <li>alugenc Bug: upon error, program should be returning 1 instead of FALSE as exit code. </ul> <h3>2.0.8 - July 01, 2004</h3> |
|
From: Thanh H. T. <th...@us...> - 2004-07-19 12:14:00
|
Update of /cvsroot/activelock/activelock In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16315 Modified Files: build.bat Log Message: Batch commit for 2.0.10 Index: build.bat =================================================================== RCS file: /cvsroot/activelock/activelock/build.bat,v retrieving revision 1.5 retrieving revision 1.6 diff -u -d -r1.5 -r1.6 --- build.bat 16 May 2004 18:44:42 -0000 1.5 +++ build.bat 19 Jul 2004 12:13:51 -0000 1.6 @@ -52,12 +52,13 @@ rem Delete previous VB compilation log file del build.log +if "%1" == "installer" goto installer + rem Register common dependency: alutil.dll echo Registering alutil.dll... regsvr32 /s bin\alutil.dll if "%1" == "unreg" goto unreg -if "%1" == "installer" goto installer if "%1" == "docs" goto docs if "%1" == "compile-activelock" goto compile-activelock if "%1" == "compile-examples" goto compile-examples @@ -93,11 +94,10 @@ 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. +if "%1" == "skip-activelock" goto compile-alugen echo Unregistering activelock2.dll... regsvr32 /s /u bin\activelock2.dll |
|
From: Thanh H. T. <th...@us...> - 2004-07-19 12:13:06
|
Update of /cvsroot/activelock/installer In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16163 Modified Files: ActiveLock.nsi Log Message: Batch commit for 2.0.10 Index: ActiveLock.nsi =================================================================== RCS file: /cvsroot/activelock/installer/ActiveLock.nsi,v retrieving revision 1.8 retrieving revision 1.9 diff -u -d -r1.8 -r1.9 --- ActiveLock.nsi 2 Jul 2004 04:15:35 -0000 1.8 +++ ActiveLock.nsi 19 Jul 2004 12:12:56 -0000 1.9 @@ -32,6 +32,8 @@ ; 05.16.04 - th2tran - Need to remove alcrypto.dll during uninstall. 2.0.7 ; 05.24.04 - th2tran - Include VB Tutorial.chm ; 07.01.04 - th2tran - Include alugenc +; - Added ALUGEN shortcut to program group +; 07.18.04 - th2tran - Added Release Notes shortcut to program group. 2.0.10 ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; @@ -40,7 +42,7 @@ ;General !define VER_MAJOR 2 -!define VER_MINOR 0.8 +!define VER_MINOR 0.10 !define VER ${VER_MAJOR}.${VER_MINOR} !define ALUTIL_SRC_ROOT "..\alutil" !define AL_SRC_ROOT "..\activelock" @@ -201,16 +203,18 @@ !ifndef NO_STARTMENUSHORTCUTS CreateDirectory $SMPROGRAMS\ActiveLock - IfFileExists "$INSTDIR\bin\ALTestApp.exe" "" +2 - CreateShortCut "$SMPROGRAMS\ActiveLock\Example 1.lnk" "$INSTDIR\bin\ALTestApp.exe" "" + CreateShortCut "$SMPROGRAMS\ActiveLock\Release Notes.lnk" "$INSTDIR\ReleaseNotes.htm" + + IfFileExists "$INSTDIR\bin\alugen.exe" "" +2 + CreateShortCut "$SMPROGRAMS\ActiveLock\ALUGEN.lnk" "$INSTDIR\bin\alugen.exe" "" 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" "$INSTDIR\bin\activelock2.chm" IfFileExists "$INSTDIR\Docs\VBTutorial.chm" "" +2 CreateShortCut "$SMPROGRAMS\ActiveLock\VB Tutorial.lnk" "$INSTDIR\Docs\VBTutorial.chm" "" + CreateShortCut "$SMPROGRAMS\ActiveLock\Uninstall ActiveLock.lnk" "$INSTDIR\uninst.exe" !endif SectionEnd |
|
From: Thanh H. T. <th...@us...> - 2004-07-19 12:12:45
|
Update of /cvsroot/activelock/alugen/lib In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16075 Modified Files: ALUGENLib.vbp Generator.cls Log Message: Batch commit for 2.0.10 Index: ALUGENLib.vbp =================================================================== RCS file: /cvsroot/activelock/alugen/lib/ALUGENLib.vbp,v retrieving revision 1.7 retrieving revision 1.8 diff -u -d -r1.7 -r1.8 --- ALUGENLib.vbp 9 Jul 2004 08:29:42 -0000 1.7 +++ ALUGENLib.vbp 19 Jul 2004 12:12:35 -0000 1.8 @@ -1,7 +1,7 @@ Type=OleDll Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\system32\stdole2.tlb#OLE Automation Reference=*\G{C3B56087-6690-42ED-8914-633AA166AB41}#1.0#0#..\..\activelock\bin\activelock2.dll#ActiveLock2 -Reference=*\G{9AC9BB25-D182-447E-8398-D8A8F40DE906}#1.0#0#..\..\activelock\bin\alutil.dll#ActiveLockUtil +Reference=*\G{9AC9BB25-D182-447E-8398-D8A8F40DE906}#1.0#0#C:\Program Files\ActiveLock Software Group\ActiveLock2\bin\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=9 +RevisionVer=10 AutoIncrementVer=0 ServerSupportFiles=0 VersionCompanyName="The ActiveLock Software Group" Index: Generator.cls =================================================================== RCS file: /cvsroot/activelock/alugen/lib/Generator.cls,v retrieving revision 1.7 retrieving revision 1.8 diff -u -d -r1.7 -r1.8 --- Generator.cls 9 Jul 2004 08:29:42 -0000 1.7 +++ Generator.cls 19 Jul 2004 12:12:35 -0000 1.8 @@ -69,8 +69,8 @@ ' 05.13.04 - th2tran - Fixed bug in GetLockAndUserFromInstallCode()--wasn't returning ' the correct LockCode when InstallationCode contained multiple ' lockTo setttings (e.g. lockToHD Or lockToMAC) -' 06.28.04 - th2tran - Added ByVal qualifier to IALUGENerator_StoragePath parameter for better compatibility /w VC++ -' +' 06.28.04 - th2tran - Added ByVal qualifier to IALUGENerator_StoragePath parameter for better compatibility /w VC++ +' 07.13.04 - th2tran - Implemented IALUGenerator_DeleteProduct() ' </pre> ' /////////////////////////////////////////////////////////////////////// @@ -156,7 +156,8 @@ End Function Private Sub IALUGenerator_DeleteProduct(ByVal Name As String, ByVal Ver As String) - '@todo Remove the section from INI file + ' Remove the section from INI file + Call MyIniFile.DeleteSection(Name & " " & Ver) End Sub Private Property Let IALUGenerator_StoragePath(ByVal RHS As String) |
|
From: Thanh H. T. <th...@us...> - 2004-07-19 12:11:38
|
Update of /cvsroot/activelock/alugen/console In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15930 Modified Files: alugenc.cpp alugenc.rc Log Message: Batch commit for 2.0.10 Index: alugenc.cpp =================================================================== RCS file: /cvsroot/activelock/alugen/console/alugenc.cpp,v retrieving revision 1.2 retrieving revision 1.3 diff -u -d -r1.2 -r1.3 --- alugenc.cpp 9 Jul 2004 08:30:18 -0000 1.2 +++ alugenc.cpp 19 Jul 2004 12:11:26 -0000 1.3 @@ -48,6 +48,7 @@ * with cerr output to keep the program free of any GUI * - products.ini is now expected to reside in the same directory as alugenc.exe. * Previously, it was assumed to be in the working directory. + * 07/10/04 th2tran - Fixed bug: upon error, should be returning 1 instead of FALSE * ***********************************************************************************************/ @@ -74,28 +75,27 @@ // int _tmain(int argc, TCHAR* argv[], TCHAR* envp[]) { - int nRetCode = 0; _IActiveLock m_ActiveLock; // Print syntax if (argc < 11) { cerr << _T("ALUGENC - ActiveLock Universal GENerator Command-Line Interface\nSyntax: alugenc.exe -p <productname> -v <productversion> -t <licensetype> -x <expiration_date> -i <installation_code> -l <user>") << endl; cerr << _T("Example: alugenc.exe -p TestApp -v 1.0 -t 0 -x 2004/06/27 -i MDAgNTAgREEgNTYgNTkgRTkKQTg2Ri1FMEMxCkV2YWx1YXRpb24gVXNlcg -l \"Eval User\"") << endl; - return FALSE; + return 1; } // initialize MFC and print and error on failure if (!AfxWinInit(::GetModuleHandle(NULL), NULL, ::GetCommandLine(), 0)) { cerr << _T("Fatal Error: MFC initialization failed") << endl; - return FALSE; + return 1; } // Initialize OLE libraries if (!AfxOleInit()) { cerr << _T("Fatal Error: OLE initialization failed") << endl; - return FALSE; + return 1; } CoInitialize(NULL); @@ -166,7 +166,7 @@ CFileFind FF; if(!FF.FindFile(strPath)) { cerr << _T("Error: File not found - ") << (LPCTSTR)strPath << endl; - return FALSE; + return 1; } // Set StorePath @@ -194,12 +194,14 @@ cerr << "Fatal Error: " << buffer; } ce->Delete(); + return 1; } catch (...) { cerr << _T("I don't know what happened, but it crashed. Have a nice day!") << endl; - return FALSE; + return 1; } cout << (LPCTSTR)licKey << endl; // TODO: Put Cleanup code here - return nRetCode; + + return 0; } \ No newline at end of file Index: alugenc.rc =================================================================== RCS file: /cvsroot/activelock/alugen/console/alugenc.rc,v retrieving revision 1.2 retrieving revision 1.3 diff -u -d -r1.2 -r1.3 --- alugenc.rc 9 Jul 2004 08:30:18 -0000 1.2 +++ alugenc.rc 19 Jul 2004 12:11:26 -0000 1.3 @@ -27,18 +27,18 @@ // TEXTINCLUDE // -1 TEXTINCLUDE DISCARDABLE +1 TEXTINCLUDE DISCARDABLE BEGIN "resource.h\0" END -2 TEXTINCLUDE DISCARDABLE +2 TEXTINCLUDE DISCARDABLE BEGIN "#include ""afxres.h""\r\n" "\0" END -3 TEXTINCLUDE DISCARDABLE +3 TEXTINCLUDE DISCARDABLE BEGIN "\r\n" "\0" @@ -52,7 +52,7 @@ // String Table // -STRINGTABLE DISCARDABLE +STRINGTABLE DISCARDABLE BEGIN IDS_HELLO "Hello from MFC!" END @@ -77,7 +77,7 @@ // VS_VERSION_INFO VERSIONINFO - FILEVERSION 1,0,0,1 + FILEVERSION 1,0,0,2 PRODUCTVERSION 2,0,0,9 FILEFLAGSMASK 0x3fL #ifdef _DEBUG @@ -96,7 +96,7 @@ VALUE "Comments", "\0" VALUE "CompanyName", "ActiveLock Software Group\0" VALUE "FileDescription", "ActiveLock Universal GENerator Command-Line Interface\0" - VALUE "FileVersion", "1, 0, 0, 1\0" + VALUE "FileVersion", "1, 0, 0, 2\0" VALUE "InternalName", "alugenc\0" VALUE "LegalCopyright", "Copyright © 2004 ActiveLock Software Group\0" VALUE "LegalTrademarks", "\0" |
|
From: Thanh H. T. <th...@us...> - 2004-07-19 12:09:30
|
Update of /cvsroot/activelock/alugen/app In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15520 Modified Files: ALUGEN.vbp frmMain.frm frmMain.frx products.ini Log Message: Batch commit for 2.0.10 Index: ALUGEN.vbp =================================================================== RCS file: /cvsroot/activelock/alugen/app/ALUGEN.vbp,v retrieving revision 1.6 retrieving revision 1.7 diff -u -d -r1.6 -r1.7 --- ALUGEN.vbp 16 May 2004 18:39:56 -0000 1.6 +++ ALUGEN.vbp 19 Jul 2004 12:09:14 -0000 1.7 @@ -20,11 +20,11 @@ CompatibleMode="1" MajorVer=2 MinorVer=0 -RevisionVer=6 +RevisionVer=10 AutoIncrementVer=0 ServerSupportFiles=0 VersionCompanyName="The ActiveLock Software Group" -VersionLegalCopyright="Copyright © 2003" +VersionLegalCopyright="Copyright © 2003-2004" VersionProductName="ALUGEN" CompilationType=0 OptimizationType=0 Index: frmMain.frm =================================================================== RCS file: /cvsroot/activelock/alugen/app/frmMain.frm,v retrieving revision 1.6 retrieving revision 1.7 diff -u -d -r1.6 -r1.7 --- frmMain.frm 28 Apr 2004 10:00:45 -0000 1.6 +++ frmMain.frm 19 Jul 2004 12:09:14 -0000 1.7 @@ -1,39 +1,39 @@ VERSION 5.00 Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX" -Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX" +Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "Tabctl32.ocx" Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX" Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX" Begin VB.Form frmMain Appearance = 0 'Flat BorderStyle = 3 'Fixed Dialog Caption = "ActiveLock Universal GENerator" - ClientHeight = 5850 - ClientLeft = 45 - ClientTop = 330 - ClientWidth = 9735 + ClientHeight = 5844 + ClientLeft = 48 + ClientTop = 336 + ClientWidth = 9732 Icon = "frmMain.frx":0000 LinkTopic = "Form1" MaxButton = 0 'False MinButton = 0 'False - ScaleHeight = 5850 - ScaleWidth = 9735 + ScaleHeight = 5844 + ScaleWidth = 9732 StartUpPosition = 3 'Windows Default Begin ComctlLib.StatusBar sbStatus Align = 2 'Align Bottom Height = 255 Left = 0 - TabIndex = 34 + TabIndex = 36 Top = 5595 Width = 9735 - _ExtentX = 17171 - _ExtentY = 450 + _ExtentX = 17166 + _ExtentY = 445 SimpleText = "" _Version = 327682 BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7} NumPanels = 1 BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7} AutoSize = 1 - Object.Width = 17119 + Object.Width = 17124 Text = "Ready" TextSave = "Ready" Key = "" @@ -47,8 +47,8 @@ TabIndex = 0 Top = 0 Width = 9735 - _ExtentX = 17171 - _ExtentY = 9895 + _ExtentX = 17166 + _ExtentY = 9885 _Version = 393216 Tabs = 2 TabHeight = 520 @@ -81,7 +81,7 @@ Width = 1000 End Begin VB.ComboBox cmbProds - Height = 315 + Height = 288 Left = -73560 Style = 2 'Dropdown List TabIndex = 16 @@ -95,11 +95,18 @@ TabIndex = 14 Top = 840 Width = 9495 + Begin VB.TextBox txtUser + Height = 315 + Left = 1320 + TabIndex = 24 + Top = 1080 + Width = 7095 + End Begin VB.CommandButton cmdBrowse Caption = "..." BeginProperty Font Name = "MS Sans Serif" - Size = 13.5 + Size = 13.8 Charset = 0 Weight = 400 Underline = 0 'False @@ -108,7 +115,7 @@ EndProperty Height = 315 Left = 8040 - TabIndex = 28 + TabIndex = 30 ToolTipText = "Generate liberation key for the above request code (which should not be blank)." Top = 4200 Width = 375 @@ -116,7 +123,7 @@ Begin VB.TextBox txtLibFile Height = 315 Left = 1320 - TabIndex = 27 + TabIndex = 29 Top = 4200 Width = 6735 End @@ -125,7 +132,7 @@ Enabled = 0 'False Height = 315 Left = 8520 - TabIndex = 29 + TabIndex = 31 ToolTipText = "Generate liberation key for the above request code (which should not be blank)." Top = 4200 Width = 975 @@ -162,21 +169,21 @@ BackColor = &H80000011& BeginProperty Font Name = "Courier New" - Size = 8.25 + Size = 8.4 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty - Height = 3075 + Height = 2592 Left = 1320 Locked = -1 'True MultiLine = -1 'True ScrollBars = 2 'Vertical - TabIndex = 24 + TabIndex = 26 Text = "frmMain.frx":0D35 - Top = 1080 + Top = 1560 Width = 7095 End Begin VB.CommandButton cmdKeyGen @@ -184,9 +191,9 @@ Enabled = 0 'False Height = 315 Left = 8520 - TabIndex = 25 + TabIndex = 27 ToolTipText = "Generate liberation key for the above request code (which should not be blank)." - Top = 1080 + Top = 1560 Width = 975 End Begin MSComDlg.CommonDialog CommonDlg @@ -196,11 +203,19 @@ _ExtentY = 847 _Version = 393216 End + Begin VB.Label Label11 + Caption = "User Name:" + Height = 252 + Left = 0 + TabIndex = 23 + Top = 1080 + Width = 1332 + End Begin VB.Label Label5 Caption = "Liberation &File:" Height = 255 Left = 0 - TabIndex = 26 + TabIndex = 28 Top = 4200 Width = 1335 End @@ -230,17 +245,17 @@ End Begin VB.Label Label12 Caption = "Liberation &Key:" - Height = 255 + Height = 252 Left = 0 - TabIndex = 23 - Top = 1080 - Width = 1335 + TabIndex = 25 + Top = 1560 + Width = 1332 End Begin VB.Label lblDays Caption = "days" Height = 255 Left = 2640 - TabIndex = 30 + TabIndex = 32 Top = 435 Width = 1335 End @@ -314,7 +329,7 @@ Caption = "GCode" Height = 255 Left = 5040 - TabIndex = 33 + TabIndex = 35 Top = 1080 Width = 1695 End @@ -322,7 +337,7 @@ Caption = "VCode" Height = 255 Left = 1320 - TabIndex = 32 + TabIndex = 34 Top = 1080 Width = 1695 End @@ -357,8 +372,8 @@ TabIndex = 11 Top = 2760 Width = 8265 - _ExtentX = 14579 - _ExtentY = 4895 + _ExtentX = 14584 + _ExtentY = 4890 _Version = 393216 Cols = 4 FixedCols = 0 @@ -379,7 +394,7 @@ Caption = "&Product List:" Height = 255 Left = 120 - TabIndex = 31 + TabIndex = 33 Top = 2520 Width = 1215 End @@ -400,7 +415,7 @@ Attribute VB_Exposed = False '* ActiveLock '* Copyright 1998-2002 Nelson Ferraz -'* Copyright 2003 The ActiveLock Software Group (ASG) +'* Copyright 2003-2004 The ActiveLock Software Group (ASG) '* All material is the property of the contributing authors. '* '* Redistribution and use in source and binary forms, with or without @@ -475,7 +490,12 @@ ' 28.04.04 - th2tran - Normalize date format to YYYY/MM/DD to handle different regional settings. ' This fixes the "type mismatch error" encountered by IActiveLock_Register() when ' it tried to call CDate() on a date string of the format yyyy.mm.dd. -' +' 11.07.04 - th2tran - Changed liberation file extension from .alb to .all +' - Added User Name text box to allow liberation key generation for lockToNone settings +' without requiring Installation Code to be entered. +' - Apparently, having the Code Generate button enabled for an added product was +' confusing to the users. So: Disable the Code Generate button after a product +' has been added to the list. i.e. only allow codeset generation once per product. ' </pre> ' /////////////////////////////////////////////////////////////////////// @@ -774,7 +794,7 @@ ' Initialize AL Set ActiveLock = ActiveLock2.NewInstance() ActiveLock.KeyStoreType = alsFile - txtLibFile = App.Path & "\activelock.alb" + txtLibFile = App.Path & "\activelock.all" ' Initialize Generator Set GeneratorInstance = ALUGENLib.GeneratorInstance() @@ -870,13 +890,26 @@ End Sub Private Sub txtName_Change() + UpdateCodeGenButtonStatus UpdateAddButtonStatus End Sub Private Sub txtReqCodeIn_Change() UpdateKeyGenButtonStatus + If fDisableNotifications Then Exit Sub + fDisableNotifications = True + txtUser = GetUserFromInstallCode(txtReqCodeIn) + fDisableNotifications = False +End Sub + +Private Sub txtUser_Change() + If fDisableNotifications Then Exit Sub + fDisableNotifications = True + txtReqCodeIn = ActiveLock.InstallationCode(txtUser) + fDisableNotifications = False End Sub + Private Sub UpdateKeyGenButtonStatus() If txtReqCodeIn = "" Then cmdKeyGen.Enabled = False @@ -915,13 +948,14 @@ Private Sub UpdateCodeGenButtonStatus() If txtName = "" Or txtVer = "" Then cmdCodeGen.Enabled = False + ElseIf CheckDuplicate(txtName, txtVer) Then + cmdCodeGen.Enabled = False Else cmdCodeGen.Enabled = True End If End Sub Private Sub UpdateAddButtonStatus() - Dim fEnabled As Boolean If txtName = "" Or txtVer = "" Or txtCode1 = "" Then cmdAdd.Enabled = False ElseIf CheckDuplicate(txtName, txtVer) Then @@ -947,6 +981,17 @@ Next End Function +Private Function CheckDuplicateVCode(VCode As String) As Boolean + CheckDuplicateVCode = False + Dim i% + For i = 0 To gridProds.Rows - 1 + If gridProds.TextMatrix(i, 2) = VCode Then + CheckDuplicateVCode = True + End If + Next +End Function + + '' ' Initialize the GUI with the proper grid headings and alignments ' @@ -956,7 +1001,7 @@ With gridProds .Clear .Rows = 1 - .FormatString = "Name |Version | VCode |GCode " + .FormatString = "Name |Version | VCode |GCode " .ColAlignment(0) = flexAlignLeftCenter .ColAlignment(1) = flexAlignLeftCenter .ColAlignment(2) = flexAlignLeftCenter @@ -990,3 +1035,21 @@ AddRow .Name, .Version, .VCode, .GCode, False End With End Sub + +'' +' Retrieves lock string and user info from the request string +' +Private Function GetUserFromInstallCode(ByVal strInstCode As String) As String + If strInstCode = "" Then Exit Function + strInstCode = ActiveLock2.Base64Decode(strInstCode) + Dim Index%, i% + Index = 0: i = 1 + ' Get to the last vbLf, which denotes the ending of the lock code and beginning of user name. + Do While i > 0 + i = InStr(Index + 1, strInstCode, vbLf) + If i > 0 Then Index = i + Loop + ' user name starts from Index+1 to the end + GetUserFromInstallCode = Mid$(strInstCode, Index + 1) +End Function + Index: frmMain.frx =================================================================== RCS file: /cvsroot/activelock/alugen/app/frmMain.frx,v retrieving revision 1.4 retrieving revision 1.5 diff -u -d -r1.4 -r1.5 Binary files /tmp/cvs545lLl and /tmp/cvsyGeZaf differ Index: products.ini =================================================================== RCS file: /cvsroot/activelock/alugen/app/products.ini,v retrieving revision 1.4 retrieving revision 1.5 diff -u -d -r1.4 -r1.5 --- products.ini 5 Nov 2003 04:54:50 -0000 1.4 +++ products.ini 19 Jul 2004 12:09:14 -0000 1.5 @@ -3,3 +3,9 @@ Version=1.0 VCode=AAAAB3NzaC1yc2EAAAABJQAAAIB8/B2KWoai2WSGTRPcgmMoczeXpd8nv0Y4r1sJ1wV3vH21q4rTpEYuBiD4HFOpkbNBSRdpBHJGWec7jUi8ISV0pM6i2KznjhCms5CEtYHRybbiYvRXleGzFsAAP817PLN3JYo3WkErT2ofR5RCkfhmx060BT8waPoqnn3AB7sZ0Q== GCode=AAAAgEpQt55fVvkLo44f/fi8OvV08J9btR6NaAYHZpA6qU4dDHnbnqdawfHaIXDuP5VB4DSoABTt4xUS3IRGKz9tp5CWt8irOeRSSrt8fLhe3D1UtQgGBqoA4fujQC734ajLUcCvEGsao3Wf/vUH0V3991EyI973hAahUUWCbjhm8CflAAAAQPeCV4CpJfEbr/V2C6tEb1Cpoeow1JFJLGr8l6XmuIt8LCEG8E01rFoJzIQIcORl/htC3UDZHvxJRG2yo+8/FB8AAABAgUW/rGg1+0i7bL0UarO1gdzKQBVlGmJIMHpfbV+bLLlvr4qS6+FQaErN8JRtyEPrwHJrafDAdKg3G0BI37mUDwAAAEAIW/5Jxi1GPBagOt4LLY17TfoQH3YwigXy13FgpRuYA1fxzHIgF/Z0lSgI5+64K7CTonz5xEe6+Sk3i0WNYvPd + +[MyApp 1.0] +Name=MyApp +Version=1.0 +VCode=AAAAB3NzaC1yc2EAAAABJQAAAICkfLFku/R6Ag3GEu60w3mIIvIN+L3JxQiULI2db2baSsAGcA/aGgMzzBogh+UQB3lD3dr3ggdVXtn6G0V4OQ4zDBIc3o/8iWPUmpD7/5eGX3XKqOGvci2Pc8nzlDXGdvRxR73u31ibQkZ/ILU7BFkAAkG1njgSoZdoSXKr/y0dJQ== +GCode=AAAAgQCA7BxV32yW+rDZhHXnoCD7/7bMrjPjVT4TRYPAlZXNsDWkLlGdG06eODAnVcFflyexu7l14nRzWC5OaGbhsC24CYPRyMTQ1pWFVUZjt+MtXldQhspaSuZs722cEXuiMssadNLi8dz2jnttaBWcB5rTAPutmYa5yXZNx1CGCUtXOQAAAEDtnA8KNE+ULuWj4UDmbEMStNH7tLEfStAD911XDfS+0BFzuEBiHQp8jFHo8L7fa3oMtu3cDzS4rkcVQ/UwXD4DAAAAQLE3zTVO6SE4X1Tr/hQSPmGhBLHA42YVCFAAHpDH33dWNT74npgY0clRqnUtU/fqMiBs++ygSSWqd1kx6HxWQ7cAAABAkuRt1n9oI6CY+21UJ73BkZY1Yyl7TRLRePbi/aVKqjxPxM+7LEOWcROuQtliCNZ/v2ho0gjloWtcPPME7tES |
|
From: Thanh H. T. <th...@us...> - 2004-07-19 12:08:09
|
Update of /cvsroot/activelock/activelock/src/vbdox In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15292 Modified Files: ActiveLock2.vbp Log Message: Batch commit for 2.0.10 Index: ActiveLock2.vbp =================================================================== RCS file: /cvsroot/activelock/activelock/src/vbdox/ActiveLock2.vbp,v retrieving revision 1.3 retrieving revision 1.4 diff -u -d -r1.3 -r1.4 --- ActiveLock2.vbp 18 Apr 2004 01:52:32 -0000 1.3 +++ ActiveLock2.vbp 19 Jul 2004 12:07:52 -0000 1.4 @@ -15,7 +15,7 @@ CompatibleEXE32="ActiveLock2.dll" MajorVer=2 MinorVer=0 -RevisionVer=5 +RevisionVer=10 AutoIncrementVer=0 ServerSupportFiles=0 VersionCompanyName="The ActiveLock Software Group" |
|
From: Thanh H. T. <th...@us...> - 2004-07-19 12:07:16
|
Update of /cvsroot/activelock/activelock/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15095 Modified Files: ActiveLock.cls ActiveLock2.vbp IActiveLock.cls modActiveLock.bas Log Message: Batch commit for 2.0.10 Index: ActiveLock.cls =================================================================== RCS file: /cvsroot/activelock/activelock/src/ActiveLock.cls,v retrieving revision 1.10 retrieving revision 1.11 diff -u -d -r1.10 -r1.11 --- ActiveLock.cls 16 May 2004 18:37:38 -0000 1.10 +++ ActiveLock.cls 19 Jul 2004 12:06:57 -0000 1.11 @@ -96,7 +96,16 @@ ' User can blank out the LastUsed property, set their clock back and continue to use an otherwise-expired ' license. ' 05.13.04 - th2tran - Fixed "Object variable not set" error in IActiveLock_UsedDays() caused when retrieved Lic is Nothing. -' +' 07.11.04 - th2tran - For regional setting in which Daylight Savings Time (DST) applies, +' There was a chance that ActiveLock could misbehave when DST goes into effect, due to +' its usage of local time in the LastUsed property tripping over when Daylights Savings Time (DST) goes into effect. +' To avoid this problem, all date-time sensitive values are now to be handled in UTC format. +' - Raise alerrNotImplemented for KeyStoreType other than alsFile +' 07.19.04 - th2tran - Fixed bug: Bad InstallationCode was generated when UserName="" and LockType is other than lockNone. +' This problem was because, previously, the vbLf delimiter wasn't included in the Installation Code when the +' user name is blank, which causes ALUGEN to (correctly) take the LockCode part of InstallationCode +' (the part after the last vbLf delimiter) for the user name, resulting in an invalid liberation key +' being generated. ' </pre> ' /////////////////////////////////////////////////////////////////////// @@ -128,6 +137,11 @@ Private mfInit As Boolean ' flag to indicate that ActiveLock has been initialized +Private Sub Class_Initialize() + ' Default to alsFile + IActiveLock_KeyStoreType = alsFile +End Sub + ''' ' IActiveLock Interface implementations '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' @@ -265,7 +279,7 @@ If Lic.Expiration = "" Then Exit Sub Dim dtExp As Date dtExp = CDate(Lic.Expiration) - If Now > dtExp Then + If modActiveLock.UTC(Now) > dtExp Then Err.Raise ActiveLockErrCodeConstants.alerrLicenseExpired, "ActiveLock2", "License expired" End If End Sub @@ -290,8 +304,15 @@ Err.Raise ActiveLockErrCodeConstants.alerrLicenseTampered, "ActiveLock2", "License may have been tampered." End If ' try to detect the user setting their system clock back - If Now < CDate(Lic.LastUsed) Then - ' TODO: Need to account for Daylight Savings Time + ' Need to account for Daylight Savings Time + 'Dim dtNow As Date + 'dtNow = modActiveLock.UTC(Now) + Dim strNow As String + ' Normalize to the format of the saved date-time, before we compare + strNow = Format(modActiveLock.UTC(Now()), "YYYY/MM/DD HH:MM:SS") + If strNow < Lic.LastUsed Then + Debug.Print "UTC Now: " & strNow + Debug.Print "LastUsed: " & CDate(Lic.LastUsed) Err.Raise ActiveLockErrCodeConstants.alerrClockChanged, "ActiveLock2", "License invalid. You have set your system clock backward!" End If UpdateLastUsed Lic @@ -305,7 +326,7 @@ ' Update license store with LastRunDate Dim strEncrypted As String Dim strLastUsed As String - strLastUsed = Format(Now(), "YYYY/MM/DD HH:MM:SS") + strLastUsed = Format(modActiveLock.UTC(Now()), "YYYY/MM/DD HH:MM:SS") Lic.LastUsed = strLastUsed MyNotifier.Notify "ValidateValue", strLastUsed Lic.Hash1 = modMD5.Hash(strLastUsed) @@ -338,7 +359,9 @@ If RHS = alsFile Then Set mKeyStore = New FileKeyStoreProvider Else - Set mKeyStore = New RegistryKeyStoreProvider +' Set mKeyStore = New RegistryKeyStoreProvider + ' TODO: Implement me! + Err.Raise ActiveLockErrCodeConstants.alerrNotImplemented, "IActiveLock_KeyStoreType", "Not implemented" End If ' Set Key Store Path in KeyStoreProvider If mKeyStorePath <> "" Then @@ -392,11 +415,7 @@ Dim strReq As String, strLock As String strLock = IActiveLock_LockCode() ' combine with user name - If User = "" Then - strReq = strLock - Else - strReq = strLock & vbLf & User - End If + strReq = strLock & vbLf & User ' base-64 encode the request Dim strReq2 As String strReq2 = modBase64.Base64_Encode(strReq) @@ -465,5 +484,5 @@ ' validate the license ValidateLic Lic - IActiveLock_UsedDays = CLng(DateDiff("d", Lic.RegisteredDate, Now)) + IActiveLock_UsedDays = CLng(DateDiff("d", Lic.RegisteredDate, modActiveLock.UTC(Now))) End Property Index: ActiveLock2.vbp =================================================================== RCS file: /cvsroot/activelock/activelock/src/ActiveLock2.vbp,v retrieving revision 1.7 retrieving revision 1.8 diff -u -d -r1.7 -r1.8 --- ActiveLock2.vbp 16 May 2004 18:37:38 -0000 1.7 +++ ActiveLock2.vbp 19 Jul 2004 12:06:58 -0000 1.8 @@ -32,7 +32,7 @@ VersionCompatible32="1" MajorVer=2 MinorVer=0 -RevisionVer=7 +RevisionVer=10 AutoIncrementVer=0 ServerSupportFiles=0 VersionCompanyName="The ActiveLock Software Group" Index: IActiveLock.cls =================================================================== RCS file: /cvsroot/activelock/activelock/src/IActiveLock.cls,v retrieving revision 1.7 retrieving revision 1.8 diff -u -d -r1.7 -r1.8 --- IActiveLock.cls 16 May 2004 18:37:38 -0000 1.7 +++ IActiveLock.cls 19 Jul 2004 12:06:58 -0000 1.8 @@ -233,6 +233,7 @@ ' Better to do it via property accessors (such as the AutoRegisterKeyPath property), and ' leave Init() with no parameters. ' 04.21.04 - th2tran - Added AutoRegisterKeyPath property +' 07.11.04 - th2tran - Fixed bad alsRegistry href in vbdox ' </pre> ' /////////////////////////////////////////////////////////////////////// @@ -345,7 +346,7 @@ ' @param sPath The path to be used for the specified KeyStoreType. ' e.g. If <a href="IActiveLock.LicStoreType.html">alsFile</a> is used for <a href="IActiveLock.Let.KeyStoreType.html">KeyStoreType</a>, ' then <code>Path</code> specifies the path to the license file. -' If <a href="IActiveLock.LicStoreType.html">alsRegistry</a> is used for <a href="IActiveLock.Let.KeyStoreType.htm">KeyStoreType</a>, +' If <a href="IActiveLock.LicStoreType.html">alsRegistry</a> is used, ' the Path specifies the Registry hive where license information is stored. Public Property Let KeyStorePath(ByVal sPath As String) Attribute KeyStorePath.VB_Description = "Specifies the path where the license store resides." Index: modActiveLock.bas =================================================================== RCS file: /cvsroot/activelock/activelock/src/modActiveLock.bas,v retrieving revision 1.3 retrieving revision 1.4 diff -u -d -r1.3 -r1.4 --- modActiveLock.bas 18 Apr 2004 01:50:46 -0000 1.3 +++ modActiveLock.bas 19 Jul 2004 12:07:06 -0000 1.4 @@ -66,6 +66,7 @@ ' in the forum and mailing list a while back. ' 08.02.03 - th2tran - VBdox'd this module. ' 04.17.04 - th2tran - Added FileExists() routine. +' 07.11.04 - th2tran - New routines for handling GMT date-time. ' </pre> ' /////////////////////////////////////////////////////////////////////// @@ -184,6 +185,50 @@ hwndProgbar As Long End Type +Type SYSTEMTIME + wYear As Integer + wMonth As Integer + wDayOfWeek As Integer + wDay As Integer + wHour As Integer + wMinute As Integer + wSecond As Integer + wMilliseconds As Integer +End Type + +Private Type TIME_ZONE_INFORMATION + bias As Long ' current offset to GMT + StandardName(1 To 64) As Byte ' unicode string + StandardDate As SYSTEMTIME + StandardBias As Long + DaylightName(1 To 64) As Byte + DaylightDate As SYSTEMTIME + DaylightBias As Long +End Type + +Public Enum TimeZoneReturn + TimeZoneCode = 0 + TimeZoneName = 1 + UTC_BaseOffset = 2 + UTC_Offset = 3 + DST_Active = 4 + DST_Offset = 5 +End Enum + +' ----------------- For Time Zone Retrieval ------------------ +Private Const TIME_ZONE_ID_UNKNOWN = 0 +Private Const TIME_ZONE_ID_STANDARD = 1 +Private Const TIME_ZONE_ID_INVALID = &HFFFFFFFF +Private Const TIME_ZONE_ID_DAYLIGHT = 2 + + +Private Declare Sub GetSystemTime Lib "kernel32" _ + (lpSystemTime As SYSTEMTIME) + +Private Declare Function GetTimeZoneInformation Lib "kernel32" _ + (lpTimeZoneInformation As TIME_ZONE_INFORMATION) As Long + + ' ActiveLock Encryption Key ' !!!WARNING!!! It is highly recommended that you change this key for your version of ActiveLock before deploying your app. Public Const ENCRYPT_KEY$ = "AAAAgEPRFzhQEF7S91vt2K6kOcEdDDe5BfwNiEL30/+ozTFHc7cZctB8NIlS++ZR//D3AjSMqScjh7xUF/gwvUgGCjiExjj1DF/XWFWnPOCfF8UxYAizCLZ9fdqxb1FRpI5NoW0xxUmvxGjmxKwazIW4P4XVi/+i1Bvh2qQ6ri3whcsNAAAAQQCyWGsbJKO28H2QLYH+enb7ehzwBThqfAeke/Gv1Te95yIAWme71I9aCTTlLsmtIYSk9rNrp3sh9ItD2Re67SE7AAAAQQCAookH1nws1gS2XP9cZTPaZEmFLwuxlSVsLQ5RWmd9cuxpgw5y2gIskbL4c+4oBuj0IDwKtnMrZq7UfV9I5VfVAAAAQQCEnyAuO0ahXH3KhAboop9+tCmRzZInTrDYdMy23xf3PLCLd777dL/Y2Y+zmaH1VO03m6iOog7WLiN4dCL7m+Im" ' RSA Private Key @@ -327,3 +372,76 @@ End Function +'' +' Retrieves the local time zone. +' @param returnType Type of time zone information being requested +' UTC_BaseOffset = UTC offset, not including DST <br> +' UTC_Offset = UTC offset, including DST if active <br> +' DST_Active = True if DST is currently active, otherwise false <br> +' DST_Offset = Offset value for DST (generally -60, if in US) +' @returns Return type varies depending on returnValue parameter. +Public Function LocalTimeZone(ByVal returnType As TimeZoneReturn) As Variant + Dim X As Long + Dim tzi As TIME_ZONE_INFORMATION + Dim strName As String + Dim bDST As Boolean + Dim rc& + rc = GetTimeZoneInformation(tzi) + Select Case rc + ' if not daylight assume standard + Case TIME_ZONE_ID_DAYLIGHT + strName = tzi.DaylightName ' convert to string + bDST = True + Case Else + strName = tzi.StandardName + End Select + + ' name terminates with null + X = InStr(strName, vbNullChar) + If X > 0 Then strName = Left$(strName, X - 1) + + If returnType = DST_Active Then + LocalTimeZone = bDST + End If + + If returnType = TimeZoneName Then + LocalTimeZone = strName + End If + + If returnType = TimeZoneCode Then + LocalTimeZone = Left(strName, 1) + X = InStr(1, strName, " ") + Do While X > 0 + LocalTimeZone = LocalTimeZone & Mid(strName, X + 1, 1) + X = InStr(X + 1, strName, " ") + Loop + LocalTimeZone = Trim(LocalTimeZone) + End If + + If returnType = UTC_BaseOffset Then + LocalTimeZone = tzi.bias + End If + + If returnType = DST_Offset Then + LocalTimeZone = tzi.DaylightBias + End If + + If returnType = UTC_Offset Then + If tzi.DaylightBias = -60 Then + LocalTimeZone = tzi.bias + Else + LocalTimeZone = -tzi.bias + End If + ' Account for Daylight Savings Time + If bDST Then LocalTimeZone = LocalTimeZone - 60 + End If +End Function + + +'' +' Converts a local date-time into UTC/GMT date-time +' +Public Function UTC(dt As Date) As Date + ' Returns current UTC date-time. + UTC = DateAdd("n", LocalTimeZone(UTC_Offset), dt) +End Function |
|
From: Thanh H. T. <th...@us...> - 2004-07-19 12:02:28
|
Update of /cvsroot/activelock/activelock/examples/example1 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14400 Modified Files: frmMain.frm modMain.bas Log Message: Batch commit for 2.0.10 Index: frmMain.frm =================================================================== RCS file: /cvsroot/activelock/activelock/examples/example1/frmMain.frm,v retrieving revision 1.8 retrieving revision 1.9 diff -u -d -r1.8 -r1.9 --- frmMain.frm 18 Apr 2004 01:55:10 -0000 1.8 +++ frmMain.frm 19 Jul 2004 12:02:13 -0000 1.9 @@ -1,19 +1,19 @@ VERSION 5.00 -Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX" +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 = 6615 - ClientLeft = 45 - ClientTop = 330 - ClientWidth = 8025 + ClientHeight = 6612 + ClientLeft = 48 + ClientTop = 336 + ClientWidth = 8028 Icon = "frmMain.frx":0000 LinkTopic = "Form1" MaxButton = 0 'False MinButton = 0 'False - ScaleHeight = 6615 - ScaleWidth = 8025 + ScaleHeight = 6612 + ScaleWidth = 8028 StartUpPosition = 3 'Windows Default Begin ComctlLib.StatusBar sbStatus Align = 2 'Align Bottom @@ -22,8 +22,8 @@ TabIndex = 0 Top = 6360 Width = 8025 - _ExtentX = 14155 - _ExtentY = 450 + _ExtentX = 14161 + _ExtentY = 445 Style = 1 SimpleText = "Ready" _Version = 327682 @@ -41,8 +41,8 @@ TabIndex = 12 Top = 0 Width = 7935 - _ExtentX = 13996 - _ExtentY = 11033 + _ExtentX = 13991 + _ExtentY = 11028 _Version = 393216 Tabs = 2 TabsPerRow = 2 @@ -76,12 +76,12 @@ Left = 0 Top = 0 Width = 7845 - _ExtentX = 13838 - _ExtentY = 661 + _ExtentX = 13843 + _ExtentY = 656 TickerScaleHeight= 21 TickerScaleWidth= 519 TickerFontBold = -1 'True - TickerFontSize = 11.25 + TickerFontSize = 11.4 TickerFlash = 0 'False TickerPlaySound = 0 'False TickerScrollX = 473 @@ -261,7 +261,7 @@ Begin VB.TextBox txtLibKeyIn BeginProperty Font Name = "Courier New" - Size = 8.25 + Size = 8.4 Charset = 0 Weight = 400 Underline = 0 'False @@ -417,7 +417,7 @@ Caption = "Disabled" BeginProperty Font Name = "MS Sans Serif" - Size = 8.25 + Size = 7.8 Charset = 0 Weight = 700 Underline = 0 'False @@ -513,6 +513,9 @@ ' 04.17.04 - th2tran - Added IActiveLock.Init() call--this is now required. ' - Set AutoRegisterKeyPath property (new in 2.0.5) to automatically ' register liberation file upon startup (if it exists). +' 07.11.04 - th2tran - Changed liberation file to testapp.all +' - Update txtUser upon successful Acquire() +' 07.19.04 - th2tran - Re-implemented cmdReqGen_Click() to use ActiveLock.InstallationCode() ' /////////////////////////////////////////////////////////////////////// ' / MODULE CODE BEGINS BELOW THIS LINE / ' /////////////////////////////////////////////////////////////////////// @@ -536,7 +539,7 @@ .SoftwareVersion = "1.0" .SoftwareCode = PUB_KEY .LockType = lockNone - .AutoRegisterKeyPath = App.Path & "\testapp.alb" + .AutoRegisterKeyPath = App.Path & "\testapp.all" End With ' Verify AL's authenticity @@ -584,6 +587,7 @@ txtRegStatus = "Registered" txtUsedDays = MyActiveLock.UsedDays txtExpiration = MyActiveLock.ExpirationDate + txtUser = MyActiveLock.RegisteredUser FunctionalitiesEnabled = True Exit Sub NotRegistered: @@ -621,14 +625,7 @@ ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub cmdReqGen_Click() ' Generate Request code to Lock - 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) - txtReqCodeGen = strReq2 + txtReqCodeGen = MyActiveLock.InstallationCode(txtUser) End Sub Private Sub cmdRegister_Click() Index: modMain.bas =================================================================== RCS file: /cvsroot/activelock/activelock/examples/example1/modMain.bas,v retrieving revision 1.10 retrieving revision 1.11 diff -u -d -r1.10 -r1.11 --- modMain.bas 18 Apr 2004 01:55:10 -0000 1.10 +++ modMain.bas 19 Jul 2004 12:02:14 -0000 1.11 @@ -332,7 +332,7 @@ ' Returns the expected CRC value of ActiveLock2.dll ' Private Property Get Value() As Long - Value = 171989 + 1285 ' 173274: compute it so that it can't be easily spotted via a Hex Editor + Value = 137031 + 2481 ' 139512: compute it so that it can't be easily spotted via a Hex Editor End Property '' |
|
From: SourceForge.net <no...@so...> - 2004-07-18 16:09:48
|
Task #101917 has been updated. Project: ActiveLock Subproject: ActiveLock Website Summary: Update copyright year Complete: 100% Status: Closed Authority : th2tran Assigned to: mcrute Description: Need to update the copyright year at bottom of each web page to say 2003-2004. I had updated the online version, but ocasionally I noticed that it got reverted back to just 2003. Follow-Ups: ------------------------------------------------------- Date: 2004-07-18 11:09 By: mcrute Comment: Done across all pages ------------------------------------------------------- For more info, visit: http://sourceforge.net/pm/task.php?func=detailtask&project_task_id=101917&group_id=70007&group_project_id=30873 |
|
From: SourceForge.net <no...@so...> - 2004-07-17 19:00:55
|
Task #101917 has been updated. Project: ActiveLock Subproject: ActiveLock Website Summary: Update copyright year Complete: 0% Status: Open Authority : th2tran Assigned to: mcrute Description: Need to update the copyright year at bottom of each web page to say 2003-2004. I had updated the online version, but ocasionally I noticed that it got reverted back to just 2003. ------------------------------------------------------- For more info, visit: http://sourceforge.net/pm/task.php?func=detailtask&project_task_id=101917&group_id=70007&group_project_id=30873 |
|
From: Peter Y. <py...@vb...> - 2004-07-12 23:52:10
|
>Pete, >If we were to rewrite AL in C++/ATL, would this in itself be better >protection (against SoftIce & SmartCheck) than using VB, do you think? No, I don't think so. If you're lazy with String compares, SmartCheck will be your worst nightmare. But if you do compares with Byte arrays instead, SmartCheck becomes useless to a cracker. SmartCheck will display basically all API calls along with the passed parameters and return value, so all calls into the VBRuntime are visible, like Chr$ for example, as are all calls to the Win32API, such as RegCreateKey. It's not VB-specific. All Win32 executables can be watched with SmartCheck. It just does a nice job of showing the extra VB stuff. SoftICE is an entirely different animal. It's a low-level debugger and definitely is just as effective against C++ generated executables as it is against VB generated ones, as it only looks at the compiled assembly language opcodes. SmartCheck can be defeated by avoiding calls into the VB Runtime when it matters most. Note that none of this matters except to the users of ActiveLock inside their own code. Being that ActiveLock itself is open-source, there's nothing to be learned by the use of SmartCheck, SoftICE, or any other debugger du jour. -Pete |
|
From: Thanh H. T. <th...@sy...> - 2004-07-12 22:16:32
|
-----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 Pete, If we were to rewrite AL in C++/ATL, would this in itself be better protection (against SoftIce & SmartCheck) than using VB, do you think? - -Thanh -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.2.4 (MingW32) iD8DBQFA8wzPF8rE9X/XrZIRAuX7AKC3BrcUVFDUJ3mtmAOnNC9pNApZ3QCcCI2r RVqnpsJwn2DdCaErn3VIzsM= =pLG8 -----END PGP SIGNATURE----- |
|
From: SourceForge.net <no...@so...> - 2004-07-11 22:06:43
|
Task #100754 has been updated. Project: ActiveLock Subproject: ActiveLock 2.0 General Summary: Create command-line (GUI-less) version of alugen.exe Complete: 100% Status: Open Authority : th2tran Assigned to: th2tran Description: Requested by our users.... Create a console executable version of alugen.exe so that the key generator functionality can be invoked via a command-line interface. Command-line argument syntax to be determined later. Follow-Ups: ------------------------------------------------------- Date: 2004-07-11 22:06 By: th2tran Comment: Will be in Beta 3. Yikes! Feature creep. ------------------------------------------------------- Date: 2004-07-02 06:41 By: th2tran Comment: Generally complete, but could use more error handling. Will be in beta 3. ------------------------------------------------------- Date: 2004-06-28 03:48 By: th2tran Comment: Began work on this. Will be called alugenc.exe ------------------------------------------------------- For more info, visit: http://sourceforge.net/pm/task.php?func=detailtask&project_task_id=100754&group_id=70007&group_project_id=29689 |
|
From: SourceForge.net <no...@so...> - 2004-07-11 22:05:23
|
Task #85537 has been updated. Project: ActiveLock Subproject: ActiveLock 2.0 General Summary: Fix bug 526385 Complete: 100% Status: Open Authority : th2tran Assigned to: th2tran Description: http://sourceforge.net/tracker/index.php?func=detail&aid=786272&group_id=70007&atid=526385 Follow-Ups: ------------------------------------------------------- Date: 2004-07-11 22:05 By: th2tran Comment: Done. Will be in Beta 3 ------------------------------------------------------- Date: 2004-07-11 17:25 By: th2tran Comment: Started looking into this. ------------------------------------------------------- Date: 2003-11-30 05:38 By: th2tran Comment: Moving to 2.0 general. Wasn't done for alpha 2. ------------------------------------------------------- For more info, visit: http://sourceforge.net/pm/task.php?func=detailtask&project_task_id=85537&group_id=70007&group_project_id=29689 |
|
From: SourceForge.net <no...@so...> - 2004-07-11 22:04:17
|
Task #101434 has been updated. Project: ActiveLock Subproject: ActiveLock 2.0 General Summary: alsRegistry in 2.0 Complete: 100% Status: Open Authority : th2tran Assigned to: th2tran Description: KeyStoreType = alsRegistry should raise a NotImplemented error in 2.0 since we haven't implemented it. Follow-Ups: ------------------------------------------------------- Date: 2004-07-11 22:04 By: th2tran Comment: Done. Will be in Beta 3. ------------------------------------------------------- For more info, visit: http://sourceforge.net/pm/task.php?func=detailtask&project_task_id=101434&group_id=70007&group_project_id=29689 |
|
From: SourceForge.net <no...@so...> - 2004-07-11 17:25:14
|
Task #85537 has been updated. Project: ActiveLock Subproject: ActiveLock 2.0 General Summary: Fix bug 526385 Complete: 10% Status: Open Authority : th2tran Assigned to: th2tran Description: http://sourceforge.net/tracker/index.php?func=detail&aid=786272&group_id=70007&atid=526385 Follow-Ups: ------------------------------------------------------- Date: 2004-07-11 17:25 By: th2tran Comment: Started looking into this. ------------------------------------------------------- Date: 2003-11-30 05:38 By: th2tran Comment: Moving to 2.0 general. Wasn't done for alpha 2. ------------------------------------------------------- For more info, visit: http://sourceforge.net/pm/task.php?func=detailtask&project_task_id=85537&group_id=70007&group_project_id=29689 |
3 messages has been excluded from this view by a project administrator.
