http://dev.trisul.org/unsniffwiki/docs/ 2026-04-28T16:24:06-04:00 http://dev.trisul.org/unsniffwiki/docs/ http://dev.trisul.org/unsniffwiki/docs/lib/tpl/default/images/favicon.ico text/html 2014-09-11T23:23:06-04:00 http://dev.trisul.org/unsniffwiki/docs/doku.php?id=unsniff:samples:tcpports:ruby&rev=1410492186&do=diff # ------------------------------------------------------------------ # tcpports.rb Print TCP Port Information # usage : tcpports <capture-file> # # # ------------------------------------------------------------------ require 'win32ole' USAGE = "tcpports <capture-filename> " if ARGV.length != 1 puts USAGE exit 1 end InputFile = ARGV[0] UnsniffDB = WIN32OLE.new("Unsniff.Database") UnsniffDB.Open(InputFile) PacketIndex = UnsniffDB.PacketIndex (0..PacketIndex.Count-1).each do |idx| pkt = Pa… text/html 2014-09-11T23:23:06-04:00 http://dev.trisul.org/unsniffwiki/docs/doku.php?id=unsniff:samples:tcpports:vbs&rev=1410492186&do=diff ' ----------------- ' Declare variables ' ----------------- Set Sout = WScript.Stdout ' ----------------------- ' Check usage & arguments ' ----------------------- if WScript.Arguments.Count <> 1 then Sout.Writeline "Usage: tcpport <filename>" WScript.Quit end if ArgFile = WScript.Arguments.Item(0) Set UnsniffDB = CreateObject("Unsniff.Database") UnsniffDB.Open(ArgFile) Set PacketStore = UnsniffDB.PacketIndex PacketCount = PacketStore.Count Dim FName For I = 0 To PacketCount…