老歌新唱--使用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());
        }
    }
}

结束，收工