[ActiveLock-Development] CVS: activelock/src ActiveLock.cls,1.2,1.3

[Thanh H. T. <th...@us...>]

Update of /cvsroot/activelock/activelock/src
In directory sc8-pr-cvs1:/tmp/cvs-serv27250

Modified Files:
	ActiveLock.cls 
Log Message:
Minor change - new alcrypto.dll checksum

Index: ActiveLock.cls
===================================================================
RCS file: /cvsroot/activelock/activelock/src/ActiveLock.cls,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- ActiveLock.cls	22 Sep 2003 02:11:21 -0000	1.2
+++ ActiveLock.cls	5 Oct 2003 08:38:07 -0000	1.3
@@ -46,6 +46,10 @@
 ' This is an implementation of IActiveLock.  It is not public-creatable, and so must only
 ' be accessed via ActiveLock.NewInstance() method.
 '
+' NOTE: If you want to turn off dll-checksumming, add this compilation flag to the Project Properties (Make tab)
+'         AL_DEBUG = 1
+'
+'
 ' @author th...@us...
 ' @version 2.0.0
 ' @date 20030616
@@ -116,12 +120,13 @@
     GoTo Done
 #End If
     ' Checksum ALCrypto.dll
-    Const ALCRYPTO_MD5$ = "67874c0aabab26ec19f5a2cad84595ef"
+    Const ALCRYPTO_MD5$ = "d41d8cd98f00b204e9800998ecf8427e"
     Dim strdata As String, strMD5 As String
-    Call modActiveLock.ReadFile(App.path & "\ALCrypto.Dll", strdata)
+    Call modActiveLock.ReadFile(App.path & "\alcrypto.dll", strdata)
     strMD5 = modMD5.Hash(strdata) ' use our own MD5 hashing routine instead of ALCrypto's md5_hash() function.
+Debug.Print "ActiveLock Hash: " & strMD5
     If strMD5 <> ALCRYPTO_MD5 Then
-        Err.Raise ActiveLockErrCodeConstants.alerrFileTampered, "IActiveLock_Acquire", "ALCrypto.dll has been tampered."
+        Err.Raise ActiveLockErrCodeConstants.alerrFileTampered, "IActiveLock_Acquire", "alcrypto.dll has been tampered."
     End If
 Done:
     mfInit = True