> Hum.  Is the algorithm exponential or have dangerous regexen in it?
> 
> Dangerous regexen would be things along the lines of
> 
> $foo = "=XX=============================================================";
> print "Hi\n" if ($foo =~ /X(.+)+X/);
> 
> Notice in particular the (.+)+ formation.  You'll be off on a scenic
> trip to warmer climes in a handbasket before you know it.
> 
> It's safe to run, and best yet, with only slight modification, can run
> in browsers with the same results.

I could check, but the perl script is over 100 pages long (yes I printed it out
for fun).  It was written by other people for doing this.  This is a low
priority for me since my prime job is getting the NIDS working with SQL and
logging it all to a db.