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) Else KeyCode = "Please Enter Licensee and/or Serial Number"" End If
tmpkey = RemoveDashes(hardKey) 'Remove Dashes tmpBin = Base32Dec(tmpkey) 'Descript into Binary KeyVal = Mid(tmpBin, 3, Len(tmpBin)) tmphex = BinStrToHexStr(tmpBin) tmphex = RawKey.
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)