我们专注攀枝花网站设计 攀枝花网站制作 攀枝花网站建设
成都网站建设公司服务热线:400-028-6601

网站建设知识

十年网站开发经验 + 多家企业客户 + 靠谱的建站团队

量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决

vb.net源码保护 c#代码保护

如何保护VB.NET代码不被修改

保护VB.NET代码不被修改,最简单的就是 编译。

成都创新互联长期为超过千家客户提供的网站建设服务,团队从业经验10年,关注不同地域、不同群体,并针对不同对象提供差异化的产品和服务;打造开放共赢平台,与合作伙伴共同营造健康的互联网生态环境。为锦州企业提供专业的成都网站制作、做网站、外贸营销网站建设锦州网站改版等技术服务。拥有10余年丰富建站经验和众多成功案例,为您定制开发。

对外仅提供编译后的应用程序(库),别人就不能修改了。

.net软件,用什么软件加密狗加密,能防止代码反编译?

.Net软件

特点,

些强

编译工具

.Net

执行文件进行反编译操作,并

相应

IL代码甚至

源代码

即使

采用混淆工具

及强命名工具

根本

解决问题,代码依

容易

Reflectoer等工具反编译源代码

软件加密狗:威步(WIBU)

CodeMeter,AxProtector(for.net)两款软件加密狗性能非

反编译

问题,与传统

代码混淆工具(Obfuscator)

同,AxProtector

完全阻止

.NET

程序集(由

C#,

VB.NET,

Delphi.NET,

ASP.Net…

等语言编写)

反编译

通俗

讲,AxProtector

破解者

.NET

代码

间构建

防破解保护屏障,

基于

Windows

基于

MSIL

兼容格式文件

原始

.NET

代码完整

加密

封装

代码内,

论何

释放

硬盘,

于破解者

与单纯

.net加密软件

同,AxProtector与CodeMeter硬件加密狗配套餐使用,采用

严密

密钥管理,及

先进

AES、RSA、ECC等加密算

存储或传输密钥,保证通讯安全

.Net代码编译

.class

包含

源代码

信息(

包括注释),尤其

保存

调试信息

按照

式编译

.class

文件

轻易

反编译

般软件

发商

采用

种叫做混淆器

工具

混淆器

作用

编译

代码进行混淆,使

反编译或者反编译

代码混乱难懂

由于混淆器

混淆

名称或流程,

能防止源代码

反编译,

混淆器

作用

增加

反编译

难度,

治标

治本

些掌握工具

说几乎

透明

AxProtector

款真

意义

加密源代码、防止反编译

.net软件加密软件

AxProtector加密

.net原代码,任何

候原代码都

硬盘

采用AxProtector加密

.net代码

程序调用或执行某

段函数

候,才能通

AxProtectorClass

内存

解密

程序

执行,运行

迅速立即加密

种随机加密、按需解密原代码

功能,能

防止.Net程序

反编译,同

能够

防止API加密点

摘除

保证

源代码

执行效率

安全性

求VB.net程序源代码 绘图板、二十一点游戏、计算器、井字棋游戏、屏幕保护程序等

说明:1.共有4个文本框其,其中三个是填入或输出数据的(名称分别是:txta txtb txtc),剩下的那个是符号(txtd)2.共7个按钮,4个是符号按钮,一个计算,一个清零.这是我弄的程序”袖珍计算器”代码也是自己编写的,代码如下:通用声明Dim j As Integer '定义j为整型

Private Sub Text1_Change()End SubPrivate Sub Command1_Click()

txtfuhao.Text = "+" '将”+”显示到文本框txtfuhao.Text中

End SubPrivate Sub Command2_Click()

txtfuhao.Text = "-" ''将”-”显示到文本框txtfuhao.Text中

End SubPrivate Sub Command3_Click()

txtfuhao.Text = "×" '将”×”显示到文本框txtfuhao.Text中

End SubPrivate Sub Command4_Click()

txtfuhao.Text = "÷" 将”÷”'显示到文本框txtfuhao.Text中

End Sub

Private Sub Command5_Click()

Dim a, b, c As Integer

a = Val(txta.Text) '将txta.Text里的内容转化为数值型,然后再赋给a

b = Val(txtb.Text) '将txtb.Text里的内容转化为数值型,然后再赋给b

If txtfuhao.Text = "+" Then '运算过程

c = a + b '运算过程

ElseIf txtfuhao.Text = "-" Then '运算过程

c = a - b '运算过程

ElseIf txtfuhao.Text = "÷" Then '运算过程

c = a / b '运算过程

ElseIf txtfuhao.Text = "×" Then '运算过程

c = a * b '运算过程

Else

j = MsgBox("您输入的符号不正确", vbOKOnly, "错误信息")

End If

txtc.Text = c '将运算结果c输出到文本框txtc中

End SubPrivate Sub Command6_Click()

txta.Text = "" '将空字符输入到文本框内(刷新)

txtb.Text = "" '将空字符输入到文本框内(刷新)

txtc.Text = "" '将空字符输入到文本框内(刷新)

txtfuhao.Text = "" '将空字符输入到文本框内(刷新)

End SubPrivate Sub Command7_Click()

End '结束程序

End SubPrivate Sub Form_Load()End Sub

vb.net 屏幕保护程序

系统就有这个屏保啊!~!

Option EXPlicit

Dim quitflag As Boolean '声明终止程序标志变量

Dim lleft

'声明隐藏或显示鼠标的API函数

Private Declare Function ShowCursor Lib "user32"

(ByVal bShow As Long) As Long

'检测鼠标单击或移动

Private Sub Form_Click()

quitflag = True

End Sub

Private Sub Form_MouseMove(Button As Integer,Shift As Integer, X As Single, Y As Single)

Static xlast, ylast

Dim xnow As Single

Dim ynow As Single

xnow = X

ynow = Y

If xlast = 0 And ylast = 0 Then

xlast = xnow

ylast = ynow

Exit Sub

End If

If xnow xlast Or ynow ylast Then

quitflag = True

End If

End Sub

'检测按键

Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer)

quitflag = True

End Sub

Private Sub Form_Load()

Dim X As Long

lleft = 0

'横向滚动文字的起始X坐标

If App.PrevInstance = True Then

'用APP对象的PrevInstance属性

Unload Me

'防止同时运行屏幕保护程序的两个实例

Exit Sub

End If

Select Case Ucase$(Left$(Command$, 2))

'装载命令行参数

Case "/S" '在显示器属性对话框中单击了

预览按钮或屏幕保护程序被系统正常调用。

Show

'全屏显示Form1窗体

Randomize

'初始化随机数生成器

X = ShowCursor(False)

'隐藏鼠标

BackColor = VBBlack

Do

Timer2.Enabled = True

'启动Timer2 ,显示屏幕保护滚动文字

DoEvents

'转让控制权,以便检测鼠标和按键行为

Loop Until quitflag = True

'运行屏幕保护滚动文字直至有鼠标和按键行为

Timer2.Enabled = False

'终止滚动文字

Timer1.Enabled = True

'启动Timer1,退出屏幕保护程序

Case Else

Unload Me

Exit Sub

End Select

End Sub

Private Sub Form_Unload(Cancel As Integer)

Dim X

X = ShowCursor(True)

'显示鼠标

End Sub

Private Sub Timer1_Timer()

Unload Me

'退出屏幕保护程序

End Sub

Private Sub Timer2_Timer()

显示横向滚动文字

lleft = lleft + 100

If lleft = 11810 Then

lleft = 0

Lab1.Top = Int(Rnd * 7000)

End If

Lab1.Left = lleft

Timer2.Enabled = False

End Sub

各位网友好,vb.net现用到了哪个版本,现升级到了什么版本。vb.net与VB有什么不同,现VB是过时了吗?

vb.net的最新版本号是2010,和VB有很大不同,基本上你可以把它看成是全新的语言,VB6不再升级了,如果把VC作为一个成熟的语言,那么VB.NET和VC.NET是同等地位,而VB6只能算是一个玩具,仅仅作为培训对编程的认识有用。

如何用VB.NET写一个简单的屏幕保护程序?

在窗体上建立2个文本框text1和text2,一个按钮command1,text1里面输入你要转换的字符串,text2里面显示结果,代码如下:

Dim MyString As String

Dim EveryStr(50) As String

Dim TargetStr As String

Private Sub Command1_Click()

MyString = Text1

For i = 1 To Len(MyString)

EveryStr(i) = Right(Left(MyString, i), 1)

If Asc(EveryStr(i)) 123 And Asc(EveryStr(i)) 96 Then EveryStr(i) = \"_\"

If Asc(EveryStr(i)) 91 And Asc(EveryStr(i)) 64 Then EveryStr(i) = \"_\"

TargetStr = TargetStr EveryStr(i)

Next i

Text2 = TargetStr

TargetStr = \"\"

End Sub

引号前面怎么自动给加了个“\”?用的时候请手动把那几个“\”去掉


分享名称:vb.net源码保护 c#代码保护
分享网址:http://mswzjz.cn/article/hpdgpd.html

其他资讯