vb.net字符串加密 vba 字符串加密

vb 加密字符串的方法

Private Sub Command1_Click()   '加密

Dim b() As Byte, i As Long

Open "d:\1.txt" For Binary As #1

b = InputB(LOF(1), #1)

Close #1

Randomize

For i = 0 To UBound(b) - 1

    b(i) = b(i) Xor b(i + 1)

Next

b(i) = b(i) Xor 93

Open "d:\2.txt" For Binary As #1

Put #1, , b

Close #1

MsgBox "1.txt已加密为2.txt"

End Sub

Private Sub Command2_Click()   '解密

Dim b() As Byte, i As Long

Open "d:\2.txt" For Binary As #1

b = InputB(LOF(1), #1)

Close #1

Randomize

b(UBound(b)) = b(UBound(b)) Xor 93

For i = UBound(b) - 1 To 0 Step -1

    b(i) = b(i) Xor b(i + 1)

Next

Open "d:\3.txt" For Binary As #1

Put #1, , b

Close #1

MsgBox "2.txt已解密为3.txt"

End Sub

1.txt加密后存为2.txt

2.txt解密后存为3.txt

请注意vb.net字符串加密，这个程序是可以加密解密任何文件vb.net字符串加密的（包括exe可执行文件）vb.net字符串加密，不单单是文本文件。

相关问答

Q1: 简单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 调试通过

Q2: 求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字符串加密的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vba 字符串加密、vb.net字符串加密的信息别忘了在本站进行查找喔。