IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum

Merhaba,
Bayadır hazır kod yazmıyordum sunucumuza lamer bir arkadaş saldırmaya başladı saldırı derken modem reset yapıp gelip kanala küfür edip atılıyor. Böyle bir kod yazmaya gerek duydum ki giren kişinin şehir ve ISP adresini bileyim ki ona göre müdahale hızlı olsun dedim ve yazdım saldıran arkadaş sunucuya giriş yaptığında şehir ve isp olarak takip edip atıyorum adam bıraktı bir daha gelmedi :)
Sizlerlede paylaşayım işinize yarayabilir..
Sunucuya giriş yapan kişilerin ülke/şehir/isp adreslerini #Opers kanalında gösterir.

Kod:

on *:snotice:*Client connecting*:who +I $token($token($4-,2,58),1,32)

raw 315:*:halt

raw 352:*:{ 

  var %:r $r(1000,99999) | sockopen $+(nrdn,%:r) www.ipaddresslocation.org 80 | sockmark $+(nrdn,%:r) $+($4,¿,$6)

  halt

}

alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } 

on *:sockopen:nrdn*:{ 

  sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,1,191)) HTTP/1.1 

  sockwrite -nt $sockname Host: $sock($sockname).addr

  sockwrite -nt $sockname Accept: image/jpeg, application/x-ms-application, image/gif, application/xaml+xml, image/pjpeg, application/x-ms-xbap, */*

  sockwrite -nt $sockname Accept-Language: tr-TR

  sockwrite -nt $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729)

  sockwrite -nt $sockname Connection: Keep-Alive

  sockwrite -nt $sockname $crlf

}
 

on *:sockread:nrdn*:{  

  if ($sockerr) { .sockclose $sockname | return }

  var %:pro | sockread -f %:pro

  if (IP Country: isin %:pro) { .hadd -ms $token($sock($sockname).mark,2,191) Ülke $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) }

  if (IP City: isin %:pro) { .hadd -ms $token($sock($sockname).mark,2,191) Sehir $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) }

  if (ISP Provider: isin %:pro) { 

    var %:isp $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58))

    var %:n $token($sock($sockname).mark,2,191), %ip $token($sock($sockname).mark,1,191), %ülke $hget(%:n,Ülke), %sehir $hget(%:n,Sehir)

    msg #Opers Nick:4 %:n - IP:4 %ip - Ulke:4 %ülke - Sehir:4 %sehir - ISP:4 %:isp 

    .hfree -sw %:n

    sockclose $sockname

  }

}