[ActiveLock-Development] CVS: alugen/lib alugen.dll,1.5,1.6 ALUGENLib.vbp,1.5,1.6 Generator.cls,1.5,
Brought to you by:
ialkan
Menu
▾
▴
[ActiveLock-Development] CVS: alugen/lib alugen.dll,1.5,1.6 ALUGENLib.vbp,1.5,1.6 Generator.cls,1.5,1.6 Globals.cls,1.2,1.3 IALUGenerator.cls,1.5,1.6 modALUGEN.bas,1.1,1.2 ProductInfo.cls,1.3,1.4
|
From: Thanh H. T. <th...@us...> - 2004-07-02 04:14:07
|
Update of /cvsroot/activelock/alugen/lib In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30405 Modified Files: alugen.dll ALUGENLib.vbp Generator.cls Globals.cls IALUGenerator.cls modALUGEN.bas ProductInfo.cls Log Message: Fixed API bug in IALUGenerator Updated copyright year Index: alugen.dll =================================================================== RCS file: /cvsroot/activelock/alugen/lib/alugen.dll,v retrieving revision 1.5 retrieving revision 1.6 diff -u -d -r1.5 -r1.6 Binary files /tmp/cvsYWFGfX and /tmp/cvsITAwqB differ Index: ALUGENLib.vbp =================================================================== RCS file: /cvsroot/activelock/alugen/lib/ALUGENLib.vbp,v retrieving revision 1.5 retrieving revision 1.6 diff -u -d -r1.5 -r1.6 --- ALUGENLib.vbp 16 May 2004 18:41:22 -0000 1.5 +++ ALUGENLib.vbp 2 Jul 2004 04:13:57 -0000 1.6 @@ -1,7 +1,7 @@ Type=OleDll -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 +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 Class=IALUGenerator; IALUGenerator.cls Class=Generator; Generator.cls Class=Globals; Globals.cls @@ -20,7 +20,7 @@ VersionCompatible32="1" MajorVer=2 MinorVer=0 -RevisionVer=7 +RevisionVer=8 AutoIncrementVer=0 ServerSupportFiles=0 VersionCompanyName="The ActiveLock Software Group" @@ -42,6 +42,7 @@ ThreadPerObject=0 MaxNumberOfThreads=1 ThreadingModel=1 +DebugStartupOption=0 [MS Transaction Server] AutoRefresh=1 Index: Generator.cls =================================================================== RCS file: /cvsroot/activelock/alugen/lib/Generator.cls,v retrieving revision 1.5 retrieving revision 1.6 diff -u -d -r1.5 -r1.6 --- Generator.cls 16 May 2004 18:41:22 -0000 1.5 +++ Generator.cls 2 Jul 2004 04:13:57 -0000 1.6 @@ -13,7 +13,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 @@ -67,10 +67,10 @@ ' - Dumped ActiveLockEventNotifier. Don't neeed it here. ' 11.02.03 - th2tran - Re-implemented IALUGenerator_GenKey() - interface changed ' 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) +' 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++ ' - ' </pre> ' /////////////////////////////////////////////////////////////////////// @@ -156,12 +156,13 @@ '@todo Remove the section from INI file End Sub -Private Property Let IALUGenerator_StoragePath(RHS As String) +Private Property Let IALUGenerator_StoragePath(ByVal RHS As String) MyIniFile.File = RHS End Property Private Function IALUGenerator_GenKey(Lic As ActiveLock2.ProductLicense, ByVal InstCode As String) As String ' Take request code and decrypt it. + Dim strReq As String strReq = ActiveLock2.Base64Decode(InstCode) ' strReq now contains the {LockCode + vbLf + User} string @@ -193,6 +194,7 @@ ' Encrypt Product license using the MAC strLic = Lic.ToString() & vbLf & strLock Debug.Print "strLic: " & vbCrLf & strLic + ' sign it Dim strSig As String: strSig = String(1024, 0) strSig = ActiveLock2.RSASign(ProdInfo.VCode, ProdInfo.GCode, strLic) @@ -230,8 +232,8 @@ Loop If Index <= 0 Then Exit Sub - ' lockcode is from beginning to Index-1 - strLock = Left(strReq, Index - 1) + ' lockcode is from beginning to Index-1 + strLock = Left(strReq, Index - 1) ' user name starts from Index+1 to the end strUser = Mid$(strReq, Index + 1) strUser = TrimNulls(strUser) Index: Globals.cls =================================================================== RCS file: /cvsroot/activelock/alugen/lib/Globals.cls,v retrieving revision 1.2 retrieving revision 1.3 diff -u -d -r1.2 -r1.3 --- Globals.cls 13 Oct 2003 05:43:43 -0000 1.2 +++ Globals.cls 2 Jul 2004 04:13:57 -0000 1.3 @@ -13,7 +13,7 @@ Attribute VB_Exposed = True '* 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 Index: IALUGenerator.cls =================================================================== RCS file: /cvsroot/activelock/alugen/lib/IALUGenerator.cls,v retrieving revision 1.5 retrieving revision 1.6 diff -u -d -r1.5 -r1.6 --- IALUGenerator.cls 3 Nov 2003 07:04:16 -0000 1.5 +++ IALUGenerator.cls 2 Jul 2004 04:13:57 -0000 1.6 @@ -13,7 +13,7 @@ Attribute VB_Exposed = True '* 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 @@ -72,6 +72,7 @@ ' GenKey(objActiveLock As IActiveLock, ByVal ReqCode As String, ExpireDate As String) As String ' to ' GenKey(Lic As ActiveLock2.ProductLicense, ByVal InstCode As String) As String +' 06.28.04 - th2tran - Added ByVal qualifier to IALUGENerator_StoragePath parameter for better compatibility /w VC++ ' </pre> ' /////////////////////////////////////////////////////////////////////// @@ -86,7 +87,7 @@ ' Specifies the path where information about the products is stored. ' @param strPath Path string. ' -Public Property Let StoragePath(strPath As String) +Public Property Let StoragePath(ByVal strPath As String) Attribute StoragePath.VB_Description = "Specifies the path where information about the products is stored." mstrProductFile = strPath mINIFile.File = strPath Index: modALUGEN.bas =================================================================== RCS file: /cvsroot/activelock/alugen/lib/modALUGEN.bas,v retrieving revision 1.1 retrieving revision 1.2 diff -u -d -r1.1 -r1.2 --- modALUGEN.bas 24 Aug 2003 18:06:36 -0000 1.1 +++ modALUGEN.bas 2 Jul 2004 04:13:57 -0000 1.2 @@ -1,7 +1,7 @@ Attribute VB_Name = "modALUGEN" '* 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 Index: ProductInfo.cls =================================================================== RCS file: /cvsroot/activelock/alugen/lib/ProductInfo.cls,v retrieving revision 1.3 retrieving revision 1.4 diff -u -d -r1.3 -r1.4 --- ProductInfo.cls 13 Oct 2003 05:43:43 -0000 1.3 +++ ProductInfo.cls 2 Jul 2004 04:13:57 -0000 1.4 @@ -13,7 +13,7 @@ Attribute VB_Exposed = True '* 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 |
