首页 >> 读书频道 >> 电脑 >> 使用的DES对称加密
 
· Jave基础学习:jdb
· 编写自定义任务,轻松扩展
· 异常处理:和日志集成
· AWT机器人Robot
· 如何用java来计算对数
· iBATIS step
· Java连接数据库谈
· Java实现ftp功能
· 攻克学习多线程时碰到的难
· Java研究:this
· java基础学习:常用的
· 学习和使用继承时先要清楚
 
· 加油金顺剧情分集介绍完整
· 红楼梦:120回全本[清
· 素质教育在美国
· 全唐诗卷四十六
· 韩剧《布拉格恋人》剧情介
· 夜航船[作者:明·张岱]
· 局外人[作者:韩·可爱淘
· 现场流行病学
· 源氏物语[日本:紫式部]
· 武林寓言故事
· 2006高考录取规则
· 首批中国世界名牌产品和2
 
· (出租)中动商场部分及写
· (出租)中动动漫基地&#
· 喜剧学院
· 《善德女王》剧情介绍
· 魔女18号 剧情
· 丑女无敌剧情介绍
· 魔女幼熙剧情介绍
· 龙游天下剧情介绍
· 震撼世界的七日剧情介绍
· 静静的白桦林剧情介绍
· 心情日记—老公今天我想对
· 旗舰剧情介绍
欢迎来到月影社区!如果您觉得这里不错,请推荐给您的朋友们。月影社区:http://wf66.com/

使用的DES对称加密


查看有无更新版本

关键字:JAVA 2006-8-31

 

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

使用的DES对称加密

[ 1 ]
使用的DES对称加密 num

打印本页 关闭

关于我们版权声明本站导航友情连结作品演示 TOP↑