Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]RSA非对称加密文件


  共有995人关注过本帖树形打印复制链接

主题：[求助]RSA非对称加密文件
帅哥哟，离线，有人找我吗？
chnfo
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2192 积分：18023 威望：0 精华：0 注册：2011/11/26 20:21:00 		  发帖心情 Post By：2024/1/15 16:26:00 [只看该作者]

编译错误:未定义类型“RSACryptoServiceProvider”。
错误代码：Using rsa As New RSACryptoServiceProvider(size) ' 384 位到 16384 位
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/1/15 16:39:00 [只看该作者]

加上完整的命名空间

 回到顶部
帅哥哟，离线，有人找我吗？
chnfo
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2192 积分：18023 威望：0 精华：0 注册：2011/11/26 20:21:00 		  发帖心情 Post By：2024/1/16 10:28:00 [只看该作者]

在全局代码中定义？
还是说要去VS或SD中构建dll?

http://www.manongjc.com/detail/58-wgtoqyitycxpcwp.html
这里面倒是有介绍，但实例无法下载，把代码复制贴到全局代码里，就会报错

编译错误:“Imports”语句前面必须是声明。
错误代码：Imports System.Security.Cryptography

把这一句注释掉，又会报错

编译错误:未定义类型“RSACryptoServiceProvider”。
错误代码：Using rsa As New RSACryptoServiceProvider(size) ' 384 位到 16384 位

我是对这个东西不懂，现在蒙了，不知道怎么用
[此贴子已经被作者于2024/1/16 10:55:11编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/1/16 11:07:00 [只看该作者]

都可以的。

 回到顶部
帅哥哟，离线，有人找我吗？
chnfo
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2192 积分：18023 威望：0 精华：0 注册：2011/11/26 20:21:00 		  发帖心情 Post By：2024/1/16 14:33:00 [只看该作者]

http://www.manongjc.com/detail/58-wgtoqyitycxpcwp.html

 回到顶部
帅哥哟，离线，有人找我吗？
chnfo
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2192 积分：18023 威望：0 精华：0 注册：2011/11/26 20:21:00 		  发帖心情 Post By：2024/1/16 14:33:00 [只看该作者]

http://www.manongjc.com/detail/58-wgtoqyitycxpcwp.html
把里面的内容贴到全局代码里报错了哟


不知道蓝说的用完整的命名空间在哪里搞

[此贴子已经被作者于2024/1/16 14:34:00编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/1/16 14:37:00 [只看该作者]

去掉前面2行Imports ，Imports 里的就是命名空间，如果不懂什么是命名空间，建议网上搜索学习一下，然后在代码里写上命名空间

Using rsa As New System.Security.Cryptography.RSACryptoServiceProvider(size)

 回到顶部
帅哥哟，离线，有人找我吗？
chnfo
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2192 积分：18023 威望：0 精华：0 注册：2011/11/26 20:21:00 		  发帖心情 Post By：2024/1/16 16:27:00 [只看该作者]

可以了，删除了好多内容，前三行，后五行全部删了
然后里面的Shared删了
然后  Public Shared Function Create_pub_pri_key(Optional size As Integer = 1024) As Create_key_type     改成了list(of string)，删除了shared
    Dim key As New Create_key_type  改成了list(of string)
    Using rsa As New System.Security.Cryptography.RSACryptoServiceProvider(size) ' 384 位到 16384 位   要加上这个，要不然会报错
      key.Private_key = Convert.ToBase64String(Encoding.Default.GetBytes(rsa.ToXmlString(True)))  改成了key.add()
      key.Public_key = Convert.ToBase64String(Encoding.Default.GetBytes(rsa.ToXmlString(False)))  改成了key.add()
    End Using
    Return key
  End Function
 回到顶部
帅哥哟，离线，有人找我吗？
chnfo
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2192 积分：18023 威望：0 精华：0 注册：2011/11/26 20:21:00 		  发帖心情 Post By：2024/1/16 16:35:00 [只看该作者]

追问一下：上面的方法是加密文件的内容，如果是加密文件本身，应当怎么整？

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/1/16 16:46:00 [只看该作者]

参考：

Dim data() As Byte = System.IO.File.ReadAllBytes("c:\abc.jpg") '把文件字节流加载进来,
dim s as string = Convert.ToBase64String(data) '转换为字符串
 回到顶部
总数 24 上一页 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06201 秒, 4 次数据查询