#!/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, 0x1f6bc, 0;

for ($entry = 0; $entry < 10; $entry++) {
  print "{ ";


  for ($count = 0; $count < 50; $count++) {
    read FH, $val, 1;
    printf "0x%02x, ", ord $val;
  }

  print "};\n"

}

close FH;