YourWBB

/**
 * searches for hairy strings in images - IE security breach
 * LM: 09.05.2006 00:12 Zagon Hornik
 *
 * @param  string  filename
 * @return boolean true|false
 */
function checkFile($file)
{
    if ($f = fopen ($file, "rb"))
    {
        // read some bytes
        $line = fread ($f, 4096);
        
        if (preg_match ('@<script[^>]*?>.*?</script>@si', $line))
        {
            // found some bad string in file
            fclose ($f);
            unset ($line);
            return false;
        }
        else 
        {
            fclose ($f);
            unset ($line);
            return true;
        }
    }
}
?>