!nerden Kodu - IRCForumu.NET

**immortaL** · 05 Haziran 2016, 14:48

Merhaba,
Site içeriğini değiştirdiği için !nerden kodu yazıyım dedim işine yarıyanlar olabilir.

Kod Sahibi: Daemon

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on *:text:*:#:{
  if $regex($1,/^([!\.]nerden)$/i) {
    if !$2 { msg # Lütfen !nerden IP/Nick olarak belirtiniz. | return }
    set %:kanal #
    if $regex($2,/(\d+\.\d+\.\d+\.\d+)) { _nerden $2 }
    else { .enable #nerdenbul | .who +I $2 }
  }
}
on *:input:#:{
  if $regex($1,/^([!\.]nerden)$/i) {
    if !$2 { msg # Lütfen !nerden IP/Nick olarak belirtiniz. | return }
    set %:kanal #
    if $regex($2,/(\d+\.\d+\.\d+\.\d+)) { _nerden $2 }
    else { .enable #nerdenbul | .who +I $2 }
  }
}
#nerdenbul off
raw 352:*: _nerden $4 
raw 315:*:.disable #nerdenbul
#nerdenbul end
alias _nerden { var %:r $r(1000,99999) | sockopen $+(yerbul,%:r) igs.klavyenet.com 80 | sockmark $+(yerbul,%:r) $1 }
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } 
on *:sockopen:yerbul*:{ 
  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:yerbul*:{  
  var %:yerbul | sockread %:yerbul | tokenize 32 %:yerbul
  if (IP: isin %:yerbul) { msg %:kanal IP Adresi: $token($sock($sockname).mark,1,191)) }
  if (Country: isin %:yerbul) { msg %:kanal Ülke:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) }
  if (Posta Code: isin %:yerbul) { msg %:kanal Ülke Kodu:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) }
  if (Continent: isin %:yerbul) { msg %:kanal Kıta:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) }
  if (region: isin %:yerbul) { msg %:kanal Ülke Plaka:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) }
  if (City: isin %:yerbul) { msg %:kanal Sehir:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) }
  if (ISP: isin %:yerbul) { msg %:kanal ISP:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58))  }
  if (Latitude: isin %:yerbul) { msg %:kanal Enlem:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58))  }
  if (Longitude: isin %:yerbul) { msg %:kanal Boylam:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) | sockclose $sockname }
}

**Mesut** · 20 Mart 2025, 12:37

immortaL Nickli Üyeden Alıntı

Merhaba,
Site içeriğini değiştirdiği için !nerden kodu yazıyım dedim işine yarıyanlar olabilir.

Kod Sahibi: Toprak

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on *:text:*:#:{
  if $regex($1,/^([!\.]nerden)$/i) {
    if !$2 { msg # Lütfen !nerden IP/Nick olarak belirtiniz. | return }
    set %:kanal #
    if $regex($2,/(\d+\.\d+\.\d+\.\d+)) { _nerden $2 }
    else { .enable #nerdenbul | .who +I $2 }
  }
}
on *:input:#:{
  if $regex($1,/^([!\.]nerden)$/i) {
    if !$2 { msg # Lütfen !nerden IP/Nick olarak belirtiniz. | return }
    set %:kanal #
    if $regex($2,/(\d+\.\d+\.\d+\.\d+)) { _nerden $2 }
    else { .enable #nerdenbul | .who +I $2 }
  }
}
#nerdenbul off
raw 352:*: _nerden $4 
raw 315:*:.disable #nerdenbul
#nerdenbul end
alias _nerden { var %:r $r(1000,99999) | sockopen $+(yerbul,%:r) www.ipaddresslocation.org 80 | sockmark $+(yerbul,%:r) $1 }
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } 
on *:sockopen:yerbul*:{  
  sockwrite -n $sockname GET $+(/ip-address-locator.php?lookup=,$sock($sockname).mark) HTTP/1.1
  sockwrite -n $sockname Host: www.ipaddresslocation.org
  sockwrite -n $sockname Connection: keep-alive
  sockwrite -n $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
  sockwrite -n $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 -n $sockname $crlf  
} 
on *:sockread:yerbul*:{  
  var %:yerbul | sockread -f %:yerbul
  if (Hostname: isin %:yerbul) { msg %:kanal Hostname:4 $iif(!$token($htmlfree(%:yerbul),3,58),Belirsiz,$token($htmlfree(%:yerbul),3,58)) }
  if (IP Country: isin %:yerbul) { msg %:kanal Ülke:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) }
  if (IP Country Code: isin %:yerbul) { msg %:kanal Ülke Kodu:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) }
  if (IP Continent: isin %:yerbul) { msg %:kanal Kıta:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) }
  if (IP City: isin %:yerbul) { msg %:kanal Sehir:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) }
  if (IP Latitude: isin %:yerbul) { msg %:kanal Enlem:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) }
  if (IP Longitude: isin %:yerbul) { msg %:kanal Boylam:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) }
  if (ISP Provider: isin %:yerbul) { msg %:kanal ISP:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) | sockclose $sockname }
}

Bu code nin güncel çalışani yokmu ustad

**Mesut** · 20 Mart 2025, 13:04

<Mesut> !nerden Nomercy
<Mesut> (%Brain) : 2Host:4 176.33.230.173
<Mesut> (%Brain) : 2Ulke:4 Turkey
<Mesut>(%Brain) : 2Ulke Kodu:4 TUR
<Mesut>(%Brain) : 2Kita:4 Asia
<Mesut>(%Brain) : 2Bolge:4 Ankara
<Mesut>(%Brain) : 2Sehir:4 Ankara
<Mesut>(%Brain) : 2Organizasyon:4 Tellcom Iletisim Hizmetleri A.s.
<Mesut>(%Brain) : 2Servis Saglayici:4 Tellcom Iletisim Hizmetleri A.s.
Bu şekilde de sonuç verebilecek.

**immortaL** · 20 Mart 2025, 18:44

Buda çalışması lazımda veri cektiği site güvenlik kodu eklemiş ondan dolayı veri alamıyor

**Mesut** · 20 Mart 2025, 20:16

immortaL Nickli Üyeden Alıntı

Buda çalışması lazımda veri cektiği site güvenlik kodu eklemiş ondan dolayı veri alamıyor

Peki nasıl yaparız

**Daemon** · 21 Mart 2025, 00:44

@Brain

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on *:text:*:#Kanal:{
  if $regex($1,/^([!\.]nerden)$/i) {
    if !$2 { msg # Lütfen !nerden IP/Nick olarak belirtiniz. | return }
    set %:kanal #
    if $regex($2,/(\d+\.\d+\.\d+\.\d+)) { _nerden $2 }
    else { .enable #nerdenbul | .who +I $2 }
  }
}
on *:input:#:{
  if $regex($1,/^([!\.]nerden)$/i) {
    if !$2 { msg # Lütfen !nerden IP/Nick olarak belirtiniz. | return }
    set %:kanal #
    if $regex($2,/(\d+\.\d+\.\d+\.\d+)) { _nerden $2 }
    else { .enable #nerdenbul | .who +I $2 }
  }
}
#nerdenbul off
raw 352:*: _nerden $4 
raw 315:*:.disable #nerdenbul
#nerdenbul end
alias _nerden { var %:r $r(1000,99999) | sockopen $+(yerbul,%:r) igs.klavyenet.com 80 | sockmark $+(yerbul,%:r) $1 }
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } 
on *:sockopen:yerbul*:{ 
  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:yerbul*:{  
  var %:yerbul | sockread %:yerbul | tokenize 32 %:yerbul
  if $regex($1-,/<span>Ülke:<\/span> <span>(.+)<\/span>/Si) { .hadd -ms $sockname Ülke $iif($regml(1),$v1,Belirsiz) }
  elseif $regex($1-,/<span>Şehir:<\/span> <span>(.+)<\/span>/Si) { .hadd -ms $sockname Sehir $iif($regml(1),$v1,Belirsiz) }
  elseif $regex($1-,/<span>ISP:<\/span> <span>(.+)<\/span>/Si) { msg %:kanal  6[ISP6]IP Adresi: $token($sock($sockname).mark,1,191))  6[Ülke6]: $iif($hget($sockname,Ülke),$v1,Belirsiz))  6[Sehir6] $iif($hget($sockname,Sehir),$v1,Belirsiz)))  6[ISP6]: $iif($regml(1),$v1,Belirsiz))) | .hfree -sw $sockname | sockclose $sockname }

}

umarim isine yarar.

**immortaL** · 21 Mart 2025, 00:46

@Daemon eline sağlık teşekkür ederim.

**Mesut** · 21 Mart 2025, 07:25

Daemon Nickli Üyeden Alıntı

@Brain

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on *:text:*:#Kanal:{
  if $regex($1,/^([!\.]nerden)$/i) {
    if !$2 { msg # Lütfen !nerden IP/Nick olarak belirtiniz. | return }
    set %:kanal #
    if $regex($2,/(\d+\.\d+\.\d+\.\d+)) { _nerden $2 }
    else { .enable #nerdenbul | .who +I $2 }
  }
}
on *:input:#:{
  if $regex($1,/^([!\.]nerden)$/i) {
    if !$2 { msg # Lütfen !nerden IP/Nick olarak belirtiniz. | return }
    set %:kanal #
    if $regex($2,/(\d+\.\d+\.\d+\.\d+)) { _nerden $2 }
    else { .enable #nerdenbul | .who +I $2 }
  }
}
#nerdenbul off
raw 352:*: _nerden $4 
raw 315:*:.disable #nerdenbul
#nerdenbul end
alias _nerden { var %:r $r(1000,99999) | sockopen $+(yerbul,%:r) igs.klavyenet.com 80 | sockmark $+(yerbul,%:r) $1 }
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } 
on *:sockopen:yerbul*:{ 
  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:yerbul*:{  
  var %:yerbul | sockread %:yerbul | tokenize 32 %:yerbul
  if $regex($1-,/<span>Ülke:<\/span> <span>(.+)<\/span>/Si) { .hadd -ms $sockname Ülke $iif($regml(1),$v1,Belirsiz) }
  elseif $regex($1-,/<span>Şehir:<\/span> <span>(.+)<\/span>/Si) { .hadd -ms $sockname Sehir $iif($regml(1),$v1,Belirsiz) }
  elseif $regex($1-,/<span>ISP:<\/span> <span>(.+)<\/span>/Si) { msg %:kanal  6[ISP6]IP Adresi: $token($sock($sockname).mark,1,191))  6[Ülke6]: $iif($hget($sockname,Ülke),$v1,Belirsiz))  6[Sehir6] $iif($hget($sockname,Sehir),$v1,Belirsiz)))  6[ISP6]: $iif($regml(1),$v1,Belirsiz))) | .hfree -sw $sockname | sockclose $sockname }

}

umarim isine yarar.

[07:19] (&Xpass) !nerden 176.41.43.1**
[07:19] (%Brain) [ISP]IP Adresi: 176.41.43.168 [Ülke]: Belirsiz [Sehir] Belirsiz [ISP]: Turkcell Internet
[07:23] (%Brain) [ISP]IP Adresi: 45.143.4.1** [Ülke]: Belirsiz [Sehir] Belirsiz [ISP]: Nazim Dogukan Erdic trading as De-Host Bilisim ve Yazilim Hizmetleri

Sadece ip veriyor ülke şehir vermiyor

**Daemon** · 22 Mart 2025, 01:39

@Brain merhaba, bilgi.php yi bilgi2.php olarak duzenler misin.

**Mesut** · 22 Mart 2025, 08:39

Daemon Nickli Üyeden Alıntı

@Brain merhaba, bilgi.php yi bilgi2.php olarak duzenler misin.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on *:text:*:#Kanal:{
if $regex($1,/^([!\.]nerden)$/i) {
if !$2 { msg # Lütfen !nerden IP/Nick olarak belirtiniz. | return }
set %:kanal #
if $regex($2,/(\d+\.\d+\.\d+\.\d+)) { _nerden $2 }
else { .enable #nerdenbul | .who +I $2 }
}
}
on *:input:#:{
if $regex($1,/^([!\.]nerden)$/i) {
if !$2 { msg # Lütfen !nerden IP/Nick olarak belirtiniz. | return }
set %:kanal #
if $regex($2,/(\d+\.\d+\.\d+\.\d+)) { _nerden $2 }
else { .enable #nerdenbul | .who +I $2 }
}
}
#nerdenbul off
raw 352:*: _nerden $4
raw 315:*:.disable #nerdenbul
#nerdenbul end
alias _nerden { var %:r $r(1000,99999) | sockopen $+(yerbul,%:r) igs.klavyenet.com 80 | sockmark $+(yerbul,%:r) $1 }
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } }
on *:sockopen:yerbul*:{
if ($sockerr) { .sockclose $sockname }
else {
sockwrite -nt $sockname GET $+(/bilgi2.php?ip=,$token($sock($s ockname).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:yerbul*:{
var %:yerbul | sockread %:yerbul | tokenize 32 %:yerbul
if $regex($1-,/<span>Ülke:<\/span> <span>(.+)<\/span>/Si) { .hadd -ms $sockname Ülke $iif($regml(1),$v1,Belirsiz) }
elseif $regex($1-,/<span>Şehir:<\/span> <span>(.+)<\/span>/Si) { .hadd -ms $sockname Sehir $iif($regml(1),$v1,Belirsiz) }
elseif $regex($1-,/<span>ISP:<\/span> <span>(.+)<\/span>/Si) { msg %:kanal 6[ISP6]IP Adresi: $token($sock($sockname).mark,1 ,191)) 6[Ülke6]: $iif($hget($sockname,Ülke),$v1 ,Belirsiz)) 6[Sehir6] $iif($hget($sockname,Sehir),$v 1,Belirsiz))) 6[ISP6]: $iif($regml(1),$v1,Belirsiz))) | .hfree -sw $sockname | sockclose $sockname }

}

Söylediğiniz şekilde değişim de hic çalışmıyor cod

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

Görsel Yükle!