![]() |
#2
xzlxzlxzl2014-06-01 08:27
|
比如

Dim ByteArray() As Byte
ByteArray() = StrConv(Text, vbFromUnicode)
Debug.Print "字符串解密: " & UBound(ByteArray)
Filenr = FreeFile
Open SourceFile For Binary As #Filenr
ReDim ByteArray(0 To LOF(Filenr) - 1)
Get #Filenr, , ByteArray()
Close #Filenr
Debug.Print "文件解密: " & UBound(ByteArray)
一样是字节数组为什么字符串的会比较文件转成字节的下标小