Çevrimiçi | Whois Bilgilerinde Nerden Eklentisi
Oper/Adminlerin kullanabileceği whois çektiğiniz kullanıcının whois bilgilerinde ip, şehir, ülke, locasyon ve organizasyon bilgilerini ekleme.
Ayrıca /nerden nick şeklindede çalışmaktadır. Doğruluk oranı %100 değildir. Kod: Kodu kopyalamak için üzerine çift tıklayın! raw 378:*:{
haltdef
nerden $7
}
alias nerden {
if ($longip($1)) {
var %e echo $color(whois) $iif($active == Status Window,-s,$active), %h 1, %r
var %a ajax. $+ $upper($regsubex($str(.,10),/./g,$mid($md5($time),$r(1,32),1)))
.comopen %a msxml2.xmlhttp
%e $chr(160)
%e $str($chr(160),16) ---------( 12 $1 )
noop $com(%a,send,$com(%a,open,1,bstr,GET,bstr,$+(https://ipinfo.io/,$1,/json),bool,true)) $com(%a,ResponseText,2)
%r = $remove($replace($remove($com(%a).result,$({,0),$(},0),"),$+($chr(44),$lf),=),$lf)
if ($count(%r,=)) {
while ($gettok(%r,%h,61)) {
%e $str($chr(160),15) $(|,0) $regsubex($v1,(.+):,$+($upper(\1),$str($chr(160),$calc(11-$len(\1))),:))
inc %h
}
}
%e $str($chr(160),16) --------- 14 IP Ek Bilgileri ----------
%e $chr(160)
.comclose %a
}
else whois $1
}
Oper/Adminlerin kullanabileceği whois çektiğiniz kullanıcının whois bilgilerinde ip, şehir, ülke, locasyon ve organizasyon bilgilerini ekleme.
Ayrıca /nerden nick şeklindede çalışmaktadır. Doğruluk oranı %100 değildir. Kod: Kodu kopyalamak için üzerine çift tıklayın! raw 378:*:{
haltdef
nerden $7
}
alias nerden {
if ($longip($1)) {
var %e echo $color(whois) $iif($active == Status Window,-s,$active), %h 1, %r
var %a ajax. $+ $upper($regsubex($str(.,10),/./g,$mid($md5($time),$r(1,32),1)))
.comopen %a msxml2.xmlhttp
%e $chr(160)
%e $str($chr(160),16) ---------( 12 $1 )
noop $com(%a,send,$com(%a,open,1,bstr,GET,bstr,$+(https://ipinfo.io/,$1,/json),bool,true)) $com(%a,ResponseText,2)
%r = $remove($replace($remove($com(%a).result,$({,0),$(},0),"),$+($chr(44),$lf),=),$lf)
if ($count(%r,=)) {
while ($gettok(%r,%h,61)) {
%e $str($chr(160),15) $(|,0) $regsubex($v1,(.+):,$+($upper(\1),$str($chr(160),$calc(11-$len(\1))),:))
inc %h
}
}
%e $str($chr(160),16) --------- 14 IP Ek Bilgileri ----------
%e $chr(160)
.comclose %a
}
else whois $1
} |