zoukankan      html  css  js  c++  java
  • 使用的DES对称加密

    在网站使用Cookie或者存放数据到数据库中的时候时常会用到加密解密,MD5非常好用,但是有的时候需要进行逆运算。那么此时DES对称加密就比较好用了。设定一个密钥,然后对所有的数据进行加密。代码介绍如下,事先声明仅为小弟个人理解,请各位多多指教

    VB

    Imports System
    Imports System.IO
    Imports System.Text
    Imports System.Diagnostics
    Imports System.Security.Cryptography
    Imports System.Text.RegularExpressions

    '使用标准DES对称加密
    Public Function EncryptDes(ByVal SourceStr As StringAs String

        
    'get encodekey string from web.config
        Dim skey As String
        skey 
    = ConfigurationSettings.AppSettings("EnCodeKey")

        
    'put the input string into the byte array
        Dim des As DESCryptoServiceProvider = New DESCryptoServiceProvider()
        
    Dim inputByteArray As Byte()
        inputByteArray 
    = Encoding.Default.GetBytes(SourceStr)

        
    'set encrypt object and skey
        des.Key = ASCIIEncoding.ASCII.GetBytes(skey)
        des.IV 
    = ASCIIEncoding.ASCII.GetBytes(skey)
        
    Dim ms As MemoryStream = New MemoryStream()
        
    Dim cs As CryptoStream = New CryptoStream(ms, des.CreateEncryptor(), CryptoStreamMode.Write)
        
    Dim sw As StreamWriter = New StreamWriter(cs)
        sw.Write(SourceStr)
        sw.Flush()
        cs.FlushFinalBlock()
        ms.Flush()
        
    Return Convert.ToBase64String(ms.GetBuffer(), 0, ms.Length)

    End Function

    '使用标准DES对称解密
    Public Function DecryptDes(ByVal SourceStr As StringAs String

        
    'get encodekey string from web.config
        Dim sKey As String
        sKey 
    = ConfigurationSettings.AppSettings("EnCodeKey")

        
    'put the input string into the byte array
        Dim des As DESCryptoServiceProvider = New DESCryptoServiceProvider()

        des.Key 
    = ASCIIEncoding.ASCII.GetBytes(sKey)
        des.IV 
    = ASCIIEncoding.ASCII.GetBytes(sKey)

        
    Dim buffer As Byte() = Convert.FromBase64String(SourceStr)

        
    Dim ms As MemoryStream = New MemoryStream(buffer)
        
    Dim cs As CryptoStream = New CryptoStream(ms, des.CreateDecryptor(), CryptoStreamMode.Read)
        
    Dim sr As StreamReader = New StreamReader(cs)
        
    Return sr.ReadToEnd()

    End Function

    C#

    //使用标准DES对称加密
    public string EncryptDes(string SourceStr)
    {
        
    //get encodekey string from web.config
        
    //put the input string into the byte array
        string skey=ConfigurationSettings.AppSettings("EnCodeKey");
        DESCryptoServiceProvider  des  
    = new DESCryptoServiceProvider();
        Byte[] inputByteArray;
        inputByteArray 
    = Encoding.Default.GetBytes(SourceStr);

        
    //set encrypt object and skey
        des.Key = Convert.FromBase64String(skey);
        des.IV 
    = Convert.FromBase64String(skey);
        MemoryStream  ms 
    = new MemoryStream();
        CryptoStream cs 
    = new CryptoStream(ms, des.CreateEncryptor(), CryptoStreamMode.Write);
        StreamWriter sw 
    = new StreamWriter(cs);
        sw.Write(SourceStr);
        sw.Flush();
        cs.FlushFinalBlock();
        ms.Flush();
        
    return Convert.ToBase64String(ms.GetBuffer(), 0, (int)ms.Length);
    }

    //使用标准DES对称解密
    public string DecryptDes(string SourceStr)
    {
        
    //get encodekey string from web.config
        string sKey;
        sKey 
    = ConfigurationSettings.AppSettings("EnCodeKey");

        
    //put the input string into the byte array
        DESCryptoServiceProvider des = new DESCryptoServiceProvider();

        des.Key 
    = Convert.FromBase64String(sKey);
        des.IV 
    = Convert.FromBase64String(sKey);

        
    byte[] buffer = Convert.FromBase64String(SourceStr);

        MemoryStream ms
    = new MemoryStream(buffer);
        CryptoStream cs 
    = new CryptoStream(ms, des.CreateDecryptor(),  CryptoStreamMode.Read);
        StreamReader sr 
    = new StreamReader(cs);
        
    return sr.ReadToEnd();

    }

    申明

    非源创博文中的内容均收集自网上,若有侵权之处,请及时联络,我会在第一时间内删除.再次说声抱歉!!!

    博文欢迎转载,但请给出原文连接。

  • 相关阅读:
    安装第三方工具包
    C#判断联网状态
    SQL Server 字符串函数
    SharePoint 计时器服务无法启动
    为SharePoint 2010中的FBA创建自定义登录页面
    document对象
    Moss 几个编程技巧
    【Sharepoint】CSS与Master Page的开发与部署
    自定义和扩展 SharePoint 2010 Server 功能区
    自定义ASP.NET WebApplication中调用SharePoint2010的对象
  • 原文地址:https://www.cnblogs.com/Athrun/p/593116.html
Copyright © 2011-2022 走看看