#!usr/bin/perl
#
#################################################################
#								#
# Digital WrapperZ - SSH Security Shell Scanner			#
# Digital Wrapperz are: m4st3r_syst3m :: Dropper :: c0d3r_b0y	#
# Apenas para funs educacionais e violativos!			#
# g00d h4ck1n'!!						#
#								#
#################################################################
#

use IO::Socket::INET;

print"\n\n\n\n\n\n\n          dddddd                        tttt";
print"\n          ddddddd            gg       tttttttt           LLLL";
print"\n          dd    dd  ii    gg gg   ii     ttt     aaaaaa    LLL";
print"\n          dd    dd  iii  gg  gg   iii    ttt    aa   aa   LLL";
print"\n          dd    dd  iii  gg       iii    tt    aa   aa    LLL";
print"\n          dd    dd  iii  gg  gg   iii    tt    aaaaaaa    LL";
print"\n          ddddddd    ii   gg gg    ii    tt    aaa aaa    LLLLL";
print"\n          dddddd     ii   gggg     ii    t    aa   aa     LLLLLLLL";
print"\n\n             -    _    -    _    -    _    -    _    -    _    -";
print"\n           __-+-__-+-__-+-__-+-...WrapperZ...-+-__-+-__-+-__-+-__";
print"\n            -    _    -    _    -    _    -    _    -    _    -";
print"\n\n\n\n\n\n";
sleep 2;
print"\n\n\n\n               -- Security Shell (SSH) Scanner --";
print"\n\n                                                  coded by:";
print"\n                                                  c0d3r_b0y of Digital WrapperZ";
print"\n\n\n\n\n\n\n\n\n\n\n\n------------------------------------------------------------------------";
print "\nNome do arquivo de lista: ";
chop (my $lista=<stdin>);
print "\nNome do arquivo de resultados: ";
chop (my $resul=<stdin>);
print"\n";
$porta_num = 22;
my @host;
open(LISTA,"$lista") or die "\nErro ao abrir $lista: Arquivo inexistente ou corrompido! $!";
print "\n\n\n                        [SCAN!!]\n";
while (<LISTA>)
{
	$host[$a] = $_;
	chomp $host[$a];
	$a++;
	$b++;
}
close(LISTA);
$a = 0;
while ($a < $b)
{
print "\nEscaneando $host[$a]...        ";
chomp $host[$a];
my $soquete = IO::Socket::INET -> new(
				PeerAddr=>"$host[$a]",
				PeerPort=>"$porta_num",
				Proto=>"tcp",
				);
select((select($soquete), $| = 1)[0]);
print $soquete "\r\n\r\n";
@resposta = <$soquete>;
shutdown($soquete,1);
if(@resposta[0] =~/SSH/)
{
	print "[OK!]";
	open(RES,">>$resul");
	print RES "$host[$a]   -=>   @resposta[0]";
	close RES;
}
else
{
	print "[Sem Security Shell!]";
}
$a++;
}
print "\n\n\n------------------------------------------------";
print "\n        Salvando resultados em $resul .";
sleep 1;
print " .";
sleep 1;
print " .    [Pronto!]";
print "\n        Escaneamento completo!\n        Cheque em $resul para ver a lista de sites rodando SSH.";
print "\n\n\n";
sleep 1;
print "--------------------------------------------------------------\n";
print "                        Digital WrapperZ\n";
print "                   - - - - - - - - - - - - -\n";
print "                   digitalwrapperz\@email.com\n";
print "--------------------------------------------------------------\n\n";