Sign in to follow this  
Followers 0
Erik.

Make licence

12 posts in this topic

Hi,

I now have a little program.

I want to be sure that the program will not go into the illegal circuit

so i want to give people a licence.

i want to check there serial of there C drive whit:

DriveGetSerial("C:\")

Now how to let the program check if the serial is good if not then it must give a message box whit the text that the have the illegal program and close the program so the can't use it.

I have tried something but it does not work:

$serial = DriveGetSerial("C:\")

if Not $serial = serial Then

Exit

EndIf

Can someone give me some lines?


I little problem, hard to find and fix

Share this post


Link to post
Share on other sites



Wel.. first of all: 1 post would be enough :lmao:

Second, you can use a DBS with al the good serials --> check if it's one of them --> is not: MSGBOX ;) easy

Neo


[center][font="Arial"]--- The Neo and Only --- [/font][font="Arial"]--Projects---[/font]Image to Text converterText to ASCII converter[/center]

Share this post


Link to post
Share on other sites

#3 ·  Posted (edited)

Hi,

I have only posted one topic but my internet is very slow now so pressed the submit program 2 times so sorry didn't see it..

I don't want to make a Database because when the know that the can edit it...

When the want that program i will give them the program whit the good serial so i can see how many i have given..

Edited by Erik.

I little problem, hard to find and fix

Share this post


Link to post
Share on other sites

<>

Share this post


Link to post
Share on other sites

Sorry, lost my way of what you want...

A program which you will give to a member, after he runs it. The program will check if he has a valid C:\ if not than the program will quit and else it will go continu?? is that the idea?

Neo


[center][font="Arial"]--- The Neo and Only --- [/font][font="Arial"]--Projects---[/font]Image to Text converterText to ASCII converter[/center]

Share this post


Link to post
Share on other sites

if $serial <> "238089243" then exit

answered for future notice since i already helped him on msn

Share this post


Link to post
Share on other sites

This is the solution:

$var = DriveGetSerial( "c:\" )

If $var <> "35703392754" Then

MsgBox(0,"ERROR","Serial false")

Exit

EndIf

Thank you Thatsgreat2345!!


I little problem, hard to find and fix

Share this post


Link to post
Share on other sites

you know that you can change the serial number of a drive?

so it is not secure!

Share this post


Link to post
Share on other sites

you can but for his purposes its not going to matter because theyll have to know the original drive key for it to work which would require them getting the source code and or being a good debugger

Share this post


Link to post
Share on other sites

So my program is safe:P

no one knows how it was written and no one can decompile it so i think it will be safe..


I little problem, hard to find and fix

Share this post


Link to post
Share on other sites

I recently asked a similar question, my program gets the MAC address of the PC, then encrypts part of it (using stringencrypt), which is sent to me to decrypt, I then send the user back the decrypted "key" so that he can run the program.

If the program is run on a different PC then a key must be aquired for that Machine.


2015 - Still no flying cars, instead blankets with sleeves.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0