How can i compare results

[axxbryan]

Hello, im trying to make a very simple license system hehe.

The objetive is read from website if i added a permision for that uniqueID machine (This part works)

https://prnt.sc/we70zb

Here starts the problem, when im comparing each result with the current ID, all are showed as false.

I know this should be Correct result number 4, but it is not

https://prnt.sc/we73nc

#include <APIDiagConstants.au3>
#include <WinAPIDiag.au3>
#include <IE.au3>
#include <Inet.au3>
#include <array.au3>
#include <MsgBoxConstants.au3>

$myHWID = (_WinAPI_UniqueHardwareID())

;~ ConsoleWrite($myHWID)

$source = _INetGetSource("http://webfortesting3265.cloudaccess.host/database.txt")

;~ MsgBox(0,"info",$source ,0,0)

Check_Active_License()

Func Check_Active_License()

   Local $license[0] = StringSplit($source, ",")

    For $i = 1 To $license[0]

       If ($myHWID = $license[$i]) Then
          ConsoleWrite('Found')
       Else
          MsgBox(0,"Your HWID: " & $myHWID, 'Any coincidence with ' & $license[$i] )
      EndIf

    Next
 EndFunc

 

[Nine]

Because there is @CRLF at the end of each line, you need to remove that before splitting.

 

[axxbryan]

sorry but, how should be wrote?

[Nine]

$source = StringReplace($source, @LF, "")
ConsoleWrite ("number of replace = " & @extended & @CRLF)

It seems there is only @LF .

[axxbryan]

its not working now it print letter by letter

[GokAy]

From StringSplit documentation:

If you use an empty string "" for the delimiters, each character will be returned as an element.

You possibly forgot to add "," as delimiter

Edited January 1, 2021 by GokAy

[Nine]

That works well for me :

#include <WinAPIDiag.au3>
#include <Inet.au3>
#include <array.au3>
#include <MsgBoxConstants.au3>

$myHWID = (_WinAPI_UniqueHardwareID())

;~ ConsoleWrite($myHWID)

$source = _INetGetSource("http://webfortesting3265.cloudaccess.host/database.txt")

Check_Active_License()

Func Check_Active_License()

  $source = StringReplace($source, @LF, "")
  ConsoleWrite(@extended & @CRLF)
  Local $license = StringSplit($source, ",")
  ConsoleWrite(_ArrayToString($license) & @CRLF)
  For $i = 2 To $license[0] - 1
    If ($myHWID = $license[$i]) Then
      ConsoleWrite('Found')
    Else
      ;MsgBox(0,"Your HWID: " & $myHWID, 'Any coincidence with ' & $license[$i] )
    EndIf
  Next
EndFunc   ;==>Check_Active_License

 

[mikell]

Alternative way

#include <WinAPIDiag.au3>
#include <Inet.au3>
#include <array.au3>
#include <MsgBoxConstants.au3>

$myHWID = (_WinAPI_UniqueHardwareID())

;~ ConsoleWrite($myHWID)

$source = _INetGetSource("http://webfortesting3265.cloudaccess.host/database.txt")

Check_Active_License()

Func Check_Active_License()
   If StringRegExp($source, '(?im)^\Q' & $myHWID & '\E') Then
      ConsoleWrite('Found')
    Else
      ;MsgBox(0,"Your HWID: " & $myHWID, 'Any coincidence with ' & $license[$i] )
    EndIf
EndFunc   ;==>Check_Active_License

 

[axxbryan]

it is working now a bit weird, it can compare correctly but the result is the web line number. (4) (5) (11) etc, depending where i put the correct ID in the web.

Do you know how convert the result it in to a variable just  $high_permission =  true or false.

[axxbryan]

Mikell i dont undertand the code but that work perfect. 

Thanks everyone.