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

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

代码下载地址:http://www.cnblogs.com/Files/wuhuacong/VBActiveX.rar

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

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

一、 编写一个封装关键字符串或者实现逻辑的ActiveX控件
   1、首先使用VB6创建一个ActiveX的工程项目
Snap1.jpg
2、设置VB ActiveX的工程属性
  Snap1-2.jpg

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程序
Snap2.jpg
2、添加ActiveX控件的引用

Snap3.jpg

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());
        }

    }

}

结束,收工  
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值