SysInfo

Example

Example 1

'!TITLE "Acquire the Manufacturing Number"
'Acquire and display the manufacturing number
Sub Sample_SysInfo
	Dim aaa As Variant
	'Acquire the manufacturing number
	aaa = SysInfo(0)
	'Display the manufacturing number in the message window
	PrintDbg aaa
End Sub

Example 2

We show the example for protection that allows only the unique COBOTTA to control the program.

Follow the following procedure.

1. Program creator gets a MAC address of the COBOTTA from the program user and creates a cancel code with the formula described in the program. Once the cancel code is created, let the program user know that.
2. Program creator encrypts the program and sends it to program users. (For details about encryption operation, refer to "Encryption of Source Code.")
3. Program users input a cancel code in the global variable "S0" to execute the program. Then, the program loads a Mac address of the COBOTTA, generates a cancel code "lic" and compares it to "S0" at the time of execution, so the process is executed when the program finds it is correct COBOTTA.

Sub Main 
#pragma encrypt(on)
if IsLocked() Then Exit Sub

	'Describe the process here

#pragma encrypt(off)	
End Sub

#pragma encrypt(on)
Function IsLocked( ) As Integer
	Dim mac As Variant
	Dim lic As String
	Dim key As Variant
	Dim n As Integer
	
	key = Array( &HAA, &HF5, &H55, &H3C, &H57, &H81 ) 
	mac = split( SysInfo( 1 ), "-" ) ' X1-X2-X3-X4-X5-X6
	lic = ""
	For n = 0 To 5
		lic = lic + Hex( Val( "&H" & mac( n ) ) Xor key( n ) )
	Next
	'Debug.print "LIC = " & lic & ", MAC = " & SysInfo( 1 )
	
	If lic = S0 Then
		IsLocked = False
	Else
		IsLocked = True
	End If 
	
End Function
#pragma encrypt(off)