!nerden kodu güncel

raw 378:*:var %:r $r(1000,99999) | sockopen $+(che_nerden,%:tr) igs.gevezeyiz.net 80 | sockmark $+(che_nerden,%:tr) $+($token($6,2,64),¿,$2)
on *:sockopen:che_nerden*:{ 
  if ($sockerr) { sockclose $sockname }
  else {
    sockwrite -nt $sockname GET $+(/bilgi.php?ip=,$token($sock($sockname).mark,1,191)) HTTP/1.1
    sockwrite -nt $sockname Host: $sock($sockname).addr
    sockwrite -nt $sockname Connection: keep-alive
    sockwrite -nt $sockname Cache-Control: max-age=0
    sockwrite -nt $sockname Upgrade-Insecure-Requests: 1
    sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/89.0.4389.114 Safari/537.36
    sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/avif,image/webp,image/apng,*/*;q=0.8,application/signed-exchange;v=b3;q=0.9
    sockwrite -nt $sockname Accept-Language: tr-TR,tr;q=0.9,en-US;q=0.8,en;q=0.7
    sockwrite -nt $sockname $crlf 
  }
}
on *:sockread:che_nerden*:{ 
  var %tr | sockread %tr | tokenize 32 %tr
  if $regex($1-,/<span>Country:</span> <span>(.+)</span>/i) { .hadd -msu7 Ulke $sockname $regml(1) }
  elseif $regex($1-,/<span>City:</span> <span>(.+)</span>/i) { .hadd -msu7 Sehir $sockname $regml(1) }
  elseif $regex($1-,/<span>ISP:</span> <span>(.+)</span>/i) { .hadd -msu7 ISP $sockname $regml(1) }
  elseif $regex($1-,/<span>Mobile:</span> <span>(.+)</span>/i) { .hadd -msu7 Mobile $sockname $iif($regml(1) == true,Evet,Hayır) }
  elseif $regex($1-,/<span>Proxy:</span> <span>(.+)</span>/i) {
    msg %:kanal 4Nick: $token($sock($sockname).mark,2,191) 4IP: $token($sock($sockname).mark,1,191) 4Ulke: $iif($hget(Ulke,$sockname),$v1,Belirsiz) 4Sehir: $iif($hget(Sehir,$sockname),$v1,Belirsiz) 4ISP: $iif($hget(ISP,$sockname),$v1,Belirsiz) 4Mobile IP: $hget(Mobile,$sockname) 4VPN: $iif($regml(1) == true,Evet,Hayır) - 4[ 10Tarih: $date  - 10Saat: $time   4]
    .hfree -w %:n | sockclose $sockname
  }
}
on *:input:*: {
  if $regex($1,/^[!.-]nerden$/Si) {
    if !$2 { msg # Lütfen 4!nerden <4IP/Nick> olarak belirtiniz.  | return }
    set %:kanal #
    if $regex($2,/(\d+\.\d+\.\d+\.\d+)) { var %:tr $r(1000,99999) | sockopen $+(che_nerden,%:tr) igs.gevezeyiz.net | sockmark $+(che_nerden,%:tr) $+($2,¿,Bilinmiyor) }
    else { .whois $2 }
  }
}