ScanWebshell
Webshell Scanner Detector. To play!
#!usr/bin/perl
# ###################
# # ScanWebshell #
############################################X###########
# ##
# ___________ _____ .__ #
# \_ _____/______ / | |______ | |__ #
# | __) \_ __ \/ | |\____ \| | \ #
# | \ | | \/ ^ / |_> > Y \ #
# \___ / |__| \____ || __/|___| / #
# \/ |__||__| \/ ##
# ##
# Independent Security Researcher ##
# Copyright - Jose Pino (@Fr4phc0r3) ##
# contact: jfraph@gmail.com #########
# ## V1.0 #
##################################################################
#
## #----->>>|Fraph|===============>
####################################### ==> Detected.
## #----->>>(Analisis...)====>
###########################
$Developed = "Fraph"; #
$Twitter = "@Fr4phc0r3"; #
$Version = "1.0"; #
###########################
use LWP::UserAgent;#
####################
my @diccionario = ('Crazyshell.php','securitypwn.php','C4nh0t0.php','superhacker.php','Dr_SHA6H.php','DrSHA6H.php','WorseLinuxShell.php','ru24_post_sh.php','RemExp.php','RemExp.asp','r57shell.php','r57_Mohajer22.php','r57_iFX.php','Priv8shell.php','Private-i3lue.php','Predator.php','PHPJackal.php','pHpINJ.php','php-include-w-shell.php','php-backdoor.php','PHANTASMA.php','PHVayv.php','NTDaddy.php','nshell.php','mysql_tool.php','MyWShell.php','MyShell.php','matamu.php','Loaderz.php','LoaderzWEBShell.php','ShellDDos.php',
'load_shell.php','Liz0ziM.php','wp-db.php','WP-DB.php','hackerarmy.php','teamhacker.php','lamashell.php','klasvayv.php','klasvayv.asp','KAdot.php','kacak.php','KA_uShell.php','FTPSHELL.php','FTPSHELL.php','JspWebshell.php','iMHaBiRLiGi.php','hiddensshell.php','go-shell.php','gfs_sh.php',
'Gamma.php','GammaWebShell.php','Elmaliseker.php','sym/jaguar.izri','jaguar.izri','jaguar.php','hackzone.php','m4y4.php','therules25.php','cracker_cpanel.php','cpanel_cracker.php','ELMALISEKER.php','ekin0x.php','EFSO_2.php','DxShell.php');
my $nyan=HTTP::Request->new(GET=>$fr4ph);
my $nyan = LWP::UserAgent->new("Mozilla/5.0 (Windows NT 6.1; rv:23.0) Gecko/20100101 Firefox/23.0"); #Firefox
#Firefox:>> Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12
$nyan->agent("Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/29.0.1547.66 Safari/537.36"); #Chrome
$nyan->timeout(6);
vista();
print "Ingresa La Url ==> ";
chomp( my $sitio = <stdin> );
if ( $sitio !~ /^http:/ ) {
$sitio = 'http://' . $sitio;
}
if ( $sitio !~ /\/$/ ) {
$sitio = $sitio . '/';
}
escaneo($sitio);
sub escaneo {
print "\n";
print "-> Direccion: $sitio\n";
print "-> Escaneando: Web...\n\n\n";
for my $fr4ph (@diccionario) {
$c0r3 = registro( $_[0] . "/" . $fr4ph );
if ( $c0r3->is_success ) {
$flowviolento = 1;
print "\a\a[+] Posible WebShell Detectada => " . $_[0] . $fr4ph . "\n";
registroescaneo( "registro.txt", $_[0] . $fr4ph );
}
}
if ( $flowviolento ne 1 ) {
print "[-] No se encontro ninguna Webshell o la URL es incorrecta.\n";
}
}
sub vista {
#OS
system('cls');
system('clear');
system('title Fraph - Escaner Detector de WebShell ');
print q{
_____ __ __ _ _ _ _
/ ____| \ \ / / | | | | | | |
| (___ ___ __ _ _ _\ \ /\ / /__| |__ ___| |__ ___| | |
\___ \ / __/ _` | '_ \ \/ \/ / _ \ '_ \/ __| '_ \ / _ \ | |
____) | (_| (_| | | | \ /\ / __/ |_) \__ \ | | | __/ | |
|_____/ \___\__,_|_| |_|\/ \/ \___|_.__/|___/_| |_|\___|_|_|
########################>ScanWebshell<#########################
#- -#
#- Developed By: @Fr4phc0r3 -#
##+> V1.0 <+##
##+> ################################# <+##
#- # Escaner Detector de WebShell # -#
###############################################################
};
print "Ejemplo: www.dominio.com o www.dominio.com/carpeta\n";
}
sub registroescaneo {
open( GUARDADOR, ">>" . $_[0] );
print GUARDADOR $_[1] . "\n";
close GUARDADOR;
}
sub registro {
return $nyan->get( $_[0] );
}
Url: https://github.com/Fraph/ScanWebshell/blob/master/scanwebshell.pl
Language: Perl | User: Fraph | Created: Nov 4, 2013 | Tags: ScanWebshell Perl Fraph Detected