topic Re: Terms Hardwarekey evade token problem in Libraries & objects

Terms Hardwarekey evade token problem

Anonymous — Wed, 01 Jun 2016 07:57:29 GMT

Hello,
I have problem with these terms.
I want, when user have harware key (licence key) wrote in my database, so he can use it.
But I want to put it eventuality use token key from .txt files in C:/ and evade 1.term (Licence key)
Can you help me, where I have misstake or how do that....
---------
IF licencekey=key1 or key2 GOSUB "program"
IF licencekey<>key1 or key2 GOSUB "token"
end
"token":
Token=0001
ch1=OPEN("TEXT","C:/token.txt","SEPARATOR=',',MODE=RO, FULLPATH")
n=INPUT(ch1, 1, 1,value)
IF value=token GOTO "program"
IF value<>token GOTO "end"
CLOSE (ch1)

"program":
........
........
"end":
.......

Re: Terms Hardwarekey evade token problem

Laszlo Nagy — Thu, 02 Jun 2016 13:28:34 GMT

Try this:

IF (licencekey=key1 OR licencekey=key2) THEN
    GOSUB "program" 
ENDIF
IF (licencekey<>key1 AND licencekey<>key2) THEN
    GOSUB "token" 
ENDIF

Or:

IF (licencekey=key1 OR licencekey=key2) THEN
    GOSUB "program" 
ELSE
    GOSUB "token" 
ENDIF

You should check the GDL Reference Guide for correct syntax.

Re: Terms Hardwarekey evade token problem

Anonymous — Fri, 03 Jun 2016 08:05:41 GMT

Thank by answear, but value stop work it.
What to put parameters - TEXT, number?

Re: Terms Hardwarekey evade token problem

Laszlo Nagy — Sat, 04 Jun 2016 10:44:38 GMT

Try this:

Token="0001"

This way the variable Token will be a Text, just like that value you read from the Text file.

Also, make sure that licencekey, key1, and key2 variables are all the same type. I am not sure if these are number or text but you can make them either.
You can make them text by

licencekey=""
key1=""
key2=""

or a number by:

licencekey=0
key1=0
key2=0

at the beginning of the script.