Ip scanner

alias locate {
if ($1) {
sockclose locate
sockopen locate www.melissadata.com 80
sockmark locate $1-
msg %IP-Chan Scanning $1 in progress…
}
}
alias -l striphtml {
var %txt = $mid($1-,1,800)
var %p = 1, %b = $replace(%txt,$chr(38),$+($chr(32),$chr(38)),;,$+(;,$chr(32)),>,$+(>,$chr(32)),<,$+($chr(32),<,)), %c
while ($gettok(%b,%p,32)) {
%c = $ifmatch
if (*<* iswm %c || *&*; iswm %c || ** iswm %c || *=* iswm %c || *”* iswm %c || *>* iswm %c || $+(*,$chr(40),*) iswm %c || $+(*,$chr(41),*) iswm %c || $+(*,$chr(123),*) iswm %c || $+(*,$chr(125),*) iswm %c) { %b = $remove(%b,%c) | %p = 0 }
inc %p
}
return %b
}
alias endlocate {
if (%ip) {
msg %IP-Chan Result For  $+ %ip $+ 
msg %IP-Chan Country:  $+ %country $+ 
msg %IP-Chan City:  $+ %city $+ 
msg %IP-Chan State:  $+ %state $+ 
msg %IP-Chan ISP:  $+ %isp $+ 
}
else { msg %IP-Chan Not Exist.. }
unset %ip %city %state %country %isp %IP-Chan
}

on *:sockopen:locate:{
if ($sockerr > 0) { msg %IP-Chan Socket Read Error! Please Try Later… | unset %IP-Chan | return }
sockwrite -n $sockname GET $+(/lookups/iplocation.asp?ipaddress=,$sock($sockname).mark) HTTP/1.1
sockwrite -n $sockname Host: $+(www.melissadata.com,$str($crlf, 2))
sockwrite -n $sockname Connection: Keep-Alive
}
on *:sockread:locate:{
if ($sockerr > 0) { echo -a socket read error! Please try later… | unset %IP-Chan | return }
var %q
sockread %q
tokenize 32 $striphtml(%q)
if (* IP Address *.*.*.* iswm $1-) { set %ip $4 }
if (* City * iswm $1-) { set %city $MWM($3-) }
if (* State Or Region * iswm $1-) { set %state $MWM($5-) }
if (* Country * iswm $1-) { set %country $MWM($3-) }
if (* ISP * iswm $1-) { set %ISP $MWM($3-) }
.timertrace -o 1 1 /endlocate $sock($sockname).mark
}
alias MWM return $iif($1, $+($upper($left($1,1)),$lower($right($1,-1)))) $iif($2, $+($upper($left($2,1)),$lower($right($2,-1)))) $iif($3, $+($upper($left($3,1)),$lower($right($3,-1)))) $iif($4, $+($upper($left($4,1)),$lower($right($4,-1)))) $iif($5, $+($upper($left($5,1)),$lower($right($5,-1)))) $iif($6, $+($upper($left($6,1)),$lower($right($6,-1))))
on *:input:*: {
if (window isin $active) && (status isin $active) && ($left($1-,1) != /) { echo -a 3*** 4Sila Gunakan ” / ” Di Sini..!! | halt }
if $1 == !ip { set %IP-Chan $chan | locate $2 | halt }
}
on *:text:*:#:{ {
if $1 == !ip { set %IP-chan $chan | locate $2 | halt }
}