16进制怎么转换为BYTE[]

[steven7677]

服务器端采用DES加密(JAVA实现）字符串str（生成一串16进制值HStr），客户端（VB实现）要用DES解密成明文，解密时候需要传入byte[]，现在怎么在VB中把HStr转换成一个byte[]啊？

[用户 昵称]

从前往后，用mid取出来，用val( "&h" & mid( s, i, 2 ) )

for i = 1 to len( s ) step 2
arr( i / 2 ) = val( "&h" & mid$( s, i, 2 ) )
next i