Sikayet dork collector

'Tool' forumunda KaliBot tarafından 22 Şubat 2016 tarihinde açılan konu

  1. KaliBot

    KaliBot Albay

    Katılım:
    30 Haziran 2015
    Mesaj:
    573
    Beğeniler:
    65
    Ödül Puanları:
    12
    Web Sitesi:

    Kod:
    #!/usr/bin/perl
    use strict;
    use Fcntl ':flock';
    system ("color E");
    #######################################
    my $file = 'listsites.txt';    # Paste your RAW Url !!!
    my $outf = '02.DORK-Collected.txt';   # Here you will get all dorks !!!
    #######################################
    my @lines = lf($file);
    
    while (@lines) {
        my $url = shift @lines;
        if($url =~ m,http(.+?)\/\/(.+?)\/(.+?)\=,i){
        my $a = $3;
           $a =~ s/^\s+//;
           $a =~ s/\s+$//;
           wf($outf, "$a=\n");
        }
    }
    
    sub lf
    {
        open my $dat,'<',$_[0] or die "\nCould not open $_[0] file!\n";
        chomp (my @data = <$dat>);
        close $dat;
        return @data
    }
    sub wf
    {
        open my $dat,'>>',$_[0] or die "\nCould not open $_[0] file!\n";
        flock $dat, LOCK_EX;
        print $dat $_[1];
        flock $dat, LOCK_UN;
        close $dat
    }
    # Code By Kopele 2010 :)
     
  2. RichWarrior

    RichWarrior Albay

    Katılım:
    19 Şubat 2016
    Mesaj:
    275
    Beğeniler:
    85
    Ödül Puanları:
    28
    Şehir:
    (34) İstanbul Avrupa
    Web Sitesi:
    Peki Bu nasıl kullanılıyor??
     
  3. karilinux

    karilinux Member

    Katılım:
    20 Ocak 2016
    Mesaj:
    147
    Beğeniler:
    0
    Ödül Puanları:
    16
    Cinsiyet:
    Erkek
    Meslek:
    Öğrenci
    dosyayı bi metin belgesine .pl uzantılı olarak kaydetip terminalden perl dosyaadi.pl diye başlat
     

Bu Sayfayı Paylaş

Share