有人懂 VBS文件吗

matrix007

今生上网 有一个网站向我的硬盘写入了一个VBS文件

内容如下



Function UrlDecode(enStr)
  dim deStr , c,i,v
  deStr=""
  for i=1 to len(enStr)
        c=Mid(enStr,i,1)
        if c="%" then
               v=eval("&h"+Mid(enStr,i+1,2))
        if v<128 then
               deStr=deStr&chr(v)
               i=i+2
        else
               if isvalidhex(mid(enstr,i,3)) then
                      if isvalidhex(mid(enstr,i+3,3)) then
                             v=eval("&h"+Mid(enStr,i+1,2)+Mid(enStr,i+4,2))
                             deStr=deStr&chr(v)
                             i=i+5
                      else
                             v=eval("&h"+Mid(enStr,i+1,2)+cstr(hex(asc(Mid(enStr,i+3,1)))))
                             deStr=deStr&chr(v)
                             i=i+3
                      end if
                    Else
                      destr=destr&c
                      end if
               end if
        else
               if c="+" then
                      deStr=deStr&" "
               else
                      deStr=deStr&c
               end if
  end if
  next
UrlDecode=deStr
End function
Function isvalidhex(str)
        isvalidhex=true
        str=ucase(str)
        if len(str)<>3 then isvalidhex=false:exit function
        if left(str,1)<>"%" then isvalidhex=false:exit function
        c=mid(str,2,1)
        if not (((c>="0") and (c<="9")) or ((c>="A") and (c<="Z"))) then isvalidhex=false:exit function
        c=mid(str,3,1)
        if not (((c>="0") and (c<="9")) or ((c>="A") and (c<="Z"))) then isvalidhex=false:exit function
End Function

matrix007

是一般的操作 还是有恶性的东东在里面呢
[:04:] [:04:]

cbz107

最好杀毒。