1.                        

Port Scanner

'Perl' forumunda tababa86 tarafından 11 Mart 2018 tarihinde açılan konu

  1. tababa86

    tababa86 Albay

    Katılım:
    12 Mart 2016
    Mesaj:
    888
    Beğeniler:
    64
    Ödül Puanları:
    28
    Cinsiyet:
    Erkek
    Şehir:
    Kore
    Kod:
    #!/usr/bin/perl
    use Socket;
    $| =1;
    my ($ip,$protocol,$port,$myhouse,$yourhouse,$log);
    $protocol=getprotobyname('tcp');
    ($ip,$port,$port_stop,$log)[email protected];
    if($ip eq "-h") {
    
    &Usage();
    }
    $ip="localhost" if not $ip;
    $port=1 if not $port;
    $port_stop=65535 if not $ port_stop;
    $log="qsopenports.txt" if not $log;
    
    unless(open(LOG_FILE, ">>$log")) {
    
    die "cant open log file $log for writing:$!\n"
    }
    
    select((select(LOG_FILE),$|=1)[0]);
    print LOG_FILE "the following ports are open on $ip between ports ";
    print "checking $ip for open ports.. \n";
    for (;$port < $port_stop;$port +=1) {
      
        socket(SOCKET,PF_INET,SOCK_STREAM,$protocol);
        $yourhouse=inet_aton($ip);
        $myhouse=sockaddr_in($port,$yourhouse);
      
        if(!connect(SOCKET,$myhouse)) {
            printf "%d\r", $port;
        }
            else {
                printf "%d <- open\n",$port;
                print LOG_FILE "$port\n";
                close SOCKET || die "close: $!";
              
                }
          
            }
        close LOG_FILE || die "close: $!";
        printf "port scanner complete. \n";
        printf "those are the open port: $ip\n";
        sub usage() {
            print "Usage : ./portscan [host] [start port] [end port] ";
            print " Default localhost and port 1 and port 65535 ";
            exit 0;
          
            }
        
    portscan diye kaydedin...
    #sudo chmod +x ./portscan
    #./portscan // böyle kulanırsanız kendi pc nizde açık portları listeler...
    #./portscan 192.168.2.156 1 65535
    ayrıca qsopenports.txt bu text dosyasına da log atıyor...Hızlı bir port tarama yapıyor...
     
    Al-Farabi bunu beğendi.
  2. tekroot

    tekroot Active Member

    Katılım:
    11 Ekim 2016
    Mesaj:
    250
    Beğeniler:
    25
    Ödül Puanları:
    28
    Cinsiyet:
    Erkek
    Meslek:
    programlama teknik yazılım bilgisayar elektronik
    Şehir:
    Unknown
    eline saglik dostum iyi bir calisma
     
    Al-Farabi ve tababa86 bunu beğendi.
  3. tababa86

    tababa86 Albay

    Katılım:
    12 Mart 2016
    Mesaj:
    888
    Beğeniler:
    64
    Ödül Puanları:
    28
    Cinsiyet:
    Erkek
    Şehir:
    Kore
    sağolasın.Dün metasploitable 3 üzerinde denedim çok hızlı tarama yapıyor.
     
    Al-Farabi bunu beğendi.
  4. tekroot

    tekroot Active Member

    Katılım:
    11 Ekim 2016
    Mesaj:
    250
    Beğeniler:
    25
    Ödül Puanları:
    28
    Cinsiyet:
    Erkek
    Meslek:
    programlama teknik yazılım bilgisayar elektronik
    Şehir:
    Unknown
    advanced ip scanner wine ile kurdum baya gelistiriyorlar iyi calisiyor kullandim deisiklikleri sevdim shodan i da kullanmayi gostermek lazim iyi bir tarayici
     
    Al-Farabi bunu beğendi.
  5. tababa86

    tababa86 Albay

    Katılım:
    12 Mart 2016
    Mesaj:
    888
    Beğeniler:
    64
    Ödül Puanları:
    28
    Cinsiyet:
    Erkek
    Şehir:
    Kore
    zenmap nmap 'ın görsel hali...Eger nmap ile tarama nasıl yapılır bilmiyorsanız zenmap kurun ve yan tarafta taramaları seçin komut haliyle gösteriyor.Bu arada zenmap da harika...
     
    Al-Farabi bunu beğendi.
  6. tekroot

    tekroot Active Member

    Katılım:
    11 Ekim 2016
    Mesaj:
    250
    Beğeniler:
    25
    Ödül Puanları:
    28
    Cinsiyet:
    Erkek
    Meslek:
    programlama teknik yazılım bilgisayar elektronik
    Şehir:
    Unknown
    ben tek pc kali kurulu windows isyerinde pc de kullaniyorum bakiim dedim kalide stabil caliscakmi isyerinde windowsta arada lazim oluyor denemek amaciyla oldu zen ' de kullandim oda iyi yeni versyonu cikincanbir ndeneyim dedim iyide oldu bu arada formda kimseler yok canlanacak isallah bekliyoz
     
    Al-Farabi bunu beğendi.
  7. tababa86

    tababa86 Albay

    Katılım:
    12 Mart 2016
    Mesaj:
    888
    Beğeniler:
    64
    Ödül Puanları:
    28
    Cinsiyet:
    Erkek
    Şehir:
    Kore
    kali linux pentesting diye adım adım anlatmayı düşünüyorum da işler çok sıkıyor yoksa kafamda çok şey var...
     
    Al-Farabi bunu beğendi.
  8. tekroot

    tekroot Active Member

    Katılım:
    11 Ekim 2016
    Mesaj:
    250
    Beğeniler:
    25
    Ödül Puanları:
    28
    Cinsiyet:
    Erkek
    Meslek:
    programlama teknik yazılım bilgisayar elektronik
    Şehir:
    Unknown
    bendede isler cok baya is vardi azaltiyom hizla calisiyorum bakalim isalah sendede duzelir de projelerini yaparsin isallah
    dostum
     
    Al-Farabi bunu beğendi.
  9. tekroot

    tekroot Active Member

    Katılım:
    11 Ekim 2016
    Mesaj:
    250
    Beğeniler:
    25
    Ödül Puanları:
    28
    Cinsiyet:
    Erkek
    Meslek:
    programlama teknik yazılım bilgisayar elektronik
    Şehir:
    Unknown
    bendede isler cok baya is vardi azaltiyom hizla calisiyorum bakalim isalah sendede duzelir de projelerini yaparsin isallah
    dostum
     
    Al-Farabi bunu beğendi.

Bu Sayfayı Paylaş

Share