如何将16进制字符流还原成png图片

16进制字符如下：
89504e470d0a1a0a0000000d4948445200000064000000280403000000fa56427000000030504c5445ffffffbfbfbf3f3f3f4f4f4f5f5f5f6f6f6f7f7f7f8f8f8f9f9f9fafafafcfcfcfdfdfdfefefef0f0f0f1f1f1f2f2f2f3f7cab44000001ea49444154388ded93bb4b1c5114c6cfc6e73abb6a2356ca82558a21420a1b07b6b1342882a90c362a16925421954d0261350f2b4911616d8222c220fe0123a41234e3ecc347f6bb4a4062e16092329090efae09eceaded5f4fbc19cb97339bf39f7dcef5e919a2a2bd23330955af3fe07694451eae7ed913b9708be55c9594db9a59ff1afef9e8ed8c082293f72f6a0270cd22533dd1ec36b04c6122de8974f382a9999d621c49e11b1f8b7283297e36557b652498e9a80841189b1400c8aa3b6d18bf0f879d6ce72dc0ab41b91e971062e7c656a2370b9bf6e03864466fed6ada40832afc4c2e1c6e92355200b2f069f65cbba2b571d0df85eafde876e0b4e446cae27f4b59bbd46641d29276fe7378f4506f7f9605c90941d207d3d17e522b2a47495dc36b770ac622b808e160eaed22ac1597c36aeab293cd1af5de08938ff208f4fd28848f4d4636c00b28f1d5c00670eaec8bfc6749d4bd16c04eb709b811f3694036da71f3720add922929b58d0edcfa0100d51ad152aaecf4a9d766e2ccf9a34878de90360d0a6de5a4f6726e838dd5f22d2ac77c0883426ad50659ebd8072a59e2ed24a9f6708b92acb7af30bbd6ff9d77e6dfe97b90ed0275ee442b5561679a13a27e7c59a0dd21fc9fec643e7ee4be31d2ed5bdbeb4c887fbc3b2383a7f9bfc9a6aba497f007899166350cf243b0000000049454e44ae426082
求还原后的图片，应该是一种验证码图片，更重要的是方法，最好有VB算法代码。不胜感谢！

嗯，然后呢，关键是怎么变成图片啊

不感兴趣

开通SVIP免广告

大哥，真有才，问题解决了。
代码整理后如下：
Private Sub Command1_Click()
Dim HEXSTR As String
Dim A() As Byte
HEXSTR = Text1
ReDim A(Len(HEXSTR) / 2)
For I = 0 To Len(HEXSTR) Step 2
A(I / 2) = Val("&H" & Mid(HEXSTR, I + 1, 2))
Next
Open "c:\123.PNG" For Binary As #1
Put #1, , A()
Close #1
End Sub
图片如下：

再次感谢

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

3回复贴，共1页

<<返回vb吧

分享到:

日	一	二	三	四	五	六