[ActiveLock-Development] CVS: activelock2/src ActiveLock2.vbp,1.10,1.11 modActiveLock.bas,1.7,1.8
Brought to you by:
ialkan
From: Thanh H. T. <th...@us...> - 2003-08-03 08:33:38
|
Update of /cvsroot/activelock/activelock2/src In directory sc8-pr-cvs1:/tmp/cvs-serv6874 Modified Files: ActiveLock2.vbp modActiveLock.bas Log Message: Removed BlowFish encryption class - not used. Index: ActiveLock2.vbp =================================================================== RCS file: /cvsroot/activelock/activelock2/src/ActiveLock2.vbp,v retrieving revision 1.10 retrieving revision 1.11 diff -u -d -r1.10 -r1.11 --- ActiveLock2.vbp 1 Aug 2003 06:13:27 -0000 1.10 +++ ActiveLock2.vbp 3 Aug 2003 08:33:35 -0000 1.11 @@ -7,7 +7,6 @@ Class=RegistryKeyStoreProvider; RegistryKeyStore.cls Class=ProductLicense; ProductLicense.cls Class=FileKeyStoreProvider; FileKeyStore.cls -Class=BlowFish; BlowFish.cls Module=modMACAddress; modMACAddress.bas Module=modMD5; modMd5.bas Module=modSHA1; modSha1.bas Index: modActiveLock.bas =================================================================== RCS file: /cvsroot/activelock/activelock2/src/modActiveLock.bas,v retrieving revision 1.7 retrieving revision 1.8 diff -u -d -r1.7 -r1.8 --- modActiveLock.bas 2 Aug 2003 07:16:03 -0000 1.7 +++ modActiveLock.bas 3 Aug 2003 08:33:35 -0000 1.8 @@ -113,8 +113,6 @@ hwndProgbar As Long End Type -Private Crypto As New BlowFish - ' 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 @@ -252,23 +250,6 @@ Hell: Close #hFile Err.Raise Err.Number, Err.Source, Err.Description, Err.HelpFile, Err.HelpContext -End Function - - - - -'' -' Encrypt a string using encryption key specified in this module -' -Public Function EncryptString(Text As String) As String - EncryptString = Crypto.EncryptString(Text, ENCRYPT_KEY) -End Function - -'' -' Decrypt a string using decryption key specified in this module -' -Public Function DecryptString(Text As String) As String - DecryptString = Crypto.DecryptString(Text, ENCRYPT_KEY) End Function Public Sub CryptoProgressUpdate(ByVal param As Long, ByVal action As Long, ByVal phase As Long, ByVal iprogress As Long) |