应该可以 .版本 2 =X*E(.6Ip
.子程序 贝壳云, 文本型, , 4Z ] 35*
.参数 File, 文本型 hd~rC*I
.局部变量 待检测字节级, 字节集 2"O Y]d
.局部变量 临时TEMP, 字节集 i`qh|w/b_
.局部变量 结果, 文本型 TTpF m~?(
.局部变量 欲验数据, 文本型 n&]w* (,
.局部变量 网络信息, 文本型 \Hd B
.局部变量 Wppa, 文本型, , "0" UZra'+Wb
U:r2hqegd
待检测字节级 ＝ 读入文件 (File) B*IDx`^Y
欲验数据 ＝ 取文件MD5 (File) ny={V* m
CCOg1X_
j&.BbcE45
^~l<N @
临时TEMP ＝ 闪电HTTP读文件 (“http://f-sq.beike.cn/sapi/f007p.aspx”, “POST”, , “Content-Length: 82”, 到文本 (#a) ＋ 欲验数据 ＋ 到小写 (取十六进制文本 (取循环冗余校验和 (待检测字节级))) ＋ 到文本 (#b)) -e>)yM `i
网络信息 ＝ 到文本 (临时TEMP) u#~! %~
_ GSw\r
9 NQq=@
.如果真 (寻找字节集 (到字节集 (网络信息), 到字节集 (“[[”), ) ≠ -1) Sj?sw]3
Wppa ＝ 分割文本 (网络信息, “,”, ) %SCu29km
.如果真 (取数组成员数 (Wppa) ＞ 3) /MH@>C _
结果 ＝ 子文本替换 (Wppa [4], “]]}”, “”, , , 假) J-F_X KqH
结果 ＝ 取文本左边 (结果, 取文本长度 (结果) － 1) gH 3kX<e
结果 ＝ 取文本右边 (结果, 取文本长度 (结果) － 1) i&)C,
输出调试文本 (结果) 79H +~1Az
.如果 (结果 ＝ “”) ^~ $ &
返回 (“无威胁”) tL{~O=
.否则 C} _:K)5q
返回 (到大写 (结果))‘病毒名（2012年了 这个东西没用了 只要信任） p]Zabky
.如果结束 N'P,QiR,z<
yX3H&F6
.如果真结束 L]N2r MM
.如果真结束 #l#[ \6
.如果 (寻找字节集 (到字节集 (网络信息), 到字节集 (“:2”), ) ≠ -1) ID#qKFFW
返回 (“安全”) OB^?cA>
.否则 o~_>p/7;
.如果 (寻找字节集 (到字节集 (网络信息), 到字节集 (“3,0”), ) ≠ -1) h^kN M8
返回 (“”) DN':-P K
.否则 a<jE 25t
返回 (“”) Ja=70ZI^ 6
.如果结束 jI`To%^ Y
.如果结束 XW_xNkpL5c
K6*UFO4}i
.版本 2 bSR+yr'?
.支持库 internet .如果 (寻找字节集 (到字节集 (网络信息), 到字节集 (“3,0”), ) ≠ -1) ] q[
总结果 ＝ 到文本 (HTTP读文件 (“http://md5.virscan.org/” ＋ 欲验数据)) 4O_+4yS
结果数值 ＝ 到整数 (取文本右边 (取文本中间 (总结果, 寻找文本 (总结果, “%(”, , 假), 4), 2)) 3k*:B~1
.如果 (结果数值 ＞ 8) Xe3z6
写通杀 () >l< ~Z;
返回 (“Sps.Virscan.Gen”) vs])%l%t
.否则 4B8Se
.如果 (结果数值 ＞ 3) dd q 1NW
返回 (“3”) T19 rbL_
.否则 =#Cf5s6qt
.如果真 (文件是否存在 (取当前目录 () ＋ “\Virus library\VirusFile.Sps”) ＝ 真 且 文件是否存在 (取当前目录 () ＋ “\Virus library\VirusFile-X.Sps”) ＝ 真) Hl2f`GZ
返回 (通杀库比对 ()) "ex~ L B
.如果真结束 B?lBO V4v4
.如果结束 .如果结束 H")N_BB
返回 (“3”) ;Ma/b=Y
.否则 mB^I @oZ*
返回 (“3”) 5} MlZp
.如果结束 L>~@ 9a\jO
额 以前写的还能用 这个白名单不错  |
楼主: 毛豆小新
[复制链接]
发表于 2012-4-21 15:59:28
