您的位置：程序门 -> vb -> 基础类

数组异或问题

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

数组异或问题[已结贴,结贴人:nsisn]

发表于：2007-02-01 19:33:06 楼主

dim filedata（) as byte
dim filename as string
filename= "c:\1.ogg "
redim filedata（filelen（filename))
open filename for binary as #1
get #1,1,filedata
close #1

然后需要把filedata当中每4个节和字符串abcd异或，如果文件大小不为4的倍数，则最后剩余的不足4字节的部分不进行加密...
t_t 怎么写代码？

发表于：2007-02-01 20:31:341楼得分:0

dim filedata（) as byte
dim filename as string
filename= "c:\1.ogg "
redim filedata（filelen（filename)-1) as byte
open filename for binary as #1
get #1,1,filedata
close #1
dim i as integer
for i = 0 to filelen（filename)-1 step 4
filedata（i) = filedata（i) and 65
filedata（i) = filedata（i) and 65
filedata（i) = filedata（i) and 65
filedata（i) = filedata（i) and 65

发表于：2007-02-01 20:34:562楼得分:30

上面发错了
dim filedata（) as byte
dim filename as string
filename= "c:\1.ogg "
redim filedata（filelen（filename)-1) as byte
open filename for binary as #1
get #1,1,filedata
close #1
dim i as integer
dim lenmax as integer
lenmax = filelen（filename)
if lenmax mod 4 <> 0 then
lenmax = lenmax - （lenmax mod 4)
end if

for i = 0 to lenmax step 4
filedata（i) = filedata（i) and 65
filedata（i+1) = filedata（i+1) and 66
filedata（i+2) = filedata（i+2) and 67
filedata（i+3) = filedata（i+3) and 68
next

发表于：2007-02-01 20:37:423楼得分:0

for i = 0 to lenmax step 4
filedata（i) = filedata（i) xor65
filedata（i+1) = filedata（i+1) xor 66
filedata（i+2) = filedata（i+2) xor 67
filedata（i+3) = filedata（i+3) xor 68
next

发表于：2007-02-01 21:17:164楼得分:0

filekey（0)=65
filekey（1)=66
filekey（2)=67
filekey（3)=68

for i = 0 to ubound（filestr)
filedata（i) = filedata（i) xor filekey（i mod 4)
next

下一篇：请问winＥＸＥＣ和shell有什么不同之处？
上一篇：vb+access+sql（能否使用case语句)

其他资讯