如何将一个整数分解成单个字节，然后在FreeBASIC中再次合并它们？

Question

我正在制作一个简单的隐写术程序来隐藏PNG文件中的数据。解码/编码单个字节很容易，但我还需要在PNG文件中隐藏一个头文件。这个头文件将包含以字节为单位的文件大小，以便准确地知道提取文件所需的字节数(如果太多字节，提取的文件将被损坏)。

所以我需要将整数分解成单个字节(因为FB中的整数是32位宽的，这将导致四个独立的字节)。然后，这些字节将被编码到PNG图像的前16个像素中(在我的隐写算法中，1个解码的字节=4个编码，我只使用R和B值来存储数据)。我该怎么做呢？

我需要知道如何将整数分解成四个单独的字节，然后再将这些字节合并成整数。

Answer 1

我在FB论坛上的朋友Mysoft created this example how to do that。同时，感谢stackoverflow社区的响应性和快速回答。

dim as integer x = &hFF88442211, y
dim as integer b1,b2,b3,b4

b1 =  x and &hFF
b2 = (x shr 8) and &hFF
b3 = (x shr 16) and &hFF
b4 = (x shr 24) and &hFF

y = b1+(b2 shl 8)+(b3 shl 16)+(b4 shl 24)

print hex$(x),hex$(y)
print hex$(b1),hex$(b2),hex$(b3),hex$(b4)