#!/usr/bin/perl

# written by Florian Buchholz
# May 2002
# Part of Honeynet Challenge

open FH, $ARGV[0] or die "Couldn't open file $ARGV[0]";

seek FH, 0x24229 + 4, 0;

for ($count = 0; $count < 8000; $count++) {

  last if (! (read FH, $val, 4));

  @chars = unpack('C*', $val);

  printf "%d:\t%02x %02x %02x %02x\t%d.%d.%d.%d\n", 
    $count, $chars[0], $chars[1], $chars[2], $chars[3],
      $chars[3], $chars[2], $chars[1], $chars[0];


}

close FH;