求大神帮忙
加密函数
要求可加密中文
而且可根据给定的密码加密
加密(要加密的字符串，密码)
然后密码不同，加密后的就不同
谢谢了
vb加密函数，可加密中文，有密码
- 写回答
- 好问题 0 提建议
- 追加酬金
- 关注问题
分享- 邀请回答
-
4条回答 默认 最新
threenewbee 2016-03-21 15:05关注最简单的是先做base64编码，然后不存在什么中文的问题了，再xor下。解密相反，先xor，然后base64解码
如果要完整代码，请先采纳下。本回答被题主选为最佳回答 , 对您是否有帮助呢?评论 打赏解决 3无用 1举报 分享
- 2016-03-21 14:45回答 4 已采纳 最简单的是先做base64编码，然后不存在什么中文的问题了，再xor下。解密相反，先xor，然后base64解码 如果要完整代码，请先采纳下。
- 2018-03-01 08:05回答 4 已采纳 把 As String 删掉，在number1之前加 ByVal 试试。 你复制的是VB代码，可是是使用VBScript运行的。VBScript不支持传参数的时候指定类型。
- 2021-07-28 21:39回答 2 已采纳 跟for没关系Rnd产生小于1，大于或等于0的数最小产生0，0+200=200最大产生0.999... 0.999*201+200 int(200.8+200)=400
- 2019-07-04 16:40新QQ密码加密函数模块，这个模块除了MD5加密部分是网上找来的，其余部分都是本人独立完成的。其实也很简单，就是MD5 BASE64，要问16还是32的MD5，其实是32的，只不过加密后的32位长的字符串要把他看成另一个字符串的...
- 2017-01-09 13:21回答 1 已采纳 Okay, so this is a C# answer, and I don't like it; but I've produced a thing which gives the same
- 2017-12-08 06:57回答 5 已采纳 原理如下： VB里函数中出现“自身”，并不是自我调用，而只是变量。 因此，在这里， 一开始，test 缺省为空，循环中： 第一次赋值，相当于 test ="a" + 空 = "a" 第二次
- 2016-03-19 15:14回答 1 已采纳 调试下，n是不是为0了。你这个是rsa加密么？看着也不像啊。
- 2021-05-12 18:21内容索引:VB源码,加密解密,加密 新QQ密码加密函数模块，这个模块除了MD5加密部分是网上找来的，其余部分都是本人独立完成的。其实也很简单，就是MD5+BASE64，要问16还是32的MD5，其实是32的，只不过加密后的32位长...
- 2023-03-06 10:19回答 3 已采纳 该回答引用GPTᴼᴾᴱᴺᴬᴵ在VB.NET中，Len函数和Mid函数是VB语言的遗留下来的函数，它们仍然可用，但官方推荐使用.NET Framework提供的相应方法。 在您的代码中，出现“len未定
- 2022-03-30 18:09回答 1 已采纳 Math.Abs
- 2022-05-08 07:53回答 2 已采纳 标题行是只保留一个吗？
- 2019-05-01 23:55VB2008工程代码-加密汉字 字符串 Public Function StringEnDeCodecn(ByVal strSource As String, ByVal MA As Long) As String '该函数只对中西文起到加密作用 '参数为：源文件，密码 On Error GoTo ErrEnDeCode...
- 2016-12-16 13:34回答 2 已采纳 这没办法在函数内实现，应该再定义一个函数，它负责调用你原先的函数或者另一个函数。函数退出后没法再对调用它的函数的代码逻辑作出控制了。
- 2021-07-26 06:13刘马也的博客 VB文本加密 特别设计到中文加密 让很多人费尽周折,经常会碰到解密中文出现乱码的情况下面这篇文章将对此做了说明计算机世界2000年第36期实现中文文本的加密方法武汉交通科技大学计算机科学与工程系 吴业福本文介绍了...
- 2021-07-26 06:13君子作歌的博客 字节逐位倒排序加密法是以比特为单位的换位加密方法，用VB实现的具体算法是：(1) 以二进制模式打开源文件；(2) 从源文件第I位读取一个字节，假设为字母“A”，得到“A”的ASCII值为65；(3) 将65转换成八位二进制串为...
- 没有解决我的问题, 去提问
