加密解密高手进！VB.NET 谁能给一个MD5或其他的加密算法

这个是我之前写的。在需要时调用即可。

辽中网站建设公司创新互联公司,辽中网站设计制作，有大型网站制作公司丰富经验。已为辽中上千多家提供企业网站建设服务。企业网站搭建\成都外贸网站建设公司要多少钱，请找那个售后服务好的辽中做网站的公司定做！

Public Shared Function Encrypt(ByVal Text As String, ByVal sKey As String) As String

Dim provider As New DESCryptoServiceProvider()

Dim bytes As Byte() = Encoding.[Default].GetBytes(Text)

provider.Key = Encoding.ASCII.GetBytes(FormsAuthentication.HashPasswordForStoringInConfigFile(sKey, "md5").Substring(0, 8))

provider.IV = Encoding.ASCII.GetBytes(FormsAuthentication.HashPasswordForStoringInConfigFile(sKey, "md5").Substring(0, 8))

Dim stream As New MemoryStream()

Dim stream2 As New CryptoStream(stream, provider.CreateEncryptor(), CryptoStreamMode.Write)

stream2.Write(bytes, 0, bytes.Length)

stream2.FlushFinalBlock()

Dim builder As New StringBuilder()

For Each num As Byte In stream.ToArray()

builder.AppendFormat("{0:X2}", num)

Next

Return builder.ToString()

End Function

希望能帮到你

用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中实现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);

}

简单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程序！用des加密解密方法！！！ 希望高手解答！

vb.net code注意随机密码按钮在没用，调试时你自己输入密码，一定为8位，我是将文件存在D盘，你自己在修改一下，那个就很简单

Imports System.IO

Imports System.Security.Cryptography

Imports System.Text

Public Class Form1

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

Dim sSecretKey As String = Me.TextBox2.Text

EncryptFile(Me.TextBox1.Text, "D:\JMtest.txt", sSecretKey)

End Sub

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

Dim sSecretKey As String = Me.TextBox2.Text

DecryptFile("D:\JMtest.txt", "D:\Decrypted.txt", sSecretKey)

End Sub

Sub EncryptFile(ByVal sInputFilename As String, ByVal sOutputFilename As String, ByVal sKey As String)

Dim fsInput As New FileStream(sInputFilename, FileMode.Open, FileAccess.Read)

Dim fsEncrypted As New FileStream(sOutputFilename, FileMode.Create, FileAccess.Write)

Dim DES As New DESCryptoServiceProvider

DES.Key = ASCIIEncoding.ASCII.GetBytes(sKey)

DES.IV = ASCIIEncoding.ASCII.GetBytes(sKey)

Dim desencrypt As ICryptoTransform = DES.CreateEncryptor()

Dim cryptostream As New CryptoStream(fsEncrypted, desencrypt, CryptoStreamMode.Write)

Dim byteArrayInput(fsInput.Length - 1) As Byte

fsInput.Read(byteArrayInput, 0, byteArrayInput.Length)

cryptostream.Write(byteArrayInput, 0, byteArrayInput.Length)

cryptostream.Close()

End Sub

Sub DecryptFile(ByVal sInputFilename As String, ByVal sOutputFilename As String, ByVal sKey As String)

Dim DES As New DESCryptoServiceProvider

DES.Key() = ASCIIEncoding.ASCII.GetBytes(sKey)

DES.IV = ASCIIEncoding.ASCII.GetBytes(sKey)

Dim fsread As New FileStream(sInputFilename, FileMode.Open, FileAccess.Read)

Dim desdecrypt As ICryptoTransform = DES.CreateDecryptor

Dim cryptostreamDecr As New CryptoStream(fsread, desdecrypt, CryptoStreamMode.Read)

Dim fsDecrypted As New StreamWriter(sOutputFilename)

fsDecrypted.Write(New StreamReader(cryptostreamDecr, System.Text.ASCIIEncoding.Default).ReadToEnd)

fsDecrypted.Flush()

fsDecrypted.Close()

End Sub

Private Sub BtnChoose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnChoose.Click

OpenFileDialog1.FileName = ""

OpenFileDialog1.Filter = "txt files (*.txt)|*.txt"

OpenFileDialog1.ShowDialog()

If OpenFileDialog1.FileName "" Then

Me.TextBox1.Text = OpenFileDialog1.FileName

End If

End Sub

End Class

网站题目：vb.net解密密码 vb显示密码
本文网址：http://myzitong.com/article/doosoge.html