I have made a .Exe Application and given to a client. In order to avoid Unlicensed use of it I have locked the application with the Hardware components of the system,

Further, I have given condition as if the software is Pirated only two Items will be displayed in the List Box and if it is not pirated , all the 13 items will be displayed. For this have put the following code in the INT() of List Box on various Form.

The Unusual Behavior

The User is complaining that when on the first instance he is running the application only two items are populated and when he exits or quits and run again i.e the second time all 13 items gets populated. I am wondering that when the PC and its hardware components what is the reason for such unusual behaviour.


Here is the code which I have used to Have Lock

M=0
*CPUID Type-I*
LOCAL lcComputerName, loWMI, lowmiWin32Objects, lowmiWin32Object
lcComputerName = GETWORDNUM(SYS(0),1)
loWMI = GETOBJECT("WinMgmts://" + lcComputerName)
lowmiWin32Objects = loWMI.InstancesOf("Win32_Processor")
FOR EACH lowmiWin32Object IN lowmiWin32Objects
    WITH lowmiWin32Object
        cIDTYPEONE= TRANSFORM(.ProcessorId)
    ENDWITH
ENDFOR

*CPUID Type-II*
declare string CpuID IN utility.dll
cIDTYPETWO= CPUID()


***Get MAC Number*********

LOCAL lcComputerName, loWMIService, loItems, loItem, lcMACAddress
lcComputerName = "."
loWMIService = GETOBJECT("winmgmts:\\" + lcComputerName + "\root\cimv2")
loItems = loWMIService.ExecQuery("Select * from Win32_NetworkAdapter",,48)
FOR EACH loItem IN loItems

lcMACAddress = loItem.MACAddress
IF !ISNULL(lcMACAddress)
M=M+1

IF M=1
MA1=loItem.MACAddress
ELSE
MA1='XXXX'
ENDIF


IF M=2
MA2=loItem.MACAddress
ELSE
MA2='XXXX'
ENDIF

IF M=3
MA3=loItem.MACAddress
ELSE
MA3='XXXX'
ENDIF

IF M=4
MA4=loItem.MACAddress
ELSE
MA4='XXXX'
ENDIF

IF M=5
MA5=loItem.MACAddress
ELSE
MA5='XXXX'
ENDIF

ENDIF
ENDFOR

*******GET mother Board Number**********
loWMI = GETOBJECT("WinMgmts://./root/cimv2")
BaseBoards = loWMI.InstancesOf("Win32_BaseBoard")
FOR EACH MotherBoard IN BaseBoards
MB_product=MotherBoard.Product
MB_serial=MotherBoard.SerialNumber
MBP=MB_product
MBS=MB_serial
NEXT
Slighthaze = NULL

LOCK=ALLTRIM(cIDTYPEONE)+;
ALLTRIM(cIDTYPETWO)+;
ALLTRIM(RIGHT(MA1,4))+;
ALLTRIM(RIGHT(MA2,4))+;
ALLTRIM(RIGHT(MA3,4))+;
ALLTRIM(RIGHT(MA4,4))+;
ALLTRIM(RIGHT(MA5,4))+;
ALLTRIM(RIGHT(MBP,4))+;
ALLTRIM(RIGHT(+MBS,4))

IF UPPER(ALLTRIM(LOCK))=='BFEBFBFF000006FD00E39D10208006FDXXXXXXXXXXXXXXXX6:4D7383E.M.'
Pirated=.F.
Unit="O/o TDM, BSNL,Chhindwara"
Circle="Madhya Pradesh Telecom Circle"
ELSE
Unit="O/o TDM, BSNL,Chhindwara"
Circle="Madhya Pradesh Telecom Circle"
Pirated=.T.
ENDIF

Here is the code which I am using for Populating List Box

IF Pirated=.F.
This.rowsource = 'April,May,June,July,August,September,October,November,December,January,February,March,March ST-I,March ST-II'
Mmonth=4
ELSE
IF ldemoversion=.T.
This.rowsource = 'April,May,June'
Mmonth=4
ELSE
This.rowsource = 'March ST-I,March ST-II'
Mmonth=13
ENDIF
ENDIF
This.value = 1

Kinldy Guide
Regards