• 使用的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();

    }

    申明

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

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

  • 相关阅读:
    python中的break 和continue的区别
    查询前几条数据
    python logging日志模块
    python unittest单元测试
    python的数据驱动
    SQL求出优秀、及格人数
    SQL查询去掉重复数据
    vue组件路由守卫钩子函数(beforeRouteEnter、beforeRouteUpdate、beforeRouteLeave)
    前端开发,走浏览器缓存真的很烦,拒绝浏览器走缓存从meta标签做起!
    (转)前端开发-发布一个NPM包之最简单易懂流程
  • 原文地址:https://www.cnblogs.com/Athrun/p/593116.html
Copyright © 2020-2023  润新知