vb.net文件加密方法 vb中加密加密代码

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

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

专注于为中小企业提供成都网站制作、成都网站建设、外贸营销网站建设服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业太和免费做网站提供优质的服务。我们立足成都，凝聚了一批互联网行业人才，有力地推动了上千企业的稳健成长，帮助中小企业通过网站建设实现规模扩充和转变。

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

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

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

VB.NET程序加密问题

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

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

End

End If

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

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

简单VB.NET加密与解密

Private Function myEncrypt(ByVal Code As String) As String

Dim Result As String = ""

Dim CurrentChar As Char

For i As Integer = 0 To Code.Length - 1

CurrentChar = Code.Substring(i, 1)

Select Case Code.Substring(i, 1)

Case "Z"

Result = "a"

Case "z"

Result = "A"

Case Else

Result = Chr(Asc(CurrentChar) + 1)

End Select

Next

Return Result

End Function

'vb.net 2005 调试通过

求VB.NET生成TET文件的加密方法

使用加密方式存储即可实现别人无法查看内容，加密的方式有很多，适用你这里使用的是可逆的算法，推荐你使用DES加密

Imports System  

Imports System.Collections.Generic  

Imports System.Text  

Imports System.IO  

Imports System.Security  

Imports System.Security.Cryptography  

Namespace ZU14  

NotInheritable Public Class DES  

Private iv As String = "1234的yzo" 

Private key As String = "123在yzo" 

'/ summary 

'/ DES加密偏移量，必须是=8位长的字符串  

'/ /summary 

Public Property IV() As String  

Get  

Return iv  

End Get  

Set  

iv = value 

End Set  

End Property  

'/ summary 

'/ DES加密的私钥，必须是8位长的字符串  

'/ /summary 

Public Property Key() As String  

Get  

Return key  

End Get  

Set  

key = value 

End Set  

End Property  

'/ summary 

'/ 对字符串进行DES加密  

'/ /summary 

'/ param name="sourceString"待加密的字符串/param 

'/ returns加密后的BASE64编码的字符串/returns 

Public Function Encrypt(sourceString As String) As String  

Dim btKey As Byte() = Encoding.Default.GetBytes(key)  

Dim btIV As Byte() = Encoding.Default.GetBytes(iv)  

Dim des As New DESCryptoServiceProvider()  

Dim ms As New MemoryStream()  

Try  

Dim inData As Byte() = Encoding.Default.GetBytes(sourceString)  

Try  

Dim cs As New CryptoStream(ms, des.CreateEncryptor(btKey, btIV), CryptoStreamMode.Write)  

Try  

cs.Write(inData, 0, inData.Length)  

cs.FlushFinalBlock()  

Finally  

cs.Dispose()  

End Try  

Return Convert.ToBase64String(ms.ToArray())  

Catch  

End Try  

Finally  

ms.Dispose()  

End Try  

End Function 'Encrypt  

'/ summary 

'/ 对DES加密后的字符串进行解密  

'/ /summary 

'/ param name="encryptedString"待解密的字符串/param 

'/ returns解密后的字符串/returns 

Public Function Decrypt(encryptedString As String) As String  

Dim btKey As Byte() = Encoding.Default.GetBytes(key)  

Dim btIV As Byte() = Encoding.Default.GetBytes(iv)  

Dim des As New DESCryptoServiceProvider()  

Dim ms As New MemoryStream()  

Try  

Dim inData As Byte() = Convert.FromBase64String(encryptedString)  

Try  

Dim cs As New CryptoStream(ms, des.CreateDecryptor(btKey, btIV), CryptoStreamMode.Write)  

Try  

cs.Write(inData, 0, inData.Length)  

cs.FlushFinalBlock()  

Finally  

cs.Dispose()  

End Try  

Return Encoding.Default.GetString(ms.ToArray())  

Catch  

End Try  

Finally  

ms.Dispose()  

End Try  

End Function 'Decrypt  

'/ summary 

'/ 对文件内容进行DES加密  

'/ /summary 

'/ param name="sourceFile"待加密的文件绝对路径/param 

'/ param name="destFile"加密后的文件保存的绝对路径/param 

Overloads Public Sub EncryptFile(sourceFile As String, destFile As String)  

If Not File.Exists(sourceFile) Then  

Throw New FileNotFoundException("指定的文件路径不存在！", sourceFile)  

End If  

Dim btKey As Byte() = Encoding.Default.GetBytes(key)  

Dim btIV As Byte() = Encoding.Default.GetBytes(iv)  

Dim des As New DESCryptoServiceProvider()  

Dim btFile As Byte() = File.ReadAllBytes(sourceFile)  

Dim fs As New FileStream(destFile, FileMode.Create, FileAccess.Write)  

Try  

Try  

Dim cs As New CryptoStream(fs, des.CreateEncryptor(btKey, btIV), CryptoStreamMode.Write)  

Try  

cs.Write(btFile, 0, btFile.Length)  

cs.FlushFinalBlock()  

Finally  

cs.Dispose()  

End Try  

Catch  

Finally  

fs.Close()  

End Try  

Finally  

fs.Dispose()  

End Try  

End Sub 'EncryptFile  

'/ summary 

'/ 对文件内容进行DES加密，加密后覆盖掉原来的文件  

'/ /summary 

'/ param name="sourceFile"待加密的文件的绝对路径/param 

Overloads Public Sub EncryptFile(sourceFile As String)  

EncryptFile(sourceFile, sourceFile)  

End Sub 'EncryptFile  

'/ summary 

'/ 对文件内容进行DES解密  

'/ /summary 

'/ param name="sourceFile"待解密的文件绝对路径/param 

'/ param name="destFile"解密后的文件保存的绝对路径/param 

Overloads Public Sub DecryptFile(sourceFile As String, destFile As String)  

If Not File.Exists(sourceFile) Then  

Throw New FileNotFoundException("指定的文件路径不存在！", sourceFile)  

End If  

Dim btKey As Byte() = Encoding.Default.GetBytes(key)  

Dim btIV As Byte() = Encoding.Default.GetBytes(iv)  

Dim des As New DESCryptoServiceProvider()  

Dim btFile As Byte() = File.ReadAllBytes(sourceFile)  

Dim fs As New FileStream(destFile, FileMode.Create, FileAccess.Write)  

Try  

Try  

Dim cs As New CryptoStream(fs, des.CreateDecryptor(btKey, btIV), CryptoStreamMode.Write)  

Try  

cs.Write(btFile, 0, btFile.Length)  

cs.FlushFinalBlock()  

Finally  

cs.Dispose()  

End Try  

Catch  

Finally  

fs.Close()  

End Try  

Finally  

fs.Dispose()  

End Try  

End Sub 'DecryptFile  

'/ summary 

'/ 对文件内容进行DES解密，加密后覆盖掉原来的文件  

'/ /summary 

'/ param name="sourceFile"待解密的文件的绝对路径/param 

Overloads Public Sub DecryptFile(sourceFile As String)  

DecryptFile(sourceFile, sourceFile)  

End Sub 'DecryptFile  

End Class 'DES  

End Namespace 'ZU14 

对文本文件加密

Dim des As New ZU14.DES()  

des.IV = "abcd哈哈笑" 

des.Key = "必须八位" 

'加密

des.EncryptFile("d:\a.txt", "d:\b.txt")  

'解密

des.DecryptFile("d:\b.txt")

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

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

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

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

当前文章：vb.net文件加密方法 vb中加密加密代码
标题路径：http://6mz.cn/article/hjhejd.html