Tcl Ip

#################################
### ip.tcl
### Version 1.0
### edit By Arch_fajri
### arch_fajri@yahoo.co.id
### http://lampunghacker.blogspot.com
### Google@allnetwork
### Desember @ 2010
#################################


########
# DNS
########
bind pub - "!dns" dnss
proc dnss {nick uhost hand chan arg} {
set ip [lindex $arg 0]
if {[string match "*:*" $ip]} {
regsub -all ":" $ip " " ip
set ip [lindex $ip 0]
}
set query [dns $ip]
if {$query == 0} {
puthelp "PRIVMSG $chan :12DNS14 $ip Not Resolved"
} else {
puthelp "PRIVMSG $chan :12DNS14 $ip Resolved To $query"
}
}

#############################
# CITY
#############################
bind pub -|- "!ip" city:ip
bind pub -|- "!c" city:city
bind pub -|- "!city" city:city
## ADVANCE CITY ##
proc city:ip {nick uhost hand chan arg} {
set ip [lindex $arg 0]
if {[string match "*:*" $ip]} {
regsub -all ":" $ip " " ip
set ip [lindex $ip 0]
}
if {$ip == ""} {
puthelp "NOTICE $nick :12CITY14 Usage: !ip "
} else {
if {[isip $ip] == 1} {
puthelp "PRIVMSG $chan :12CITY14 $ip (3[hostip $ip])"
city:whois $ip $chan
} else {
if {[string match "*.*" $ip] && [string length $ip] > 3} {
set dns [dns $ip]
if {$dns != 0} {
puthelp "PRIVMSG $chan :12CITY14 $ip Ip $dns (3[hostip $dns])"
city:whois $dns $chan
} else {
puthelp "PRIVMSG $chan :12CITY14 Failed: Unable To Resolve $ip"
}
} else {
puthelp "PRIVMSG $chan :12CITY14 $ip is Not A Valid HostName"
}
}
}
}
## SIMPLE CITY ##
proc city:city {nick uhost hand chan arg} {
set ip [lindex $arg 0]
if {[string match "*:*" $ip]} {
regsub -all ":" $ip " " ip
set ip [lindex $ip 0]
}
if {$ip == ""} {
puthelp "NOTICE $nick :12CITY14 Usage: !ip "
} else {
if {[isip $ip] == 1} {
puthelp "PRIVMSG $chan :12CITY14 $ip (3[hostip $ip])"
} else {
if {[string match "*.*" $ip] && [string length $ip] > 3} {
set dns [dns $ip]
if {$dns != 0} {
puthelp "PRIVMSG $chan :12CITY14 $ip Ip $dns (3[hostip $dns])"
city:whois $dns $chan
} else {
puthelp "PRIVMSG $chan :12CITY14 Failed: Unable To Resolve $ip"
}
} else {
puthelp "PRIVMSG $chan :12CITY14 $ip is Not A Valid HostName"
}
}
}
}
proc city:whois {ip chan} {
####### Refeeral Whois #######
putlog "<>"
set port 43
set ref "whois.arin.net"
set maxforwad 3

Download di sini