谁能帮我解开这四者之间的算法
本帖最后由 破帽遮颜 于 2009-6-13 01:38 编辑删帖!正在研究中! 我的文档=hex:65,00,00,00,4a,01,00,00
我的电脑=hex:65,00,00,00,9c,01,00,00
回收站=hex:65,00,00,00,ee,01,00,00
上网浏览=hex:65,00,00,00,40,02,00,00
NETBAR=hex:01,01,00,00,40,02,00,00
编译程序=hex:b3,00,00,00,40,02,00,00
取4位 从后面反回来. 16进制
我的文档=00000065|0000014a
我的电脑=00000065|0000019c
NETBAR=00000101|00000240
最后那个太长了.等等看看 我只知道我看到一堆数字 呵呵,重要的还是那一串长的,不过还是谢谢二楼的解答!希望能帮忙研究一下~ 用VBS脚本读取方法:HEX_STRING = "00000000000000000000000000000000650000004A01000014001F48BA8F0D4525ADD01198A80800361B1103650000009C01000014001F50E04FD020EA3A6910A2D808002B30309D65000000EE01000014001F6040F05F6481501B109F0800AA002F954E650000004002000014001F6880531C87A0426910A2EA08002B30309DB3000000400200003800350000000000CB3A28181000167FD18B0B7A8F5E0000200003000400EFBEA93A5B42CB3A281814000000167FD18B0B7A8F5E00001800150000000200000046003A00AE010000213AB72C20004E45544241522E6C6E6B00002C0003000400EFBEA93A194FA93A2F4F140000004E00450054004200410052002E006C006E006B0000001A00150000000200000000000000"
POST = 33
do until POST>Len(HEX_STRING)
TMP= Mid(HEX_STRING,POST,16)
POST = POST + 16
IMG= Mid(HEX_STRING,POST,4)
IG = CODHEX(IMG)*2
POST = POST + IG
ITEM1 = Left(TMP,8)
ITEM2 = Right(TMP,8)
msg = msg & CODHEX(ITEM1) & "|" & CODHEX(ITEM2) & vbCrLf
loop
Wsh.echo msg
Function CODHEX(iSTR)
IF iSTR<>"" Then
DIM x
For x=1 To Len(iSTR) Step 2
STMP = Mid(iSTR,x,2) & STMP
NEXT
CODHEX = Int("&h" & STMP)
Else
CODHEX = 0
End IF
End Function 不错哦.......... :face (30)::face (30)::face (30): :face (34)::face (34)::face (34): 破帽兄下足本钱了哦
大家就看在钱的份上动动脑咯
我对纯数字有畏惧症
这个钱没机会挣咯
精神支持下!! 应该可以搞掂,不过现在工作很忙....
老板催得要命,先保住饭碗再说.. 呵呵,等蛋散的好消息先~ 好高的价啊!
。。。
真能出钱 好高的价啊!
。。。
真能出钱
kn007 发表于 2009-6-12 20:53 http://www.autoitx.com/images/common/back.gif
能解决问题,学到东西,这点钱还没什么!
我的所有问题能真正解决的话,500RMB都没问题!呵呵! XD不用为钱发愁,不代表别人不愁啊 看在钱的份上,哈哈
页:
[1]
2