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();

    }

    申明

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

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

  • 相关阅读:
    极大似然法估计
    概率统计
    打怪升级必备书单
    嵌入式运用的思路
    清华大学保研笔试题
    使用ffmpeg将海康视频rtsp转为hls
    Linux基础系统权限
    Ubuntu使用tzselect修改时区
    Apache mod_rewrite规则重写的标志说明
    Postgresql导出指定的数据表
  • 原文地址:https://www.cnblogs.com/Athrun/p/593116.html
Copyright © 2011-2022 走看看