社区
VB基础类
帖子详情
求VB6.0 DES加密解密源码
2001JinCheng
2006-11-15 10:45:57
谢谢您,我的Mail:2001jincheng@21cn.com
...全文
416
5
打赏
收藏
求VB6.0 DES加密解密源码
谢谢您,我的Mail:2001jincheng@21cn.com
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
5 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
2001JinCheng
2006-11-16
打赏
举报
回复
请再帮一下忙
Dim mDes As New clsDES
Dim inByte() As Byte
Dim outByte() As Byte
Dim outS As String
inByte = StrConv("中国推出Excel服务器软件!", vbFromUnicode)
Call mDes.DES_Encode(inByte, MstrKey, outByte)
Call mDes.DES_Decode(outByte, MstrKey, inByte)
outS = StrConv(inByte, vbUnicode)
以上代码执行后outS =中国推出Excel服务器软件!,执行正确。但是为什么执行以下代码就不正确了呢?outS =中国推出Excel服蜶T.M滩醅∪ 緽滾,成乱码了呢?请指教。
Dim mDes As New clsDES
Dim inByte() As Byte
Dim outByte() As Byte
Dim outS As String
inByte = StrConv("中国推出Excel服务器软件!", vbFromUnicode)
Call mDes.DES_Encode(inByte, MstrKey, outByte)
outS = StrConv(outByte, vbUnicode)
outByte = StrConv(outS, vbFromUnicode)
Call mDes.DES_Decode(outByte, MstrKey, inByte)
outS = StrConv(inByte, vbUnicode)
2001JinCheng
2006-11-16
打赏
举报
回复
请大家多多关照,我在线等待。
2001JinCheng
2006-11-16
打赏
举报
回复
请再帮一下忙
Dim mDes As New clsDES
Dim inByte() As Byte
Dim outByte() As Byte
Dim outS As String
inByte = StrConv("中国推出Excel服务器软件!", vbFromUnicode)
Call mDes.DES_Encode(inByte, MstrKey, outByte)
Call mDes.DES_Decode(outByte, MstrKey, inByte)
outS = StrConv(DeOutByte, vbUnicode)
以上代码执行后outS =中国推出Excel服务器软件!,执行正确。但是为什么执行以下代码就不正确了呢?outS =中国推出Excel服蜶T.M滩醅∪ 緽滾,成乱码了呢?请指教。
Dim mDes As New clsDES
Dim inByte() As Byte
Dim outByte() As Byte
Dim outS As String
inByte = StrConv("中国推出Excel服务器软件!", vbFromUnicode)
Call mDes.DES_Encode(inByte, MstrKey, outByte)
outS = StrConv(outByte, vbUnicode)
outByte = StrConv(outS, vbFromUnicode)
Call mDes.DES_Decode(outByte, MstrKey, inByte)
outS = StrConv(DeOutByte, vbUnicode)
xiagl311
2006-11-15
打赏
举报
回复
xuexi
myvip
2006-11-15
打赏
举报
回复
http://dev.csdn.net/article/20/20659.shtm
你自己看下吧!
3
DES
加密解密
算法
源码
3
DES
加密解密
算法
源码
,5.09
DES
3
DES
VB Blowfish、CryptAPI、
DES
、Gost、RC4、XOR等加密算法集.rar
VB 6.0 Blowfish、CryptAPI、
DES
、Gost、RC4、XOR等加密算法集,这个加解密
源码
几乎包括了世界上几个最著名的加密算法:Blowfish、CryptAPI、
DES
、Gost、RC4、XOR、Skipjack、TEA、Twofish,曾获
源码
5星推荐。...
vc++ 应用
源码
包_1
DES
加密算法源代码 Detected memory leaks 检查内存泄漏
源码
DigiStatic_src 自绘CStatic实现数字效果。 DirectShow开发指南pdf附属代码 DirectShow开发指南
源码
directUI_D DirectUI界面库 DOM应用---遍历...
vc++ 应用
源码
包_3
DES
加密算法源代码 Detected memory leaks 检查内存泄漏
源码
DigiStatic_src 自绘CStatic实现数字效果。 DirectShow开发指南pdf附属代码 DirectShow开发指南
源码
directUI_D DirectUI界面库 DOM应用---遍历...
vc++ 应用
源码
包_2
DES
加密算法源代码 Detected memory leaks 检查内存泄漏
源码
DigiStatic_src 自绘CStatic实现数字效果。 DirectShow开发指南pdf附属代码 DirectShow开发指南
源码
directUI_D DirectUI界面库 DOM应用---遍历...
VB基础类
7,762
社区成员
197,608
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章