Click here to Skip to main content
14,837,225 members
Articles / Programming Languages / Visual Basic
Posted 23 May 2007


147 bookmarked

Using VB to Create & Check License Keys

Rate me:
Please Sign up or sign in to vote.
4.73/5 (43 votes)
23 May 2007LGPL33 min read
Generate and check license keys embedding 16-bit configuration information

Screenshot - Create-1.jpg


Create and validate secure "License Keys" for your proprietary code and embed up to 16-bits of "configuration data" into the key. This code is flexible and may be used in many different licensing schemes.


Everyone is familiar with getting license keys to activate software. These keys are normally based on various encryption schemes, and serve to validate that a particular user is authorized to install or run the software. The code presented here provides an easy way to integrate this functionality into your own programs.

The keys generated by the sample application are MD5 hashes of a "Licensee" name, a "Serial Number, and a "secret" program name string that is embedded into the code. We then convert the hexadecimal 32-character string to Base32 to shorten the resulting key down to 26 characters. This is easier for end-users to type and looks better and more professional as well.

The code is pretty straight-forward for the most part, and can be easily translated into other languages such as C, C++, C#, Java, etc. and is presented in as "generic" of a Visual Basic form as possible to permit easy integration into applications. It can even be used in VBA applications such as Microsoft Access if desired.

Please note that all code in this article is licensed under the LGPL, so it can be incorporated into your programs with no royalties and doesn't modify the licensing terms of your proprietary code in any way. We do ask that if you make any changes to the key generation code itself that you release the code under the same terms as you received it.

Additionally, this code provides some useful string functions to encode/decode binary values encoded in a string to Base32 and to bitwise left and right shift these values by an arbitrary number of bits.

Using the Code

Simply include the KeyCodes.bas, StrFuncs.bas, and MD5_Crypt.bas files into your project. You can prompt for whatever information you consider to be relevant to your licensing scheme, and it should end up in two string values and one LONG integer value indicating the capabilities you wish to embed into the key code.

It is expected that users of this code will modify the key generation to meet their needs. The keycodes.bas file routines are easily modified to provide different key values and can form an easy base to build your own key code routines. One change that comes to mind is to shorten the Base32 string from 26-characters to 25-characters and then grouping the "digits" in groups of five to provide nicer-looking keys.

Here's the main code that generates the key based on text boxes:

Private Const MyProductName = "KeyCodeDemoV1"

 . . .

If Not (UserNameT = "") Or Not (ProdNameT = "") Then
  RawKey = GenKeyString(UserNameT, ProdNameT & MyProductName, FeatID)
  BinKey = HexStrToBinStr(RawKey)
  KeyCode = FormatKeyCode(Base32Enc(BinKey), 4)
  KeyCode = "Please Enter Licensee and/or Serial Number"
End If

. . .

Key Strength

The keys generated by this code are relatively secure, as they are based around an MD5 hash of the data used to generate the key. You can improve security by generating a GUID during the installation, and concatenating it with the "user name" field, and then generating the keys via an online submission process. This is left as an exercise to the reader.

Key tampering is highly discouraged by the code's design. Each key is generated from an MD5 hash of the licensee, serial, and your "secret". Once this hash is created, we XOR the "permissions" bits with the last two characters of the key, then drop the first two characters of the key, run another MD5 hash of the truncated key with permissions, and then use the first and last bytes of the second MD5 hash as the first two characters of the final binary key value. These bytes verify the integrity of the permissions bits.

It is also possible to use an algorithm on the final keys to "scramble" them. Just ensure to "unscramble" them prior to attempts to verify the key with what it should be.

Sample Screenshots

  1. Create a key...

    Screenshot - Create-1.jpg

  2. Entering a key to check...

    Screenshot - Check-1.jpg

  3. A successful check...

    Screenshot - Check-OK.jpg

  4. A check that failed due to an attempt to modify key "permission" byte...

    Screenshot - Check-Fail.jpg


  • Initial article - 5/23/2007


This article, along with any associated source code and files, is licensed under The GNU Lesser General Public License (LGPLv3)


About the Author

Systems Engineer iServe Technologies
United States United States
No Biography provided

Comments and Discussions

QuestionImplementing the license key into VBA code Pin
Member 1395375026-Aug-18 16:03
MemberMember 1395375026-Aug-18 16:03 
QuestionI need the same project in Pin
Member 794264630-Sep-15 22:26
MemberMember 794264630-Sep-15 22:26 
GeneralVBScript Version - call from SQL Server or batch file Pin
richardbrigzy23-Jul-14 3:31
Memberrichardbrigzy23-Jul-14 3:31 
GeneralRe: VBScript Version - call from SQL Server or batch file Pin
richardbrigzy23-Jul-14 4:24
Memberrichardbrigzy23-Jul-14 4:24 
QuestionArithmetic operation resulted in an overflow? Pin
NaumHN10-Jan-14 5:03
MemberNaumHN10-Jan-14 5:03 
QuestionShortening Key to 25 characters Pin
FireCoder7-Sep-13 0:32
MemberFireCoder7-Sep-13 0:32 
Questiondll or C# project Pin
Grasmeiser27-Aug-13 3:21
MemberGrasmeiser27-Aug-13 3:21 
GeneralMy vote of 5 Pin
Ahmad Eissa1-Nov-11 3:04
MemberAhmad Eissa1-Nov-11 3:04 
QuestionAnyone able to get this to work with VBA and Access 2010? Pin
Member 825030019-Sep-11 14:55
MemberMember 825030019-Sep-11 14:55 
QuestionUsing this in access 2010 with vba code Pin
Member 82081192-Sep-11 7:16
MemberMember 82081192-Sep-11 7:16 
AnswerRe: Using this in access 2010 with vba code Pin
Member 949628022-Oct-12 15:39
MemberMember 949628022-Oct-12 15:39 
QuestionExample code fails with non-Unicode Windows settings Pin
jamie.garroch28-Aug-11 0:00
Memberjamie.garroch28-Aug-11 0:00 
AnswerRe: Example code fails with non-Unicode Windows settings Pin
Richard Winters20-Apr-12 0:36
MemberRichard Winters20-Apr-12 0:36 
GeneralRe: Example code fails with non-Unicode Windows settings Pin
jamie.garroch16-Jul-12 1:49
Memberjamie.garroch16-Jul-12 1:49 
AnswerRe: Example code fails with non-Unicode Windows settings Pin
EmpiricaConsultingLtd11-Apr-13 7:27
MemberEmpiricaConsultingLtd11-Apr-13 7:27 
AnswerRe: Example code fails with non-Unicode Windows settings Pin
jamie.garroch17-Apr-13 4:44
Memberjamie.garroch17-Apr-13 4:44 
GeneralRe: Example code fails with non-Unicode Windows settings Pin
Member 794264630-Sep-15 22:53
MemberMember 794264630-Sep-15 22:53 
GeneralRe: Example code fails with non-Unicode Windows settings Pin
EmpiricaConsultingLtd1-Oct-15 0:08
MemberEmpiricaConsultingLtd1-Oct-15 0:08 version of this application Pin
Biju VA20-Jun-11 2:35
professionalBiju VA20-Jun-11 2:35 
GeneralBase32 String Pin
tiggerc7-Jul-10 3:29
Membertiggerc7-Jul-10 3:29 
GeneralUsing VB 2005 to create & check license keys- Pin
bhatiamanoj1722-Apr-09 7:27
Memberbhatiamanoj1722-Apr-09 7:27 
QuestionConverting to VB2008 Pin
pjvdstap1-Jul-08 4:00
Memberpjvdstap1-Jul-08 4:00 
AnswerRe: Converting to VB2008 [modified] Pin
Dennis Betten13-Nov-08 14:21
MemberDennis Betten13-Nov-08 14:21 
GeneralRe: Converting to VB2008 [modified] Pin
Member 1011865529-Aug-13 23:26
MemberMember 1011865529-Aug-13 23:26 Pin
Rens Duijsens8-Apr-08 2:48
MemberRens Duijsens8-Apr-08 2:48 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.