#!/usr/bin/perl

require 'sim.pm';
use ebflags;


my $sim = new sim;
my $packet = new ebpacket;

#$packet->set_buffer(42,20,1,137); # valid ping

#$packet->set_buffer(42,36,66,0,0,0xce); # valid extended ping

#$packet->set_buffer(42,52,66,0,0,0,0,0,0,0x9e);
#$packet->set_buffer(42,68,66,0,0,0,0,0,0,0,0,0,0,0,0,0,0xBB,0xBE); # valid fucking long ping


#$packet->set_buffer();

$packet->set_addresses(1,2);
$packet->set_flags(($ebflags::EBFLAG_CRC | $ebflags::EBFLAG_HAMMING | $ebflags::FLAG_DST));
$packet->add_subpacket(66,1,1);
$packet->make_packet();
$packet->dump();

$packet->decode();
$packet->dump();