activelock-development Mailing List for ActiveLock (Page 20)
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: Dan <da...@fl...> - 2003-08-01 20:51:16
|
A .icl is an Icon Library. .ico has problems if the more than one same =
size at the same color-depth is in the same file. Maybe I should make a =
dll instead.
----- Original Message -----=20
From: Thanh Hai Tran=20
To: act...@li...=20
Sent: Friday, August 01, 2003 11:53 AM
Subject: Re: [ActiveLock-Development] XP Icons
Dan,
I saw your commits for some .icl files. What are icls? Why not =
.ico?
----- Original Message -----=20
From: Dan=20
To: act...@li...=20
Sent: Friday, August 01, 2003 2:37 PM
Subject: [ActiveLock-Development] XP Icons
I put up some icons of ActiveLock2, but the libraries are huge =
because my program won't properly import png transparency, so I had to =
manually turn transparency on and off. This means that I had to put up 5 =
copies of each icon so that one exists for most background colors. Does =
anyone know of a good, free icon editor that'll import png =
transparencies? Or, if you own a program that will do that, I could just =
send the png's to you.
Thanks,
Dan |
|
From: Thanh H. T. <th...@sy...> - 2003-08-01 18:53:59
|
Dan,
I saw your commits for some .icl files. What are icls? Why not .ico?
----- Original Message -----=20
From: Dan=20
To: act...@li...=20
Sent: Friday, August 01, 2003 2:37 PM
Subject: [ActiveLock-Development] XP Icons
I put up some icons of ActiveLock2, but the libraries are huge because =
my program won't properly import png transparency, so I had to manually =
turn transparency on and off. This means that I had to put up 5 copies =
of each icon so that one exists for most background colors. Does anyone =
know of a good, free icon editor that'll import png transparencies? Or, =
if you own a program that will do that, I could just send the png's to =
you.
Thanks,
Dan |
|
From: Dan <da...@fl...> - 2003-08-01 18:35:27
|
I put up some icons of ActiveLock2, but the libraries are huge because =
my program won't properly import png transparency, so I had to manually =
turn transparency on and off. This means that I had to put up 5 copies =
of each icon so that one exists for most background colors. Does anyone =
know of a good, free icon editor that'll import png transparencies? Or, =
if you own a program that will do that, I could just send the png's to =
you.
Thanks,
Dan |
|
From: Dan <wiz...@us...> - 2003-08-01 18:31:00
|
Update of /cvsroot/activelock/activelock2/src/res
In directory sc8-pr-cvs1:/tmp/cvs-serv11731/src/res
Added Files:
Dll.icl Hole.icl No Hole.icl
Log Message:
I created some icons. They need a bit more work, but they're not too bad.
--- NEW FILE: Dll.icl ---
MZ
0
¨¦¦©©¦©©£§§¤§§¤¦¦¤§§¤¨¨¦©©§««ª°°©¯¯¥¬¬¨¯¯ª±±©°°¨¯¯¥¬¬§®®LSSAAA
$$$òòò
ççç
sss
"#$ $
##"
Ni7;iq! f jkf
ko eeo ku,,ed
ÂÂÂ
¹¹¹
\\\
"#$ $
##"
ko eeo ku,,ed
EEE
"#$ $
##"
ko eeo ku,,ed
\\\
...
aaa
"#$ $
##"
ko eeo ku,,ed
"#$ $
##"
ko eeo ku,,ed
¨¨¨ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿDDD
))ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
øøø
A
¨¨¨ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿDDD
))ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
A
¨¨¨ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿDDD
nnn
|||
jjj
ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¶¶¶
A
¨¨¨ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿDDD
aaa
[[[
UUU
A
¨¨¨ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿDDD
))ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
¦Æ{{
A
--- NEW FILE: Hole.icl ---
MZ
0
ÎÎÎ;x)r°0y´5º<ÅCÌHÏHÏFÎCÎAÐAÒ>Ñ7Ë`ÅÊÏÓ
X\acei_aaPQP
âÛâÿÿÿÚÚÚ}TZ^_flNPR
'p°¢»Ô
ÂWÆZÈ^ËaÍdÏfÐhÒi Òi ÒhÑhÑfÑeÑbÏ`Î]Ì[ËWÉTÇQÅOÄLÂJÁG¿E½D¼B~»A}º?|¹>{·=z¶<y¶<xµ;x´;w³9u²9u²9u±8t°8s¯7r6q5p¬5o«4n©4m¨2j¥1i¤/f¢+^Yy¢
Be;|»<|¹<}»<}»8zºA½ÆØê
$d (j§*o-u³.u²/t°1v±2y´3|·5º6¼9À:Ã<Å=Ç?É@ÊBËDÌEÍEÍFÍFÍFÌFÍEÌEÌDÌCËCËBËBÌAÌAÍAÍAÎAÏAÐAÑAÑAÑAÒAÒAÓ@Ó@Ó@Ó@Ó?Ó<Ï5Â&kªFv¨»ÄÎÍÍÍ
**+++,,,-,+9t¤=Ç<Å:
Ã;Â:À9À:À9À9À9¿7½6~¼5~¼4~¾2|¾.q²7dÎÏÏ
OÆSÍEgDIJMKDSSNWXTY[XZ\Z[][[][Y[YVYXORPCCAm³ÉîÈìÇìÈìÉíÊíÉíÊíÊîËîÊîËîÌïÌïÍðÍðÌðËïÊïÉïÈîÆî}Åî{ÄíyÃíwÂìvÂìxÃíyÃízÄízÄí|Åî~Æî|ÅîÈïÇïÇïÇïÇïÈï{ÅîwÃîuÁîqÀîi»ía·ì^´ê\°çV¥ÞFÉ<z¸Hv©ÎÎÎ
ÒRÒRÒPÐNÏLÎJÌIËGÊEÈDÇEÇCÆ@
Â?
Ä>}µ9g3Us4Vv8j:{·:~½:}»9|º9{¸9{¸8y¶7w´7v³7v³6v³6v²5t±4s°3r¯2q®0o®-h§)V££¤
``grkwt{£
®¯°¯°
©z¡m|_k}S\iNU^QU[bgov|rv~_abUWUXZX^`^ruv
È:Ç8Å7Ä5Ã3Â/z¼'e¥Iljjj
WÈ_ÎfÒl¤Öp§ØwÜ|²ß´á´â
¹ä¹ä
¸ä¶ã·ã¶â³á{°ßwÜtªÛp§Ùk£ÖgÔcÒ_ÐZÍWËTÉPÆMÄJÂIÂF¿D¾C½B¼@}º?|º>{¹=z¸=z·=y·<xµ;w´;v³:u²9t°9s¯8q7o«6m¨4k¥2h¢1f -`%R}
\Y[\[Y\ZSUSlml
ÿÿÀ
²+Ì-Í-Ë0Î1Ë0Â1»2|¶2x°3z²4|´6}¶6·9º;¼=¿>Á@ÃCÅEÈGÉJÌKÍMÏOÐPÑRÓSÓSÔTÔTÔSÔRÒQÑOÐNÏLÎJÌIÌHÊEÈDÇEÈCÈ?º=^|8<@20.-+*,*(-+*/9C7i;¿:~»8{¸9{¸8z·8xµ7v³6v³7w´6v³5t±5t±4s°2r¯0o®-h§,X
¶òÿ¡åÿÚûÒøxÄðk¸êbãX ÚRÕLÏHÊEÅDÃA¿?~¼?}»>{º=z¸<y·<x¶;w´:v³:t±9s¯7p«6n¨4j¤2e )ZJT`
ÿÿÿÿÿÿ
--- NEW FILE: No Hole.icl ---
MZ
0
ÎÎÎ;y®(r°0x´6º<ÅCÌHÏHÏFÎCÍBÏ@Ð>Ñ7Ë`ÅÊÏÓ
X\acei_aaQQQ
ãÜãÿÿÿÚÚÚ}T[__fmLOQ
(p±¡ºÔ
ÃWÆ[È^ÊaÍdÏfÐhÑi Òj¡Ói ÒhÑgÑeÐbÏ`Î]ÍZËWÉTÇQÅOÄLÂJÁH¿F¾D¼B»A}º?|¸>{·=z·=z¶;xµ;w´;w³9u²9u±8t°7s¯7s¯7r®6q5p¬5o«4m©3l§3k¦1h¤0g£+^Yy¢
Bd;{º<{¹<{¹;{¹8y¹A½ÆÙê
$c (j§*p®-u³.u²/t¯0v±2y´3|·5»7¼9À:Ã<Æ=Ç>È@ÊBËCÌDÍFÍFÍFÍFÍFÌEÌEÌEÌDÌCËCËBËAÌAÍAÍ@ÎAÏAÐAÐAÑBÒAÒAÓAÓAÔ@Ó@Ó@Ó>Ò<Ï4Á'l«Fv¨»ÄÎÍÍÍ
Æ>Æ>Æ=Æ<Å<Å;Å;Ã;Â9À9¿:À9À9À8¿7½5~¼5~»3}½2|¾.q³6dÎÏÏ
KÄRÎCgCIILKDSSNWXTZ[YZ\Z[][[][Y[ZVYXOQOCDAn³Ëï
ÉíÊíÊíËîÌïÌîÌîÌîÌïÌîÍïÍðÍïÌïÌïÌðÌðÊïÉïÈîÆî~Æî{ÄíyÃívÂíyÃíwÂíwÃíyÄí~Æî}Åî~Æï}ÅîÇï
ÉðÈïÇïÇð~Æï|ÅïxÃîtÁíq¿îi¼ía·ì^´ê\±çV¤ÝFÉ<z¸Gu¨ÎÎÎ
ÓSÒQÑPÐNÏLÍKÍJËGÊFÉDÇDÆBÄ@
Â?À?¿=¾=½<¼;¼;~¼:}»:}º9|¹9|¹9{¸8y¶8x´7w³7v³6v³6v³5t±4s°3r¯2q¯0o®-h§)W¢£¤
`_gqlwt|¤®®¯¯°®©z¡m|^j}T\jOU^QUZbgpv|rw~^abUWUXZX^`_ruv
Ç:Ç9Æ7Ä5Ã3Â0{¼'f¥Iljjj
XÉ_ÍeÒl¤Öo§Øw®Ü|±ß´áµâ
¹ä¹ä
¸ä·ã·ãµâ³á{°ßxÝs©Úp¦Øl£ÖgÔcÒ_ÏZÍWÊTÉQÇMÄKÃIÂFÀD¾C¾B¼@~»@}º>{¸>{¸=z·<y¶<xµ;w´:u²:u²:t°9r¯7q¬7oª5m¨4j¥3h¢1f¡.a%R}~
[Y[][Y[YRUSlml
ÿÿÀ
c£#t´)}¼,¾0Ã0Á0¿0}º1{¶2z´4}·6º7¼8¾:À<Â=Å?È@ÊAËCÌEÎFÏHÐHÐIÐJÐJÐJÐJÑJÑJÑIÑHÐGÏGÏFÏFÐEÐEÑDÐDÑCÐBÏAÎAÍ@Í@Í@Î?Î@Ï@Ï?Ï>Î?Ð?Ñ>Ð<Ï9Ë6Æ4Â2À(p±Ib|
ÉAÈ@Æ>Ä>Ã=Ã=Ã<
Ã<Ã;
Â;Â:À:¿9½9½8~»8~»8~»8~¼6|º6{¹5{¸3z¹2y¹/sµ$Z@FL
|
|
From: Dan <wiz...@us...> - 2003-08-01 18:23:35
|
Update of /cvsroot/activelock/activelock2/src/res In directory sc8-pr-cvs1:/tmp/cvs-serv11279/res Log Message: Directory /cvsroot/activelock/activelock2/src/res added to the repository |
|
From: Thanh H. T. <th...@us...> - 2003-08-01 06:15:23
|
Update of /cvsroot/activelock/activelock2/test
In directory sc8-pr-cvs1:/tmp/cvs-serv6210
Modified Files:
modMain.bas
Log Message:
Updated checksum.
Index: modMain.bas
===================================================================
RCS file: /cvsroot/activelock/activelock2/test/modMain.bas,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- modMain.bas 1 Aug 2003 02:43:30 -0000 1.5
+++ modMain.bas 1 Aug 2003 06:15:20 -0000 1.6
@@ -207,7 +207,7 @@
' that you generate your own set of keys to use before deploying your app.
Public Const PRIV_KEY$ = "AAAAgEPRFzhQEF7S91vt2K6kOcEdDDe5BfwNiEL30/+ozTFHc7cZctB8NIlS++ZR//D3AjSMqScjh7xUF/gwvUgGCjiExjj1DF/XWFWnPOCfF8UxYAizCLZ9fdqxb1FRpI5NoW0xxUmvxGjmxKwazIW4P4XVi/+i1Bvh2qQ6ri3whcsNAAAAQQCyWGsbJKO28H2QLYH+enb7ehzwBThqfAeke/Gv1Te95yIAWme71I9aCTTlLsmtIYSk9rNrp3sh9ItD2Re67SE7AAAAQQCAookH1nws1gS2XP9cZTPaZEmFLwuxlSVsLQ5RWmd9cuxpgw5y2gIskbL4c+4oBuj0IDwKtnMrZq7UfV9I5VfVAAAAQQCEnyAuO0ahXH3KhAboop9+tCmRzZInTrDYdMy23xf3PLCLd777dL/Y2Y+zmaH1VO03m6iOog7WLiN4dCL7m+Im"
Public Const PUB_KEY$ = "AAAAB3NzaC1yc2EAAAABJQAAAIBZnXD4IKfrBH25ekwLWQMs5mJuNH7D7U99EKFIsVhKQv17GHxKWvxHv/FwWhI1Rmd8TCiqk4Wmk7H1rh6xdbIVBwDj+RSeiXs8mmQX4/XvaWZx9BIQr5wODWnQCH/tj6Y6In2Xjc2J3B7LSjD60cWDBY/u+z9cSheTHLyhb16zFw=="
-Private Const AL_MD5$ = "c2a3ecbe6f04cbd8cc4bb2ff645c9c0e"
+Private Const AL_MD5$ = "f298c67dee092235a533899292721129"
Public Function Encrypt(strData As String) As String
Dim Key As RSAKey
|
|
From: Thanh H. T. <th...@us...> - 2003-08-01 06:13:30
|
Update of /cvsroot/activelock/activelock2/src
In directory sc8-pr-cvs1:/tmp/cvs-serv5916
Modified Files:
ActiveLock.cls Globals.cls ActiveLock2.dll ActiveLock2.vbp
Log Message:
Fixed problem found by Dan where it crashed on Acquire() if SoftwareCode has not been set.
Need to make sure we're properly initialized.
Index: ActiveLock.cls
===================================================================
RCS file: /cvsroot/activelock/activelock2/src/ActiveLock.cls,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- ActiveLock.cls 31 Jul 2003 15:49:54 -0000 1.9
+++ ActiveLock.cls 1 Aug 2003 06:13:27 -0000 1.10
@@ -85,10 +85,15 @@
Private mKeyStorePath As String
Private MyNotifier As New ActiveLockEventNotifier
Private MyGlobals As New Globals
+
' Registry hive used to store Active Lock settings.
Private Const AL_REGISTRY_HIVE$ = "Software\ActiveLock Software Group\ActiveLock2"
+' Transients
+Private mfInit As Boolean ' flag to indicate that ActiveLock has been initialized
+
+
'''
' IActiveLock Interface implementations
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
@@ -100,20 +105,21 @@
Private Sub IActiveLock_Init(Arg1 As Variant, ParamArray OtherArgs() As Variant)
' Checksum ALCrypto.dll
Const ALCRYPTO_MD5$ = "ac0dd6351905e6d688199146165170c4"
- Dim strData As String, strMD5 As String
- 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.
+ Dim strdata As String, strMD5 As String
+ 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.
If strMD5 <> ALCRYPTO_MD5 Then
Err.Raise ActiveLockErrCodeConstants.alerrFileTampered, "IActiveLock_Acquire", "ALCrypto.dll has been tampered."
End If
+ mfInit = True
End Sub
Private Sub IActiveLock_Acquire()
If mKeyStore Is Nothing Then
Err.Raise ActiveLockErrCodeConstants.alerrKeyStoreInvalid, "IActiveLock_Acquire", "Key Store Provider hasn't been initialized yet."
End If
+
Dim Lic As ProductLicense
-
Set Lic = mKeyStore.Retrieve(mSoftwareName)
If Lic Is Nothing Then
Err.Raise ActiveLockErrCodeConstants.alerrNoLicense, "IActiveLock_Acquire", "No valid license"
@@ -137,6 +143,11 @@
' Validate the License Key using RSA signature verification.
' License key contains the RSA signature of IActiveLock_LockCode.
Private Sub ValidateKey(Lic As ProductLicense)
+ ' make sure software code is set
+ If mSoftwareCode = "" Then
+ Err.Raise ActiveLockErrCodeConstants.alerrNotInitialized, "ActiveLock2", "Software Code has not been set."
+ End If
+
Dim Key As RSAKey
Dim strPubKey As String
strPubKey = mSoftwareCode
@@ -163,6 +174,11 @@
' Validate the entire license (including lastused, etc...)
'
Private Sub ValidateLic(Lic As ProductLicense)
+ ' make sure we're initialized.
+ If Not mfInit Then
+ Err.Raise ActiveLockErrCodeConstants.alerrNotInitialized, "ActiveLock2", "ActiveLock has not been initialized."
+ End If
+
' validate license key first
ValidateKey Lic
Dim strEncrypted As String, strHash As String
Index: Globals.cls
===================================================================
RCS file: /cvsroot/activelock/activelock2/src/Globals.cls,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- Globals.cls 31 Jul 2003 07:04:53 -0000 1.9
+++ Globals.cls 1 Aug 2003 06:13:27 -0000 1.10
@@ -96,6 +96,7 @@
alerrLockChanged = &H80040005
alerrKeyStoreInvalid = &H80040010
alerrFileTampered = &H80040011
+ alerrNotInitialized = &H80040012
End Enum
''
Index: ActiveLock2.dll
===================================================================
RCS file: /cvsroot/activelock/activelock2/src/ActiveLock2.dll,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
Binary files /tmp/cvswO8sTM and /tmp/cvsamVv3s differ
Index: ActiveLock2.vbp
===================================================================
RCS file: /cvsroot/activelock/activelock2/src/ActiveLock2.vbp,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- ActiveLock2.vbp 31 Jul 2003 15:49:54 -0000 1.9
+++ ActiveLock2.vbp 1 Aug 2003 06:13:27 -0000 1.10
@@ -1,5 +1,5 @@
Type=OleDll
-Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\system32\STDOLE2.TLB#OLE Automation
+Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#STDOLE2.TLB#OLE Automation
Class=ActiveLock; ActiveLock.cls
Class=IActiveLock; IActiveLock.cls
Class=Globals; Globals.cls
|
|
From: Thanh H. T. <th...@us...> - 2003-08-01 02:43:35
|
Update of /cvsroot/activelock/activelock2/test
In directory sc8-pr-cvs1:/tmp/cvs-serv10459
Modified Files:
modMain.bas
Log Message:
Updated checksum due to ActiveLock2.dll changes committed by Dan.
Index: modMain.bas
===================================================================
RCS file: /cvsroot/activelock/activelock2/test/modMain.bas,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- modMain.bas 31 Jul 2003 07:25:05 -0000 1.4
+++ modMain.bas 1 Aug 2003 02:43:30 -0000 1.5
@@ -207,7 +207,7 @@
' that you generate your own set of keys to use before deploying your app.
Public Const PRIV_KEY$ = "AAAAgEPRFzhQEF7S91vt2K6kOcEdDDe5BfwNiEL30/+ozTFHc7cZctB8NIlS++ZR//D3AjSMqScjh7xUF/gwvUgGCjiExjj1DF/XWFWnPOCfF8UxYAizCLZ9fdqxb1FRpI5NoW0xxUmvxGjmxKwazIW4P4XVi/+i1Bvh2qQ6ri3whcsNAAAAQQCyWGsbJKO28H2QLYH+enb7ehzwBThqfAeke/Gv1Te95yIAWme71I9aCTTlLsmtIYSk9rNrp3sh9ItD2Re67SE7AAAAQQCAookH1nws1gS2XP9cZTPaZEmFLwuxlSVsLQ5RWmd9cuxpgw5y2gIskbL4c+4oBuj0IDwKtnMrZq7UfV9I5VfVAAAAQQCEnyAuO0ahXH3KhAboop9+tCmRzZInTrDYdMy23xf3PLCLd777dL/Y2Y+zmaH1VO03m6iOog7WLiN4dCL7m+Im"
Public Const PUB_KEY$ = "AAAAB3NzaC1yc2EAAAABJQAAAIBZnXD4IKfrBH25ekwLWQMs5mJuNH7D7U99EKFIsVhKQv17GHxKWvxHv/FwWhI1Rmd8TCiqk4Wmk7H1rh6xdbIVBwDj+RSeiXs8mmQX4/XvaWZx9BIQr5wODWnQCH/tj6Y6In2Xjc2J3B7LSjD60cWDBY/u+z9cSheTHLyhb16zFw=="
-Private Const AL_MD5$ = "c00ab9e1927ef8df1f1040ce28ad5f5e"
+Private Const AL_MD5$ = "c2a3ecbe6f04cbd8cc4bb2ff645c9c0e"
Public Function Encrypt(strData As String) As String
Dim Key As RSAKey
|
|
From: Michael E. C. <mc...@so...> - 2003-08-01 02:26:42
|
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <meta http-equiv="Content-Type" content="text/html;charset=ISO-8859-1"> <title></title> </head> <body text="#000000" bgcolor="#ffffff"> Notice to everyone... I will not be recieving your emails. From this time to Saturday (or until I send another email from this account) I will <span style="text-decoration: underline;">only </span>be able to be reached at <a class="moz-txt-link-abbreviated" href="mailto:me...@ya...">me...@ya...</a>. This is due to DNS server changes. So please send any questions to that email address. Thanks.<br> <br> -Mike<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: Michael E. C. <mc...@so...> - 2003-08-01 01:57:30
|
<!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="#000000" bgcolor="#ffffff">
<small style="color: blue;"><span style="font-family: arial;">No, it is
using an Apache .htaccess file that is not sensitive to PHP sessions.</span><br
style="font-family: arial;">
<br style="font-family: arial;">
<span style="font-family: arial;">-Mike</span></small><br>
<br>
Thanh Hai Tran wrote:<br>
<blockquote type="cite"
cite="mid000d01c357b3$78dedda0$750...@ka...">
<title></title>
<meta content="text/html; " http-equiv="Content-Type">
<meta name="GENERATOR" content="MSHTML 6.00.2800.1170">
<style></style>
<div><font size="2">Mike,</font></div>
<div><font size="2">Why is it asking for my password? I'm already
logged into SF . Can't it used my existing session?</font></div>
<blockquote
style="border-left: 2px solid rgb(0, 0, 0); padding-right: 0px; padding-left: 5px; margin-left: 5px; margin-right: 0px;">
<div
style="font-family: arial; font-style: normal; font-variant: normal; font-weight: normal; font-size: 10pt; line-height: normal; font-size-adjust: none; font-stretch: normal;">-----
Original Message ----- </div>
<div
style="background: rgb(228, 228, 228) none repeat scroll 0%; -moz-background-clip: initial; -moz-background-origin: initial; -moz-background-inline-policy: initial; font-family: arial; font-style: normal; font-variant: normal; font-weight: normal; font-size: 10pt; line-height: normal; font-size-adjust: none; font-stretch: normal;"><b>From:</b>
<a href="mailto:mc...@so..."
title="mc...@so...">Michael E. Crute</a> </div>
<div
style="font-family: arial; font-style: normal; font-variant: normal; font-weight: normal; font-size: 10pt; line-height: normal; font-size-adjust: none; font-stretch: normal;"><b>To:</b>
<a href="mailto:act...@li..."
title="act...@li...">ActiveLock
Development Mailing List</a> </div>
<div
style="font-family: arial; font-style: normal; font-variant: normal; font-weight: normal; font-size: 10pt; line-height: normal; font-size-adjust: none; font-stretch: normal;"><b>Sent:</b>
Thursday, July 31, 2003 3:29 PM</div>
<div
style="font-family: arial; font-style: normal; font-variant: normal; font-weight: normal; font-size: 10pt; line-height: normal; font-size-adjust: none; font-stretch: normal;"><b>Subject:</b>
[ActiveLock-Development] New Developer Center</div>
<div><br>
</div>
<small><span style="color: blue; font-family: arial;">Hello All
Developers...</span><br style="color: blue; font-family: arial;">
<span style="color: blue; font-family: arial;">I have just created
and posted a developer center. The developer center will give you
access to software downloads (PUTTY, WinCVS, Tortoise, ect...)
documents such as coding standards, chat logs, and the ActiveLock
training library. Project admins will be able to post news flashes
there too. So please try to keep an eye on the developer center. The
URL is </span><a href="http://www.activelock.org/developers"
style="color: blue; font-family: arial;">http://www.activelock.org/developers</a><span
style="color: blue; font-family: arial;"> the username is 'developer'
and the password is 'developfreeware'. I am adding TortoiseCVS training
as we speak and it should be done this evening (I am still writing it).
Chat logs will be posted there too for those of you that miss our
Sunday meetings. If you have any questions or if you are having trouble
accessing the developer center email me. Thanks.<br>
<br>
-Mike<br>
</span></small>
<pre cols="72" class="moz-signature"><small>-- </small>
****************************************
Michael E. Crute
Senior Applications Developer
SoftGroup Development Corporation
<a href="mailto:mc...@so..."
class="moz-txt-link-abbreviated">mc...@so...</a></pre>
------------------------------------------------------- This SF.Net
email sponsored by: Free pre-built ASP.NET sites including Data
Reports, E-commerce, Portals, and Forums are available now. Download
today and enter to win an XBOX or Visual Studio .NET.
<a class="moz-txt-link-freetext" href="http://aspnet.click-url.com/go/psa00100003ave/direct;at.aspnet_072303_01/01">http://aspnet.click-url.com/go/psa00100003ave/direct;at.aspnet_072303_01/01</a>
_______________________________________________ Activelock-Development
mailing list <a class="moz-txt-link-abbreviated" href="mailto:Act...@li...">Act...@li...</a>
<a class="moz-txt-link-freetext" href="https://lists.sourceforge.net/lists/listinfo/activelock-development">https://lists.sourceforge.net/lists/listinfo/activelock-development</a></blockquote>
</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: Thanh H. T. <th...@sy...> - 2003-07-31 22:31:26
|
Mike, Why is it asking for my password? I'm already logged into SF . Can't = it used my existing session? ----- Original Message -----=20 From: Michael E. Crute=20 To: ActiveLock Development Mailing List=20 Sent: Thursday, July 31, 2003 3:29 PM Subject: [ActiveLock-Development] New Developer Center Hello All Developers... I have just created and posted a developer center. The developer = center will give you access to software downloads (PUTTY, WinCVS, = Tortoise, ect...) documents such as coding standards, chat logs, and the = ActiveLock training library. Project admins will be able to post news = flashes there too. So please try to keep an eye on the developer center. = The URL is http://www.activelock.org/developers the username is = 'developer' and the password is 'developfreeware'. I am adding = TortoiseCVS training as we speak and it should be done this evening (I = am still writing it). Chat logs will be posted there too for those of = you that miss our Sunday meetings. If you have any questions or if you = are having trouble accessing the developer center email me. Thanks. -Mike --=20 **************************************** Michael E. Crute Senior Applications Developer SoftGroup Development Corporation mc...@so...-------------------------------------------------= ------ This SF.Net email sponsored by: Free pre-built ASP.NET sites = including Data Reports, E-commerce, Portals, and Forums are available = now. Download today and enter to win an XBOX or Visual Studio .NET. = http://aspnet.click-url.com/go/psa00100003ave/direct;at.aspnet_072303_01/= 01 _______________________________________________ = Activelock-Development mailing list = Act...@li... = https://lists.sourceforge.net/lists/listinfo/activelock-development |
|
From: Michael E. C. <mc...@so...> - 2003-07-31 19:29:54
|
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <meta http-equiv="Content-Type" content="text/html;charset=ISO-8859-1"> <title></title> </head> <body text="#000000" bgcolor="#ffffff"> <small><span style="font-family: arial; color: blue;">Hello All Developers...</span><br style="font-family: arial; color: blue;"> <span style="font-family: arial; color: blue;">I have just created and posted a developer center. The developer center will give you access to software downloads (PUTTY, WinCVS, Tortoise, ect...) documents such as coding standards, chat logs, and the ActiveLock training library. Project admins will be able to post news flashes there too. So please try to keep an eye on the developer center. The URL is </span><a href="http://www.activelock.org/developers" style="font-family: arial; color: blue;">http://www.activelock.org/developers</a><span style="font-family: arial; color: blue;"> the username is 'developer' and the password is 'developfreeware'. I am adding TortoiseCVS training as we speak and it should be done this evening (I am still writing it). Chat logs will be posted there too for those of you that miss our Sunday meetings. If you have any questions or if you are having trouble accessing the developer center email me. Thanks.<br> <br> -Mike<br> </span></small> <pre cols="72" class="moz-signature"><small>-- </small> **************************************** 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: Thanh H. T. <th...@sy...> - 2003-07-31 17:33:18
|
Yes. This is a great idea, Wade.
----- Original Message -----=20
From: Wade Grimm=20
To: act...@li...=20
Sent: Friday, August 01, 2003 12:54 PM
Subject: Re: [ActiveLock-Development] Re: Calling all developers...
Thanks Mike. I'll drop ya a line when I get back.
Cheers!
----- Original Message -----=20
From: Michael E. Crute=20
To: act...@li...=20
Sent: Thursday, July 31, 2003 10:23 AM
Subject: Re: [ActiveLock-Development] Re: Calling all developers...
Wade...
I save them anyhow and I can post them on the website in a =
developers area for your later perusal. I will get you a URL in email =
sometime soon.
-Mike
Wade Grimm wrote:
Mike & Thanh
Would either of you be able to capture the discussion thread? I'm =
out of town tommorow mornign until the 11th. This way anyone who misses =
the meets can catch up... What are your thoughts? it's difficult for me =
to attend the evening meetings, being a single Dad I don't have much =
time until LATE evenings, (if then)...
Could we from this point forward capture all meeting threads and =
add them into the cvs or some other sort of archive?
I know MSN 6.0 allows your to save on exit, or you can just select =
all the text and copy paste.
Thx,
Cya in 10 Days!!!
Wade
----- Original Message -----=20
From: Michael E. Crute=20
To: act...@li...=20
Sent: Thursday, July 31, 2003 9:35 AM
Subject: Re: [ActiveLock-Development] Re: Calling all =
developers...
We meet every Sunday at 9PM including this Sunday. All I need is =
your MSN Messenger screen name then sign on MSN Messenger about 9pm =
Sunday and I will add you to the conversation when we start.
-Mike
AJcompany AJcompany wrote:
...that's very similar to ideas we've
throwing around in the forum and in the meetings [be
good if you could
join
us for some of them ;-)].
=20
Heh, ok, sorry about that, I'm usually asleep by 11
(pm) EST (I'm in central
though, as in asleep by 10)... School seems to take
care of the getting up
early... If we were to have a meeting soon though, I'm
not in school (yet)
so I might be able to... Just give me a date.
AJ
__________________________________
Do you Yahoo!?
Yahoo! SiteBuilder - Free, easy-to-use web site design software
http://sitebuilder.yahoo.com
-------------------------------------------------------
This SF.Net email sponsored by: Free pre-built ASP.NET sites including
Data Reports, E-commerce, Portals, and Forums are available now.
Download today and enter to win an XBOX or Visual Studio .NET.
http://aspnet.click-url.com/go/psa00100003ave/direct;at.aspnet_072303_01/=
01
_______________________________________________
Activelock-Development mailing list
Act...@li...
https://lists.sourceforge.net/lists/listinfo/activelock-development
=20
--=20
****************************************
Michael E. Crute
Senior Applications Developer
SoftGroup Development Corporation
mc...@so...-------------------------------------------------=
------ This SF.Net email sponsored by: Free pre-built ASP.NET sites =
including Data Reports, E-commerce, Portals, and Forums are available =
now. Download today and enter to win an XBOX or Visual Studio .NET. =
http://aspnet.click-url.com/go/psa00100003ave/direct;at.aspnet_072303_01/=
01 _______________________________________________ =
Activelock-Development mailing list =
Act...@li... =
https://lists.sourceforge.net/lists/listinfo/activelock-development=20
--=20
****************************************
Michael E. Crute
Senior Applications Developer
SoftGroup Development Corporation
mc...@so...-------------------------------------------------=
------ This SF.Net email sponsored by: Free pre-built ASP.NET sites =
including Data Reports, E-commerce, Portals, and Forums are available =
now. Download today and enter to win an XBOX or Visual Studio .NET. =
http://aspnet.click-url.com/go/psa00100003ave/direct;at.aspnet_072303_01/=
01 _______________________________________________ =
Activelock-Development mailing list =
Act...@li... =
https://lists.sourceforge.net/lists/listinfo/activelock-development |
|
From: Thanh H. T. <th...@sy...> - 2003-07-31 17:30:32
|
Also....
If 9PM EST Sunday is not a convenient time for everyone, let's have a =
vote on when is a better time slot.
Thanh.
----- Original Message -----=20
From: Wade Grimm=20
To: act...@li...=20
Sent: Friday, August 01, 2003 12:54 PM
Subject: Re: [ActiveLock-Development] Re: Calling all developers...
Thanks Mike. I'll drop ya a line when I get back.
Cheers!
----- Original Message -----=20
From: Michael E. Crute=20
To: act...@li...=20
Sent: Thursday, July 31, 2003 10:23 AM
Subject: Re: [ActiveLock-Development] Re: Calling all developers...
Wade...
I save them anyhow and I can post them on the website in a =
developers area for your later perusal. I will get you a URL in email =
sometime soon.
-Mike
Wade Grimm wrote:
Mike & Thanh
Would either of you be able to capture the discussion thread? I'm =
out of town tommorow mornign until the 11th. This way anyone who misses =
the meets can catch up... What are your thoughts? it's difficult for me =
to attend the evening meetings, being a single Dad I don't have much =
time until LATE evenings, (if then)...
Could we from this point forward capture all meeting threads and =
add them into the cvs or some other sort of archive?
I know MSN 6.0 allows your to save on exit, or you can just select =
all the text and copy paste.
Thx,
Cya in 10 Days!!!
Wade
----- Original Message -----=20
From: Michael E. Crute=20
To: act...@li...=20
Sent: Thursday, July 31, 2003 9:35 AM
Subject: Re: [ActiveLock-Development] Re: Calling all =
developers...
We meet every Sunday at 9PM including this Sunday. All I need is =
your MSN Messenger screen name then sign on MSN Messenger about 9pm =
Sunday and I will add you to the conversation when we start.
-Mike
AJcompany AJcompany wrote:
...that's very similar to ideas we've
throwing around in the forum and in the meetings [be
good if you could
join
us for some of them ;-)].
=20
Heh, ok, sorry about that, I'm usually asleep by 11
(pm) EST (I'm in central
though, as in asleep by 10)... School seems to take
care of the getting up
early... If we were to have a meeting soon though, I'm
not in school (yet)
so I might be able to... Just give me a date.
AJ
__________________________________
Do you Yahoo!?
Yahoo! SiteBuilder - Free, easy-to-use web site design software
http://sitebuilder.yahoo.com
-------------------------------------------------------
This SF.Net email sponsored by: Free pre-built ASP.NET sites including
Data Reports, E-commerce, Portals, and Forums are available now.
Download today and enter to win an XBOX or Visual Studio .NET.
http://aspnet.click-url.com/go/psa00100003ave/direct;at.aspnet_072303_01/=
01
_______________________________________________
Activelock-Development mailing list
Act...@li...
https://lists.sourceforge.net/lists/listinfo/activelock-development
=20
--=20
****************************************
Michael E. Crute
Senior Applications Developer
SoftGroup Development Corporation
mc...@so...-------------------------------------------------=
------ This SF.Net email sponsored by: Free pre-built ASP.NET sites =
including Data Reports, E-commerce, Portals, and Forums are available =
now. Download today and enter to win an XBOX or Visual Studio .NET. =
http://aspnet.click-url.com/go/psa00100003ave/direct;at.aspnet_072303_01/=
01 _______________________________________________ =
Activelock-Development mailing list =
Act...@li... =
https://lists.sourceforge.net/lists/listinfo/activelock-development=20
--=20
****************************************
Michael E. Crute
Senior Applications Developer
SoftGroup Development Corporation
mc...@so...-------------------------------------------------=
------ This SF.Net email sponsored by: Free pre-built ASP.NET sites =
including Data Reports, E-commerce, Portals, and Forums are available =
now. Download today and enter to win an XBOX or Visual Studio .NET. =
http://aspnet.click-url.com/go/psa00100003ave/direct;at.aspnet_072303_01/=
01 _______________________________________________ =
Activelock-Development mailing list =
Act...@li... =
https://lists.sourceforge.net/lists/listinfo/activelock-development |
|
From: Wade G. <wa...@te...> - 2003-07-31 17:03:17
|
Thanks Mike. I'll drop ya a line when I get back.
Cheers!
----- Original Message -----=20
From: Michael E. Crute=20
To: act...@li...=20
Sent: Thursday, July 31, 2003 10:23 AM
Subject: Re: [ActiveLock-Development] Re: Calling all developers...
Wade...
I save them anyhow and I can post them on the website in a developers =
area for your later perusal. I will get you a URL in email sometime =
soon.
-Mike
Wade Grimm wrote:
Mike & Thanh
Would either of you be able to capture the discussion thread? I'm =
out of town tommorow mornign until the 11th. This way anyone who misses =
the meets can catch up... What are your thoughts? it's difficult for me =
to attend the evening meetings, being a single Dad I don't have much =
time until LATE evenings, (if then)...
Could we from this point forward capture all meeting threads and add =
them into the cvs or some other sort of archive?
I know MSN 6.0 allows your to save on exit, or you can just select =
all the text and copy paste.
Thx,
Cya in 10 Days!!!
Wade
----- Original Message -----=20
From: Michael E. Crute=20
To: act...@li...=20
Sent: Thursday, July 31, 2003 9:35 AM
Subject: Re: [ActiveLock-Development] Re: Calling all =
developers...
We meet every Sunday at 9PM including this Sunday. All I need is =
your MSN Messenger screen name then sign on MSN Messenger about 9pm =
Sunday and I will add you to the conversation when we start.
-Mike
AJcompany AJcompany wrote:
...that's very similar to ideas we've
throwing around in the forum and in the meetings [be
good if you could
join
us for some of them ;-)].
=20
Heh, ok, sorry about that, I'm usually asleep by 11
(pm) EST (I'm in central
though, as in asleep by 10)... School seems to take
care of the getting up
early... If we were to have a meeting soon though, I'm
not in school (yet)
so I might be able to... Just give me a date.
AJ
__________________________________
Do you Yahoo!?
Yahoo! SiteBuilder - Free, easy-to-use web site design software
http://sitebuilder.yahoo.com
-------------------------------------------------------
This SF.Net email sponsored by: Free pre-built ASP.NET sites including
Data Reports, E-commerce, Portals, and Forums are available now.
Download today and enter to win an XBOX or Visual Studio .NET.
http://aspnet.click-url.com/go/psa00100003ave/direct;at.aspnet_072303_01/=
01
_______________________________________________
Activelock-Development mailing list
Act...@li...
https://lists.sourceforge.net/lists/listinfo/activelock-development
=20
--=20
****************************************
Michael E. Crute
Senior Applications Developer
SoftGroup Development Corporation
mc...@so...-------------------------------------------------=
------ This SF.Net email sponsored by: Free pre-built ASP.NET sites =
including Data Reports, E-commerce, Portals, and Forums are available =
now. Download today and enter to win an XBOX or Visual Studio .NET. =
http://aspnet.click-url.com/go/psa00100003ave/direct;at.aspnet_072303_01/=
01 _______________________________________________ =
Activelock-Development mailing list =
Act...@li... =
https://lists.sourceforge.net/lists/listinfo/activelock-development=20
--=20
****************************************
Michael E. Crute
Senior Applications Developer
SoftGroup Development Corporation
mc...@so...-------------------------------------------------=
------ This SF.Net email sponsored by: Free pre-built ASP.NET sites =
including Data Reports, E-commerce, Portals, and Forums are available =
now. Download today and enter to win an XBOX or Visual Studio .NET. =
http://aspnet.click-url.com/go/psa00100003ave/direct;at.aspnet_072303_01/=
01 _______________________________________________ =
Activelock-Development mailing list =
Act...@li... =
https://lists.sourceforge.net/lists/listinfo/activelock-development |
|
From: Michael E. C. <mc...@so...> - 2003-07-31 16:45:55
|
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html;charset=ISO-8859-1">
<title></title>
</head>
<body text="#000000" bgcolor="#ffffff">
<span style="font-family: arial; color: blue;">Wade...</span><br
style="font-family: arial; color: blue;">
<span style="font-family: arial; color: blue;">I save them anyhow and I
can post them on the website in a developers area for your later
perusal. I will get you a URL in email sometime soon.</span><br
style="font-family: arial; color: blue;">
<br style="font-family: arial; color: blue;">
<span style="font-family: arial; color: blue;">-Mike</span><br>
<br>
Wade Grimm wrote:<br>
<blockquote type="cite"
cite="mid00bc01c35847$fa721a50$6501a8c0@primevil">
<title></title>
<meta content="text/html;charset=ISO-8859-1" http-equiv="Content-Type">
<meta name="GENERATOR" content="MSHTML 6.00.2800.1170">
<style></style>
<div><font size="2" face="Arial">Mike & Thanh</font></div>
<div> </div>
<div><font size="2" face="Arial">Would either of you be able to
capture the discussion thread? I'm out of town tommorow mornign until
the 11th. This way anyone who misses the meets can catch up... What are
your thoughts? it's difficult for me to attend the evening meetings,
being a single Dad I don't have much time until LATE evenings, (if
then)...</font></div>
<div> </div>
<div><font size="2" face="Arial">Could we from this point forward
capture all meeting threads and add them into the cvs or some other
sort of archive?</font></div>
<div> </div>
<div><font size="2" face="Arial">I know MSN 6.0 allows your to save
on exit, or you can just select all the text and copy paste.</font></div>
<div> </div>
<div><font size="2" face="Arial">Thx,</font></div>
<div> </div>
<div><font size="2" face="Arial">Cya in 10 Days!!!</font></div>
<div> </div>
<div><font size="2" face="Arial">Wade</font></div>
<blockquote
style="border-left: 2px solid rgb(0, 0, 0); padding-right: 0px; padding-left: 5px; margin-left: 5px; margin-right: 0px;">
<div
style="font-family: arial; font-style: normal; font-variant: normal; font-weight: normal; font-size: 10pt; line-height: normal; font-size-adjust: none; font-stretch: normal;">-----
Original Message ----- </div>
<div
style="background: rgb(228, 228, 228) none repeat scroll 0%; -moz-background-clip: initial; -moz-background-origin: initial; -moz-background-inline-policy: initial; font-family: arial; font-style: normal; font-variant: normal; font-weight: normal; font-size: 10pt; line-height: normal; font-size-adjust: none; font-stretch: normal;"><b>From:</b>
<a href="mailto:mc...@so..."
title="mc...@so...">Michael E. Crute</a> </div>
<div
style="font-family: arial; font-style: normal; font-variant: normal; font-weight: normal; font-size: 10pt; line-height: normal; font-size-adjust: none; font-stretch: normal;"><b>To:</b>
<a href="mailto:act...@li..."
title="act...@li...">act...@li...</a>
</div>
<div
style="font-family: arial; font-style: normal; font-variant: normal; font-weight: normal; font-size: 10pt; line-height: normal; font-size-adjust: none; font-stretch: normal;"><b>Sent:</b>
Thursday, July 31, 2003 9:35 AM</div>
<div
style="font-family: arial; font-style: normal; font-variant: normal; font-weight: normal; font-size: 10pt; line-height: normal; font-size-adjust: none; font-stretch: normal;"><b>Subject:</b>
Re: [ActiveLock-Development] Re: Calling all developers...</div>
<div><br>
</div>
<span style="color: blue; font-family: arial;">We meet every Sunday
at 9PM including this Sunday. All I need is your MSN Messenger screen
name then sign on MSN Messenger about 9pm Sunday and I will add you to
the conversation when we start.</span><br
style="color: blue; font-family: arial;">
<br style="color: blue; font-family: arial;">
<span style="color: blue; font-family: arial;">-Mike</span><br>
<br>
AJcompany AJcompany wrote:<br>
<blockquote type="cite"
cite="mid...@we...">
<blockquote type="cite">
<pre wrap="">...that's very similar to ideas we've
throwing around in the forum and in the meetings [be
</pre>
</blockquote>
<pre wrap=""><!---->good if you could
join
</pre>
<blockquote type="cite">
<pre wrap="">us for some of them ;-)].
</pre>
</blockquote>
<pre wrap=""><!---->
Heh, ok, sorry about that, I'm usually asleep by 11
(pm) EST (I'm in central
though, as in asleep by 10)... School seems to take
care of the getting up
early... If we were to have a meeting soon though, I'm
not in school (yet)
so I might be able to... Just give me a date.
AJ
__________________________________
Do you Yahoo!?
Yahoo! SiteBuilder - Free, easy-to-use web site design software
<a href="http://sitebuilder.yahoo.com" class="moz-txt-link-freetext">http://sitebuilder.yahoo.com</a>
-------------------------------------------------------
This SF.Net email sponsored by: Free pre-built ASP.NET sites including
Data Reports, E-commerce, Portals, and Forums are available now.
Download today and enter to win an XBOX or Visual Studio .NET.
<a
href="http://aspnet.click-url.com/go/psa00100003ave/direct;at.aspnet_072303_01/01"
class="moz-txt-link-freetext">http://aspnet.click-url.com/go/psa00100003ave/direct;at.aspnet_072303_01/01</a>
_______________________________________________
Activelock-Development mailing list
<a href="mailto:Act...@li..."
class="moz-txt-link-abbreviated">Act...@li...</a>
<a
href="https://lists.sourceforge.net/lists/listinfo/activelock-development"
class="moz-txt-link-freetext">https://lists.sourceforge.net/lists/listinfo/activelock-development</a>
</pre>
</blockquote>
<br>
<pre cols="72" class="moz-signature">--
****************************************
Michael E. Crute
Senior Applications Developer
SoftGroup Development Corporation
<a href="mailto:mc...@so..."
class="moz-txt-link-abbreviated">mc...@so...</a></pre>
------------------------------------------------------- This SF.Net
email sponsored by: Free pre-built ASP.NET sites including Data
Reports, E-commerce, Portals, and Forums are available now. Download
today and enter to win an XBOX or Visual Studio .NET.
<a class="moz-txt-link-freetext" href="http://aspnet.click-url.com/go/psa00100003ave/direct;at.aspnet_072303_01/01">http://aspnet.click-url.com/go/psa00100003ave/direct;at.aspnet_072303_01/01</a>
_______________________________________________ Activelock-Development
mailing list <a class="moz-txt-link-abbreviated" href="mailto:Act...@li...">Act...@li...</a>
<a class="moz-txt-link-freetext" href="https://lists.sourceforge.net/lists/listinfo/activelock-development">https://lists.sourceforge.net/lists/listinfo/activelock-development</a> </blockquote>
</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: Wade G. <wa...@te...> - 2003-07-31 16:14:19
|
Mike & Thanh
Would either of you be able to capture the discussion thread? I'm out of =
town tommorow mornign until the 11th. This way anyone who misses the =
meets can catch up... What are your thoughts? it's difficult for me to =
attend the evening meetings, being a single Dad I don't have much time =
until LATE evenings, (if then)...
Could we from this point forward capture all meeting threads and add =
them into the cvs or some other sort of archive?
I know MSN 6.0 allows your to save on exit, or you can just select all =
the text and copy paste.
Thx,
Cya in 10 Days!!!
Wade
----- Original Message -----=20
From: Michael E. Crute=20
To: act...@li...=20
Sent: Thursday, July 31, 2003 9:35 AM
Subject: Re: [ActiveLock-Development] Re: Calling all developers...
We meet every Sunday at 9PM including this Sunday. All I need is your =
MSN Messenger screen name then sign on MSN Messenger about 9pm Sunday =
and I will add you to the conversation when we start.
-Mike
AJcompany AJcompany wrote:
...that's very similar to ideas we've
throwing around in the forum and in the meetings [be
good if you could
join
us for some of them ;-)].
=20
Heh, ok, sorry about that, I'm usually asleep by 11
(pm) EST (I'm in central
though, as in asleep by 10)... School seems to take
care of the getting up
early... If we were to have a meeting soon though, I'm
not in school (yet)
so I might be able to... Just give me a date.
AJ
__________________________________
Do you Yahoo!?
Yahoo! SiteBuilder - Free, easy-to-use web site design software
http://sitebuilder.yahoo.com
-------------------------------------------------------
This SF.Net email sponsored by: Free pre-built ASP.NET sites including
Data Reports, E-commerce, Portals, and Forums are available now.
Download today and enter to win an XBOX or Visual Studio .NET.
http://aspnet.click-url.com/go/psa00100003ave/direct;at.aspnet_072303_01/=
01
_______________________________________________
Activelock-Development mailing list
Act...@li...
https://lists.sourceforge.net/lists/listinfo/activelock-development
=20
--=20
****************************************
Michael E. Crute
Senior Applications Developer
SoftGroup Development Corporation
mc...@so...-------------------------------------------------=
------ This SF.Net email sponsored by: Free pre-built ASP.NET sites =
including Data Reports, E-commerce, Portals, and Forums are available =
now. Download today and enter to win an XBOX or Visual Studio .NET. =
http://aspnet.click-url.com/go/psa00100003ave/direct;at.aspnet_072303_01/=
01 _______________________________________________ =
Activelock-Development mailing list =
Act...@li... =
https://lists.sourceforge.net/lists/listinfo/activelock-development |
|
From: Michael E. C. <mc...@us...> - 2003-07-31 16:13:39
|
Update of /cvsroot/activelock/activelock2 In directory sc8-pr-cvs1:/tmp/cvs-serv14008 Modified Files: License.txt Log Message: Changed this file a little to show how to commit Index: License.txt =================================================================== RCS file: /cvsroot/activelock/activelock2/License.txt,v retrieving revision 1.3 retrieving revision 1.4 diff -u -d -r1.3 -r1.4 --- License.txt 10 Jul 2003 01:26:44 -0000 1.3 +++ License.txt 31 Jul 2003 15:52:23 -0000 1.4 @@ -1,4 +1,4 @@ -ActiveLock +activeLock Copyright 1998-2002 Nelson Ferraz Copyright 2003 The ActiveLock Software Group (ASG) All material is the property of the contributing authors. |
|
From: Dan <wiz...@us...> - 2003-07-31 15:53:54
|
Update of /cvsroot/activelock/activelock2/src
In directory sc8-pr-cvs1:/tmp/cvs-serv13564/src
Modified Files:
ActiveLock.cls ActiveLock2.dll ActiveLock2.vbp modHDSerial.bas
Log Message:
Added support for network drives to GetHDSerial(). If it fails, it tries the drive in %WINDIR%, and if that fails, it tries C:. If that fails, 0000-0000 is returned.
- Dan
Index: ActiveLock.cls
===================================================================
RCS file: /cvsroot/activelock/activelock2/src/ActiveLock.cls,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- ActiveLock.cls 31 Jul 2003 07:04:53 -0000 1.8
+++ ActiveLock.cls 31 Jul 2003 15:49:54 -0000 1.9
@@ -296,7 +296,7 @@
strLock = strLock & modComputerName.GetComputerName()
End If
If mLockTypes And lockHD Then
- strLock = strLock & modHDSerial.GetHDSerial("C:\")
+ strLock = strLock & modHDSerial.GetHDSerial()
End If
If mLockTypes And lockWindows Then
strLock = strLock & modWindowsSerial.GetWindowsSerial()
Index: ActiveLock2.dll
===================================================================
RCS file: /cvsroot/activelock/activelock2/src/ActiveLock2.dll,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
Binary files /tmp/cvsrPVx5b and /tmp/cvsK57XHe differ
Index: ActiveLock2.vbp
===================================================================
RCS file: /cvsroot/activelock/activelock2/src/ActiveLock2.vbp,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- ActiveLock2.vbp 29 Jul 2003 18:49:42 -0000 1.8
+++ ActiveLock2.vbp 31 Jul 2003 15:49:54 -0000 1.9
@@ -1,5 +1,5 @@
Type=OleDll
-Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\..\..\..\..\WINNT\System32\stdole2.tlb#OLE Automation
+Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\system32\STDOLE2.TLB#OLE Automation
Class=ActiveLock; ActiveLock.cls
Class=IActiveLock; IActiveLock.cls
Class=Globals; Globals.cls
Index: modHDSerial.bas
===================================================================
RCS file: /cvsroot/activelock/activelock2/src/modHDSerial.bas,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- modHDSerial.bas 29 Jul 2003 18:58:16 -0000 1.1
+++ modHDSerial.bas 31 Jul 2003 15:49:54 -0000 1.2
@@ -6,7 +6,7 @@
' / ActiveLock Software Group (ASG) /
' / /
' / Date Created: July 28, 2003 - Dan Sanders /
-' / Date Last Modified: /
+' / Date Last Modified: July 30, 2003 - Dan Sanders /
' / /
' / This software is released under the license detailed below and is /
' / subject to said license. Neither this header nor the licese below /
@@ -47,11 +47,19 @@
' (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
' OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
'
+' ///////////////////////////////////////////////////////////////////////
+' / MODULE TO DO LIST /
+' ///////////////////////////////////////////////////////////////////////
+'
+' [ ] Decide what to to about shared folders and RAID arrays
+'
'
' ///////////////////////////////////////////////////////////////////////
' / MODULE CHANGE LOG /
' ///////////////////////////////////////////////////////////////////////
'
+' 07.30.03 - wizzardme2000 - Added support for network shares
+'
' ///////////////////////////////////////////////////////////////////////
' / MODULE CODE BEGINS BELOW THIS LINE /
' ///////////////////////////////////////////////////////////////////////
@@ -61,23 +69,87 @@
lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, _
ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long
-Public Function GetHDSerial(strDriveLetter As String) As String
-' Stolen from bjones - ActiveLock 1.89.
+Declare Function GeneralWinDirApi Lib "kernel32" _
+ Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, _
+ ByVal nSize As Long) As Long
+
+Private Function HDSerial(path As String) As String
+'TODO: Decide what to to about shared folders and RAID arrays
'
' Function to return the serial number for a hard drive
-' Accepts:
-' strDriveLetter - a valid drive letter for the PC, in the format "C:\"
+' Currently works on local drives, mapped drives, and shared drives.
+'
' Returns:
-' The serial number for the drive, formatted as "xxxx-xxxx"
+' The serial number for the drive alock is on, formatted as "xxxx-xxxx"
Dim lngReturn As Long, lngDummy1 As Long, lngDummy2 As Long, lngSerial As Long
Dim strDummy1 As String, strDummy2 As String, strSerial As String
+ Dim strDriveLetter As String, lngFirstSlash As Long
+
+ strDriveLetter = path
+
+ '(Just in case... It's better to be safe than sorry.)
+ strDriveLetter = Replace(strDriveLetter, "/", "\")
+
+ 'Check the drive type
+ If Not Left(strDriveLetter, 1) = "\" Then
+ 'Good... The path is a local drive
+ strDriveLetter = Left(strDriveLetter, 3)
+ Else
+ 'It's a network drive
+ 'This will return 0000-0000 on shared folders or RAID arrays
+ 'Shared drives work fine
+ lngFirstSlash = InStr(3, strDriveLetter, "\")
+ strDriveLetter = Left(strDriveLetter, lngFirstSlash)
+ End If
+
+ 'Set up dimmies
strDummy1 = Space(260)
strDummy2 = Space(260)
+
+ 'Call the API function
lngReturn = apiGetVolumeInformation(strDriveLetter, strDummy1, Len(strDummy1), lngSerial, lngDummy1, lngDummy2, strDummy2, Len(strDummy2))
+
+ 'Format the serial
strSerial = Trim(Hex(lngSerial))
strSerial = String(8 - Len(strSerial), "0") & strSerial
strSerial = Left(strSerial, 4) & "-" & Right(strSerial, 4)
+ HDSerial = strSerial
+End Function
+
+Function GetHDSerial() As String
+' Function to return the serial number for a hard drive
+' Currently works on local drives, mapped drives, and shared drives.
+' Checks windir if it cant get a serial, then c:, then returns 0000-0000
+'
+' Returns:
+' The serial number for the drive alock is on, formatted as "xxxx-xxxx"
+'
+' I think that this is 99.999999897456284893% effective.
+
+ Dim strSerial
+ strSerial = HDSerial(App.path)
+
+ If strSerial = "0000-0000" Then
+ 'Calculate WINDIR drive if couldn't retrieve app.path serial
+ strSerial = HDSerial(WinDir())
+ End If
+
+ If strSerial = "0000-0000" Then
+ 'If it still can't get a serial, revert to c:.
+ 'If no c: is present (or c: is RAID), 0000-0000 is returned
+ strSerial = HDSerial("C:\")
+ End If
+
GetHDSerial = strSerial
+End Function
+
+Private Function WinDir() As String
+ Const FIX_LENGTH% = 4096
+ Dim Length As Integer
+ Dim Buffer As String * FIX_LENGTH
+
+ Length = GeneralWinDirApi(Buffer, FIX_LENGTH - 1)
+ WinDir = Left$(Buffer, Length)
End Function
|
|
From: Michael E. C. <mc...@so...> - 2003-07-31 15:48:27
|
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html;charset=ISO-8859-1">
<title></title>
</head>
<body text="#000000" bgcolor="#ffffff">
<span style="font-family: arial; color: blue;">We meet every Sunday at
9PM including this Sunday. All I need is your MSN Messenger screen name
then sign on MSN Messenger about 9pm Sunday and I will add you to the
conversation when we start.</span><br
style="font-family: arial; color: blue;">
<br style="font-family: arial; color: blue;">
<span style="font-family: arial; color: blue;">-Mike</span><br>
<br>
AJcompany AJcompany wrote:<br>
<blockquote type="cite"
cite="mid...@we...">
<blockquote type="cite">
<pre wrap="">...that's very similar to ideas we've
throwing around in the forum and in the meetings [be
</pre>
</blockquote>
<pre wrap=""><!---->good if you could
join
</pre>
<blockquote type="cite">
<pre wrap="">us for some of them ;-)].
</pre>
</blockquote>
<pre wrap=""><!---->
Heh, ok, sorry about that, I'm usually asleep by 11
(pm) EST (I'm in central
though, as in asleep by 10)... School seems to take
care of the getting up
early... If we were to have a meeting soon though, I'm
not in school (yet)
so I might be able to... Just give me a date.
AJ
__________________________________
Do you Yahoo!?
Yahoo! SiteBuilder - Free, easy-to-use web site design software
<a class="moz-txt-link-freetext" href="http://sitebuilder.yahoo.com">http://sitebuilder.yahoo.com</a>
-------------------------------------------------------
This SF.Net email sponsored by: Free pre-built ASP.NET sites including
Data Reports, E-commerce, Portals, and Forums are available now.
Download today and enter to win an XBOX or Visual Studio .NET.
<a class="moz-txt-link-freetext" href="http://aspnet.click-url.com/go/psa00100003ave/direct;at.aspnet_072303_01/01">http://aspnet.click-url.com/go/psa00100003ave/direct;at.aspnet_072303_01/01</a>
_______________________________________________
Activelock-Development mailing list
<a class="moz-txt-link-abbreviated" href="mailto:Act...@li...">Act...@li...</a>
<a class="moz-txt-link-freetext" href="https://lists.sourceforge.net/lists/listinfo/activelock-development">https://lists.sourceforge.net/lists/listinfo/activelock-development</a>
</pre>
</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-07-31 14:46:34
|
> ...that's very similar to ideas we've > throwing around in the forum and in the meetings [be good if you could join > us for some of them ;-)]. Heh, ok, sorry about that, I'm usually asleep by 11 (pm) EST (I'm in central though, as in asleep by 10)... School seems to take care of the getting up early... If we were to have a meeting soon though, I'm not in school (yet) so I might be able to... Just give me a date. AJ __________________________________ Do you Yahoo!? Yahoo! SiteBuilder - Free, easy-to-use web site design software http://sitebuilder.yahoo.com |
|
From: Thanh H. T. <th...@sy...> - 2003-07-31 08:17:22
|
Hi, > I've got WinCVS and TortiseCVS (I use TortiseCVS), but I'd like someone to tell me how to get it working so Well, I'll let Mr. Crute answer this since he's becoming pretty much a guru with CVS lately. Regarding your private key exchange idea, that's very similar to ideas we've throwing around in the forum and in the meetings [be good if you could join us for some of them ;-)]. We decided for first phase of AL2, that's like hitting a fly with a sledge hammer. We're not sure if it's necessary to encrypt the whole communication channel; it may be sufficient to encrypt only some sensitive data, the rest doesn't need to be encrypted. Have to wait for the outcome of the alpha testing rounds to see if our decision was the right one. We ARE using private keys for license encryption and authentication, however, as I'm sure you might have noticed from reading the CVS commit emails. > The part that makes this special is that the file in step 3 would be an > essential part of the program, such as printing, you > you can comment out the "make sure I'm registered" hooks, but you can't add in the print function > without re-writing the program. Yes, like the part of the program that saves the license key to a key store. But I think you're mixing 2 issues: 1) encrypted data communication between AL (the server) and the client application, and 2) encryption of the license key (analogous to your print function). I think these are two similar but not identical problems. Re: 1), I already commented above. Re: 2) I don't think you can ever get away from the "make sure I'm registered" hooks. At some point, you've got to do some sort of an if-test in order to check if the license is valid. I guess the trick is to make those if-tests as unobvious to the mediocre hackers out there as possible. As for your client-server idea, we may have to resort to that when we implement concurrent licensing. I've been scratching my head trying to find ways to do it without needing a server. May be you can tackle that piece? If we ever do it, we need to make sure that it's an optional component only (e.g. only required for concurrent licensing). If my customer wants to buy single licenses, it's overkill to make them dedicate another machine so that I can put my license server onto their environment to police their usage of my software. There's that sledge hammer thing again. Licensing is good (for the software vendors). But it must not be an inconvenience (for the end users), otherwise you will never sell your product. Regards, Thanh. ----- Original Message ----- From: "AJcompany AJcompany" <ajc...@ya...> To: <act...@li...> Sent: Wednesday, July 30, 2003 7:47 PM Subject: [ActiveLock-Development] Re: Calling all developers... > Ok, I was just (today) working with trying to get CVS > source for the files, > and I've got WinCVS and TortiseCVS (I use TortiseCVS), > but I'd like someone > to > tell me how to get it working so that I can get (and > put) files as my sf > user (ajcompany). I currently try to get the files via > anon, but that is (at > least the last sf update said) about a day slow. > > On another note, I had some idea for an > encryption/registration method > (process follows): > > 1. client generate private/public key pair > 2. client send public key (and some other info, > whatever is usually used, > possibly encoded in the key instead of randomness) to > server > 3. server encrypt a file with it's private key, and > then the client's public > key > 4. server send file to client > 5. client decrypts with it's private key and then with > the server's public > key (encoded in the client to begin with) > 6. client checks registration and saves the decrypted > file. > > The part that makes this special is that the file in > step 3 would be an > essential part of the program, such as printing, you > can comment out the > "make sure I'm registered" hooks, but you can't add in > the print function > without re-writing the program. An even better idea > would to store the > entire set of data the client got from the server and > then unpack that file > at runtime, and keep it in MEMORY ONLY so the file > couldn't be replaced. > (ok, there may be a flaw or so, feel free to point it > out) > > Comment at will, > AJ > > ----- Original Message ----- > From: "Thanh Hai Tran" <th...@sy...> > To: <act...@li...> > Sent: Tuesday, July 29, 2003 7:28 PM > Subject: [family] [ActiveLock-Development] Calling all > developers... > > > > Hi all, > > I know everyone is very busy with either work or > school. But since you're > > in this group, it means that you want to help. > > So rather than playing possum, here are some of the > ways that you can get > > involved: > > > > - Be active on the forum and on this mailing list. > Generate discussion > on > > ideas, features, philosophical beliefs, > whatever...but please.....none of > > those non-productive BS that was going on in > YahooGroup here please. > > > > - Check out the existing ActiveLock2 developement > codebase from CVS, play > > with it (there's a test app). > > See Mr. Mike Crute for assistance in setting up > CVS if you don't know > > how. > > Make suggestions on how the code/test app can be > improved. > > If you find any problem with the code, > > either report it on SourceForge bug tracker > > > http://sourceforge.net/tracker/?group_id=70007&atid=526385 > > or even better fix it yourself. > > > > - Check out the unassigned tasks on SF Task List > > > > > http://sourceforge.net/pm/task.php?group_project_id=25539&group_id=70007&fun > c=browse > > See if any task that you can work on. Either > talk to Mike Crute to be > > assigned, or re-assign it to yourself > > > > We're getting close to the Alpha 1 release and we > need all the help we can > > get. But if you are not willing or able to help, > then you shouldn't be in > > the development team. Prolonged inactivity in the > group will entitle you > to > > being kicked out of the project. > > I apoligize if I sound harsh, but we need productive > members in the team > in > > order for the project to be successful. > > > > Mike, please feel free to jump in and correct me if > I sound out of line. > > > > Regards, > > Thanh. > > > > > > > > > ------------------------------------------------------- > > This SF.Net email sponsored by: Free pre-built > ASP.NET sites including > > Data Reports, E-commerce, Portals, and Forums are > available now. > > Download today and enter to win an XBOX or Visual > Studio .NET. > > > http://aspnet.click-url.com/go/psa00100003ave/direct;at.aspnet_072303_01/01 > > _______________________________________________ > > Activelock-Development mailing list > > Act...@li... > > > https://lists.sourceforge.net/lists/listinfo/activelock-development > > > __________________________________ > Do you Yahoo!? > Yahoo! SiteBuilder - Free, easy-to-use web site design software > http://sitebuilder.yahoo.com > > > ------------------------------------------------------- > This SF.Net email sponsored by: Free pre-built ASP.NET sites including > Data Reports, E-commerce, Portals, and Forums are available now. > Download today and enter to win an XBOX or Visual Studio .NET. > http://aspnet.click-url.com/go/psa00100003ave/direct;at.aspnet_072303_01/01 > _______________________________________________ > Activelock-Development mailing list > Act...@li... > https://lists.sourceforge.net/lists/listinfo/activelock-development |
|
From: Thanh H. T. <th...@us...> - 2003-07-31 07:25:07
|
Update of /cvsroot/activelock/activelock2/test
In directory sc8-pr-cvs1:/tmp/cvs-serv16758
Modified Files:
ALTestApp.vbp frmMain.frm modMain.bas
Log Message:
Demonstrate how to authenticate ActiveLock2.dll by using MD5 checksums.
Index: ALTestApp.vbp
===================================================================
RCS file: /cvsroot/activelock/activelock2/test/ALTestApp.vbp,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- ALTestApp.vbp 28 Jul 2003 06:39:58 -0000 1.3
+++ ALTestApp.vbp 31 Jul 2003 07:25:04 -0000 1.4
@@ -5,12 +5,13 @@
Form=frmMain.frm
UserControl=atViewPort.ctl
Module=modMain; modMain.bas
-ResFile32="atDisplay.RES"
Module=modActiveLock; ..\src\modActiveLock.bas
+ResFile32="atDisplay.RES"
IconForm="frmMain"
Startup="frmMain"
HelpFile=""
Title="ALTestApp"
+ExeName32="ALTestApp.exe"
Command32=""
Name="ALTestApp"
HelpContextID="0"
Index: frmMain.frm
===================================================================
RCS file: /cvsroot/activelock/activelock2/test/frmMain.frm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- frmMain.frm 28 Jul 2003 06:39:58 -0000 1.4
+++ frmMain.frm 31 Jul 2003 07:25:05 -0000 1.5
@@ -27,23 +27,25 @@
TabCaption(0) = "Admin"
TabPicture(0) = "frmMain.frx":0000
Tab(0).ControlEnabled= 0 'False
- Tab(0).Control(0)= "Label1"
- Tab(0).Control(1)= "Label2"
- Tab(0).Control(2)= "Label3"
- Tab(0).Control(3)= "Label9"
- Tab(0).Control(4)= "Label10"
- Tab(0).Control(5)= "lblExpiry"
- Tab(0).Control(6)= "lblDays"
- Tab(0).Control(7)= "cmdSoftwareCodeGen"
+ Tab(0).Control(0)= "txtChecksum"
+ Tab(0).Control(1)= "fraKeyGen"
+ Tab(0).Control(2)= "txtDays"
+ Tab(0).Control(3)= "cmbLicType"
+ Tab(0).Control(4)= "txtSoftwareCodePub"
+ Tab(0).Control(5)= "txtSoftwareCodePriv"
+ Tab(0).Control(6)= "txtVersion"
+ Tab(0).Control(7)= "txtName"
Tab(0).Control(8)= "cmbLicClass"
- Tab(0).Control(9)= "txtName"
- Tab(0).Control(10)= "txtVersion"
- Tab(0).Control(11)= "txtSoftwareCodePriv"
- Tab(0).Control(12)= "txtSoftwareCodePub"
- Tab(0).Control(13)= "cmbLicType"
- Tab(0).Control(14)= "txtDays"
- Tab(0).Control(15)= "fraKeyGen"
- Tab(0).ControlCount= 16
+ Tab(0).Control(9)= "cmdSoftwareCodeGen"
+ Tab(0).Control(10)= "Label14"
+ Tab(0).Control(11)= "lblDays"
+ Tab(0).Control(12)= "lblExpiry"
+ Tab(0).Control(13)= "Label10"
+ Tab(0).Control(14)= "Label9"
+ Tab(0).Control(15)= "Label3"
+ Tab(0).Control(16)= "Label2"
+ Tab(0).Control(17)= "Label1"
+ Tab(0).ControlCount= 18
TabCaption(1) = "Registration"
TabPicture(1) = "frmMain.frx":001C
Tab(1).ControlEnabled= -1 'True
@@ -52,19 +54,28 @@
Tab(1).Control(1)= "fraRegStatus"
Tab(1).Control(1).Enabled= 0 'False
Tab(1).ControlCount= 2
- TabCaption(2) = "Test Functionality"
+ TabCaption(2) = "Sample App"
TabPicture(2) = "frmMain.frx":0038
Tab(2).ControlEnabled= 0 'False
- Tab(2).Control(0)= "fraTicker"
+ Tab(2).Control(0)= "Frame1"
Tab(2).Control(1)= "fraViewport"
- Tab(2).Control(2)= "Frame1"
+ Tab(2).Control(2)= "fraTicker"
Tab(2).ControlCount= 3
+ Begin VB.TextBox txtChecksum
+ BackColor = &H80000011&
+ Height = 285
+ Left = -73680
+ Locked = -1 'True
+ TabIndex = 55
+ Top = 600
+ Width = 5055
+ End
Begin VB.Frame fraKeyGen
Caption = "Key Generator"
Height = 2415
Left = -74880
TabIndex = 43
- Top = 2760
+ Top = 3360
Width = 7455
Begin VB.TextBox txtReqCodeIn
Height = 285
@@ -113,7 +124,7 @@
Locked = -1 'True
TabIndex = 40
Text = "30"
- Top = 1850
+ Top = 2445
Width = 1215
End
Begin VB.ComboBox cmbLicType
@@ -123,7 +134,7 @@
List = "frmMain.frx":0061
Style = 2 'Dropdown List
TabIndex = 3
- Top = 1560
+ Top = 2160
Width = 5055
End
Begin VB.TextBox txtSoftwareCodePub
@@ -132,7 +143,7 @@
Left = -71160
Locked = -1 'True
TabIndex = 34
- Top = 960
+ Top = 1560
Width = 2535
End
Begin VB.TextBox txtSoftwareCodePriv
@@ -141,7 +152,7 @@
Left = -73680
Locked = -1 'True
TabIndex = 35
- Top = 960
+ Top = 1560
Width = 2535
End
Begin VB.TextBox txtVersion
@@ -150,7 +161,7 @@
Left = -73680
Locked = -1 'True
TabIndex = 38
- Top = 720
+ Top = 1320
Width = 5055
End
Begin VB.TextBox txtName
@@ -159,12 +170,11 @@
Left = -73680
Locked = -1 'True
TabIndex = 36
- Top = 480
+ Top = 1080
Width = 5055
End
Begin VB.Frame Frame1
BorderStyle = 0 'None
- Enabled = 0 'False
Height = 2775
Left = -74895
TabIndex = 22
@@ -284,7 +294,7 @@
TickerFontSize = 11.25
TickerFlash = 0 'False
TickerPlaySound = 0 'False
- TickerScrollX = 480
+ TickerScrollX = 55
BalloonTipIcon = 0
BalloonTipText = "No Messages"
End
@@ -453,7 +463,7 @@
List = "frmMain.frx":0140
Style = 2 'Dropdown List
TabIndex = 4
- Top = 2130
+ Top = 2730
Width = 5055
End
Begin VB.CommandButton cmdSoftwareCodeGen
@@ -462,7 +472,15 @@
Height = 255
Left = -68520
TabIndex = 2
- Top = 960
+ Top = 1560
+ Width = 1215
+ End
+ Begin VB.Label Label14
+ Caption = "ActiveLock's MD5 Checksum:"
+ Height = 375
+ Left = -74880
+ TabIndex = 54
+ Top = 480
Width = 1215
End
Begin VB.Label lblDays
@@ -470,7 +488,7 @@
Height = 255
Left = -72360
TabIndex = 42
- Top = 1890
+ Top = 2490
Width = 1335
End
Begin VB.Label lblExpiry
@@ -478,7 +496,7 @@
Height = 255
Left = -74880
TabIndex = 41
- Top = 1850
+ Top = 2445
Width = 1335
End
Begin VB.Label Label10
@@ -486,7 +504,7 @@
Height = 255
Left = -74880
TabIndex = 39
- Top = 720
+ Top = 1320
Width = 1335
End
Begin VB.Label Label9
@@ -494,7 +512,7 @@
Height = 255
Left = -74880
TabIndex = 37
- Top = 480
+ Top = 1080
Width = 1335
End
Begin VB.Label Label3
@@ -502,7 +520,7 @@
Height = 255
Left = -74880
TabIndex = 6
- Top = 2130
+ Top = 2730
Width = 1335
End
Begin VB.Label Label2
@@ -510,7 +528,7 @@
Height = 255
Left = -74880
TabIndex = 5
- Top = 1560
+ Top = 2160
Width = 1335
End
Begin VB.Label Label1
@@ -518,7 +536,7 @@
Height = 255
Left = -74880
TabIndex = 1
- Top = 960
+ Top = 1560
Width = 1335
End
End
@@ -579,7 +597,7 @@
' / MODULE CHANGE LOG /
' ///////////////////////////////////////////////////////////////////////
'
-'
+' 07.31.03 - th2tran - Now performing checksum on ActiveLock2.dll.
'
' ///////////////////////////////////////////////////////////////////////
' / MODULE CODE BEGINS BELOW THIS LINE /
@@ -814,8 +832,12 @@
End Sub
Private Sub Form_Load()
+ FunctionalitiesEnabled = False ' Disable functionalities by default
' Initialize AL
Set MyActiveLock = ActiveLock2.NewInstance()
+ ' Verify AL's authenticity
+ txtChecksum = modMain.VerifyActiveLockdll(New ActiveLock2.Globals)
+
MyActiveLock.KeyStoreType = alsFile
MyActiveLock.KeyStorePath = App.Path & "\al.lic"
@@ -849,7 +871,6 @@
NotRegistered:
MsgBox Err.Number & ": " & Err.Description
txtRegStatus = "Not Registered"
- FunctionalitiesEnabled = False
End Sub
Private Property Let FunctionalitiesEnabled(flag As Boolean)
@@ -888,3 +909,4 @@
Private Sub txtVersion_Change()
MyActiveLock.SoftwareVersion = txtVersion
End Sub
+
Index: modMain.bas
===================================================================
RCS file: /cvsroot/activelock/activelock2/test/modMain.bas,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- modMain.bas 28 Jul 2003 06:39:58 -0000 1.3
+++ modMain.bas 31 Jul 2003 07:25:05 -0000 1.4
@@ -207,6 +207,7 @@
' that you generate your own set of keys to use before deploying your app.
Public Const PRIV_KEY$ = "AAAAgEPRFzhQEF7S91vt2K6kOcEdDDe5BfwNiEL30/+ozTFHc7cZctB8NIlS++ZR//D3AjSMqScjh7xUF/gwvUgGCjiExjj1DF/XWFWnPOCfF8UxYAizCLZ9fdqxb1FRpI5NoW0xxUmvxGjmxKwazIW4P4XVi/+i1Bvh2qQ6ri3whcsNAAAAQQCyWGsbJKO28H2QLYH+enb7ehzwBThqfAeke/Gv1Te95yIAWme71I9aCTTlLsmtIYSk9rNrp3sh9ItD2Re67SE7AAAAQQCAookH1nws1gS2XP9cZTPaZEmFLwuxlSVsLQ5RWmd9cuxpgw5y2gIskbL4c+4oBuj0IDwKtnMrZq7UfV9I5VfVAAAAQQCEnyAuO0ahXH3KhAboop9+tCmRzZInTrDYdMy23xf3PLCLd777dL/Y2Y+zmaH1VO03m6iOog7WLiN4dCL7m+Im"
Public Const PUB_KEY$ = "AAAAB3NzaC1yc2EAAAABJQAAAIBZnXD4IKfrBH25ekwLWQMs5mJuNH7D7U99EKFIsVhKQv17GHxKWvxHv/FwWhI1Rmd8TCiqk4Wmk7H1rh6xdbIVBwDj+RSeiXs8mmQX4/XvaWZx9BIQr5wODWnQCH/tj6Y6In2Xjc2J3B7LSjD60cWDBY/u+z9cSheTHLyhb16zFw=="
+Private Const AL_MD5$ = "c00ab9e1927ef8df1f1040ce28ad5f5e"
Public Function Encrypt(strData As String) As String
Dim Key As RSAKey
@@ -230,4 +231,18 @@
Dim strOut As String
strOut = Left$(strEnc, dLen)
Encrypt = strOut
+End Function
+
+''
+' Verifies the checksum of the typelib containing the specified object.
+' Returns the checksum.
+'
+Public Function VerifyActiveLockdll(obj As IUnknown) As String
+ Dim strMd5 As String
+ strMd5 = modActiveLock.MD5HashTypeLib(obj)
+ Debug.Print "Hash: " & strMd5
+ If strMd5 <> AL_MD5 Then
+ MsgBox "ActiveLock2.dll has been corrupted. If you were running a real application, it should terminate at this point."
+ End If
+ VerifyActiveLockdll = strMd5
End Function
|
|
From: Thanh H. T. <th...@us...> - 2003-07-31 07:04:56
|
Update of /cvsroot/activelock/activelock2/src
In directory sc8-pr-cvs1:/tmp/cvs-serv13676
Modified Files:
ActiveLock.cls Globals.cls modActiveLock.bas modMd5.bas
ActiveLock2.dll
Log Message:
Implemented Task 82242 - Checksumming the DLL to prevent cracking.
IActiveLock_Init() to check ALCrypto.dll.
As for ActiveLock2.dll, since this is an operation that need to be perform from
the client application's side, all we can do is add some helper routines that they
can use to do this. See Test App for a demo on how they are used.
Index: ActiveLock.cls
===================================================================
RCS file: /cvsroot/activelock/activelock2/src/ActiveLock.cls,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- ActiveLock.cls 29 Jul 2003 18:49:42 -0000 1.7
+++ ActiveLock.cls 31 Jul 2003 07:04:53 -0000 1.8
@@ -55,9 +55,9 @@
' / MODULE TO DO LIST /
' ///////////////////////////////////////////////////////////////////////
'
-' [ ] IActiveLock_Acquire: Check if license has not expired
' [ ] Implement IActiveLock_Release
' [ ] Implement IActiveLock_Transfer
+'
' ///////////////////////////////////////////////////////////////////////
' / MODULE CHANGE LOG /
' ///////////////////////////////////////////////////////////////////////
@@ -65,7 +65,7 @@
' 07.07.03 - mcrute - Updated the header comments for this file.
' 07.28.03 - th2tran - Using RSA signature for license key.
' 07.28.03 - wizzardme2000 - Implemented lockComp, lockHD, and lockWindows
-'
+' 07.31.03 - th2tran - Perform checksum on ALCrypto.dll on Init()
' ///////////////////////////////////////////////////////////////////////
' / MODULE CODE BEGINS BELOW THIS LINE /
' ///////////////////////////////////////////////////////////////////////
@@ -98,7 +98,14 @@
End Property
Private Sub IActiveLock_Init(Arg1 As Variant, ParamArray OtherArgs() As Variant)
- ' Do nothing. No extra initialization needed for now.
+ ' Checksum ALCrypto.dll
+ Const ALCRYPTO_MD5$ = "ac0dd6351905e6d688199146165170c4"
+ Dim strData As String, strMD5 As String
+ 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.
+ If strMD5 <> ALCRYPTO_MD5 Then
+ Err.Raise ActiveLockErrCodeConstants.alerrFileTampered, "IActiveLock_Acquire", "ALCrypto.dll has been tampered."
+ End If
End Sub
Private Sub IActiveLock_Acquire()
@@ -106,7 +113,7 @@
Err.Raise ActiveLockErrCodeConstants.alerrKeyStoreInvalid, "IActiveLock_Acquire", "Key Store Provider hasn't been initialized yet."
End If
Dim Lic As ProductLicense
-
+
Set Lic = mKeyStore.Retrieve(mSoftwareName)
If Lic Is Nothing Then
Err.Raise ActiveLockErrCodeConstants.alerrNoLicense, "IActiveLock_Acquire", "No valid license"
@@ -281,7 +288,7 @@
Private Function IActiveLock_LockCode(Optional Lic As ProductLicense = Nothing) As String
Dim strLock As String
-
+
If (mLockTypes And lockMAC) = lockMAC Then
strLock = strLock & modMACAddress.GetMACAddress()
End If
Index: Globals.cls
===================================================================
RCS file: /cvsroot/activelock/activelock2/src/Globals.cls,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- Globals.cls 29 Jul 2003 18:49:42 -0000 1.8
+++ Globals.cls 31 Jul 2003 07:04:53 -0000 1.9
@@ -59,10 +59,11 @@
' / MODULE CHANGE LOG /
' ///////////////////////////////////////////////////////////////////////
'
-' 07.07.03 - mcrute - Updated the header comments for this file.
-' 07.21.03 - th2tran - Added ActiveLockErrCodeConstants to contain
-' a list of error code constants raised by ActiveLock.
+' 07.07.03 - mcrute - Updated the header comments for this file.
+' 07.21.03 - th2tran - Added ActiveLockErrCodeConstants to contain
+' a list of error code constants raised by ActiveLock.
' 07.28.03 - wizzardme2000 - Implemented lockComp, lockHD, and lockWindows
+' 07.31.03 - th2tran - Added alerrFileTampered
'
' ///////////////////////////////////////////////////////////////////////
' / MODULE CODE BEGINS BELOW THIS LINE /
@@ -94,6 +95,7 @@
alerrLicenseTampered = &H80040004
alerrLockChanged = &H80040005
alerrKeyStoreInvalid = &H80040010
+ alerrFileTampered = &H80040011
End Enum
''
@@ -226,3 +228,4 @@
rsa_freekey Key
RSAVerify = rc
End Function
+
Index: modActiveLock.bas
===================================================================
RCS file: /cvsroot/activelock/activelock2/src/modActiveLock.bas,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- modActiveLock.bas 28 Jul 2003 06:35:30 -0000 1.5
+++ modActiveLock.bas 31 Jul 2003 07:04:53 -0000 1.6
@@ -49,6 +49,7 @@
' ///////////////////////////////////////////////////////////////////////
'
' 07.07.03 - mcrute - Updated the header comments for this file.
+' 07.30.03 - th2tran - New routines to do MD5 hashes of TypeLibs.
'
'
' ///////////////////////////////////////////////////////////////////////
@@ -85,6 +86,9 @@
Public Declare Function rsa_decrypt Lib "ALCrypto" (ByVal CryptType As Long, ByVal data As String, dLen As Long, ptrKey As RSAKey) As Long
Public Declare Function rsa_sign Lib "ALCrypto" (ByRef ptrKey As RSAKey, ByVal data As String, ByVal dLen As Long, ByVal sig As String, ByRef sLen As Long) As Long
Public Declare Function rsa_verifysig Lib "ALCrypto" (ByRef ptrKey As RSAKey, ByVal sig As String, ByVal sLen As Long, ByVal data As String, ByVal dLen As Long) As Long
+
+Public Declare Function md5_hash Lib "ALCrypto" (ByVal inData As String, ByVal nDataLen As Long, ByVal outData As String) As Long
+
Type PhaseType
exponential As Byte
startpoint As Byte
@@ -108,9 +112,9 @@
Private Crypto As New BlowFish
-' ActiveLock Data Encryption Key
+' 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$ = "MGFJzuX2wGiuXAmOWguXQVeTrnDFRm0SUEPgda1feCI="
+Public Const ENCRYPT_KEY$ = "AAAAgEPRFzhQEF7S91vt2K6kOcEdDDe5BfwNiEL30/+ozTFHc7cZctB8NIlS++ZR//D3AjSMqScjh7xUF/gwvUgGCjiExjj1DF/XWFWnPOCfF8UxYAizCLZ9fdqxb1FRpI5NoW0xxUmvxGjmxKwazIW4P4XVi/+i1Bvh2qQ6ri3whcsNAAAAQQCyWGsbJKO28H2QLYH+enb7ehzwBThqfAeke/Gv1Te95yIAWme71I9aCTTlLsmtIYSk9rNrp3sh9ItD2Re67SE7AAAAQQCAookH1nws1gS2XP9cZTPaZEmFLwuxlSVsLQ5RWmd9cuxpgw5y2gIskbL4c+4oBuj0IDwKtnMrZq7UfV9I5VfVAAAAQQCEnyAuO0ahXH3KhAboop9+tCmRzZInTrDYdMy23xf3PLCLd777dL/Y2Y+zmaH1VO03m6iOog7WLiN4dCL7m+Im" ' RSA Private Key
Public Const MAGICNUMBER_YES& = &HEFCDAB89
Public Const MAGICNUMBER_NO& = &H98BADCFE
@@ -123,6 +127,8 @@
Private fInit As Boolean ' flag to indicate that module initialization has been done
Private Declare Sub CopyMem Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
+Private Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
+
Public Sub Init()
If fInit Then Exit Sub
@@ -220,6 +226,32 @@
End If
End Function
+''
+' Reads a binary file into the sData buffer.
+' Returns the number of bytes read.
+'
+Public Function ReadFile(ByVal sPath As String, ByRef sData As String) As Long
+ Dim hFile As Integer
+ ' obtain next free file handle
+ hFile = FreeFile
+ ' read file content
+ Open sPath For Binary Access Read As #hFile
+ On Error GoTo Hell
+ Debug.Print "File len: " & LOF(hFile)
+ ' allocate enough memory to hold the data
+ sData = String(LOF(hFile), 0)
+ ' read from file
+ Get hFile, , sData
+ Debug.Print "Bytes read: " & Len(sData)
+ Close #hFile
+ ReadFile = Len(sData)
+ Exit Function
+Hell:
+ Close #hFile
+ Err.Raise Err.Number, Err.Source, Err.Description, Err.HelpFile, Err.HelpContext
+End Function
+
+
''
@@ -240,4 +272,45 @@
Debug.Print "Progress Update received " & param & ", action: " & action & ", iprogress: " & iprogress
End Sub
+''
+' Computes an MD5 hash of the type library containing the object.
+'
+Public Function MD5HashTypeLib(obj As IUnknown) As String
+ ' Retrieve DLL Path of self
+ ' 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
+ strDllPath = ti.Parent.ContainingFile
+ MD5HashTypeLib = MD5HashFile(strDllPath)
+End Function
+
+''
+' Computes an MD5 hash of the specified file.
+'
+Public Function MD5HashFile(ByVal strPath As String) As String
+Debug.Print "Hashing file " & strPath
+Debug.Print "File Date: " & FileDateTime(strPath)
+ ' read and hash the content
+ Dim sData As String, nFileLen
+ nFileLen = ReadFile(strPath, sData)
+ Dim sHash As String: sHash = String(32, 0)
+ ' hash it
+ md5_hash sData, nFileLen, sHash
+ MD5HashFile = sHash
+End Function
+
+''
+' Check if we're running inside the VB6 IDE
+Private Function IsRunningInIde() As Boolean
+ Dim strFileName As String
+ Dim lngCount As Long
+
+10 strFileName = String(255, 0)
+20 lngCount = GetModuleFileName(App.hInstance, strFileName, 255)
+30 strFileName = Left(strFileName, lngCount)
+40 IsRunningInIde = UCase(Right(strFileName, 7)) = "VB6.EXE"
+End Function
Index: modMd5.bas
===================================================================
RCS file: /cvsroot/activelock/activelock2/src/modMd5.bas,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- modMd5.bas 8 Jul 2003 03:26:44 -0000 1.3
+++ modMd5.bas 31 Jul 2003 07:04:53 -0000 1.4
@@ -10,6 +10,20 @@
' ///////////////////////////////////////////////////////////////////////
'
'
+'* ///////////////////////////////////////////////////////////////////////
+' / MODULE TO DO LIST /
+' ///////////////////////////////////////////////////////////////////////
+'
+' [ ] Nothing to do :)
+'
+' ///////////////////////////////////////////////////////////////////////
+' / MODULE CHANGE LOG /
+' ///////////////////////////////////////////////////////////////////////
+'
+' 07.07.03 - mcrute - Updated the header comments for this file.
+' 07.31.03 - th2tran - Changed Integer defs to Long to handle large data.
+'
+'
' ///////////////////////////////////////////////////////////////////////
' / MODULE CODE BEGINS BELOW THIS LINE /
' ///////////////////////////////////////////////////////////////////////
@@ -43,46 +57,46 @@
Private Function MD5Round(strRound As String, a As Long, b As Long, c As Long, d As Long, X As Long, s As Long, ac As Long) As Long
Select Case strRound
-
+
Case Is = "FF"
a = MD5LongAdd4(a, (b And c) Or (Not (b) And d), X, ac)
a = MD5Rotate(a, s)
a = MD5LongAdd(a, b)
-
+
Case Is = "GG"
a = MD5LongAdd4(a, (b And d) Or (c And Not (d)), X, ac)
a = MD5Rotate(a, s)
a = MD5LongAdd(a, b)
-
+
Case Is = "HH"
a = MD5LongAdd4(a, b Xor c Xor d, X, ac)
a = MD5Rotate(a, s)
a = MD5LongAdd(a, b)
-
+
Case Is = "II"
a = MD5LongAdd4(a, c Xor (b Or Not (d)), X, ac)
a = MD5Rotate(a, s)
a = MD5LongAdd(a, b)
-
+
End Select
-
+
End Function
Private Function MD5Rotate(lngValue As Long, lngBits As Long) As Long
-
+
Dim lngSign As Long
Dim lngI As Long
-
+
lngBits = (lngBits Mod 32)
-
+
If lngBits = 0 Then MD5Rotate = lngValue: Exit Function
-
+
For lngI = 1 To lngBits
lngSign = lngValue And &HC0000000
lngValue = (lngValue And &H3FFFFFFF) * 2
lngValue = lngValue Or ((lngSign < 0) And 1) Or (CBool(lngSign And &H40000000) And &H80000000)
Next
-
+
MD5Rotate = lngValue
End Function
@@ -91,14 +105,14 @@
Dim sngNum As Single, lngnum As Long
Dim strResult As String
-
+
sngNum = Rnd(2147483648#)
strResult = CStr(sngNum)
-
+
strResult = Replace(strResult, "0.", "")
strResult = Replace(strResult, ".", "")
strResult = Replace(strResult, "E-", "")
-
+
TRID = strResult
End Function
@@ -106,58 +120,58 @@
Private Function MD564Split(lngLength As Long, bytBuffer() As Byte) As String
Dim lngBytesTotal As Long, lngBytesToAdd As Long
- Dim intLoop As Integer, intLoop2 As Integer, lngTrace As Long
- Dim intInnerLoop As Integer, intLoop3 As Integer
-
+ Dim intLoop As Long, intLoop2 As Long, lngTrace As Long
+ Dim intInnerLoop As Long, intLoop3 As Long
+
lngBytesTotal = lngTrack Mod 64
lngBytesToAdd = 64 - lngBytesTotal
lngTrack = (lngTrack + lngLength)
-
+
If lngLength >= lngBytesToAdd Then
For intLoop = 0 To lngBytesToAdd - 1
arrSplit64(lngBytesTotal + intLoop) = bytBuffer(intLoop)
Next intLoop
-
+
MD5Conversion arrSplit64
-
+
lngTrace = (lngLength) Mod 64
For intLoop2 = lngBytesToAdd To lngLength - intLoop - lngTrace Step 64
For intInnerLoop = 0 To 63
arrSplit64(intInnerLoop) = bytBuffer(intLoop2 + intInnerLoop)
Next intInnerLoop
-
+
MD5Conversion arrSplit64
-
+
Next intLoop2
-
+
lngBytesTotal = 0
Else
-
+
intLoop2 = 0
-
+
End If
-
+
For intLoop3 = 0 To lngLength - intLoop2 - 1
-
+
arrSplit64(lngBytesTotal + intLoop3) = bytBuffer(intLoop2 + intLoop3)
-
+
Next intLoop3
-
+
End Function
Private Function MD5StringArray(strInput As String) As Byte()
-
- Dim intLoop As Integer
+
+ Dim intLoop As Long
Dim bytBuffer() As Byte
ReDim bytBuffer(Len(strInput))
-
+
For intLoop = 0 To Len(strInput) - 1
bytBuffer(intLoop) = Asc(Mid(strInput, intLoop + 1, 1))
Next intLoop
-
+
MD5StringArray = bytBuffer
-
+
End Function
Private Sub MD5Conversion(bytBuffer() As Byte)
@@ -165,14 +179,14 @@
Dim X(16) As Long, a As Long
Dim b As Long, c As Long
Dim d As Long
-
+
a = arrLongConversion(1)
b = arrLongConversion(2)
c = arrLongConversion(3)
d = arrLongConversion(4)
-
+
MD5Decode 64, X, bytBuffer
-
+
MD5Round "FF", a, b, c, d, X(0), S11, -680876936
MD5Round "FF", d, a, b, c, X(1), S12, -389564586
MD5Round "FF", c, d, a, b, X(2), S13, 606105819
@@ -206,7 +220,7 @@
MD5Round "GG", d, a, b, c, X(2), S22, -51403784
MD5Round "GG", c, d, a, b, X(7), S23, 1735328473
MD5Round "GG", b, c, d, a, X(12), S24, -1926607734
-
+
MD5Round "HH", a, b, c, d, X(5), S31, -378558
MD5Round "HH", d, a, b, c, X(8), S32, -2022574463
MD5Round "HH", c, d, a, b, X(11), S33, 1839030562
@@ -223,7 +237,7 @@
MD5Round "HH", d, a, b, c, X(12), S32, -421815835
MD5Round "HH", c, d, a, b, X(15), S33, 530742520
MD5Round "HH", b, c, d, a, X(2), S34, -995338651
-
+
MD5Round "II", a, b, c, d, X(0), S41, -198630844
MD5Round "II", d, a, b, c, X(7), S42, 1126891415
MD5Round "II", c, d, a, b, X(14), S43, -1416354905
@@ -240,16 +254,16 @@
MD5Round "II", d, a, b, c, X(11), S42, -1120210379
MD5Round "II", c, d, a, b, X(2), S43, 718787259
MD5Round "II", b, c, d, a, X(9), S44, -343485551
-
+
arrLongConversion(1) = MD5LongAdd(arrLongConversion(1), a)
arrLongConversion(2) = MD5LongAdd(arrLongConversion(2), b)
arrLongConversion(3) = MD5LongAdd(arrLongConversion(3), c)
arrLongConversion(4) = MD5LongAdd(arrLongConversion(4), d)
-
+
End Sub
Private Function MD5LongAdd(lngVal1 As Long, lngVal2 As Long) As Long
-
+
Dim lngHighWord As Long
Dim lngLowWord As Long
Dim lngOverflow As Long
@@ -257,13 +271,13 @@
lngLowWord = (lngVal1 And &HFFFF&) + (lngVal2 And &HFFFF&)
lngOverflow = lngLowWord \ 65536
lngHighWord = (((lngVal1 And &HFFFF0000) \ 65536) + ((lngVal2 And &HFFFF0000) \ 65536) + lngOverflow) And &HFFFF&
-
+
MD5LongAdd = MD5LongConversion((lngHighWord * 65536#) + (lngLowWord And &HFFFF&))
End Function
Private Function MD5LongAdd4(lngVal1 As Long, lngVal2 As Long, lngVal3 As Long, lngVal4 As Long) As Long
-
+
Dim lngHighWord As Long
Dim lngLowWord As Long
Dim lngOverflow As Long
@@ -276,54 +290,54 @@
End Function
Private Sub MD5Decode(intLength As Integer, lngOutBuffer() As Long, bytInBuffer() As Byte)
-
+
Dim intDblIndex As Integer
Dim intByteIndex As Integer
Dim dblSum As Double
-
+
intDblIndex = 0
-
+
For intByteIndex = 0 To intLength - 1 Step 4
-
+
dblSum = bytInBuffer(intByteIndex) + bytInBuffer(intByteIndex + 1) * 256# + bytInBuffer(intByteIndex + 2) * 65536# + bytInBuffer(intByteIndex + 3) * 16777216#
lngOutBuffer(intDblIndex) = MD5LongConversion(dblSum)
intDblIndex = (intDblIndex + 1)
-
+
Next intByteIndex
End Sub
Private Function MD5LongConversion(dblValue As Double) As Long
-
+
If dblValue < 0 Or dblValue >= OFFSET_4 Then Error 6
-
+
If dblValue <= MAXINT_4 Then
MD5LongConversion = dblValue
Else
MD5LongConversion = dblValue - OFFSET_4
End If
-
+
End Function
Private Sub MD5Finish()
-
+
Dim dblBits As Double
Dim arrPadding(72) As Byte
Dim lngBytesBuffered As Long
-
+
arrPadding(0) = &H80
-
+
dblBits = lngTrack * 8
-
+
lngBytesBuffered = lngTrack Mod 64
-
+
If lngBytesBuffered <= 56 Then
MD564Split (56 - lngBytesBuffered), arrPadding
Else
MD564Split (120 - lngTrack), arrPadding
End If
-
-
+
+
arrPadding(0) = MD5LongConversion(dblBits) And &HFF&
arrPadding(1) = MD5LongConversion(dblBits) \ 256 And &HFF&
arrPadding(2) = MD5LongConversion(dblBits) \ 65536 And &HFF&
@@ -332,45 +346,45 @@
arrPadding(5) = 0
arrPadding(6) = 0
arrPadding(7) = 0
-
+
MD564Split 8, arrPadding
-
+
End Sub
Private Function MD5StringChange(lngnum As Long) As String
-
+
Dim bytA As Byte
Dim bytB As Byte
Dim bytC As Byte
Dim bytD As Byte
-
+
bytA = lngnum And &HFF&
If bytA < 16 Then
MD5StringChange = "0" & Hex(bytA)
Else
MD5StringChange = Hex(bytA)
End If
-
+
bytB = (lngnum And &HFF00&) \ 256
If bytB < 16 Then
MD5StringChange = MD5StringChange & "0" & Hex(bytB)
Else
MD5StringChange = MD5StringChange & Hex(bytB)
End If
-
+
bytC = (lngnum And &HFF0000) \ 65536
If bytC < 16 Then
MD5StringChange = MD5StringChange & "0" & Hex(bytC)
Else
MD5StringChange = MD5StringChange & Hex(bytC)
End If
-
+
If lngnum < 0 Then
bytD = ((lngnum And &H7F000000) \ 16777216) Or &H80&
Else
bytD = (lngnum And &HFF000000) \ 16777216
End If
-
+
If bytD < 16 Then
MD5StringChange = MD5StringChange & "0" & Hex(bytD)
Else
@@ -392,13 +406,13 @@
ReDim arrSplit64(63)
Dim bytBuffer() As Byte
bytBuffer = MD5StringArray(strMessage)
-
+
MD5Start
MD564Split Len(strMessage), bytBuffer
MD5Finish
-
+
Hash = MD5Value
-
+
End Function
Private Sub MD5Start()
@@ -408,6 +422,6 @@
arrLongConversion(2) = MD5LongConversion(4023233417#)
arrLongConversion(3) = MD5LongConversion(2562383102#)
arrLongConversion(4) = MD5LongConversion(271733878#)
-
+
End Sub
Index: ActiveLock2.dll
===================================================================
RCS file: /cvsroot/activelock/activelock2/src/ActiveLock2.dll,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
Binary files /tmp/cvs3uihri and /tmp/cvsAKXfWt differ
|
|
From: Thanh H. T. <th...@us...> - 2003-07-31 06:19:31
|
Update of /cvsroot/activelock/activelock2/test In directory sc8-pr-cvs1:/tmp/cvs-serv5569 Modified Files: ALCrypto.dll Log Message: Added len parameter to md5_hash() function - cannot rely on strlen(). Index: ALCrypto.dll =================================================================== RCS file: /cvsroot/activelock/activelock2/test/ALCrypto.dll,v retrieving revision 1.3 retrieving revision 1.4 diff -u -d -r1.3 -r1.4 Binary files /tmp/cvsbk5NVF and /tmp/cvsahIpBd differ |
3 messages has been excluded from this view by a project administrator.
