Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
FPD25- C loader and copy protection
Message
From
10/10/2002 11:23:18
Cetin Basoz
Engineerica Inc.
Izmir, Turkey
 
 
To
10/10/2002 11:14:34
Cetin Basoz
Engineerica Inc.
Izmir, Turkey
General information
Forum:
Visual FoxPro
Category:
FoxPro 2.x
Miscellaneous
Thread ID:
00701158
Message ID:
00709859
Views:
52
>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.
>>
>>

Forget this. I forgot we were talking about fox2x DOS. If I can locate my library about it I'll send.
Cetin
Çetin Basöz

The way to Go
Flutter - For mobile, web and desktop.
World's most advanced open source relational database.
.Net for foxheads - Blog (main)
FoxSharp - Blog (mirror)
Welcome to FoxyClasses

LinqPad - C#,VB,F#,SQL,eSQL ... scratchpad
Previous
Reply
Map
View

Click here to load this message in the networking platform