Güvenli Ticaret

Hacktivizm içerisinde gerçekleştirmeyi düşündüğünüz tüm ticaretlerde, dikkat ve önlem sahibi olun.

Daha Fazlası

Sorunum Var

Forum içerisinde yaşadığınız tüm sorunlar için sohbet alanını ya da sayfanın altında belirtilen Telegram kanalımızı kullanın.

Daha Fazlası

Doğru Türkçe ve Kurallar

Türkçemizi her bakımdan doğru kullanın ve forum kurallarına uygun paylaşımlar yapmaya özen gösterin.

Daha Fazlası

Programlama Perl İle Bing Arama Toolu yapma

  • Konbuyu başlatan Oğuz
  • Başlangıç tarihi
  • Cevaplar : 4
  • Görüntüleme : 3K

Oğuz

Elmas
Katılım
19 Aralık 2020
Mesajlar
346
Tepkime puanı
503
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

Elmas
Katılım
19 Aralık 2020
Mesajlar
346
Tepkime puanı
503
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);
                    }
 

Can

La Turquie Kémaliste
Admin
Katılım
19 Aralık 2020
Mesajlar
2,058
Tepkime puanı
7,206
Konum
Türkiye
İlgi Alanlarınız
ham radio
Cinsiyet
  1. Erkek
eline emeğine sağlık
 
Katılım
30 Mart 2021
Mesajlar
1,239
Tepkime puanı
11,887
Konum
Ubuntu
İlgi Alanlarınız
Klavye ve fare
Cinsiyet
  1. Erkek
Eline Sağlık
 
  • Beğen
Tepkiler: Can

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]
Hack Forum
Hacktivizm, 2020 yılında kurulmuş bir siber güvenlik forum sitesidir aynı zamanda hack forumu,hack sitesi,hack forum ve Türk hack forumudur. Hack forum aramalarında ilk sayfada olan bu hack forum sitesi gün geçtikçe gelişmektedir. Hack Forum kelimesinin anlamı ise, hacker kültürü ve bilgisayar güvenliği ile ilgili tartışmalara adanmış bir İnternet forumudur. Web sitesi, analiz şirketi Alexa Internet tarafından web trafiği açısından "Hacking" kategorisinde bir numaralı web sitesi olarak yer almaktadır.

Telefon Takip - İphone Hackleme - PDF Şifre Kırma - Telefon Hackleme - İnstagram Hesap Çalma - Twitter Hesap Çalma - Facebook Hesap Çalma - Wifi Şifre Kırma - Telefon Şifresi Kırma

Hacktivizm Twitter Hacktivizm Youtube Hacktivizm İnstagram Hacktivizm Telegram

Üst