先明确一下概念：
公钥加密私钥解密， 没问题,也可以说是"公共密钥加密系统"
私钥加密公钥解密,一般不这么说，应叫"私钥签名,公钥验证",也可以说是“公共密钥签名系统”
再来说一下"公共密钥签名系统"目的:(如果晕就多看几遍，这个没搞清，后面的代码就更晕)
A欲传（信息）给B，但又怕B不确信该信息是A发的。
1．A选计算（信息）的HASH值，如用MD5方式计算,得到：[MD5（信息）]
2．然后用自已的私钥加密HASH值，得到：[私钥（MD5（信息））]
3．最后将信息与密文一起传给B：传给B：[（信息） + 私钥（MD5（信息））]
B接到 ：[（信息） + 私钥（MD5（信息））]
1．先用相同的HASH算法算出（信息）的HASH值，这里也使用MD5方式
得到： [MD5（信息）!]
2. 再用A的公钥解密 [ 私钥（MD5（信息））]
[公钥(私钥（MD5（信息））)] = [（MD5（信息）]
如能解开,证明该 [ 私钥（MD5（信息））]是A发送的
3.再比效[MD5（信息）!]与[（MD5（信息）]
如果相同,表示（信息）在传递过程中没有被他人修改过
私钥签名的代码:
'在C盘上在有[keys.xml(密钥文件,包括公钥与私钥)]文件
'与[原文件.txt(要签名的信息文件)]文件
'-------------------------------------------------------------
'------------MD5要签名的磁盘文件-----------------------------------
'定义一个文件流，以打开要签名的磁盘文件
Dim 文件流 As New System.IO.FileStream("C:\原文件.txt", IO.FileMode.Open)
'定义一个字节数组以存入文件流
Dim 文件流数组(文件流.Length - 1) As Byte
'将文件流存入文件数组
文件流.Read(文件流数组, 0, 文件流.Length)
'建立MD5对象
Dim MD5对象 As New System.Security.Cryptography.MD5CryptoServiceProvider
'得到字节数组格式的MD5值
Dim MD5值数组() As Byte = MD5对象.ComputeHash(文件流数组)
文件流.Close() '关闭文件流
'------------------------END----------------------------------------
'----------加载私钥------------------------------------------------
'加载XML密钥文件，该文件包含公钥与私钥，本程序使用私钥签名
Dim KeyFile As New IO.FileStream("c:\keys.xml", IO.FileMode.Open)
'定义一个文本流
Dim KeyFileData As New IO.StreamReader(KeyFile, System.Text.UTF8Encoding.UTF8)
'定义一个字符变量用于读取XML文件的文本流
Dim KeyString As String = KeyFileData.ReadToEnd
KeyFileData.Close() '关闭文本流
KeyFile.Close() '关闭文件流
'--------------------------END---------------------------------------
'------------------用私钥加密MD5数据---------------------------------
'定义RSA对象
Dim rsa As New System.Security.Cryptography.RSACryptoServiceProvider
'RSA对象加载密钥文件XML格式的字符串
rsa.FromXmlString(KeyString)
'定义一个BYTE数组，用于存放加密信息
Dim 签名() As Byte
'得到加密信息的二进制数组数据
签名 = rsa.SignHash(MD5值数组, CryptoConfig.MapNameToOID("MD5"))
'--------------------------END---------------------------------------
'---------将该二进制数组数据存入磁盘文件------------------------------
Dim 签名数据 As New IO.FileStream("c:\签名信息.byte", IO.FileMode.Create)
签名数据.Write(签名, 0, 签名.Length)
签名数据.Close()
'--------------------------END---------------------------------------
=========================================================================
公钥验证:
'在C盘上在有[Pubkey.xml(公钥文件)]文件
'与[新文件.txt(要验证的信息文件)]文件
'与[签名信息.byte(签名信息文件)]文件
'-------------------------------------------------------------
'-----------载入签名信息文件------------------------------------------
'定义一个文件流，以打开要签名的磁盘文件
Dim 签名信息文件 As New System.IO.FileStream("C:\签名信息.byte", IO.FileMode.Open)
'定义一个字节数组以存入文件流
Dim 签名信息数组(签名信息文件.Length - 1) As Byte
'将文件流存入文件数组
签名信息文件.Read(签名信息数组, 0, 签名信息文件.Length)
签名信息文件.Close()
'--------------------------END---------------------------------------
'------------MD5要验证的磁盘文件-----------------------------------
'定义一个文件流，以打开要签名的磁盘文件
'如果[新文件.txt]的内容与[原文件.txt]一样将在最后显示True，不一样将为False
Dim 文件流 As New System.IO.FileStream("C:\新文件.txt", IO.FileMode.Open)
'定义一个字节数组以存入文件流
Dim 文件流数组(文件流.Length - 1) As Byte
'将文件流存入文件数组
文件流.Read(文件流数组, 0, 文件流.Length)
'建立MD5对象
Dim MD5对象 As New System.Security.Cryptography.MD5CryptoServiceProvider
'得到字节数组格式的MD5值
Dim MD5值数组() As Byte = MD5对象.ComputeHash(文件流数组)
文件流.Close() '关闭文件流
'------------------------END----------------------------------------
'----------加载公钥------------------------------------------------
'加载XML公钥文件，该文件只包含公钥
Dim KeyFile As New IO.FileStream("c:\Pubkey.xml", IO.FileMode.Open)
'定义一个文本流
Dim KeyFileData As New IO.StreamReader(KeyFile, System.Text.UTF8Encoding.UTF8)
'定义一个字符变量用于读取XML文件的文本流
Dim KeyString As String = KeyFileData.ReadToEnd
KeyFileData.Close() '关闭文本流
KeyFile.Close() '关闭文件流
'--------------------------END---------------------------------------
'------------------用公钥解密MD5数据---------------------------------
'定义RSA对象
Dim rsa As New System.Security.Cryptography.RSACryptoServiceProvider
'RSA对象加载密钥文件XML格式的字符串
rsa.FromXmlString(KeyString)
Dim 值 As Boolean
'如果为真表示文件验证通过
值 = rsa.VerifyHash(MD5值数组, CryptoConfig.MapNameToOID("MD5"), 签名信息数组)
MsgBox(值)
DES加密类,公钥和私钥可以通过工具(Sn.exe)生成
#region des加密算法
/// <summary>
/// 加密字符串
/// </summary>
/// <param name="pToEncrypt">待加密字符串</param>
/// <returns></returns>
public string Encrypt(string pToEncrypt)
{
byte[] desKey = new byte[]{0x16, 0x09, 0x14, 0x15, 0x07, 0x01, 0x05, 0x08};
byte[] desIV = new byte[]{0x16, 0x09, 0x14, 0x15, 0x07, 0x01, 0x05, 0x08};
DESCryptoServiceProvider des = new DESCryptoServiceProvider();
try
{
//把字符串放到byte数组中
//原来使用的UTF8编码，我改成Unicode编码了，不行
byte[] inputByteArray = Encoding.Default.GetBytes(pToEncrypt);
//byte[] inputByteArray=Encoding.Unicode.GetBytes(pToEncrypt);
//建立加密对象的密钥和偏移量
//原文使用ASCIIEncoding.ASCII方法的GetBytes方法
//使得输入密码必须输入英文文本
des.Key = desKey; // ASCIIEncoding.ASCII.GetBytes(sKey);
des.IV = desIV; //ASCIIEncoding.ASCII.GetBytes(sKey);
MemoryStream ms = new MemoryStream();
CryptoStream cs = new CryptoStream(ms, des.CreateEncryptor(),
CryptoStreamMode.Write);
//Write the byte array into the crypto stream
//(It will end up in the memory stream)
cs.Write(inputByteArray, 0, inputByteArray.Length);
cs.FlushFinalBlock();
//Get the data back from the memory stream, and into a string
StringBuilder ret = new StringBuilder();
foreach(byte b in ms.ToArray())
{
//Format as hex
ret.AppendFormat("{0:X2}", b);
}
ret.ToString();
return ret.ToString();
}
catch
{
return pToEncrypt;
}
finally
{
des = null;
}
}
/// <summary>
/// 解密字符串
/// </summary>
/// <param name="pToDecrypt">待解密字符串</param>
/// <returns></returns>
public string Decrypt(string pToDecrypt)
{
byte[] desKey = new byte[]{0x16, 0x09, 0x14, 0x15, 0x07, 0x01, 0x05, 0x08};
byte[] desIV = new byte[]{0x16, 0x09, 0x14, 0x15, 0x07, 0x01, 0x05, 0x08};
DESCryptoServiceProvider des = new DESCryptoServiceProvider();
try
{
//Put the input string into the byte array
byte[] inputByteArray = new byte[pToDecrypt.Length / 2];
for(int x = 0; x < pToDecrypt.Length / 2; x++)
{
int i = (Convert.ToInt32(pToDecrypt.Substring(x * 2, 2), 16));
inputByteArray[x] = (byte)i;
}
//建立加密对象的密钥和偏移量，此值重要，不能修改
des.Key = desKey; //ASCIIEncoding.ASCII.GetBytes(sKey);
des.IV = desIV; //ASCIIEncoding.ASCII.GetBytes(sKey);
MemoryStream ms = new MemoryStream();
CryptoStream cs = new CryptoStream(ms, des.CreateDecryptor(),CryptoStreamMode.Write);
//Flush the data through the crypto stream into the memory stream
cs.Write(inputByteArray, 0, inputByteArray.Length);
cs.FlushFinalBlock();
//Get the decrypted data back from the memory stream
//建立StringBuild对象，CreateDecrypt使用的是流对象，必须把解密后的文本变成流对象
StringBuilder ret = new StringBuilder();
return System.Text.Encoding.Default.GetString(ms.ToArray());
}
catch
{
return pToDecrypt;
}
finally
{
des = null;
}
}
#endregion
