一种适合新手的VBA代码加密的方法

liucqa · 发表于 2017-9-13 20:36

本帖最后由 liucqa 于 2017-9-17 12:13 编辑

VBA代码加密是个老问题，自从五年前我写的的VBA Dumper发布之后，在Office层面上做任何加密都已经失去了意义。所以，很多人开始转战VB封装或者升级到VSTO等。但是，对于广大的VBAer来说，重新学一门语言带来的麻烦要远远超过开发VBA程序所带来的收益。所以，是否能有一种办法在不改变VBA代码的情况下，将VBA代码脱离office进行加密呢？

考虑到office支持Com插件，那么是否能够通过外接插件完成VBA代码的动态生成，动态解密，实时运行，完毕删除这一系列保护代码的动作呢。这样，VBA代码不会与office文件存在一处，就可以有充分的手段对VBA明文代码进行加密了。

本人在去年开发了VBA智能排版插件Smart Indenter for VBE，那么我就利用这个插件，完成了上述功能。

在演示里面，可以看到运行了几个过程和函数，运行的都是vba代码，由插件动态生成到Excel里面，然后通过Application.Run命令运行的。
这种加密方式的好处是不需要改动VBA代码，当然也就不需要学什么新的语言了。适合专注VBA应用开发的童鞋。

有几点说明：
1、此功能只是VBA加密的一个思路，供大家参考。
2、此种加密方式的优点在于将vba代码的加密层面从office转移到了.net。这给保护代码提供了很强的可行性。

提供附件，供大家测试。测试前请先安装Smart Indenter for VBE v2.4插件以提供最新的动态VBA加解密支持。

附件看八楼，问题看十楼。

如果有问题，欢迎QQ联系。

⊙⊙小噤○ · 发表于 2017-9-13 21:28

消灭0回复.

1ron2h · 发表于 2017-9-13 22:31

消灭1回复。

liucqa · 发表于 2017-9-13 22:47

动态增加，删除，修改VBA代码是这种加密方式的核心价值。

VBA开发者可以提供给用户A数据，代码注册通过之后，动态生成B数据完成核心功能。或者根据程序流程，动态修改运行分支，这样使用者永远也不知道程序的真正运行流程，达到保密效果。

microyip · 发表于 2017-9-13 22:51

支持一下刘大人的好技术

joforn · 发表于 2017-9-14 09:20

支持一下，坐等新版本。

jaxzhu · 发表于 2017-9-14 11:42

好好学习下

liucqa · 发表于 2017-9-14 18:37

本帖最后由 liucqa 于 2017-9-27 21:48 编辑

2.71版发布，支持VBA的各种参数，开放加密VBA明文代码文件的接口。使用者基本不需要更改代码即可实现高强度的加密效果。此版本增强安全性检测。

Demo_v2.x.rar (25 KB, 下载次数: 822)
测试Demo之前，请先下载2.71版Smart Indenter for VBE插件，具体网址见Demo文件说明。

**************

提供一个CrackMe文件供测试加密强度。欢迎交流。

CrackMe.rar (14.7 KB, 下载次数: 558)

02761752696 · 发表于 2017-9-14 21:06

学习一下，谢谢分享

liucqa · 发表于 2017-9-14 22:02

本帖最后由 liucqa 于 2017-9-27 21:49 编辑

几点说明：1、此加密功能特点在于不需要更改vba代码即可实现高强度的加密效果。
2、Demo中的明文文件是给看代码用的。实际应用使用的是密文文件。
3、对动态运行的vba代码有功能限制，不能Show窗体，报错，中断等，避免看到插入的代码。
4、VBA代码中，函数名称写法要规范，加上前面的库名，以避免函数劫持。例如VBA.Left。
5、考虑安全问题，不能设置信任对VBA工程对象模型的访问，工程文件里面也不要存在操作vbe的代码。

**********
安装插件之后如何生成自己的VBA加密文件？
1、准备你自己的VBA代码文本文件，注意要保证代码运行正确，不能有弹窗和报错中断问题。
2、修改DynamicVBADemo.xlsm中的CryptVBAFile函数，将fullpath和destpath指向你自己的文件路径和文件名。
3、运行CryptVBAFile
4、参考Sample模块中的例子，使用Call obj.RunVBASub或者obj.RunVBAFunction来调用你的函数。

调用参数：
文件名，文件密钥(无密钥写"")，文件格式编码(True=ansi,False=UTF8)，要调用的VBA函数名，函数参数1，函数参数2，函数参数3...（超过五个请使用不定参数）

		自动登录	找回密码
密码			免费注册

[分享] 一种适合新手的VBA代码加密的方法

评分