IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)

- - .nerden [IP|Nick] Yeni.. (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/527276-nerden-ip-nick-yeni.html)

.nerden [IP|Nick] Yeni..

Kod:

alias nerden { 

  if $sock(yerbul) {

    sockclose yerbul

  }

  sockopen yerbul 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80  

}
 

on $*:text:/^((!|.)nerden\40\S+)$/i:#: {

  if $regex($2,^\d) { 

    .set -e %nrd $2 | set -e %c_n $chan

    .nerden 

  }

  else { 

    .userip $2

    .enable #nrdn

    set -e %c_n $chan

  }

}

on *:sockopen:yerbul:{  

var %xy = sockwrite -n $sockname

 %xy  GET /ip-address-locator.php?lookup= $+ %nrd HTTP/1.1

 %xy host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Connection: keep-alive

 %xy Cache-Control: max-age=0

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

 %xy User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/43.0.2357.81 Safari/537.36

 %xy Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.6,en;q=0.4

 %xy $crlf  

}
 

on *:sockread:yerbul: {  

  if ($sockerr) { /msg %c_n Bağlantı Hatası Oluştu! | halt } 

  var %yerbul

  sockread %yerbul

  if $regex(hst,%yerbul,/(</\142><\142\162\40/><\151>\110\S{7}\72</\151>\40<\142>(.+)</\142><\142\162\40/>)$/i) { /msg %c_n 2Host:4 $regml(hst,2) }

  if $regex(cnt,%yerbul,/^(<\151>\111\120\40\S{7}\72</\151>\40<\142>(\S+)</\142>)$/i) { /msg %c_n 2Ulke:4 $regml(cnt,2)  }

  if $regex(cod,%yerbul,/^(<\151>\111\120\40\S{7}\40\S{4}\72</\151>\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { /msg %c_n 2Ulke Kodu:4 $regml(cod,2) }

  if $regex(kta,%yerbul,/^(<\151>\111\120\40\103\S{8}\72</\151>\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { /msg %c_n 2Kita:4 $regml(kta,2) }

  if $regex(rgn,%yerbul,/^(<\151>\111\120\40\122\S{5}\72</\151>\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { /msg %c_n 2Bolge:4 $regml(rgn,2) }

  if $regex(cty,%yerbul,/^(<\151>\111\120\40\103\S{3}\72\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { /msg %c_n 2Sehir:4 $regml(cty,2) }

  if $regex(org,%yerbul,/^(<\151>\117\S{11}\72</\151>\40<\142>(.+)</\142><\142\162\40\/>)$/i) { /msg %c_n 2Organizasyon:4 $regml(org,2) }

  if $regex(iss,%yerbul,/^(<\151>\111\123\120\40\S{8}\72</\151>\40<\142>(.+)</\142><\142\162\40\/><\142\162\40\/>)$/i) { /msg %c_n 2Servis Saglayici:4 $regml(iss,2) }

}
 

#nrdn off

raw 340:*: {

  if (!$2) { /msg %c_n Sorgulanan Nick Sunucuda bulunmuyor. | goto down }

  set -e %nrd $regsubex($2,/.+\100(\d+\56\d+\56\d+\56\d+)$/g,\1) 

  .nerden

  :down  

  .disable #nrdn

  .halt

}

#nrdn end

Kullanımı: !nerden <Nick> veya !nerden <IP>
Not:Eğer kodu başkaları değilde siz kullanmak isterseniz;

Bu bölümü

Kod:

on $*:text:/^((!|.)nerden\40\S+)$/i:#: {

  if $regex($2,^\d) { 

    .set -e %nrd $2 | set -e %c_n $chan

    .nerden 

  }

  else { 

    .userip $2

    .enable #nrdn

    set -e %c_n $chan

  }

}

Aşağıdaki ile değiştirin.

Kod:

on *:input:#: {

  if $regex($regsubex($1-,/[[:cntrl:]]/g,return halt),/^((!|.)nerden\40\S+)$/i) {

    if $regex($2,^\d) { 

      .set -e %nrd $2 | set -e %c_n $chan

      .nerden 

    }

    else { 

      .userip $2

      .enable #nrdn

      set -e %c_n $chan

    }

  }

}

iyi forumlar.

Cevap: .nerden [IP|Nick] Yeni..

bunu Sade OPER'ler Kullansın Dersek :)

Cevap: .nerden [IP|Nick] Yeni..

en basiti yönetim yada opers kanalına yönlendirebilirsin

on $*:text:/^((!|.)nerden\40\S+)$/i:#yönetim: {

yada

on $*:text:/^((!|.)nerden\40\S+)$/i:#opers: {

gibi sadece o kanaldaki kişiler kullanabilir hayırlı akşamlar feragat eline sağlık.

Cevap: .nerden [IP|Nick] Yeni..

Alıntı:

Feragat Nickli Üyeden Alıntı (Mesaj 1041292885)

Kod:

alias nerden { 

  if $sock(yerbul) {

    sockclose yerbul

  }

  sockopen yerbul 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80  

}
 

on $*:text:/^((!|.)nerden\40\S+)$/i:#: {

  if $regex($2,^\d) { 

    .set -e %nrd $2 | set -e %c_n $chan

    .nerden 

  }

  else { 

    .userip $2

    .enable #nrdn

    set -e %c_n $chan

  }

}

on *:sockopen:yerbul:{  

var %xy = sockwrite -n $sockname

 %xy  GET /ip-address-locator.php?lookup= $+ %nrd HTTP/1.1

 %xy host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Connection: keep-alive

 %xy Cache-Control: max-age=0

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

 %xy User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/43.0.2357.81 Safari/537.36

 %xy Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.6,en;q=0.4

 %xy $crlf 

}
 

on *:sockread:yerbul: {  

  if ($sockerr) { /msg %c_n Bağlantı Hatası Oluştu! | halt } 

  var %yerbul

  sockread %yerbul

  if $regex(hst,%yerbul,/(</\142><\142\162\40/><\151>\110\S{7}\72</\151>\40<\142>(.+)</\142><\142\162\40/>)$/i) { /msg %c_n 2Host:4 $regml(hst,2) }

  if $regex(cnt,%yerbul,/^(<\151>\111\120\40\S{7}\72</\151>\40<\142>(\S+)</\142>)$/i) { /msg %c_n 2Ulke:4 $regml(cnt,2)  }

  if $regex(cod,%yerbul,/^(<\151>\111\120\40\S{7}\40\S{4}\72</\151>\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { /msg %c_n 2Ulke Kodu:4 $regml(cod,2) }

  if $regex(kta,%yerbul,/^(<\151>\111\120\40\103\S{8}\72</\151>\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { /msg %c_n 2Kita:4 $regml(kta,2) }

  if $regex(rgn,%yerbul,/^(<\151>\111\120\40\122\S{5}\72</\151>\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { /msg %c_n 2Bolge:4 $regml(rgn,2) }

  if $regex(cty,%yerbul,/^(<\151>\111\120\40\103\S{3}\72\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { /msg %c_n 2Sehir:4 $regml(cty,2) }

  if $regex(org,%yerbul,/^(<\151>\117\S{11}\72</\151>\40<\142>(.+)</\142><\142\162\40\/>)$/i) { /msg %c_n 2Organizasyon:4 $regml(org,2) }

  if $regex(iss,%yerbul,/^(<\151>\111\123\120\40\S{8}\72</\151>\40<\142>(.+)</\142><\142\162\40\/><\142\162\40\/>)$/i) { /msg %c_n 2Servis Saglayici:4 $regml(iss,2) }

}
 

#nrdn off

raw 340:*: {

  if (!$2) { /msg %c_n Sorgulanan Nick Sunucuda bulunmuyor. | goto down }

  set -e %nrd $regsubex($2,/.+\100(\d+\56\d+\56\d+\56\d+)$/g,\1) 

  .nerden

  :down  

  .disable #nrdn

  .halt

}

#nrdn end

Kullanımı: !nerden <Nick> veya !nerden <IP>
Not:Eğer kodu başkaları değilde siz kullanmak isterseniz;

Bu bölümü

Kod:

on $*:text:/^((!|.)nerden\40\S+)$/i:#: {

  if $regex($2,^\d) { 

    .set -e %nrd $2 | set -e %c_n $chan

    .nerden 

  }

  else { 

    .userip $2

    .enable #nrdn

    set -e %c_n $chan

  }

}

Aşağıdaki ile değiştirin.

Kod:

on *:input:#: {

  if $regex($regsubex($1-,/[[:cntrl:]]/g,return halt),/^((!|.)nerden\40\S+)$/i) {

    if $regex($2,^\d) { 

      .set -e %nrd $2 | set -e %c_n $chan

      .nerden 

    }

    else { 

      .userip $2

      .enable #nrdn

      set -e %c_n $chan

    }

  }

}

iyi forumlar.

Teşekkürler kod çok güzel hoşuma gitti ama

[13:06.13] <07UsTa> !nerden KeskiN
[13:06.14] <07UsTa> 2Host:4 176.33.230.173
[13:06.14] <07UsTa> 2Ulke:4 Turkey
[13:06.14] <07UsTa> 2Ulke Kodu:4 TUR
[13:06.14] <07UsTa> 2Kita:4 Asia
[13:06.14] <07UsTa> 2Bolge:4 Ankara
[13:06.14] <07UsTa> 2Sehir:4 Ankara
[13:06.14] <07UsTa> 2Organizasyon:4 Tellcom Iletisim Hizmetleri A.s.
[13:06.14] <07UsTa> 2Servis Saglayici:4 Tellcom Iletisim Hizmetleri A.s.

Bu arkadaş Kayseriden bağlanıyor, acaba her İP numarasına duyarlı değilmi, teşekkürler.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 13:26 -->-> Daha önceki mesaj 13:09 --

Alıntı:

SkandaL Nickli Üyeden Alıntı (Mesaj 1041293320)

on $*:text:/^((!|.)nerden\40\S+)$/i:#OperHelp: {
kanalı olarak ayarladım ama bu sefer benden hariç OperHelp kanalındaki herkes kullanıyor,
hem benim hem OperHelp kanalında bulunan zevatın kullanması için burayı nasıl değiştirmemiz gerekiyor, teşekkürler.

Cevap: .nerden [IP|Nick] Yeni..

Eğer kendi scriptine eklersen(on $*:text...) event ı ile, başkaları !nerden <Nick veya IP> komutu ile kullanabilir sen kullanamazsın. Bu tarz sorgular %100 doğru göstermez, Ayrıca bazı kullanıcılar sorgulanan nickin veya IP in ev adresini gösteriyor gibi yalnış bilgilere sahip, yalnızca IP adresinin dağıtıldığı,sağlandığı hizmet binasının adresini gösterir(Genellikle aynı şehirdir.) ve bu kesinlikle %100 değildir, bölgeye, konuma ve pek çok şeye göre farklılık gösterir. Eğer !nerden <Nick veya IP> komutuyla hem sen, hem de başkaları kullansın istiyorsan bir bota vs. "on $*:text" event'ı ile entegre etmen gerek kodu. Aslında pek çok site var IP sorgulayan ben uzun zamandır bunu kullanıyordum, diğerlerinden bana göre biraz daha sağlıklı geldiği için(kısmen) bu adresi seçtim.

Eğer kodu kendi Scriptine aşağıdaki haliyle eklersen hem sen hemde diğer kullanıcılar Kullanabilir.
Not: Diğer kullanıcılar #OperHelp kanalda !nerden <Nick veya IP> şeklinde kullanılar, Sen /bul <Nick veya IP> komutuyla kullanabilirsin. İyi forumlar.

Kod:

alias bul {

  if $regex($1,/(\d+\56\d+\56\d+\56\d+)$/iA) { .set -e %nrd $1 | .set -e %c_n $chan | .nerden }

  elseif $regex($1,/^[^\d]/i) { .userip $1 | .enable #nrdn | .set -e %c_n $chan } 

} 

alias nerden { 

  if $sock(yerbul) {

    sockclose yerbul

  }

  sockopen yerbul 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80  

} 

on $*:text:/^((!|.)nerden\40\S+)$/i:#OperHelp: {

  if $regex($2,^\d) { 

    .set -e %nrd $2 | .set -e %c_n $chan

    .nerden 

  }

  else { 

    .userip $2

    .enable #nrdn

    .set -e %c_n $chan

  }

}

on *:sockopen:yerbul:{  

var %xy = sockwrite -n $sockname

 %xy  GET /ip-address-locator.php?lookup= $+ %nrd HTTP/1.1

 %xy host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Connection: keep-alive

 %xy Cache-Control: max-age=0

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

 %xy User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/43.0.2357.81 Safari/537.36

 %xy Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.6,en;q=0.4

 %xy $crlf 

}
 

on *:sockread:yerbul: {  

  if ($sockerr) { /msg %c_n Bağlantı Hatası Oluştu! | halt } 

  var %yerbul

  sockread %yerbul

  if $regex(hst,%yerbul,/(</\142><\142\162\40/><\151>\110\S{7}\72</\151>\40<\142>(.+)</\142><\142\162\40/>)$/i) { /msg %c_n 2Host:4 $regml(hst,2) }

  if $regex(cnt,%yerbul,/^(<\151>\111\120\40\S{7}\72</\151>\40<\142>(\S+)</\142>)$/i) { /msg %c_n 2Ulke:4 $regml(cnt,2) }

  if $regex(cod,%yerbul,/^(<\151>\111\120\40\S{7}\40\S{4}\72</\151>\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { /msg %c_n 2Ulke Kodu:4 $regml(cod,2) }

  if $regex(kta,%yerbul,/^(<\151>\111\120\40\103\S{8}\72</\151>\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { /msg %c_n 2Kita:4 $regml(kta,2) } 

  if $regex(rgn,%yerbul,/^(<\151>\111\120\40\122\S{5}\72</\151>\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { /msg %c_n 2Bolge:4 $regml(rgn,2) }

  if $regex(cty,%yerbul,/^(<\151>\111\120\40\103\S{3}\72\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { /msg %c_n 2Sehir:4 $regml(cty,2) }

  if $regex(org,%yerbul,/^(<\151>\117\S{11}\72</\151>\40<\142>(.+)</\142><\142\162\40\/>)$/i) { /msg %c_n 2Organizasyon:4 $regml(org,2) }

  if $regex(iss,%yerbul,/^(<\151>\111\123\120\40\S{8}\72</\151>\40<\142>(.+)</\142><\142\162\40\/><\142\162\40\/>)$/i) { /msg %c_n 2Servis Saglayici:4 $regml(iss,2) }

}

#nrdn off

raw 340:*: {

  if (!$2) { /msg %c_n Sorgulanan Nick Sunucuda bulunmuyor. | goto down }

  .set -e %nrd $regsubex($2,/.+\100(\d+\56\d+\56\d+\56\d+)$/g,\1) 

  .nerden

  :down  

  .disable #nrdn

}

#nrdn end

Cevap: .nerden [IP|Nick] Yeni..

çalışmıyor artık

Cevap: .nerden [IP|Nick] Yeni..

Alıntı:

AcImasIz77 Nickli Üyeden Alıntı (Mesaj 1042045204)

çalışmıyor artık

Siteye 1,2 gün erişim yoktu bugün aktif oldu, şuan kodda bir sıkıntı yok çalışıyor.

Cevap: .nerden [IP|Nick] Yeni..

Site bende hala çalışmıyor

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $+ Ip

Bu adres üzerinden düzenleyen olursa çok makbüle geçer. Sonuçları çok daha doğru çıkıyor

Cevap: .nerden [IP|Nick] Yeni..

Kod:

on *:sockopen:wip:{ 

  sockwrite -tn $sockname GET $+(/,%sip,/json?token=bdbdb82ae05b96) HTTP/1.1 

  sockwrite -tn $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7) Gecko/20040614 Firefox/0.8

  sockwrite -tn $sockname Connection: keep-alive

  sockwrite -tn $sockname Host: ipinfo.io

sockwrite -tn $sockname  $crlf }

on *:sockread:wip:{ var %d_wip | sockread %d_wip | tokenize 32 %d_wip

  if *"ip":* iswm %d_wip { Echo -a 2IP Adresi:4 $gettok(%d_wip,2-,58)  }

  if *"hostname":* iswm %d_wip {  Echo -a 2Host Uzantısı:4 $gettok(%d_wip,2-,58)  }

  if *"region":* iswm %d_wip { Echo -a 2Şehir:4 $gettok(%d_wip,2-,58) }

  if *"country":* iswm %d_wip { Echo -a 2Ülke:4 $gettok(%d_wip,2-,58) }

  if *"loc":* iswm %d_wip { Echo -a 2Lokasyon:4 $gettok(%d_wip,2-,58) }

  if *"postal":* iswm %d_wip { Echo -a 2Posta Kodu:4 $gettok(%d_wip,2-,58) }

if *"org":* iswm %d_wip { Echo -a 2Bağlantı kaynağı:4 $gettok(%d_wip,2-,58) | sockclose wip } } 

alias d_wip { if $regex($1,/(\d+\.\d+.\d+\.\d+)/) {

  sockclose d_wip | %sip = $replace($1,-,.) | sockopen wip ipinfo.io 80 | return }

set -e %d_nick $1 | enable #wip | userip $1 }

#wip off

raw 340:*:{ if $2 { %sip = $gettok($2,2,64) | sockopen wip ipinfo.io 80 | disable #wip | return }

echo -a %d_nick nickinin ip adresine ulasılamadı. | disable #wip }

#wip end

Kullanım şekli aynıdır. Operator kaynaklı bağlantılarda gerçek konumun verilmesi imkansız gibi görünüyor. dolayısı ile şu site gerçeği söylüyor demek çok zor. Yinede en doğru bilgi ülke bilgisidir gerisine pek takılmayın derim.
Umarım işinize yarar.