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

代码下载地址:https://files.cnblogs.com/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 StringAs 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());
        }

    }

}

结束,收工

posted on   伍华聪  阅读(3598)  评论(8编辑  收藏  举报

编辑推荐:
· AI与.NET技术实操系列(二):开始使用ML.NET
· 记一次.NET内存居高不下排查解决与启示
· 探究高空视频全景AR技术的实现原理
· 理解Rust引用及其生命周期标识(上)
· 浏览器原生「磁吸」效果!Anchor Positioning 锚点定位神器解析
阅读排行:
· DeepSeek 开源周回顾「GitHub 热点速览」
· 物流快递公司核心技术能力-地址解析分单基础技术分享
· .NET 10首个预览版发布:重大改进与新特性概览!
· AI与.NET技术实操系列(二):开始使用ML.NET
· .NET10 - 预览版1新功能体验(一)

导航

< 2008年1月 >
30 31 1 2 3 4 5
6 7 8 9 10 11 12
13 14 15 16 17 18 19
20 21 22 23 24 25 26
27 28 29 30 31 1 2
3 4 5 6 7 8 9
点击右上角即可分享
微信分享提示