老歌新唱--使用VB6开发的ActiveX实现.NET程序的混淆加密

代码下载地址：http://files.cnblogs.com/wuhuacong/VBActiveX.rar

由于存在一下几种特点：
1、.NET程序反编译容易，而使用一些混淆工具会导致有些程序不能运行
2、VB6开发ActiveX控件，那叫一个快，VB代码也不是很容易被反编译。
3、结合两者的特点，如果在.NET中使用了封装一些关键代码的ActiveX控件，那么程序的安全性是否好一点呢？

对于这种做法，请大家拍砖讨论，本人提供一个如何实现这种做法的思路。

一、 编写一个封装关键字符串或者实现逻辑的ActiveX控件
   1、首先使用VB6创建一个ActiveX的工程项目

2、设置VB ActiveX的工程属性
  

3、编写类模块函数

Option   Explicit

Public   Function  GetString()  As   String
    GetString  =   " ABCDEFG "
End Function


Public   Function  ValidateString(ByVal str  As   String )  As   Boolean
    ValidateString  =   False
    
     If  str  =   " ABCD "   Then
        ValidateString  =   True
     Else
        Err.Raise Err.Number, ,  " 不正确 "
     End   If
End Function

Public   Function  GetDateTime()  As   Date

    GetDateTime  =   Now
    
End Function

注意：如果使用Err.Raise函数，在调用过程中会抛出一个异常


二、在.NET程序中引用并使用该ActiveX控件
1、创建一个Windows Form程序

2、添加ActiveX控件的引用

3、编写按钮事件及ActiveX控件调用代码

using  System.Data;
using  System.Drawing;
using  System.Text;
using  System.Windows.Forms;

namespace  TestMyVBControl
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }

        private void btnTest_Click(object sender, EventArgs e)
        {
            MyVBControl.TestClass test = new MyVBControl.TestClass();
            MessageBox.Show(test.GetString());
        }

        private void btnValidate_Click(object sender, EventArgs e)
        {
            MyVBControl.TestClass test = new MyVBControl.TestClass();
            try
            {
                MessageBox.Show(test.ValidateString("ABCD").ToString());//正确
                MessageBox.Show(test.ValidateString("ABCDE").ToString());//有错误
            }
            catch(Exception ex)
            {
                MessageBox.Show(ex.Message);
                return;
            }
        }

        private void btnGetDate_Click(object sender, EventArgs e)
        {
            MyVBControl.TestClass test = new MyVBControl.TestClass();
            MessageBox.Show(test.GetDateTime().ToString());
        }
    }
}

结束，收工