!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: 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 }
}

**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ç

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.