国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學院 > 開發設計 > 正文

使用的DES對稱加密

2019-11-17 06:10:07
字體:
來源:轉載
供稿:網友

  在網站使用Cookie或者存放數據到數據庫中的時候時常會用到加密解密,md5非常好用,但是有的時候需要進行逆運算。那么此時DES對稱加密就比較好用了。設定一個密鑰,然后對所有的數據進行加密。代碼介紹如下,事先聲明僅為小弟個人理解,請各位多多指教

  Imports System
  Imports System.IO
  Imports System.Text
  Imports System.Diagnostics
  Imports System.Security.Cryptography
  Imports System.Text.RegularEX  Public Function EncryptDes(ByVal SourceStr As String) As 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 String) As 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




發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 北流市| 甘孜县| 揭西县| 个旧市| 会理县| 嘉祥县| 虎林市| 洪湖市| 昌图县| 大港区| 麻江县| 高安市| 定结县| 阿勒泰市| 惠州市| 晋城| 南岸区| 丹阳市| 延寿县| 任丘市| 丰镇市| 田林县| 延吉市| 西青区| 云阳县| 隆尧县| 塔城市| 龙门县| 丘北县| 绥德县| 宝应县| 建湖县| 正阳县| 曲阳县| 荃湾区| 新郑市| 任丘市| 逊克县| 佛山市| 时尚| 香港|