Ⅰ vb 请问怎么将写入.txt文件的内容加密
简单点加密就用 异或
Dimb()AsByte,iAsLongb=StrConv("test123",vbFromUnicode)Fori=0ToUBound(b)b(i)=b(i)Xor50Next将数组b内容保存到文本同样的代码解密
Ⅱ 简单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程序加密问题
在FormLoad事件里，写如下代码：If MsgBox("是否打开程序?", MsgBoxStyle.OkCancel) = MsgBoxResult.Cancel Then EndEnd If大概方法是这样，要想加密码的话，将MsgBox()换成你自己写的对话框。如果还嫌不够具体的话，你这点儿分就不够。。。
Ⅳ VB txt 加密解密
ByteToBin（），Reverse（），ByteToBin（）这三个函数是人写的，那就得去问写这个函数的人了，内容因人而异你如果把这三个函数写成空函数，那就等于没加密
Ⅳ vb如何加密、解密文本
大致有21种加密/解密算法源代码，和50多种种压缩/解压的算专法源代码文件属http://www.codefans.net/soft/2055.shtml
Ⅵ 如何用vb.net 打开一个既存的txt文档。
可以调用CMD
方法一：
Shell("cmd.exe/ccallc:新建文本文档.txt",AppWinStyle.NormalFocus)
缺点：不但会打开文本文件，同时还会显示一个cmd窗体。
方法二：
需要新建一个bat文件到资源里，输入start C:新建文本文档.txt
代码
shell"bat文件的路径.bat"
这样就好了，两种方法各有好坏。一个会显示cmd窗体，一个需要bat文件。
Ⅶ vb.net 中对txt文件的读取、写入的方法！始终保持txt里面只有一行！
Public Class Form1 Private Sub 写入文件_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 写入文件.Click FileOpen(1, "D:\一行文件.txt", OpenMode.Output) ' Open file for output. WriteLine(1, "想只保留文件为一行 那你就写一行好了") ' Print blank line to file. FileClose(1) ' Close file. End Sub Private Sub 读取文件_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 读取文件.Click Dim TextLine As String FileOpen(1, "D:\一行文件.txt", OpenMode.Input) ' Open file for output. TextLine = LineInput(1) '读取一行就了 MsgBox(TextLine) FileClose(1) End SubEnd Class最简单的方法 还有很多方法 自己研究吧亲 希望能帮到你
Ⅷ 用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生成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】怎么把text里面的内容生成一个txt文件
()'创建一个保存对话框SaveFileDialog1.Filter="txtfiles(*.txt)|*.txt"'设置扩展名IfSaveFileDialog1.ShowDialog()=System.Windows.Forms.DialogResult.OKThen'如果确定保存My.Computer.FileSystem.WriteAllText(SaveFileDialog1.Filename,Textbox1.Text,False)'保存文本,False表示不追加文本，直接覆盖其内容EndIf
