求高效稳定的VB加密解密2进制文件代码！
算法求高效稳定，不必要过于复杂的
我需要把加密的文件，放在资源文件里
LoadResData 后，解密在一个数组里···
有谁收藏好代码么？？
Public Function EnDeCode(bytes() As Byte, ByVal lKey As Long) As Byte()
Dim lCount As Long
Dim i As Long
Dim bytesOut() As Byte
Rnd -1 * (Abs(lKey)) '这里不明白····下面就没lKey这个参数了，但解密却与这个lKey有关
lCount = UBound(bytes)
ReDim bytesOut(lCount)
For i = 0 To lCount
bytesOut(i) = bytes(i) Xor ((Rnd() * 10000) Mod &HFF)
Next
EnDeCode = bytesOut
End Function
Private Sub Form_Load()
Dim xxx() As Byte
Dim yyy() As Byte
xxx = LoadResData(101, "CUSTOM") '把资源文件拿来加密
yyy = EnDeCode(xxx, 5) '我把lkey 设置为5，如果解密时候不为5，就还原不了，但从函数，看不出加密过程和 lkey 有何关联····请指点··唯一那句 Rnd -1 * (Abs(lKey)) ,不知何用
Open "c:\1.exe" For Binary As #1
Put #1, , yyy
Close #1
End Sub
上面的代码确实可用，函数执行第1次是加密，再执行1次，就是解密
我把加密后的文件，再放进资源文件里，再执行一次，就是解密了
而且文件MD5完全一样···说明没错，就�
相关问答：
为什么我用form.show和form.hide多次连接了两个窗口只能互换链接两次啊？
代码看看
照道理form.show 没次数限定的吧
我也快疯了。
楼主知道怎么发贴么？
引用
我也快疯了。
楼主知道怎么发贴么？
楼主也 ......
form1中有text1-8， 和command1
text8中为程序代码（生成窗体为form2（已做好））
单击command1后将text2中的代码生成EXE到d:\ 并且text1-7分别对应
产品名 公司名 合法版权 合法商标 文件描述 注释 标题
......
刚建了一个群:中山VB编程(105787219)
有在中山及中山周边的程序员请加入.大家一起探讨问题.合作项目.
尽管俺不是中山的，也进来蹭分……
佛山的行吗,广州的行吗?
友情支持
回复内容太短了！
帮顶 ......
谁能帮我把下面这些代码改成VB形式的，多谢了，急用~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[],float g ......
