12 Mart 2012, 22:01
|
#13 |
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
| Cevap: Shell Firmaları için Dns.tcl
PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
bind pub - !dns lookup:do_lookup if {[catch {exec which nslookup} lookpath]} { putlog "$host/IP Banner and dnslookup proc disabled, error:\n$lookpath" return 0 } else { proc dnslookup {host} { global lookpath set name "Unknown"; set ip "Unknown"; set errmsg "Unknown"; set server_lines 0 set $host [lindex [string tolower $host] 0] if {[catch {exec $lookpath [lindex $host 0]} buff]} { foreach line [split $buff \n] { if {[string first "${host}:" $line] != -1} { set errmsg [string trim [lindex [split $line :] 1]] } } return "Hata:$errmsg" } set buff [split $buff \n] set buff [lreplace $buff 0 1] if {[regexp {name = (.*)\.} $buff -> name]} { set ip $host } foreach data $buff { switch [lindex $data 0] { "İsim:" { set name [string trim [lindex [split $data :] 1]] } "Adres:" { set ip [string trim [lindex [split $data :] 1]] } "Adres:" { set ip [string trim [lindex [split $data :] 1]] } } } return "${name}:${ip}" } } proc lookup:do_lookup {ni uh ha chan text} { if {[llength $text] > 1} { return 0 } if {[onchan $text $chan]} { set host_ip [dnslookup [lindex [split [getchanhost $text $chan] @] 1]] } else { set host_ip [dnslookup $text] } set name [lindex [split $host_ip :] 0] set ip [lindex [split $host_ip :] 1] puthelp "privmsg $chan :DNS Sorgulama: $text ($name -> $ip)" return 1 }
|
| |