急求文件加密代码！vb高手们来啊！

来源：百度知道 编辑：UC知道 时间：2024/05/28 13:33:19
最近想了好长时间都没有想出来，导师催的慌~我实在没办法啦~
具体的要求这样的：加密器和解密器分开的，也就是说是两个exe文件~
加密器支持选中多个文件分别进行加密，但是解密器只能一次解密单个的文件（- -！）
加密器生成的加密文件就保存在被加密文件的文件夹下，但是解密出来的文件要指定放到桌面上去（也就是说不能跟加过密的文件在一起，- -！）
看上面的要求就知道俺导师多变态了 啊……………………
加密的算法就是简单的凯撒加密法~
高手们！！！拜托你们啦~
===========
最好直接给我源文件，顺便生成两个exe直接运行就好了，急死我了……
我的邮箱是：fanglin001@yahoo.com.cn
===========
我先放上5分，要是有好的我再加5分。
底分再加分，已经到了45分了，好的再加5分，找高手啊~

凯撒加密法很简单的，只需把每个字母右移3位，如a变成d，f变成i等等，你完全可以自己编出来的。。

45分很多吗？真急的话悬赏300分，马上就有答案了！

俺不会，拿2分闪人！！

很麻烦的，
你可以将文件以二进制格式按字节读取，然后对该每个字节进行加密。
解密也一样，说到底还是对数字进行加密。

不知道你是什么专业，如果是软件专业的话这种问题真的是太简单了

也不涉及什么算法，只是凯撒加密而已

如果是业余编程求助没什么问题，但如果是导师留给你的题目还是自己想比较好

可以自己去网上搜索需要的知识

ps我是化学专业，导师让我编的程序都比这个复杂得太多了

Dim blnMsg As Boolean
Function ByteToBin(m As Byte) As String '' 将字节型数据转换成八位二进制字符串
Dim c$
c$ = ""
Do While m <> 0
r = m Mod 2
m = m \ 2
c$ = r & c$
Loop
c$ = Right("00000000" & c$, 8)
ByteToBin = c$
End Function

Function Reverse(m As String) As String '' 将八位二进制字符串颠倒顺序
Dim i%, x$
x = ""
F