求高效稳定的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完全一样···说明没错，就�
相关问答：
在下是vb的新手，想写段程序，在vb中，使用wscript调用一些外部的命令，但是程序执行一直有错误，请各位高手帮忙解答下，谢谢。
代码如下：
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
为什么工具栏按扭的宽度改变不了,在属性里改了又变成原来的数值了
大胡子真厉害，回答基本都是爆料级的
大胡子升级真快啊，这才几天就5条短裤外加月排名第一了
想想我这5个短裤混了差不多8年才得到的。
回复 ......
VB怎样获得鼠标处的超级连接呢？
在WebBrowser控件中有这样一个事件:StatusTextChange(index As Integer, ByVal Text As String)
它的Text参数正是鼠标处的超级连接,但问题是如果我的浏览器正� ......
我想把word另存为xml之后，用vb读取这个xml的内容，请问如何实现？
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......
vb中 现在我要把数据库里存储的一个附件的内容替换了，怎么做，只是替换我指定的位置，不是全部替换
请将问题说明白，存储字段格式，如果是Binary格式的比较麻烦，如果是字串，直接替换。最好不要进行指定位置替换� ......
