Neler yeni

Programlama Perl İle Bing Arama Toolu yapma

Oğuz

Bilgican Oğuz
Elmas
Katılım
19 Aralık 2020
Mesajlar
320
Tepkime puanı
351
Konum
Çanakkale / Türkiye
İlgi Alanlarınız
Teknoloji, Kişisel Blog ve daha niceleri.
Cinsiyet
  1. Erkek
Perl:
#!/usr/bin/perl
#calma pls   
#Coder: SyberCodeV1 www.sybercodev1.com

use HTTP::Request;
use LWP::Simple;
use LWP::UserAgent;
use Win32::Console::ANSI;
use IO::Socket::INET;
use Term::ANSIColor;
use IO::Select;
use HTTP::Response;
use HTTP::Request::Common qw(POST);
use HTTP::Request::Common qw(GET);
use URI::URL;



print q{
 ____  _             ____                      _     
| __ )(_)_ __   __ _/ ___|  ___  __ _ _ __ ___| |__ 
|  _ \| | '_ \ / _` \___ \ / _ \/ _` | '__/ __| '_ \
| |_) | | | | | (_| |___) |  __/ (_| | | | (__| | | |
|____/|_|_| |_|\__, |____/ \___|\__,_|_|  \___|_| |_|
               |___/                                 
                           ______          __
                          /_  __/__  ___  / /
                           / / / _ \/ _ \/ /
                          /_/  \___/\___/_/

        Coder: SyberCodeV1 & www.sybercodev1.com

};
$ag = LWP::UserAgent->new();
$ag->agent("Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.3) Gecko/20010801");
$ag->timeout(10);

print "Anahtar Kelimeyi Gir: ";
$dork=<STDIN>;
chomp $dork;
print , "\n";

for (my $i=1; $i<=2000; $i+=10) {
$url = "http://www.bing.com/search?q=$dork&filt=all&first=$i&FORM=PERE";
$resp = $ag->request(HTTP::Request->new(GET => $url));
$rrs = $resp->content;

while($rrs =~ m/<a href=\"?http:\/\/(.*?)\//g){

$link = $1;
    if ( $link !~ /overture|msn|live|bing|yahoo|duckduckgo|google|w3|microsof/)
    {
                if ($link !~ /^http:/)
             {
                $link = 'http://' . "$link" . '/';
             }



if($link !~ /\"|\?|\=|index\.php/){
                    if  (!  grep (/$link/,@result))
                    {
print "$link\n";
open(save, '>>kaydedilen.txt');
    print save "$link\n";
    close(save);
                        push(@result,$link);
                    }
}
}
}
}

exit

kaynak kodlar burdadır geliştirilmesi için paylaşılmıştır.

biraz ben geliştirip bu konunun altına github link eklerim.

<3 hacktivizm üyeleri
 

Oğuz

Bilgican Oğuz
Elmas
Katılım
19 Aralık 2020
Mesajlar
320
Tepkime puanı
351
Konum
Çanakkale / Türkiye
İlgi Alanlarınız
Teknoloji, Kişisel Blog ve daha niceleri.
Cinsiyet
  1. Erkek
+ olarak anahtar kelimeden çıkan siteleri kaydedilen.txt'e kaydetiliyordur.

Perl:
print "$link\n";
open(save, '>>kaydedilen.txt');
    print save "$link\n";
    close(save);
                        push(@result,$link);
                    }
 

Konuyu görüntüleyen kullanıcılar:

Hukuksal Sorunlar İçin [email protected]
For Legal Problems [email protected]
Hacktivizm.Org
Hacktivizm.Org internet sitesi 5651 sayılı kanun’un 2. maddesinin 1. fıkrasının m) bendi ile aynı kanunun 5. maddesi kapsamında "Yer Sağlayıcı" konumundadır. İçerikler ön onay olmaksızın tamamen kullanıcılar tarafından oluşturulmaktadır. Hacktivizm.org; Yer sağlayıcı olarak, kullanıcılar tarafından oluşturulan içeriği ya da hukuka aykırı paylaşımı kontrol etmekle ya da araştırmakla yükümlü değildir. Hacktivizm saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz. Hacktivizm üyelerinin yaptığı bireysel hack faaliyetlerinden Hacktivizm sorumlu değildir. Sitelerinize Hacktivizm ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz. Sitemizde yer alan içerikler hakkındaki şikayetlerinizi Buradan iletişime geçerek bildirebilirsiniz. Please Report Abuse, DMCA, Scamming, Harassment, Crack or any Illegal Activities to [email protected]
Hacktivizm Twitter Hacktivizm Youtube Hacktivizm İnstagram Hacktivizm Telegram