如何用VB处理异或问题

发布网友发布时间：2023-07-27 18:16

共2个回答

热心网友时间：2023-08-05 12:19

Private Sub hidebyte(l() As Byte, d() As Byte) 'l()图片信息，d()秘密信息
Dim i As Long, j As Long, k As Long 'i,j 为循环变量，k为隐藏的位置
For i = LBound(d) To UBound(d)
k = (i - 1) * 4 + 1
For j = 0 To 3
l(j + k) = l(j + k) Xor d(i)
Next j
Next i

End Sub

热心网友时间：2023-08-05 12:20

把隐藏信息异或后存入图片后两位~就可以了~~

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com