用于串行密钥生成的VB代码 [英] VB code for serial key generation

问题描述

关于以下链接
使用VB创建和创建检查许可证密钥

with respect to following link
Using VB to Create & Check License Keys

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

任何人都可以帮助我获取我作为输入传递的原始值.
我必须要BinKey&我已经收到了Rawkey.
现在我想获取字符串值.
我已经编写了与休闲相同的代码

can anybody help me to get the original values that i passed as input.
I have to BinKey & I have received the Rawkey.
now I want to get the string values.
I have written code the for the same as fallow

tmpkey = RemoveDashes(hardKey) ''Remove Dashes
tmpBin = Base32Dec(tmpkey) ''Descript into Binary
KeyVal = Mid(tmpBin, 3, Len(tmpBin))
tmphex = BinStrToHexStr(tmpBin)

tmphex = RawKey.

现在我想获得原始值.
跟随此链接
使用VB创建和创建检查许可证密钥

now i would like to get the original value.
follow this link
Using VB to Create & Check License Keys

推荐答案

您正在链接到文章.那么，为什么不问您文章中的问题呢?

VB6是垃圾，一段时间以来完全不受支持.我怀疑有人想窃取您的VB6程序，所以我不会担心它的安全性.

You are linking to an article. So why not ask your question inside the article, where it belongs ?

VB6 is rubbish and has been totally unsupported for a while. I doubt anyone wants to steal your VB6 program, so I wouldn''t worry about security on it.

这篇关于用于串行密钥生成的VB代码的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！