IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Nmap

- TCL Scriptler (https://www.ircforumlari.net/tcl-scriptler/)

- - Nmap - Port Tarama Tcl. (https://www.ircforumlari.net/tcl-scriptler/550657-nmap-port-tarama-tcl.html)

Nmap - Port Tarama Tcl.

kod hakkında :
Botunuzun işlediği shell üstünde işleteceği komut sonuçlarını kanala yansıtır.
bu kodun işleyebilmesi için shell'inizde Nmap ( [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ) yazılımının kurulu olması gereklidir.

( kurulu olup olmadığını shell'inize bağlanıp : nmap IP/host komutu vererek test edebilirsiniz.(kurulu olsada -erişiminiz olmayabilir.))

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

->> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Cevap: Nmap - Port Tarama Tcl.

linki yenilermisin rica etsem

Cevap: Nmap - Port Tarama Tcl.

Kod:

;# aktif etmek için bota bağlanın ve ,

;# .chanset #kanal +nmap

setudef flag nmap
 

;# komut başında kullanılacak sembol/işaret

set semb "."
 

;# kanal komutu

set kmt "nmap"
 

;# postalanacak satır sayısı

set satr "6"
 

;# komutu kullanma yetkileri

set mapflags "mn|oa"
 

bind pub $::mapflags $::semb$::kmt port_tarama
 

 proc port_tarama {nick uhost hand chan text} {

  if {![channel get $chan nmap]} { return 0;}

    set nm [lrange [split [string tolower $text]] 0 end]

  if {[llength $nm] == 0} { puthelp "notice $nick :\002Kullanımı:\002 \00304\002$::lastbind <IP yada Host>\002\003"; return 0;}

    set komt "nmap $nm"; set i 0

  catch {eval exec $komt} cikti

  foreach line [split $cikti \n] {

    while {$i <= $::satr} break

    set line [string map -nocase {

    "Starting Nmap" "İşlem başlatılıyor" "6\.00" " " "(" "" "http\:" " " "//nmap.org" "" ")" "" "at" "Lütfen bekleyiniz." "Nmap scan report for" 

    "Nmap taraması sonuçları" "s latency" " gecikme süresi" "Host is up" "Adres Aktif" "Other addresses for" "Diğer Adresleri" "not scanned" "taranamadı"

    "Not shown" "Gösterilmeyen" "filtered ports" "filtre edilmiş bağlantı noktaları" "STATE" "DURUM" "PORT" "BAĞLANTI NOKTASI" "SERVİCE" "SERVİS"

    "open" "açık" "Nmap done" "Nmap tamamlandı" "address" "adres" "host up" "host faal" "scanned in" "tarama süresi" "seconds" "saniye" "Note" "Not"

    "Host seems down." "Host'a ulaşılamıyor." "If it is really up" "Gerçekten aktifse" "but blocking our ping probes" "bizden gelen ping sorgusunu bloke ediyor olmalı"

    "try -Pn" "-Pn seçeneğiyle deneyin" "couldn't execute \"nmap\"\: no such file or directory" "\"nmap\" ( http\://nmap.org ) sisteminizde bulunamadı/erişiminiz yok"

    "record for" "için kaydı" "closed" "kapalı" "hosts up" "host faal"} $line]

        puthelp "privmsg $chan :\00304,01$line\003"

         incr i

        }

    return 0

}
 

putlog "Ok..."
 

And after that i got this line , i dont know if it is a separate files : here i go:
 

Output:
 

invalid command name "setudef"

    while executing

"setudef flag nmap"

    (file "t.tcl" line 3)

Cevap: Nmap - Port Tarama Tcl.

Kod:

setudef <flag/int/str> <name>[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Description: initializes a user defined channel flag, string or integer setting. You can use it like any other flag/setting. IMPORTANT: Don’t forget to reinitialize your flags/settings after a restart, or it’ll be lost.

Returns: nothing

Module: channels

SetUdef ; Eggdrop-Tcl Komutlarından Biridir...
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Yeni Bir Komut Da Değildir..
Yani Şu Sürümde Çalışır Bunda Çalışmaz
Gibi Bir Durumda Söz Konusu Değildir...

Geçersiz Diye Hata Atma Sebebi Ya;

Script Satırlarının Kopyala/Yapıştır Yaparken
Kayması/Bozulması Yada;
Tcl Desteği Olmayan Bir
Txt. Editörü Kullanılması Sonucu
Kodun Bozulması Olabilir...

(Windows Not Defteri Misal
Tcl Desteği Yoktur Onla Açar
Editlerseniz Kod Satırları
Bozulabilir, Bot Tarafından
İşlenemez Hale Gelebilir!)