向高手求助力：有没有什么办法用asp将torrent文件信息提取出来

<%
class CBencodingInteger

 public lngPosition '在文件中的位置

 public lngLength '其全部结构包括子数据的长度

 public dblValue  '值
end class
class CBencodingString

 public lngPosition '在文件中的位置

 public lngLength '其全部结构包括子数据的长度

 public binValue  '值
end class
Class CBencodingList

 Public lngPosition,lngLength

 Private m_aobj,m_intCount

 

 Private Sub class_initialize()
  ReDim m_aobj(0)
  m_intCount=0

 End Sub


 Public Property Get Count()
  Count=m_intCount

 End Property


 Public Default Function Item(intIndex)
  If intIndex<0 Or intIndex>=m_intCount Then Err.raise vbObjectError,"Item()","index overflow"
  Set Item=m_aobj(intIndex)

 End Function


 Public Function Add(objItem)
  ReDim preserve m_aobj(m_intCount)
  Set m_aobj(m_intCount)=objItem
  m_intCount=m_intCount+1

 End Function
End Class

Class CBencodingDictionary

 Public lngPosition,lngLength

 private m_objDict

 

 Public Sub class_initialize()
  Set m_objDict=CreateObject("scripting.dictionary")

 End Sub


 Public Default Function Item(strIndex)
  If m_objDict.Exists(strIndex) then
   Set Item=m_objDict.item(strIndex)
  else
   Err.raise vbObjectError,"Item()","not such key in dictionary."
  End If

 End Function


 Public Function Add(strKey,objItem)

  m_objDict.add strkey,objItem

 End Function


 Public Property Get Count()
  Count=mobjDict.count

 End Property
End Class

'将byte()字符转化为vbString
Function PickBinChar(binSrc,lngPos)

 PickBinChar=midb(binSrc,lngPos,1)&Chrb(0)
End Function

'读取整数
'[in]binSrc
'[in,out]lngCurpos
'[in]lngMaxPos
'[out]objRet
Function readInteger(binSrc,lngCurPos,objRet)

 Dim i,j

 Dim chrBuf

 Dim strNum,dblNum

 Dim lngBakPos


 lngBakPos=lngCurPos '直接更改解析位置lngCurPos好处是发生err，可以知道错误的字符位置

 Set objRet=Nothing


 If PickBinChar(binSrc,lngCurPos)<>"i" Then Err.raise vbObjectError,"readInteger()","'i' head missing."


 lngCurPos=lngCurPos+1


 i=0

 strNum=""

 chrBuf=PickBinChar(binSrc,lngCurPos)

 Do While chrBuf<="9" And chrBuf>="0"
  strNum=strNum & chrBuf
  lngCurPos=lngCurPos+1
  chrBuf=PickBinChar(binSrc,lngCurPos)
  i=i+1
  If i>MAX_INT_LEN Then Err.raise vbobjectError,"readInteger()","Integer overflow."

 Loop


 If chrBuf<>"e" Then Err.raise vbobjectError,"readInteger()","'e' rare missing."

 If strNum="" Then Err.raise vbObjectError,"readInteger()","empty between 'i' and 'e'."


 Set objRet=new CBencodingInteger

 objRet.lngPosition=lngBakPos

 objRet.lngLength=lngCurPos-lngBakPos

 objRet.dblValue=CDbl(strNum)


 lngCurPos=lngCurPos+1
End Function

'readString,readList,readDictionary我就不贴了，基本类似，就是dictionary和list的位置指针要小心一些


'测试


Function LoadFromFile(strPath,bin)  '也可以改成request.binaryread，不过要先处理一下multiform数据格式

 Dim objAdoStm


 Set objAdoStm=CreateObject("adodb.stream")

 objAdoStm.Type=1

 objAdoStm.Mode=3

 objAdoStm.Open


 objAdoStm.LoadFromFile strPath

 objAdoStm.Position=0

 bin=objAdoStm.Read(-1)


 objAdoStm.close

 Set objAdoStm=Nothing
End Function

Debug:Sub Debug()

 Dim bin

 LoadFromFile "test.torrent",bin


 Dim objTmp

 '解析根节点，以此递归解析全部文件

 readDictionary bin,1,0,objTmp

 '显示第0个节点的IP位置

 

 MsgBox byte2Str(objTmp.item("nodes").item(0).item(0).binValue)
End Sub
%>