Start Dictionary
   String: (8) announce
   String: (41) http://torrent.unix-ag.uni-kl.de/announce
   String: (13) announce-list
   Start List
      Start List
         String: (41) http://torrent.unix-ag.uni-kl.de/announce
      End List
      Start List
         String: (42) http://tracker.birkenwald.de:6969/announce
      End List
   End List
   String: (13) creation date
   Int 1265973157
   String: (4) info
   Start Dictionary
      String: (5) files
      Start List
         Start Dictionary
            String: (6) length
            Int 3907497984
            String: (4) path
            Start List
               String: (35) KNOPPIX_V6.2.1DVD-2010-01-31-EN.iso
            End List
         End Dictionary
         Start Dictionary
            String: (6) length
            Int 70
            String: (4) path
            Start List
               String: (39) KNOPPIX_V6.2.1DVD-2010-01-31-EN.iso.md5
            End List
         End Dictionary
         Start Dictionary
            String: (6) length
            Int 314
            String: (4) path
            Start List
               String: (43) KNOPPIX_V6.2.1DVD-2010-01-31-EN.iso.md5.asc
            End List
         End Dictionary
         Start Dictionary
            String: (6) length
            Int 78
            String: (4) path
            Start List
               String: (40) KNOPPIX_V6.2.1DVD-2010-01-31-EN.iso.sha1
            End List
         End Dictionary
         Start Dictionary
            String: (6) length
            Int 322
            String: (4) path
            Start List
               String: (44) KNOPPIX_V6.2.1DVD-2010-01-31-EN.iso.sha1.asc
            End List
         End Dictionary
      End List
      String: (4) name
      String: (31) KNOPPIX_V6.2.1DVD-2010-01-31-EN
      String: (12) piece length
      Int 1048576
      String: (6) pieces
      String: (74540) öÎ4÷ŠsdËçÈ“§“ CUT CUT
   End Dict
End Dict

Strict

Import iud.tbencode


Global bd:TBDecode=TBDecode.LoadFile("test.txt") '("knoppix.torrent.txt")

While bd.list()
   Print "{"
   Print "   "+bd.proc()
   Print "   "+bd.proc()
   Print "   "+bd.proc()
   
   Print "   {"
   While bd.dictionary()
      Local id:Int=Int bd.proc()
      Local name:String=bd.proc()
      Print "      ID: "+id+ " Name: "+name
   Wend
   Print "   }"
   Print "}"
Wend

{
   John
   Doe
   1985
   {
      ID: 1 Name: Corvette
      ID: 2 Name: HA
      ID: 3 Name: HB
      ID: 4 Name: Gallardo
   }
}
{
   John2
   Doe2
   19852
   {
      ID: 5 Name: Corvette2
      ID: 6 Name: HA2
   }
}

Strict

Import iud.tbencode

Type Mensch
   Field name:String
   Field born:Int
   Field familyname:String
   
   Field cars:TList
End Type

Local typ:Mensch=New Mensch
typ.name="John"
typ.familyname="Doe"
typ.born=1985
typ.cars=CreateList()
typ.cars.addlast("Corvette")
typ.cars.addlast("HA")
typ.cars.addlast("HB")
typ.cars.addlast("Gallardo")

Local typ2:Mensch=New Mensch
typ2.name="John2"
typ2.familyname="Doe2"
typ2.born=19852
typ2.cars=CreateList()
typ2.cars.addlast("Corvette2")
typ2.cars.addlast("HA2")

Local id:Int=1

Local be:TBEncode=TBEncode.Create()
be.startlist
   be.WriteString(typ.name)
   be.WriteString(typ.familyname)
   be.WriteInt(typ.born)
   be.StartDictionary
   For Local st:String=EachIn typ.cars
      be.WriteInt(id); id:+1
      be.WriteString(st)
   Next
   be.EndDictionary

   be.WriteString(typ2.name)
   be.WriteString(typ2.familyname)
   be.WriteInt(typ2.born)
   be.StartDictionary
   For Local st:String=EachIn typ2.cars
      be.WriteInt(id); id:+1
      be.WriteString(st)
   Next
   be.EndDictionary
be.endlist

be.WriteToStream("hallo.txt")

l4:John3:Doei1985edi1e8:Corvettei2e2:HAi3e2:HBi4e8:Gallardoe5:John24:Doe2i19852edi5e9:Corvette2i6e3:HA2ee