[原创]运用MD5来实现的用户注册系统

Moneky

曾经发了一个自己的输单工具，其中包含了一个简单的注册系统，有朋友对那个比较感兴趣，于是就单独提取出来和大家分享一下。现在运用附件中的东西，你只需要简单的写几条语句，点几下鼠标就可以给你的VBA工程加上一个注册功能。
本人文笔不好，写不出什么“教程”之类的，就直接上附件（附件中代码做了详细的注释）和窗口截图，然后再说说怎么用这个东东吧!
各个文件都在这个附件中，包括了 授权密钥 生成器 （原附件已经删除，请下载本楼最后面的稳定版本）
各个窗口截图如下：

[原创]运用MD5来实现的用户注册系统

授权密钥如何生成，请看31楼，生成器的VB6源代码在35楼

[ 本帖最后由 Moneky 于 2011-2-10 20:35 编辑 ]

补充内容 (2020-9-24 12:08):
来自十三年后的补充：VBA中搞这个都是花架子，在稍微懂点的人面前没什么用，看看就好了。不过如果你单位使用者都是小白的话，可以适当装装X

补充内容 (2020-11-18 10:59):
VBA版的KeyMaker在72楼。

wangminbai

在vba中没有实际意思，加密之后怎么解密呢

[此贴子已经被作者于2007-10-28 13:00:26编辑过]

dgwdgw

好，谢谢楼主。慢慢学习学习，

Moneky

QUOTE:

以下是引用wangminbai在2007-10-28 12:58:34的发言：
在vba中没有实际意思，加密之后怎么解密呢

不需要解密。加入密码是A,    f(a)=T   f(a)是一个不可逆的变换（MD5），我们可以这样来判断用户输入的密码是不是原来的A，假设用户输入的密码是 B，那么如果 f(B)=T,则表示B=A（密码一致）

wsri

顶一下！论坛里对加密解密的东西不多，现在好了，可以直接使用！

lcmphy

谢谢楼主。慢慢学习!!!

zjzh

请问：

       为什么出现"无法装载这台计算机"

buyongniguan

请教大侠：

VBA中用代码sheets(sheet1).range("A1").copy  sheets("sheet2").range("A1")可以实现复制粘贴功能，那么，如果我要进行选择性复制，只复制数值怎么写呢？

谢谢大侠！！！

等待回音ing

Moneky

QUOTE:

以下是引用buyongniguan在2007-10-29 9:11:23的发言：

请教大侠：

VBA中用代码sheets(sheet1).range("A1").copy  sheets("sheet2").range("A1")可以实现复制粘贴功能，那么，如果我要进行选择性复制，只复制数值怎么写呢？

谢谢大侠！！！

等待回音ing

你要表达的意思应该是选择性粘贴吧？录制了一段宏,得到关键代码如下

[Range1].copy   
[Range2].PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

其中蓝色背景部分代表粘贴数值。另外可以在选择性粘贴窗口中选择其他设置看看代码有什么变化，就可以弄清楚各个参数的意义了

Moneky

QUOTE:

以下是引用zjzh在2007-10-29 8:56:52的发言：

请问：

       为什么出现"无法装载这台计算机"

请确定是那个对象，另外你的系统环境如何？