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

    }

    申明

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

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

  • 相关阅读:
    classpath多个包添加
    不错的博客
    ARCGIS10.1 GeoDatabase深入理解:客户端连接与退出地理数据库时系统表的初始化
    ArcGIS Geodatabase版本控制机制的学习总结
    ARCGIS 10.1 发布服务问题以及注意事项汇总
    关于项目外包的一些总结
    ArcGIS与SuperMap的使用比较(1)
    [译]关于JavaScript 作用域你想知道的一切
    Apache 配置ArcGIS server/portal 反向代理
    arcgis server 无法手动删除切片
  • 原文地址:https://www.cnblogs.com/Athrun/p/593116.html
Copyright © 2011-2022 走看看