Neler yeni

mIRC Giriş Ülke ve Şehir Gösterme

Disket

Moderatör
Katılım
24 Nis 2019
Mesajlar
1,000
Tepkime puanı
3
Konum
Ankara
Merhabalar , normal girişlerden ziyade, bu code sunucuya giren kişinin IP adresi, bağlandığı ülke ve hangi şehirde olduğunu göstermeye yarar.

NOT: Kod kullanmak için OPER olmanız gerekir.

Örnek: [20:07:18] * Giriş: Seth 81.148.55.* (Turkey-ISTANBUL)


Kod:


on :snotice:Client connecting on port*:if !$hget(giris,$9) { who +I $9 }
on ^*:join:#: {
if $nick == $me { return }
if o isin $usermode {
if $hget(giris,$nick) { echo # $+($chr(3),$color(join)) $timestamp *** Giriş: $nick $hget(giris,$nick) 1 $hget(sehir,$nick) | haltdef }
else {
hadd -m chan $nick $addtok($hget(chan,$nick),#,32)
if !$sock($+(nrdbul,$nick)) { who +I $nick }
haltdef
}
}
}
raw 352:*:bul $4 $6 | haltdef
alias bul {
sockopen $+(nrdbul,$1) www.ipaddresslocation.org 80
sockmark $+(nrdbul,$1) $+($1,*,$2)
}
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]>|<[^>]>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } }
on :sockopen:nrdbul:{
sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,1,42)) HTTP/1.1
sockwrite -nt $sockname Host: www.ipaddresslocation.org
sockwrite -nt $sockname Connection: keep-alive
sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,/;q=0.8
sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36
sockwrite -nt $sockname $crlf
}
on :sockread:nrdbul:{
var %x | sockread %x
if $regex(%x,/<i>IP Country:</i> <b>(.*?)</b>/i) { hadd -mu5 $sockname webulke $iif($regml(1),$v1,Belirsiz) }
if $regex(%x,/<i>IP City: <b>(.*?)</b>/i) { hadd -mu5 $sockname websehir $iif($regml(1),$v1,Belirsiz) }
if $regex(%x,/<i>ISP Provider:</i> <b>(.*?)</b>/i) {
hadd -mu5 $sockname webisp $regml(1)
hadd -mu5 $sockname webnick $token($sock($sockname).mark,2,42)
hadd -mu5 $sockname webip $token($sock($sockname).mark,1,42)
hadd -mu5 $sockname webchan $hget(chan,$hget($sockname,webnick))
hdel -m chan $hget($sockname,webnick)
hadd -m giris $hget($sockname,webnick) $hget($sockname,webip)
hadd -m sehir $hget($sockname,webnick) $+($chr(40),,$hget($sockname,webulke),-,$hget($sockname,websehir),,$chr(41))
tokenize 32 $hget($sockname,webchan)
echo $* $+($chr(3),$color(join)) $timestamp *** Giriş: $hget($sockname,webnick) $hget(giris,$hget($sockname,webnick)) 1 $hget(sehir,$hget($sockname,webnick))
}
}
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]>|<[^>]>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } }
 
Üst