by绁炲垁#!/usr/bin/perl-w#findshellv1.0==codetaken/modifiedfromtraps.darkmindz.com#usage:./findshell.plusestrict;useFile::Find;my$sens=shift||10;my$folder=shift||'./';find(\&backdoor,"$folder");subbackdoor{if((/\.(php|txt)/)){open(my$IN,"my@file=;#maybeevilstuffsmy$score=grep(/function_exists\(|phpinfo\(|safe_?mode|shell_exec\(|popen\(|passthru\(|system\(|myshellexec...