[原创]用VB6.0做出的字串加密dll（带源码）！！-软件逆向-看雪-安全社区|安全招聘|kanxue.com

[原创]用VB6.0做出的字串加密dll（带源码）！！

发表于: 2008-5-17 11:14 19642

[原创]用VB6.0做出的字串加密dll（带源码）！！

不问年少

2008-5-17 11:14

19642

code.dll的说明：
  这是一个由VB做成的dll文件，它支持对字串进行Base64和随机数加解密两种方式。
如果要进行中英文混合加解密，可以先用Base64函数加解密，再用随机数解密。
  注意，加密和解密是逆向的，如加密过程为 Rand_Encode(Base64_Encode(str))
则解密过程为 Base64_Decode(Rand_Decode(pas))

函数原型为:
   Public Function Rand_Encode(ByVal x As String) As String '随机数加密，支持英文半角
   Rand_Decode(ByVal x As String) As String  '随机数解密，支持英文半角
   Public Function Base64_Decode(ByVal strSource As String) As String 'Base64解密，支持中英文全半角
   Public Function Base64_Encode(ByVal strSource As String) As String 'Base64加密，支持中英文全半角

登录后可查看完整内容

[注意]传递专业知识、拓宽行业人脉——看雪讲师团队等你加入！

上传的附件：

codeDll.rar （10.54kb，222次下载）
codedll字串加解密.JPG （20.12kb，714次下载）

收藏・3

免费・7

支持

最新回复 (32) 1 2 ▶
不问年少雪币： 1074 活跃值： (160) 能力值： ( LV13，RANK：760 ) 在线值：发帖 63 回帖 586 粉丝 3 关注私信	不问年少 15 2 楼另外再附带说一声，这个code.dll是标准的dll，不是你们所想象的Activexdll哈，嘿嘿！ 2008-5-17 11:27 0
不问年少雪币： 1074 活跃值： (160) 能力值： ( LV13，RANK：760 ) 在线值：发帖 63 回帖 586 粉丝 3 关注私信	不问年少 15 3 楼这么多人下，没有一个人顶我的，晕!!! 2008-5-18 15:07 0
意外意外雪币： 200 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 0 回帖 13 粉丝 0 关注私信	意外意外 4 楼我来顶一下,厚厚 2008-5-18 15:26 0
AChinese 雪币： 212 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 16 回帖 94 粉丝 0 关注私信	AChinese 5 楼支持，支持，支持 2008-5-18 15:47 0
不问年少雪币： 1074 活跃值： (160) 能力值： ( LV13，RANK：760 ) 在线值：发帖 63 回帖 586 粉丝 3 关注私信	不问年少 15 6 楼嘿嘿，谢谢大家支持! 2008-5-18 20:06 0
北极星2003 雪币： 1852 活跃值： (504) 能力值： (RANK：1010 ) 在线值：发帖 86 回帖 1240 粉丝 12 关注私信	北极星2003 25 7 楼普通DLL。支持下! 2008-5-19 09:10 0
百折不挠雪币： 217 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 36 回帖 139 粉丝 0 关注私信	百折不挠 8 楼怎么可能，VB是做不出来真正的DLL的，要不然你用VB的DLL做个全局钩子看看。如果只是欺骗编译器做出来的DLL不是真正的DLL。 2008-5-19 11:33 0
壹只老虎雪币： 112 活跃值： (16) 能力值： ( LV9，RANK：290 ) 在线值：发帖 38 回帖 709 粉丝 3 关注私信	壹只老虎 7 9 楼 [QUOTE=;]...[/QUOTE] 啥dll都不重要,能用就行! 2008-5-19 12:32 0
sdfcfy 雪币： 204 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 6 回帖 231 粉丝 0 关注私信	sdfcfy 10 楼支持,关键看应用 2008-5-19 12:50 0
不问年少雪币： 1074 活跃值： (160) 能力值： ( LV13，RANK：760 ) 在线值：发帖 63 回帖 586 粉丝 3 关注私信	不问年少 15 11 楼呵呵，谢谢大家支持，经测试此DLL为VB专用的DLL，在VC中会出现错误。在VB中引用此DLL的方法与标引用标准的DLL方式相同：如： Private declare function Rand_Encode lib "code.dll"(byval x as string)as string 2008-5-19 22:11 0
不问年少雪币： 1074 活跃值： (160) 能力值： ( LV13，RANK：760 ) 在线值：发帖 63 回帖 586 粉丝 3 关注私信	不问年少 15 12 楼上面的仁兄说的不错，我的确是采用欺骗编译器的方式产生的DLL!呵呵 2008-5-19 22:13 0
MMiao 雪币： 201 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 0 回帖 11 粉丝 0 关注私信	MMiao 13 楼厚道一下～嘿嘿！支持、纯支持～～～ 2008-9-24 12:01 0
plmmzhangs 雪币： 201 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 5 回帖 21 粉丝 0 关注私信	plmmzhangs 14 楼下下来学习之谢谢LZ的分享 2008-9-25 01:15 0
笨蛋雪币： 200 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 0 回帖 16 粉丝 0 关注私信	笨蛋 15 楼非常感谢@... 2008-10-11 15:59 0
iEXE 雪币： 75 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 4 回帖 54 粉丝 0 关注私信	iEXE 16 楼咱们有点类似我也是先学的VB 后来感觉不舒服才学的VCPP,ASM 比较熟悉VB... 2010-3-28 13:11 0
菜鸟小白雪币： 15 活跃值： (11) 能力值： ( LV2，RANK：10 ) 在线值：发帖 20 回帖 148 粉丝 0 关注私信	菜鸟小白 17 楼顶，虽然看不懂，还是得顶 2010-3-31 12:47 0
zoomlp 雪币： 729 活跃值： (862) 能力值： ( LV2，RANK：10 ) 在线值：发帖 4 回帖 276 粉丝 0 关注私信	zoomlp 18 楼谢谢！！！！！！谢谢！！！！！！ 2010-3-31 13:22 0
kangcin 雪币： 602 活跃值： (45) 能力值： ( LV2，RANK：10 ) 在线值：发帖 7 回帖 482 粉丝 0 关注私信	kangcin 19 楼留个桌坐坐 2010-3-31 14:36 0
typeqq 雪币： 27 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 0 回帖 2 粉丝 0 关注私信	typeqq 20 楼偶然看到,來幫頂一下 2010-4-1 04:57 0
hackce 雪币： 144 活跃值： (136) 能力值： ( LV2，RANK：10 ) 在线值：发帖 1 回帖 31 粉丝 0 关注私信	hackce 21 楼支持一下.下来分析一下. 2010-4-17 11:34 0
komnb 雪币： 1731 活跃值： (22) 能力值： ( LV2，RANK：10 ) 在线值：发帖 14 回帖 177 粉丝 0 关注私信	komnb 22 楼留个脚步！下次来收藏！呵呵！ 2010-4-17 12:18 0
ggggg 雪币： 1763 活跃值： (949) 能力值： ( LV2，RANK：10 ) 在线值：发帖 1 回帖 85 粉丝 0 关注私信	ggggg 23 楼不错，值得新手学习学习~~ 2010-4-17 15:23 0
ggggg 雪币： 1763 活跃值： (949) 能力值： ( LV2，RANK：10 ) 在线值：发帖 1 回帖 85 粉丝 0 关注私信	ggggg 24 楼 LZ，测试了下，引用出错呢~ 2010-4-17 16:14 0
zzcc 雪币： 243 活跃值： (247) 能力值： ( LV2，RANK：10 ) 在线值：发帖 31 回帖 377 粉丝 0 关注私信	zzcc 25 楼学习一下哈哈 2010-4-17 21:13 0
	游客登录 \| 注册方可回帖回帖表情雪币赚取及消费高级回复

不问年少

发帖

586

回帖

760

RANK

关注

私信

他的文章

关于我们

联系我们

企业服务

看雪公众号

最新回复 (32) 1 2 ▶
不问年少雪币： 1074 活跃值： (160) 能力值： ( LV13，RANK：760 ) 在线值：发帖 63 回帖 586 粉丝 3 关注私信	不问年少 15 2 楼另外再附带说一声，这个code.dll是标准的dll，不是你们所想象的Activexdll哈，嘿嘿！ 2008-5-17 11:27 0
不问年少雪币： 1074 活跃值： (160) 能力值： ( LV13，RANK：760 ) 在线值：发帖 63 回帖 586 粉丝 3 关注私信	不问年少 15 3 楼这么多人下，没有一个人顶我的，晕!!! 2008-5-18 15:07 0
意外意外雪币： 200 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 0 回帖 13 粉丝 0 关注私信	意外意外 4 楼我来顶一下,厚厚 2008-5-18 15:26 0
AChinese 雪币： 212 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 16 回帖 94 粉丝 0 关注私信	AChinese 5 楼支持，支持，支持 2008-5-18 15:47 0
不问年少雪币： 1074 活跃值： (160) 能力值： ( LV13，RANK：760 ) 在线值：发帖 63 回帖 586 粉丝 3 关注私信	不问年少 15 6 楼嘿嘿，谢谢大家支持! 2008-5-18 20:06 0
北极星2003 雪币： 1852 活跃值： (504) 能力值： (RANK：1010 ) 在线值：发帖 86 回帖 1240 粉丝 12 关注私信	北极星2003 25 7 楼普通DLL。支持下! 2008-5-19 09:10 0
百折不挠雪币： 217 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 36 回帖 139 粉丝 0 关注私信	百折不挠 8 楼怎么可能，VB是做不出来真正的DLL的，要不然你用VB的DLL做个全局钩子看看。如果只是欺骗编译器做出来的DLL不是真正的DLL。 2008-5-19 11:33 0
壹只老虎雪币： 112 活跃值： (16) 能力值： ( LV9，RANK：290 ) 在线值：发帖 38 回帖 709 粉丝 3 关注私信	壹只老虎 7 9 楼 [QUOTE=;]...[/QUOTE] 啥dll都不重要,能用就行! 2008-5-19 12:32 0
sdfcfy 雪币： 204 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 6 回帖 231 粉丝 0 关注私信	sdfcfy 10 楼支持,关键看应用 2008-5-19 12:50 0
不问年少雪币： 1074 活跃值： (160) 能力值： ( LV13，RANK：760 ) 在线值：发帖 63 回帖 586 粉丝 3 关注私信	不问年少 15 11 楼呵呵，谢谢大家支持，经测试此DLL为VB专用的DLL，在VC中会出现错误。在VB中引用此DLL的方法与标引用标准的DLL方式相同：如： Private declare function Rand_Encode lib "code.dll"(byval x as string)as string 2008-5-19 22:11 0
不问年少雪币： 1074 活跃值： (160) 能力值： ( LV13，RANK：760 ) 在线值：发帖 63 回帖 586 粉丝 3 关注私信	不问年少 15 12 楼上面的仁兄说的不错，我的确是采用欺骗编译器的方式产生的DLL!呵呵 2008-5-19 22:13 0
MMiao 雪币： 201 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 0 回帖 11 粉丝 0 关注私信	MMiao 13 楼厚道一下～嘿嘿！支持、纯支持～～～ 2008-9-24 12:01 0
plmmzhangs 雪币： 201 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 5 回帖 21 粉丝 0 关注私信	plmmzhangs 14 楼下下来学习之谢谢LZ的分享 2008-9-25 01:15 0
笨蛋雪币： 200 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 0 回帖 16 粉丝 0 关注私信	笨蛋 15 楼非常感谢@... 2008-10-11 15:59 0
iEXE 雪币： 75 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 4 回帖 54 粉丝 0 关注私信	iEXE 16 楼咱们有点类似我也是先学的VB 后来感觉不舒服才学的VCPP,ASM 比较熟悉VB... 2010-3-28 13:11 0
菜鸟小白雪币： 15 活跃值： (11) 能力值： ( LV2，RANK：10 ) 在线值：发帖 20 回帖 148 粉丝 0 关注私信	菜鸟小白 17 楼顶，虽然看不懂，还是得顶 2010-3-31 12:47 0
zoomlp 雪币： 729 活跃值： (862) 能力值： ( LV2，RANK：10 ) 在线值：发帖 4 回帖 276 粉丝 0 关注私信	zoomlp 18 楼谢谢！！！！！！谢谢！！！！！！ 2010-3-31 13:22 0
kangcin 雪币： 602 活跃值： (45) 能力值： ( LV2，RANK：10 ) 在线值：发帖 7 回帖 482 粉丝 0 关注私信	kangcin 19 楼留个桌坐坐 2010-3-31 14:36 0
typeqq 雪币： 27 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 0 回帖 2 粉丝 0 关注私信	typeqq 20 楼偶然看到,來幫頂一下 2010-4-1 04:57 0
hackce 雪币： 144 活跃值： (136) 能力值： ( LV2，RANK：10 ) 在线值：发帖 1 回帖 31 粉丝 0 关注私信	hackce 21 楼支持一下.下来分析一下. 2010-4-17 11:34 0
komnb 雪币： 1731 活跃值： (22) 能力值： ( LV2，RANK：10 ) 在线值：发帖 14 回帖 177 粉丝 0 关注私信	komnb 22 楼留个脚步！下次来收藏！呵呵！ 2010-4-17 12:18 0
ggggg 雪币： 1763 活跃值： (949) 能力值： ( LV2，RANK：10 ) 在线值：发帖 1 回帖 85 粉丝 0 关注私信	ggggg 23 楼不错，值得新手学习学习~~ 2010-4-17 15:23 0
ggggg 雪币： 1763 活跃值： (949) 能力值： ( LV2，RANK：10 ) 在线值：发帖 1 回帖 85 粉丝 0 关注私信	ggggg 24 楼 LZ，测试了下，引用出错呢~ 2010-4-17 16:14 0
zzcc 雪币： 243 活跃值： (247) 能力值： ( LV2，RANK：10 ) 在线值：发帖 31 回帖 377 粉丝 0 关注私信	zzcc 25 楼学习一下哈哈 2010-4-17 21:13 0
	游客登录 \| 注册方可回帖回帖表情雪币赚取及消费高级回复