.NERDEN (Güncel) 2022

[Admin]

.NERDEN (Güncel) 2022 YENİ NERDEN OLDUGUNU GÖSTEREN KOD

on *:text:*:#: {
  if $regex($1,/^([.!]nerden)/Si) {
    if !$2 { msg $chan Lütfen !nerden IP/Nick olarak belirtiniz. | return }
    if $regex($2,/(\d+\.\d+\.\d+\.\d+)) {
      set -u3 %nrdn #
      var %:r $r(1000,99999) | sockopen $+(nrdn,%:r) teknolobi.net 80 | sockmark $+(nrdn,%:r) $+($2,¿,Bilinmiyor)
    }
    else { set -u3 %nrdn # | who +I $2 }
  }
}
raw 352:*: { var %:r $r(1000,99999) | sockopen $+(nrdn,%:r) teknolobi.net 80 | sockmark $+(nrdn,%:r) $+($4,¿,$6) }
alias _tr return $replace($1-,Ö,ö,Ç,ç,Ä°,i,ö,ö,ç,ç,ü,ü,ÅŸ,ş,ı,ı,Å,ş,ÄŸ,ğ,Ãœ,ü,Ä,ğ,$chr(39),`)
alias hfr { 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 $+(/api/nerden/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:nrdn*:{
  var %:nerden | sockread -f %:nerden | tokenize 32 %:nerden
  if Country isin %:nerden && Code !isin %:nerden { .hadd -sm $token($sock($sockname).mark,2,191) Ulke $token($hfr(%:nerden),2,58) }
  if City isin %:nerden { .hadd -sm $token($sock($sockname).mark,2,191) Sehir $token($hfr(%:nerden),2,58) }
  if ISP isin %:nerden {
    var %:isp $_tr($token($hfr(%:nerden),2,58))
    var %:n $token($sock($sockname).mark,2,191), %ip $token($sock($sockname).mark,1,191), %ülke $_tr($hget(%:n,Ulke)), %sehir $_tr($hget(%:n,Sehir))
    if %nrdn {
      msg %nrdn 4Nick:1 %:n - 4IP:1 %ip - 4Ülke:1 %ülke -4 Sehir:1 %sehir -4 ISP:1 %:isp | return
    }
    sockclose $sockname
  }
}