IP Şehir Gösterme Kodu

Giriş Kod yansıtma olayın’da ufak bir değişiklik yapıp kod’un yeni halini sizlerle paylaşmış bulunmak’tayım.
Kod’un işlev’i Sunucuya giren kişilerin il / ülke / ip bilgilerini belirlediğiniz kanal’a yansıtıp whois’ine girdiği ülke ve şehri yazmasıdır.

on *:snotice:*on*port*:who +I $9
raw 352:*:var %:r $r(1000,99999) | proxy $4 | nerd $4 $6
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } 
alias nerd {
  :tekrar
  var %:x $rand(0,9999999)
  if $sock($+(xxnerden,%:x)) { goto tekrar }
  sockopen $+(xxnerden,%:x) www.ipsorgu.com 80
  sockmark $+(xxnerden,%:x) $1
  hadd -m nerden $1 $2
}
on *:sockopen:xxnerden*: {
  var %komut sockwrite -nt $sockname
  %komut GET $+(/?ip=,$sock($sockname).mark) HTTP/1.1
  %komut Host: www.ipsorgu.com
  %komut User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64; rv:49.0) Gecko/20100101 Firefox/49.0
  %komut Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
  %komut Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.5,en;q=0.3
  %komut DNT: 1
  %komut Connection: keep-alive
  %komut Upgrade-Insecure-Requests: 1
  %komut Cache-Control: max-age=0
  %komut $crlf
}

on *:sockread:xxnerden*: {
  var %x, %nick  | sockread %x
  if $regex(%x,/lke : <em style="color:#666">(.*?)</em></strong>.+ehir : <em style="color:#666">(.*?)</em></strong>/i) {
    var %ulke $regml(1), %sehir $regml(2), %ip $sock($sockname).mark, %nick $token($hget(nerden,$sock($sockname).mark),1,32)
    msg #Opers  45[Login5] 2Nick: %nick 2IP: %ip 2Ulke: $iif(%ulke,$v1,Belirsiz)  2Sehir: $iif(%sehir,$v1,Belirsiz) 
    msg operserv raw swhois %nick : %ulke , %sehir
    hdel -m nerden %ip
    sockclose $sockname
  }
}

on *:snotice:*on*port*:who +I $9

raw 352:*:var %:r $r(1000,99999) | proxy $4 | nerd $4 $6

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

alias nerd {

:tekrar

var %:x $rand(0,9999999)

if $sock($+(xxnerden,%:x)) { goto tekrar }

sockopen $+(xxnerden,%:x) www.ipsorgu.com 80

sockmark $+(xxnerden,%:x) $1

hadd -m nerden $1 $2

}

on *:sockopen:xxnerden*: {

var %komut sockwrite -nt $sockname

%komut GET $+(/?ip=,$sock($sockname).mark) HTTP/1.1

%komut Host: www.ipsorgu.com

%komut User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64; rv:49.0) Gecko/20100101 Firefox/49.0

%komut Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8

%komut Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.5,en;q=0.3

%komut DNT: 1

%komut Connection: keep-alive

%komut Upgrade-Insecure-Requests: 1

%komut Cache-Control: max-age=0

%komut $crlf

}

on *:sockread:xxnerden*: {

var %x, %nick | sockread %x

if $regex(%x,/lke : (.*?).+ehir : (.*?)/i) {

var %ulke $regml(1), %sehir $regml(2), %ip $sock($sockname).mark, %nick $token($hget(nerden,$sock($sockname).mark),1,32)

msg #Opers 45[Login5] 2Nick: %nick 2IP: %ip 2Ulke: $iif(%ulke,$v1,Belirsiz) 2Sehir: $iif(%sehir,$v1,Belirsiz)

msg operserv raw swhois %nick : %ulke , %sehir

hdel -m nerden %ip

sockclose $sockname

}

Yapmanız gereken 2 şey vardır.
Biri ;

msg #Opers

1	msg #Opers

Kısmını yansıtacağı kanal’a göre ayarlamanız gerekmektedir.

2. ise; Kodu Kullanacak Olan nickserv’e Services Root olarak tanıtılmış veyahut Supass girmiş olması gerekmektedir.Çünkü kod Raw komutu kullanmakta’dır. Saygılarımla.