Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight

Basic frequency analysis of Checkpoint FW-1 rulesets

by grinder (Bishop)
on Feb 24, 2005 at 10:03 UTC ( #434000=snippet: print w/replies, xml ) Need Help??

You can purchase a module from Checkpoint that will let you see how many times rules in your ruleset are triggered. The idea being that you could reorder things, or check for rules that are never matched.

If you don't want to buy the module and will settle for exporting the logfile and running the following snippet, you can get a list of rules triggered ordered by descending frequency.

The logfile is slightly odd, CSV without the commas, e.g.:

"26459" "29Feb2005" "5:34:59" "VPN-1 & FireWall-1" "eth6" "" "Log" "Decrypt" "2967" "" "" "udp" "11" "2967" "" ""

In the above, "11" indicates that this packet was accepted by rule 11.

#! /usr/bin/perl -w

use strict;
my @header = ($_ = <>) =~ /"([^"]+)" ?/g;

my %rule;
while( <> ) {
    $rule{ (/"([^"]+)" ?/g)[12] }++;

print "$rule{$_}\t$_\n" for sort {$rule{$b} <=> $rule{$a}} keys %rule;
Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: snippet [id://434000]
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others chanting in the Monastery: (5)
As of 2023-12-03 10:05 GMT
Find Nodes?
    Voting Booth?
    What's your preferred 'use VERSION' for new CPAN modules in 2023?

    Results (20 votes). Check out past polls.