Select Code to Download

#!/usr/bin/perl -w
use strict;
...
%PIX-4-106023 Deny udp src inside 1.1.1.1 1161 dst outside 3.3.3.3 53 
+by access-group inside_access_in
%PIX-4-106023 Deny tcp src inside 1.1.1.1 1637 dst outside 4.4.4.4 80 
+by access-group inside_access_in
# etc... rest omitted for brevity

1.1.1.1 3.3.3.3 53 1
1.1.1.1 4.4.4.4 80 2
...
8.8.8.8 6.6.6.6 80 1
10.10.10.10 4.4.4.4 80 1
10.10.10.10 6.6.6.6 80 1