[Mimedefang] Incredible spam obfuscation

[Jon R. Kibler]

"Cormack, Ken" wrote:

<SNIP!>

>         if ($badtag) {
>             if ($io = $entity->open("w")) {
>                 $io->print($bla);
>                 $io->close;
>             }
>             if ($badtag) { $badtag .= " tag deactivated"; }
>             md_graphdefang_log('modify',"$badtag");
>             action_change_header("X-Warning",
>                                  "$badtag by Columbia filter");
>             action_rebuild();
>         }
>     }

<SNIP!>

OK, I'm not a Perl programmer... but please explain to me why if you 
already have determined that this is a badtag, why check it a second
time in the statement:

   if ($badtag) { $badtag .= " tag deactivated"; }

or is there something I am missing here?

Thanks!

Jon K.
-- 
Jon R. Kibler
Chief Technical Officer
A.S.E.T., Inc.
Charleston, SC  USA
(843) 849-8214




==================================================
Filtered by: TRUSTEM.COM's Email Filtering Service
http://www.trustem.com/
No Spam. No Viruses. Just Good Clean Email.