首页
社区
课程
招聘
[原创]土地拍卖竞标助手 专业版 6.31-MD5算法分析+VB注册机
发表于: 2005-4-18 07:00 12144

[原创]土地拍卖竞标助手 专业版 6.31-MD5算法分析+VB注册机

2005-4-18 07:00
12144
收藏
免费 7
支持
分享
最新回复 (20)
雪    币: 151
活跃值: (66)
能力值: ( LV6,RANK:90 )
在线值:
发帖
回帖
粉丝
2
支持以下..
2005-4-18 09:16
0
雪    币: 151
活跃值: (66)
能力值: ( LV6,RANK:90 )
在线值:
发帖
回帖
粉丝
3
代码看着真舒服,又看一遍,
真好~~
学习了..
2005-4-18 09:19
0
雪    币: 817
活跃值: (1927)
能力值: ( LV12,RANK:2670 )
在线值:
发帖
回帖
粉丝
4
最初由 shuair 发布
代码看着真舒服,又看一遍,
真好~~
学习了..


2005-4-18 21:41
0
雪    币: 427
活跃值: (412)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
5
行业软件一向没兴趣
2005-4-18 22:16
0
雪    币: 260
活跃值: (81)
能力值: ( LV4,RANK:50 )
在线值:
发帖
回帖
粉丝
6
强,支持KuNgBiM!!
2005-4-18 23:18
0
雪    币: 107
活跃值: (54)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
7
支持 ~~~~
2005-4-19 01:41
0
雪    币: 202
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
8
支持一下。。 ,在问下,代码着色那里有的下??
2005-4-19 04:30
0
雪    币: 217
活跃值: (91)
能力值: ( LV4,RANK:50 )
在线值:
发帖
回帖
粉丝
9
学习一下
2005-4-19 08:09
0
雪    币: 817
活跃值: (1927)
能力值: ( LV12,RANK:2670 )
在线值:
发帖
回帖
粉丝
10
最初由 小小鸟 发布
支持一下。。 ,在问下,代码着色那里有的下??


天空软件站有下载  搜索“代码着色xTiNt 0.70”
2005-4-19 19:14
0
雪    币: 237
活跃值: (145)
能力值: ( LV8,RANK:130 )
在线值:
发帖
回帖
粉丝
11
没搜到 代码着色xTiNt 0.70
能给个连接吗?谢谢
2005-4-19 19:38
0
雪    币: 202
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
12
http://www2.skycn.com/soft/16115.html

莫非是这个??有点难用。。。。
2005-4-20 01:31
0
雪    币: 817
活跃值: (1927)
能力值: ( LV12,RANK:2670 )
在线值:
发帖
回帖
粉丝
13
最初由 小小鸟 发布
http://www2.skycn.com/soft/16115.html

莫非是这个??有点难用。。。。


对!正是这个软件!
2005-4-20 14:46
0
雪    币: 203
活跃值: (17)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
14
Private Sub Text1_Change()
Dim tzm, zcm
Set c1 = New clsMD5                            '调用算法模块:先将机器码转换成 MD5密钥,等待下步运算
tzm = c1.Md5_String_Calc(Text1.Text)
zcm = Mid(tzm, 1, 4) & "-" & Mid(tzm, 4, 4)    '取特征码前4位数作为SN1以及特征码从第4位开始后的4位数作为SN2,并用“-”连接
Text2.Text = zcm
End Sub

Set c1 = New clsMD5   ( New clsMD5) 我在编译时通不过  提示“用户定义类行为定义 ”我的系统XP 请大家给指教
2005-9-30 17:29
0
雪    币: 203
活跃值: (17)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
15
winME下编辑也是同样的问题
2005-9-30 19:56
0
雪    币: 61
活跃值: (160)
能力值: ( LV9,RANK:170 )
在线值:
发帖
回帖
粉丝
16
2005-9-30 21:29
0
雪    币: 198
活跃值: (16)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
17
不能打印。
2005-9-30 23:00
0
雪    币: 214
活跃值: (86)
能力值: ( LV6,RANK:90 )
在线值:
发帖
回帖
粉丝
18
……KEYGEN效果可以,呵呵,半透明~
2005-10-1 14:14
0
雪    币: 817
活跃值: (1927)
能力值: ( LV12,RANK:2670 )
在线值:
发帖
回帖
粉丝
19
最初由 wangcl 发布
Private Sub Text1_Change()
Dim tzm, zcm
Set c1 = New clsMD5 '调用算法模块:先将机器码转换成 MD5密钥,等待下步运算
tzm = c1.Md5_String_Calc(Text1.Text)
zcm = Mid(tzm, 1, 4) & "-" & Mid(tzm, 4, 4) '取特征码前4位数作为SN1以及特征码从第4位开始后的4位数作为SN2,并用“-”连接
........


clsMD5 这个指的是模块的名称!
2005-10-1 20:53
0
雪    币: 203
活跃值: (17)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
20
解决好了
感谢你的回复
2005-10-10 14:00
0
雪    币: 9000
活跃值: (3218)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
21
好爱daK
2017-6-5 09:14
0
游客
登录 | 注册 方可回帖
返回
//