ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
楼主: Moneky

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

  [复制链接]

TA的精华主题

TA的得分主题

 楼主| 发表于 2008-8-21 08:29 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
QUOTE:
以下是引用daf2003在2008-8-21 1:14:37的发言:
QUOTE:

最后,由于在附件中包含了授权密钥生成器,所以在我代码中注释的 “这里可以自由发挥”“迷魂阵”那些地方你应该改一改,不然,大家都有 生成器,结果可想而知

我想问的是:改过以后,怎么制作授权密钥生成器,我随便改了一个数字(u=……),然后自己也不知道授权密钥应该是什么了。

实际上 授权密钥=gKey(用户码),其中gKey就是附件中 BAS2 模块中的那个函数,用户码就不用解释了,就是别人发送给你的那一串字符。你只需要知道相应的gKey函数就可以生成对应的授权密钥,需要注意的是:gKey函数中引用了MD5类模块,所以你自己的生成器程序中也要包含那个MD5类模块.

祝你成功!

TA的精华主题

TA的得分主题

发表于 2008-8-21 08:38 | 显示全部楼层

[求助]密钥生成器解压不了

是我不会用,还是解压不了?请指教一下好吗?

TA的精华主题

TA的得分主题

 楼主| 发表于 2008-8-21 10:48 | 显示全部楼层
QUOTE:
以下是引用wflqj123在2008-8-21 8:38:04的发言:
是我不会用,还是解压不了?请指教一下好吗?

附件使用WinRAR压缩过的,附件文件类型是rar,需要用WinRAR解压缩,然后就可以用Excel打开解压缩出来的文件了。

附件中的生成器是VB创建的EXE文件,可以直接运行

[此贴子已经被作者于2008-8-21 10:52:19编辑过]

TA的精华主题

TA的得分主题

发表于 2008-8-21 11:21 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

你好,谢谢你的热心。!!

就是不知道怎么作生成器,用VB做我还不会,但是可以尝试一下,呵呵,我在你的邮箱也问过你了。你的邮箱是eersoft这个么?

如果方便你发一个vb程序到我的邮箱好么?我还没下那个玩意。也不知道你们用的是哪个版本的,我是菜鸟!

我的邮箱名跟这个的帐号是一样的

TA的精华主题

TA的得分主题

 楼主| 发表于 2008-8-21 12:43 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
QUOTE:
以下是引用daf2003在2008-8-21 11:21:02的发言:

你好,谢谢你的热心。!!

就是不知道怎么作生成器,用VB做我还不会,但是可以尝试一下,呵呵,我在你的邮箱也问过你了。你的邮箱是eersoft这个么?

如果方便你发一个vb程序到我的邮箱好么?我还没下那个玩意。也不知道你们用的是哪个版本的,我是菜鸟!

我的邮箱名跟这个的帐号是一样的

给一个授权密钥的VB源程序吧,版本VB6.0 ,你修改的时候只需要让 其中的 gKey 函数和 Excel VBA中的gKey函数保持一致就可以了

yYqMrHSH.rar (30.31 KB, 下载次数: 1527)

TA的精华主题

TA的得分主题

发表于 2008-8-21 12:53 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2008-8-21 13:14 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2009-3-28 14:20 | 显示全部楼层
能不能加入未注册使用期限?如未注册只允许使用30次或者30天(这个自己设置),感激不尽!

TA的精华主题

TA的得分主题

发表于 2009-6-13 09:05 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
好,谢谢楼主。慢慢学习学习

TA的精华主题

TA的得分主题

发表于 2009-8-8 17:44 | 显示全部楼层
frmLogSta窗体的初始化里的下面语句会出现‘溢出’错误
    labTime.Caption = TimeSerial(0, 0, DateDiff("s", Now, StartTime))
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-17 14:37 , Processed in 0.046665 second(s), 8 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表