vbnet文件加密

⑴ 用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制作的加密程序问题

这个看你想做成什么样子了，其实最简单的办法是建立一个数据库，加密数据库，所有文件都存放在数据库中，如果需要恢复文件，利用软件将数据库中文件重新写出来就可以了，根本都不需要在单独去加密，一般说来破解数据库的密码还是比较困难的，比自己做加密算法方便多了。 这个办法还可以用来实现不同的登录可以获得不同的权限，比如自己登录可以全部打开，其他的人登录给一个通用账户，只能看到其中的一部分或是构造一个假象的数据信息给他，可以极大的提高数据安全性。编程实现非常方便。 建议你试一下。

⑶ 简单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
End
End If
大概方法是这样，要想加密码的话，将MsgBox()换成你自己写的对话框。
如果还嫌不够具体的话，你这点儿分就不够。。。

⑸ 求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如何创建mdb文件并设置密码

首先在项目的VB.NET界面，使用菜单【项目】--【添加引用】--【COM】

选择 Microsoft ADO Ext. 2.x for DDL and Security

然后单击【确定】，完成引用。

完整代码如下：

ImportsADOX
PublicClassForm1

PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
'创建空的access数据库文件--数据库文件.mdb，密码为123
DimMycatAsCatalog=NewCatalog()
Mycat.Create("Provider=Microsoft.Jet.OLEDB.4.0;JetOLEDB:EngineType=5;DataSource=数据库文件.mdb;JetOLEDB:DatabasePassword=123")

'以下代码创建一个名为“实验数据表”
DimMyTableAsADOX.Table=NewADOX.Table'定义新表

MyTable.Name="实验数据表"'表命名

'给表“实验数据表”创建一个字符串字段，字段名“姓名”
MyTable.Columns.Append("姓名",,ADOX.DataTypeEnum.adWChar)

'给表“实验数据表”创建一个整数字段，字段名“学号”
MyTable.Columns.Append("学号",ADOX.DataTypeEnum.adInteger)'追加一个数字型字段

'给字段“学号”创建一个主键“PimaryKey_Field”
MyTable.Keys.Append("学号",ADOX.KeyTypeEnum.adKeyPrimary,"学号")

Mycat.Tables.Append(MyTable)'把所有的新字段追加到表

MyTable=Nothing
Mycat=Nothing

EndSub
EndClass

⑻ 用.net实现文件夹加密

using System;
using System.Drawing;
using System.Collections;
using System.ComponentModel;
using System.Windows.Forms;
using System.Data;
using System.IO ;
using System.Diagnostics ;
using System.Threading ;
namespace 伪装文件夹
{
/// <summary>
/// Form1 的摘要说明。
/// </summary>
public class Form1 : System.Windows.Forms.Form
{
private System.Windows.Forms.GroupBox groupBox1;
private System.Windows.Forms.Button button1;
private System.Windows.Forms.FolderBrowserDialog foldeOpen;
private System.Windows.Forms.TextBox AfoldePath;
private System.Windows.Forms.GroupBox groupBox2;
private System.Windows.Forms.Button button2;
private System.Windows.Forms.Button button3;
private System.Windows.Forms.TextBox textBox1;
private System.Windows.Forms.Button AddPassword;
private System.Windows.Forms.ComboBox comboBox1;
private System.ComponentModel.IContainer components;

public Form1()
{
//
// Windows 窗体设计器支持所必需的
//
InitializeComponent();

//
// TODO: 在 InitializeComponent 调用后添加任何构造函数代码
//
}

/// <summary>
/// 清理所有正在使用的资源。
/// </summary>
protected override void Dispose( bool disposing )
{
if( disposing )
{
if (components != null)
{
components.Dispose();
}
}
base.Dispose( disposing );
}

#region Windows 窗体设计器生成的代码
/// <summary>
/// 设计器支持所需的方法 - 不要使用代码编辑器修改
/// 此方法的内容。
/// </summary>
private void InitializeComponent()
{
System.Resources.ResourceManager resources = new System.Resources.ResourceManager(typeof(Form1));
this.groupBox1 = new System.Windows.Forms.GroupBox();
this.comboBox1 = new System.Windows.Forms.ComboBox();
this.AddPassword = new System.Windows.Forms.Button();
this.button1 = new System.Windows.Forms.Button();
this.AfoldePath = new System.Windows.Forms.TextBox();
this.foldeOpen = new System.Windows.Forms.FolderBrowserDialog();
this.groupBox2 = new System.Windows.Forms.GroupBox();
this.button2 = new System.Windows.Forms.Button();
this.button3 = new System.Windows.Forms.Button();
this.textBox1 = new System.Windows.Forms.TextBox();
this.groupBox1.SuspendLayout();
this.groupBox2.SuspendLayout();
this.SuspendLayout();
//
// groupBox1
//
this.groupBox1.BackColor = System.Drawing.Color.Transparent;
this.groupBox1.Controls.Add(this.comboBox1);
this.groupBox1.Controls.Add(this.AddPassword);
this.groupBox1.Controls.Add(this.button1);
this.groupBox1.Controls.Add(this.AfoldePath);
this.groupBox1.Location = new System.Drawing.Point(6, 6);
this.groupBox1.Name = "groupBox1";
this.groupBox1.Size = new System.Drawing.Size(276, 78);
this.groupBox1.TabIndex = 0;
this.groupBox1.TabStop = false;
this.groupBox1.Text = "加密";
//
// comboBox1
//
this.comboBox1.Items.AddRange(new object[] {
"我的电脑",
"我的文档",
"拨号网络",
"控制面板",
"计划任务",
"打印机",
"记事本",
"网络邻居",
"回收站",
"公文包",
"字体 ",
"Web 文件夹"});
this.comboBox1.Location = new System.Drawing.Point(12, 48);
this.comboBox1.Name = "comboBox1";
this.comboBox1.Size = new System.Drawing.Size(174, 20);
this.comboBox1.TabIndex = 15;
this.comboBox1.Text = "伪装类型";
//
// AddPassword
//
this.AddPassword.BackColor = System.Drawing.Color.Transparent;
this.AddPassword.ForeColor = System.Drawing.Color.Red;
this.AddPassword.Location = new System.Drawing.Point(192, 48);
this.AddPassword.Name = "AddPassword";
this.AddPassword.TabIndex = 14;
this.AddPassword.Text = "伪装";
this.AddPassword.Click += new System.EventHandler(this.AddPassword_Click);
//
// button1
//
this.button1.Location = new System.Drawing.Point(192, 20);
this.button1.Name = "button1";
this.button1.TabIndex = 8;
this.button1.Text = "文件夹路径";
this.button1.Click += new System.EventHandler(this.button1_Click);
//
// AfoldePath
//
this.AfoldePath.BackColor = System.Drawing.Color.FromArgb(((System.Byte)(255)), ((System.Byte)(224)), ((System.Byte)(192)));
this.AfoldePath.Location = new System.Drawing.Point(12, 20);
this.AfoldePath.Name = "AfoldePath";
this.AfoldePath.ReadOnly = true;
this.AfoldePath.Size = new System.Drawing.Size(174, 21);
this.AfoldePath.TabIndex = 7;
this.AfoldePath.Text = "";
//
// groupBox2
//
this.groupBox2.BackColor = System.Drawing.Color.Transparent;
this.groupBox2.Controls.Add(this.button2);
this.groupBox2.Controls.Add(this.button3);
this.groupBox2.Controls.Add(this.textBox1);
this.groupBox2.Location = new System.Drawing.Point(6, 90);
this.groupBox2.Name = "groupBox2";
this.groupBox2.Size = new System.Drawing.Size(276, 76);
this.groupBox2.TabIndex = 1;
this.groupBox2.TabStop = false;
this.groupBox2.Text = "解密";
//
// button2
//
this.button2.ForeColor = System.Drawing.Color.Red;
this.button2.Location = new System.Drawing.Point(192, 48);
this.button2.Name = "button2";
this.button2.TabIndex = 14;
this.button2.Text = "解密";
this.button2.Click += new System.EventHandler(this.button2_Click);
//
// button3
//
this.button3.ForeColor = System.Drawing.Color.Red;
this.button3.Location = new System.Drawing.Point(192, 20);
this.button3.Name = "button3";
this.button3.TabIndex = 8;
this.button3.Text = "文件夹路径";
this.button3.Click += new System.EventHandler(this.button3_Click);
//
// textBox1
//
this.textBox1.BackColor = System.Drawing.Color.FromArgb(((System.Byte)(128)), ((System.Byte)(255)), ((System.Byte)(128)));
this.textBox1.Location = new System.Drawing.Point(12, 24);
this.textBox1.Name = "textBox1";
this.textBox1.ReadOnly = true;
this.textBox1.Size = new System.Drawing.Size(174, 21);
this.textBox1.TabIndex = 7;
this.textBox1.Text = "";
//
// Form1
//
this.AutoScaleBaseSize = new System.Drawing.Size(6, 14);
this.ClientSize = new System.Drawing.Size(288, 174);
this.Controls.Add(this.groupBox2);
this.Controls.Add(this.groupBox1);
this.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle;
this.Icon = ((System.Drawing.Icon)(resources.GetObject("$this.Icon")));
this.MaximizeBox = false;
this.Name = "Form1";
this.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen;
this.Text = "伪装文件夹";
this.groupBox1.ResumeLayout(false);
this.groupBox2.ResumeLayout(false);
this.ResumeLayout(false);

}
#endregion

/// <summary>
/// 应用程序的主入口点。
/// </summary>
[STAThread]
static void Main()
{
Application.Run(new Form1());
}
private void button1_Click(object sender, System.EventArgs e)
{
if(foldeOpen.ShowDialog ()==DialogResult.OK )
{
try
{
if(foldeOpen.SelectedPath .Substring (3,10)=="Documents ")
{
MessageBox.Show ("我不建议C盘下的文件夹伪装，这样可能会导致系统出问题");
}
else
{
AfoldePath.Text =foldeOpen.SelectedPath;
}
}
catch
{
if(foldeOpen.SelectedPath.Length >=4)
{
AfoldePath.Text =foldeOpen.SelectedPath;
}
else
{
MessageBox.Show ("无法对盘符进行伪装.");
}
}
}
}
private void AddPassword_Click(object sender, System.EventArgs e)
{
try
{
ProcessStartInfo p3=new ProcessStartInfo ("attrib.exe",@"-s -r -a -h "+AfoldePath.Text);
p3.WindowStyle= System.Diagnostics.ProcessWindowStyle.Hidden;
Process.Start (p3);
ProcessStartInfo p1=new ProcessStartInfo ("attrib.exe",@"-s -r -a -h "+AfoldePath.Text+@"\desktop.ini");
p1.WindowStyle= System.Diagnostics.ProcessWindowStyle.Hidden;
Process.Start (p1);
StreamWriter sw2=new StreamWriter (AfoldePath.Text+@"\desktop.ini" );
sw2.WriteLine (@"[.ShellClassInfo]" );
sw2.WriteLine ("CLSID="+GetPasType());
sw2.Close ();
ProcessStartInfo p =new ProcessStartInfo ("attrib.exe",@"+s +a +h +r "+AfoldePath.Text+@"\desktop.ini");
p.WindowStyle= System.Diagnostics.ProcessWindowStyle.Hidden;
Process.Start (p);
ProcessStartInfo p2=new ProcessStartInfo ("attrib.exe",@"+s +r "+AfoldePath.Text);
p2.WindowStyle= System.Diagnostics.ProcessWindowStyle.Hidden;
Process.Start (p2);
}
catch(Exception ee)
{
MessageBox.Show (ee.Message .ToString ());
}
}
private string GetPasType()
{
int index=comboBox1.SelectedIndex;
switch (index)
{
case 0: return @"{20D04FE0-3AEA-1069-A2D8-08002B30309D}";
case 1: return @"{450D8FBA-AD25-11D0-98A8-0800361B1103}";
case 2: return @"{992CFFA0-F557-101A-88EC-00DD010CCC48}";
case 3: return @"{21EC2020-3AEA-1069-A2DD-08002B30309D}";
case 4: return @"{D6277990-4C6A-11CF-8D87-00AA0060F5BF}";
case 5: return @"{2227A280-3AEA-1069-A2DE-08002B30309D}";
case 6: return @"{1FBA04EE-3024-11D2-8F1F-0000F87ABD16}";
case 7: return @"{208D2C60-3AEA-1069-A2D7-08002B30309D}";
case 8: return @"{645FF040-5081-101B-9F08-00AA002F954E}";
case 9: return @"{85BBD920-42A0-1069-A2E4-08002B30309D}";
case 10: return @"{BD84B380-8CA2-1069-AB1D-08000948F534}";
case 11: return @"{BDEADF00-C265-11d0-BCED-00A0C90AB50F}";
}
return @"{20D04FE0-3AEA-1069-A2D8-08002B30309D}";
}
private void button3_Click(object sender, System.EventArgs e)
{
if(foldeOpen.ShowDialog ()==DialogResult.OK )
{
textBox1.Text =foldeOpen.SelectedPath;
}
}

private void button2_Click(object sender, System.EventArgs e)
{
try
{
ProcessStartInfo p2=new ProcessStartInfo ("attrib.exe",@"-s -r -a -h "+textBox1.Text);
p2.WindowStyle= System.Diagnostics.ProcessWindowStyle.Hidden;
Process.Start (p2);
ProcessStartInfo p1=new ProcessStartInfo ("attrib.exe",@"-s -h -r "+textBox1.Text+@"\desktop.ini");
p1.WindowStyle= System.Diagnostics.ProcessWindowStyle.Hidden;
Process.Start (p1);
System.Threading.Thread.Sleep(1000);
File.Delete (textBox1.Text+@"\desktop.ini");
MessageBox.Show ("解密成功.");
}
catch(Exception ee)
{
MessageBox.Show (ee.Message.ToString ());
}
}
}
}

⑼ 怎么用VB编一个加密文件

最简单的异或加密，二次加密实际上就是解密：

Private Sub Command1_Click()
Text2.Text = jiami(Text1.Text)
MsgBox jiami(Text2.Text)
End Sub

Private Function jiami(s As String) As String
Dim i As Long
For i = 1 To Len(s)
jiami = jiami & Chr(Asc(Mid(s, i, 1)) Xor 72) '72相当于密钥，可以用别的数字
Next
End Function

⑽ VB.net实现简单的加密解密--->该怎么写代码

已在VB上调试通过：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i, j As Integer
Dim et(TextBox1.Text.Length) As Char

j = 0
For i = 0 To TextBox1.Text.Length - 1
et(i) = Chr(AscW(TextBox1.Text.Chars(i)) + AscW(TextBox2.Text.Chars(j)))
j = j + 1
If j >= TextBox2.Text.Length Then j = 0
Next
TextBox1.Text = et
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim i, j As Integer
Dim et(TextBox1.Text.Length) As Char

j = 0
For i = 0 To TextBox1.Text.Length - 1
et(i) = Chr(AscW(TextBox1.Text.Chars(i)) - AscW(TextBox2.Text.Chars(j)))
j = j + 1
If j >= TextBox2.Text.Length Then j = 0
Next
TextBox1.Text = et
End Sub