Kod: Kodu kopyalamak için üzerine çift tıklayın!
;# 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)