vb.net源码加密 vb程序加密方案例子

VB.NET程序加密问题

在FormLoad事件里，写如下代码：

If MsgBox("是否打开程序?", MsgBoxStyle.OkCancel) = MsgBoxResult.Cancel Then

End

End If

大概方法是这样，要想加密码的话，将MsgBox()换成你自己写的对话框。

如果还嫌不够具体的话，你这点儿分就不够。。。

相关问答

Q1: vb.net中实现rsa加密解密 急！急！

我觉得你的并不是RSA加密解密算法。

在.net的有一个System.Security.Cryptography的命名空间，里面有一RSACryptoServiceProvider的类用来对byte进行RSA加密解密。

具体例子如下：

using System;

using System.Security.Cryptography;

using System.Text;

class RSACSPSample

{

static void Main()

{

try

{

//Create a UnicodeEncoder to convert between byte array and string.

UnicodeEncoding ByteConverter = new UnicodeEncoding();

//Create byte arrays to hold original, encrypted, and decrypted data.

byte[] dataToEncrypt = ByteConverter.GetBytes("Data to Encrypt");

byte[] encryptedData;

byte[] decryptedData;

//Create a new instance of RSACryptoServiceProvider to generate

//public and private key data.

RSACryptoServiceProvider RSA = new RSACryptoServiceProvider();

//Pass the data to ENCRYPT, the public key information

//(using RSACryptoServiceProvider.ExportParameters(false),

//and a boolean flag specifying no OAEP padding.

encryptedData = RSAEncrypt(dataToEncrypt,RSA.ExportParameters(false), false);

//Pass the data to DECRYPT, the private key information

//(using RSACryptoServiceProvider.ExportParameters(true),

//and a boolean flag specifying no OAEP padding.

decryptedData = RSADecrypt(encryptedData,RSA.ExportParameters(true), false);

//Display the decrypted plaintext to the console.

Console.WriteLine("Decrypted plaintext: {0}", ByteConverter.GetString(decryptedData));

}

catch(ArgumentNullException)

{

//Catch this exception in case the encryption did

//not succeed.

Console.WriteLine("Encryption failed.");

}

}

static public byte[] RSAEncrypt(byte[] DataToEncrypt, RSAParameters RSAKeyInfo, bool DoOAEPPadding)

{

try

{

//Create a new instance of RSACryptoServiceProvider.

RSACryptoServiceProvider RSA = new RSACryptoServiceProvider();

//Import the RSA Key information. This only needs

//toinclude the public key information.

RSA.ImportParameters(RSAKeyInfo);

//Encrypt the passed byte array and specify OAEP padding.

//OAEP padding is only available on Microsoft Windows XP or

//later.

return RSA.Encrypt(DataToEncrypt, DoOAEPPadding);

}

//Catch and display a CryptographicException

//to the console.

catch(CryptographicException e)

{

Console.WriteLine(e.Message);

return null;

}

}

static public byte[] RSADecrypt(byte[] DataToDecrypt, RSAParameters RSAKeyInfo,bool DoOAEPPadding)

{

try

{

//Create a new instance of RSACryptoServiceProvider.

RSACryptoServiceProvider RSA = new RSACryptoServiceProvider();

//Import the RSA Key information. This needs

//to include the private key information.

RSA.ImportParameters(RSAKeyInfo);

//Decrypt the passed byte array and specify OAEP padding.

//OAEP padding is only available on Microsoft Windows XP or

//later.

return RSA.Decrypt(DataToDecrypt, DoOAEPPadding);

}

//Catch and display a CryptographicException

//to the console.

catch(CryptographicException e)

{

Console.WriteLine(e.ToString());

return null;

}

}

}

[Visual Basic]

Try

'Create a new RSACryptoServiceProvider object.

Dim RSA As New RSACryptoServiceProvider()

'Export the key information to an RSAParameters object.

'Pass false to export the public key information or pass

'true to export public and private key information.

Dim RSAParams As RSAParameters = RSA.ExportParameters(False)

Catch e As CryptographicException

'Catch this exception in case the encryption did

'not succeed.

Console.WriteLine(e.Message)

End Try

[C#]

try

{

//Create a new RSACryptoServiceProvider object.

RSACryptoServiceProvider RSA = new RSACryptoServiceProvider();

//Export the key information to an RSAParameters object.

//Pass false to export the public key information or pass

//true to export public and private key information.

RSAParameters RSAParams = RSA.ExportParameters(false);

}

catch(CryptographicException e)

{

//Catch this exception in case the encryption did

//not succeed.

Console.WriteLine(e.Message);

}

Q2: 求用VB.NET编的“古典密码”加密程序！！

Public Class Form1

Dim s As String

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim yingshe As String = TextBox1.Text

Dim news As String

Dim temp As String

Dim new_temp As String

Dim i As Integer

If ofDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then

Dim objfile As New System.IO.StreamReader(ofDialog1.FileName)

s = objfile.ReadToEnd

objfile.Close()

End If

For i = 1 To Len(s)

temp = Microsoft.VisualBasic.Mid(s, i, 1)

Select Case Asc(temp)

Case 97 To 123

new_temp = Microsoft.VisualBasic.Mid(yingshe, Asc(temp) - 96, 1)

Case 65 To 91

new_temp = UCase(Microsoft.VisualBasic.Mid(yingshe, Asc(temp) - 64, 1))

Case Else

new_temp = temp

End Select

news = news new_temp

Next

Dim objfile1 As New System.IO.StreamWriter(ofDialog1.FileName)

objfile1.Write(news)

objfile1.Close()

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim objfile1 As New System.IO.StreamWriter(ofDialog1.FileName)

objfile1.Write(s)

objfile1.Close()

MessageBox.Show("成功解密vb.net源码加密了")

End Sub

End Class

所需要的控件有按钮两个vb.net源码加密，一个加密vb.net源码加密，一个解密vb.net源码加密，文本框一个，里面是26个字母的对应表，比如bcdefghijklmnopqrstuvwxyza的话，就把a 改变为 b。

Q3: VB.NET开发的软件，大家一般都是怎么加密的

网上有很多专业的加密教程

最适合小开发者的软件加密方式就是下面这个

获取硬件信息和个人注册时的姓名手机号等一系列信息vb.net源码加密，通过预先设定好的加密函数进行散列加密vb.net源码加密，生成一个只有本人本机能使用的序列号vb.net源码加密，软件正版授权的时候用同样的方式生成序列号进行比对，一样则通过

Q4: 用VB.net编写一个加密解密软件

"采用DES算法"这个说法不明确vb.net源码加密，首先是使用多少位vb.net源码加密的DES进行加密，通常是128位或192位，其次是，要先把主密钥转化成散列，才能供DES进行加密，转化的方法是什么没有明确，通常是md5，所以有的银行卡说是128位md5 3DS就是指用md5转换主密钥散列，用DES进行加密，但是DES本身是64位（包含校验码），2DES是128位，3DES是192位，但是没有2DES的叫法，所以128位、192位统称3DES

要完整的md5+3DS实例，需要100分以上，要不到我的空间中查找相关的文章

Q5: VB.NET做的一个行业小软件，请问如何加密，比如需要通过什么硬件的序列号注册；

最好的加密就是通过你的网站去加密！用网络服务器验证把一些主要程序都可以加载到服务器上！这样你的程序加密就完美了！　（个人观点纯属不懂装懂的。哈哈见笑）

关于vb.net源码加密和vb程序加密方案例子的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。