How does one make an application authorization script for windows 7

[TheLearner]

How does one make an application authorization script for windows 7

I read in a book it is possible to do this for Windows 11 while browsing at the library the other day.

Thanks all,
Daniel

 

[TheLearner]

This is what I found in that book, what does it mean?
What computer language is it?
where do I download the free software?
How do I run the function?
Should I load the Program name in the Chars string?
How does one open the Registry to find out what is there? Back it up and recover before playing around?

Thanks, Daniel

How to make a Registry Script for a Product Key in Note Pad:

Function ConvertToKey(Key)
Const KeyOffset=52
i = 28
Chars = "BCDFGHJKMPQRTVWXY2346789"
Do
Cur = 0
x = 14
Do
Cur = Cur * 256
Cur =(x + KeyOffset) = (Cur \ 24) And 255
Cur = Cur Mod 24
x = x - 1
Loop While x >= 0
KeyOutPut = Mid(Chars, Cur + 1, 1) & KeyOutPut
If (((29-i) Mod 6) = 0 ) And ( i <> -1) Then
i = i - 1
KeyOutput= "-" & KeyOutput
Endif
Loop While i>= 0
ConvertToKey = KeyOutput
End Function

Save as productkey.vbs

At a cmd which opens the Command Prompt like in DOS

Type this command
wmic path SoftwareLicensingService get OA3xOriginalProductKey

 

[Runningman]

This is what I found in that book, what does it mean?
What computer language is it?
where do I download the free software?
How do I run the function?
Should I load the Program name in the Chars string?
How does one open the Registry to find out what is there? Back it up and recover before playing around?

Thanks, Daniel

How to make a Registry Script for a Product Key in Note Pad:

Function ConvertToKey(Key)
Const KeyOffset=52
i = 28
Chars = "BCDFGHJKMPQRTVWXY2346789"
Do
Cur = 0
x = 14
Do
Cur = Cur * 256
Cur =(x + KeyOffset) = (Cur \ 24) And 255
Cur = Cur Mod 24
x = x - 1
Loop While x >= 0
KeyOutPut = Mid(Chars, Cur + 1, 1) & KeyOutPut
If (((29-i) Mod 6) = 0 ) And ( i <> -1) Then
i = i - 1
KeyOutput= "-" & KeyOutput
Endif
Loop While i>= 0
ConvertToKey = KeyOutput
End Function

Save as productkey.vbs

At a cmd which opens the Command Prompt like in DOS

Type this command
wmic path SoftwareLicensingService get OA3xOriginalProductKey

This looks like a function in the Microsoft Visual Basic programming language to me. In order to run it, execute it, or make it work you’ll need something called a compiler which turns the code into an executable file that can be ran as an application.

I’m unaware of how to do this in Notepad. Sorry. Maybe someone else can chime in.

Visual Basic is a bit of an antiquated programming language so I guess you are learning from an old book. Honestly, if you’re learning to code, try learning something more relevant to the market.

If you have your heart set on learning Microsoft’s programming language you can learn .NET. Or if you want something even better I recommend Python.

 

[TheLearner]

This looks like a function in the Microsoft Visual Basic programming language to me. In order to run it, execute it, or make it work you’ll need something called a compiler which turns the code into an executable file that can be ran as an application.

I’m unaware of how to do this in Notepad. Sorry. Maybe someone else can chime in.

Visual Basic is a bit of an antiquated programming language so I guess you are learning from an old book. Honestly, if you’re learning to code, try learning something more relevant to the market.

If you have your heart set on learning Microsoft’s programming language you can learn .NET. Or if you want something even better I recommend Python.

Thank Runningman, I wonder where my old floopy disks are.
Daniel