Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
FPD25- C loader and copy protection
Message
 
To
11/10/2002 07:13:17
Cetin Basoz
Engineerica Inc.
Izmir, Turkey
General information
Forum:
Visual FoxPro
Category:
FoxPro 2.x
Miscellaneous
Thread ID:
00701158
Message ID:
00710603
Views:
46
Thanks Cetin, so for a single user machine w/o a LAN card we will need to rely on the old serial no. methods. Thanks again for all your responses and would also like to add that I am a subscriber to your newsletter FoxyClasses.

>Then return value is not 0 for CoCreateGuid and UuidCreateSequential. You'd get an empty return value.
>Cetin
>
>>Thought so, cause I slightly remember that GUIDs are created from a LAN card. But what if there is no LAN card, standalone machine will it still work? Hope I am not troubling so much for a reply, if so just let me know, seriously.
>>
>>>Would fail if LAN card is changed :)
>>>Cetin
>>>>Thanks Cetin I will be trying this out for my VFP apps. But what is this ID based on, I mean what if the dislay card is changed or a HDD / LAN card is changed removed, will it fail?
>>>>
>>>>>You're welcome. If u think serial number is safe enough than you'd possibly love this one :
>>>>>
*Function SomethingUniqueEnoughForYou :)
>>>>>Local pGUID,rGUID,lnSize
>>>>>Declare integer CoCreateGuid in 'OLE32.dll' ;
>>>>>  string @pguid
>>>>>Declare integer StringFromGUID2 in 'OLE32.dll' ;
>>>>>  string rguid, string @lpsz, integer cchMax
>>>>>pGUID=replicate(chr(0),16)
>>>>>rGUID=replicate(chr(0),80)
>>>>>
>>>>>If "5." $ OS() && 2000/XP
>>>>>  Declare integer UuidCreateSequential in 'RPCRT4.dll'  string @ Uuid
>>>>>  Return substr( iif( UuidCreateSequential(@pGUID) = 0 ;
>>>>>    and StringFromGUID2(pGUID,@rGUID,40) # 0, ;
>>>>>    StrConv(left(rGUID,76),6), "" ), 26,12)
>>>>>Else
>>>>>  Return substr( iif( CoCreateGuid(@pGUID) = 0 ;
>>>>>    and StringFromGUID2(pGUID,@rGUID,40) # 0, ;
>>>>>    StrConv(left(rGUID,76),6), "" ), 26,12)
>>>>>Endif
>>>>>
>>>>>PS:CoCreateGuid(@pGUID) = 0 check in fact obsolote. No check there.
>>>>>Cetin
>>>>>
>>>>>>Hi Cetin Thanks for the trouble.
>>>>>>
>>>>>>In the mean time I put in code to ignore when serial.bin returns a blank so to get things going and one thing is for sure that this blank will occur only when accessed from a node, the original installation access will not have a blank. So for the time being I guess it is okay.
>>>>>>
>>>>>>
Regards
Bhavbhuti
___________________________________________
Softwares for Indian Businesses at:
http://venussoftop.tripod.com
___________________________________________
venussoftop@gmail.com
___________________________________________
Previous
Reply
Map
View

Click here to load this message in the networking platform