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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Parça Kodlar (https://www.ircforumlari.net/mirc-parca-kodlar/)
-   -   Nerden kodu güncel (https://www.ircforumlari.net/mirc-parca-kodlar/985068-nerden-kodu-guncel.html)

MasteR06 18 Ağustos 2022 21:15
Nerden kodu güncel
 
Kod:
on *:sockopen:nerdenbak:{
  sockwrite -tn $sockname GET $+(/v1/,%sip,?vpn=1&asn=1) 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: proxycheck.io
  sockwrite -tn $sockname $crlf
}
on *:sockread:nerdenbak:{ var %d_nerdenbak | sockread %d_nerdenbak | tokenize 32 %d_nerdenbak
  if *"status":* iswm %d_nerdenbak { echo -a > - }
  if *"status":* iswm %d_nerdenbak { echo -a > %sip Nerden kontrolu başladı. }
  if *"status":* iswm %d_nerdenbak { echo -a > - }
  if *"status":* iswm %d_nerdenbak { echo -a > 2Kullanıcı/DURUMU:4 $_fl($_tr($remove($gettok(%d_nerdenbak,2-,58),$chr(44),"))) }
  if *"asn":* iswm %d_nerdenbak { echo -a > 2Asn/BİLGİSİ:4 $_tr($remove($gettok(%d_nerdenbak,2-,58),$chr(44),")) }
  if *"provider":* iswm %d_nerdenbak { echo -a > 2Sağlayıcı/FİRMA:4 $_tr($remove($gettok(%d_nerdenbak,2-,58),$chr(44),")) }
  if *"organisation":* iswm %d_nerdenbak { echo -a > 2Ornagizasyon/ŞİRKET:4 $_tr($remove($gettok(%d_nerdenbak,2-,58),$chr(44),")) }
  if *"continent":* iswm %d_nerdenbak { echo -a > 2KITA KONUMU:4 $_fl($_tr($remove($gettok(%d_nerdenbak,2-,58),$chr(44),"))) }
  if *"country":* iswm %d_nerdenbak { echo -a > 2ÜLKE:4 $_fl($_tr($remove($gettok(%d_nerdenbak,2-,58),$chr(44),"))) }
  if *"isocode":* iswm %d_nerdenbak { echo -a > 2Ülke/KODU:4 $_tr($remove($gettok(%d_nerdenbak,2-,58),$chr(44),")) }
  if *"region":* iswm %d_nerdenbak { echo -a > 2Bölge/ALAN:4 $_tr($remove($gettok(%d_nerdenbak,2-,58),$chr(44),")) }
  if *"regioncode":* iswm %d_nerdenbak { echo -a > 2Bölge/KODU:4 $_tr($remove($gettok(%d_nerdenbak,2-,58),$chr(44),")) }
  if *"city":* iswm %d_nerdenbak { echo -a > 2Şehir:4 $_tr($remove($gettok(%d_nerdenbak,2-,58),$chr(44),")) }
  if *"latitude":* iswm %d_nerdenbak { echo -a > 2Enlem:4 $_tr($remove($gettok(%d_nerdenbak,2-,58),$chr(44),")) }
  if *"longitude":* iswm %d_nerdenbak { echo -a > 2Boylam:4 $_tr($remove($gettok(%d_nerdenbak,2-,58),$chr(44),")) }
  if *"proxy":* iswm %d_nerdenbak { echo -a > 2Proxy/BAĞLANTISI:4 $_fl($_tr($remove($gettok(%d_nerdenbak,2-,58),$chr(44),"))) }
  if *"type":* iswm %d_nerdenbak { echo -a > 2Bağlantı/TÜRÜ:4 $_fl($_tr($remove($gettok(%d_nerdenbak,2-,58),$chr(44),"))) }
  if *"type":* iswm %d_nerdenbak { echo -a > - }
  if *"type":* iswm %d_nerdenbak { echo -a > Nerden kontrolu bitti. | sockclose nerdenbak }
}
alias nerden { if $regex($1,/(\d+\.\d+.\d+\.\d+)/) {
  sockclose nerdenbak | %sip = $replace($1,-,.) | sockopen nerdenbak proxycheck.io 80 | return }
set -e %d_nick $1 | enable #nerdenbak | userip $1 }
#nerdenbak off
raw 340:*:{ if $2 { %sip = $gettok($2,2,64) | sockopen nerdenbak proxycheck.io 80 | disable #nerdenbak | return }
echo -a %d_nick nickinin ip adresine ulasılamadı. | disable #nerdenbak }
#nerdenbak end
alias _tr return $replace($1-,Ãœ,Ü,ÅŸ,ş,Ä,Ğ,Ä°,İ,Ö,Ö,ü,ü,ÅŸ,Ş,ÄŸ,ğ,ç,ç,ı,ı,ö,ö,б,ı,Ğ°,İ,Ç,Ç,Å,Ş,ĞŸ,ğ,â,,Â,)
alias _fl return $replace($1-,ok,Online Kullanıcı,no,Hayır,yes,Evet,Business,Gerçek İŞLETME,VPN,Sahte İŞLETME,residential,Yerleşim,Wireless,Kablosuz,Turkey,Türkiye,Asia,Asya)
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]


Merhabalar;
Kodun amacı nick ve ya ip adresinin nerden olduğunu öğrenmektir. /nerden nick ve ya /nerden ipadresi şeklinde sorgulama yapabilirsiniz. Nickten sorgulama yapmak için en az oper yetkisine sahip olmanız gerekmektedir. Kodun alt yapısında @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 'ın desteği vardır. Kodun çalışması için mirc 6.35 ve üstü kullanmanız gerekmektedir. Ssl olmayan sistemlerde çalışmayacaktır.
Kod uzun zamandır tarafımca kullanılmaktadır ve resimde görüldüğü üzere sorunsuz çalışmaktadır.

Toprak 19 Ağustos 2022 10:54
Cevap: Nerden kodu güncel
 
Kod çok uzamış, bir de sanırım bu sitede sorgu limiti vardı.
Yine de eline sağlık.

NorthernLights 19 Ağustos 2022 12:18
Cevap: Nerden kodu güncel
 
Bir de şu kelimeyi doğru yazsanız ne kadar güzel olacak... "Nerden" diye bir kelime yoktur, "Nereden" olmalı.

MasteR06 19 Ağustos 2022 14:33
Cevap: Nerden kodu güncel
 
Alıntı:
NorthernLights Nickli Üyeden Alıntı (Mesaj 1042711874)
Bir de şu kelimeyi doğru yazsanız ne kadar güzel olacak... "Nerden" diye bir kelime yoktur, "Nereden" olmalı.
Kelimenin doğru yazılışını elbette biliyoruz. Fakat ircd komut kullanımı bu şekilde olduğu için öyle yazdım. Çok sorun diyorsan alias kısmını nereden olarak düzeltebilirsin. Türk Dil Kurumu nerden kelimesinin nereden kelimesinden türediğini ve aynı anlama geldiğini belirttikten sonra bir sorun kalmıyor. Burada önemli olan kodun kullanıcılara ettiği hizmet.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 14:33 -->-> Daha önceki mesaj 14:24 --

Alıntı:
Toprak Nickli Üyeden Alıntı (Mesaj 1042711864)
Kod çok uzamış, bir de sanırım bu sitede sorgu limiti vardı.
Yine de eline sağlık.
Keyifle kullanın. Evet bazı kısımlar atlanabilirdi. Siteye üye olanlar kendisine ait api aldığında günlük 1000 adet kullanım yapabiliyor. Ama bota entegre edilir ise yetmeyebilir.

High 28 Ağustos 2022 04:29
Cevap: Nerden kodu güncel
 
MasteR06, Öncelikle elinize sağlık. Kod da Türkçe karakter sorunu var bilgin olsun. Bir de bu koda hotlink ile Shun Gline seçenekleri versek daha faydalı olur. Bir de Vpn sorgunun yanında Proxy sorgu da yapılabilir öneri benimkisi.
Tekrardan elinize sağlık

MasteR06 01 Eylül 2022 01:16
Cevap: Nerden kodu güncel
 
Alıntı:
High Nickli Üyeden Alıntı (Mesaj 1042713319)
MasteR06, Öncelikle elinize sağlık. Kod da Türkçe karakter sorunu var bilgin olsun. Bir de bu koda hotlink ile Shun Gline seçenekleri versek daha faydalı olur. Bir de Vpn sorgunun yanında Proxy sorgu da yapılabilir öneri benimkisi.
Tekrardan elinize sağlık
Güle Güle kullanın.

Türkçe karakter sorunu olmaması için alias ekledim ve uzun süredir kullanıyorum bir sorun yok. Kullandığınız mirc ile alakalı olabilir türkçe karakter sorunu. Site güncel olarak bu sistem üzerinde sahte ip sorgusunu yapıyor. Yani vpn ve ya proxy ip fark etmiyor. Sisteminde varsa türünün bir önemi yok. Kod sadece kişinin nerden olduğunu sorgulamak için kullanıldığından hotlink eklemedim. Girişte kişinin nereden olduğunu kontrol edip bir pencereye bunu yansıtıyor olsak hotlink olabilirdi.

CoCoRiCo 01 Eylül 2022 15:12
Cevap: Nerden kodu güncel
 
Alıntı:
MasteR06 Nickli Üyeden Alıntı (Mesaj 1042711767)
Kod:
on *:sockopen:nerdenbak:{
  sockwrite -tn $sockname GET $+(/v1/,%sip,?vpn=1&asn=1) 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: proxycheck.io
  sockwrite -tn $sockname $crlf
}
on *:sockread:nerdenbak:{ var %d_nerdenbak | sockread %d_nerdenbak | tokenize 32 %d_nerdenbak
  if *"status":* iswm %d_nerdenbak { echo -a > - }
  if *"status":* iswm %d_nerdenbak { echo -a > %sip Nerden kontrolu başladı. }
  if *"status":* iswm %d_nerdenbak { echo -a > - }
  if *"status":* iswm %d_nerdenbak { echo -a > 2Kullanıcı/DURUMU:4 $_fl($_tr($remove($gettok(%d_nerdenbak,2-,58),$chr(44),"))) }
  if *"asn":* iswm %d_nerdenbak { echo -a > 2Asn/BİLGİSİ:4 $_tr($remove($gettok(%d_nerdenbak,2-,58),$chr(44),")) }
  if *"provider":* iswm %d_nerdenbak { echo -a > 2Sağlayıcı/FİRMA:4 $_tr($remove($gettok(%d_nerdenbak,2-,58),$chr(44),")) }
  if *"organisation":* iswm %d_nerdenbak { echo -a > 2Ornagizasyon/ŞİRKET:4 $_tr($remove($gettok(%d_nerdenbak,2-,58),$chr(44),")) }
  if *"continent":* iswm %d_nerdenbak { echo -a > 2KITA KONUMU:4 $_fl($_tr($remove($gettok(%d_nerdenbak,2-,58),$chr(44),"))) }
  if *"country":* iswm %d_nerdenbak { echo -a > 2ÜLKE:4 $_fl($_tr($remove($gettok(%d_nerdenbak,2-,58),$chr(44),"))) }
  if *"isocode":* iswm %d_nerdenbak { echo -a > 2Ülke/KODU:4 $_tr($remove($gettok(%d_nerdenbak,2-,58),$chr(44),")) }
  if *"region":* iswm %d_nerdenbak { echo -a > 2Bölge/ALAN:4 $_tr($remove($gettok(%d_nerdenbak,2-,58),$chr(44),")) }
  if *"regioncode":* iswm %d_nerdenbak { echo -a > 2Bölge/KODU:4 $_tr($remove($gettok(%d_nerdenbak,2-,58),$chr(44),")) }
  if *"city":* iswm %d_nerdenbak { echo -a > 2Şehir:4 $_tr($remove($gettok(%d_nerdenbak,2-,58),$chr(44),")) }
  if *"latitude":* iswm %d_nerdenbak { echo -a > 2Enlem:4 $_tr($remove($gettok(%d_nerdenbak,2-,58),$chr(44),")) }
  if *"longitude":* iswm %d_nerdenbak { echo -a > 2Boylam:4 $_tr($remove($gettok(%d_nerdenbak,2-,58),$chr(44),")) }
  if *"proxy":* iswm %d_nerdenbak { echo -a > 2Proxy/BAĞLANTISI:4 $_fl($_tr($remove($gettok(%d_nerdenbak,2-,58),$chr(44),"))) }
  if *"type":* iswm %d_nerdenbak { echo -a > 2Bağlantı/TÜRÜ:4 $_fl($_tr($remove($gettok(%d_nerdenbak,2-,58),$chr(44),"))) }
  if *"type":* iswm %d_nerdenbak { echo -a > - }
  if *"type":* iswm %d_nerdenbak { echo -a > Nerden kontrolu bitti. | sockclose nerdenbak }
}
alias nerden { if $regex($1,/(\d+\.\d+.\d+\.\d+)/) {
  sockclose nerdenbak | %sip = $replace($1,-,.) | sockopen nerdenbak proxycheck.io 80 | return }
set -e %d_nick $1 | enable #nerdenbak | userip $1 }
#nerdenbak off
raw 340:*:{ if $2 { %sip = $gettok($2,2,64) | sockopen nerdenbak proxycheck.io 80 | disable #nerdenbak | return }
echo -a %d_nick nickinin ip adresine ulasılamadı. | disable #nerdenbak }
#nerdenbak end
alias _tr return $replace($1-,Ãœ,Ü,ÅŸ,ş,Ä,Ğ,Ä°,İ,Ö,Ö,ü,ü,ÅŸ,Ş,ÄŸ,ğ,ç,ç,ı,ı,ö,ö,б,ı,Ğ°,İ,Ç,Ç,Å,Ş,ĞŸ,ğ,â,,Â,)
alias _fl return $replace($1-,ok,Online Kullanıcı,no,Hayır,yes,Evet,Business,Gerçek İŞLETME,VPN,Sahte İŞLETME,residential,Yerleşim,Wireless,Kablosuz,Turkey,Türkiye,Asia,Asya)
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]


Merhabalar;
Kodun amacı nick ve ya ip adresinin nerden olduğunu öğrenmektir. /nerden nick ve ya /nerden ipadresi şeklinde sorgulama yapabilirsiniz. Nickten sorgulama yapmak için en az oper yetkisine sahip olmanız gerekmektedir. Kodun alt yapısında @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 'ın desteği vardır. Kodun çalışması için mirc 6.35 ve üstü kullanmanız gerekmektedir. Ssl olmayan sistemlerde çalışmayacaktır.
Kod uzun zamandır tarafımca kullanılmaktadır ve resimde görüldüğü üzere sorunsuz çalışmaktadır.

Teblikler başarılı.. Ancak bir kac teknik hususu ekleyelim ki; bilgi alırken işimiz kolay olsun..

Sunucular cevapları genellikle istemcinin isteklerine göre şekillendirir, bu Dil
ve sıkıştırma işleri gibi meselerde de böyle çalışır.. "Accept-Encoding: gzip,

deflate, br" böylece tarayıcı buna göre aldığı veriyi işler.


kırmızı alan istemcinin Tarayıcısının sunucudan talep ettiği dili belirtir ve bir kaç

ilave bilgi içerir. "Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.5,en;q=0.3"

böylece gönderdiği metnin dönüştürüleceği veya okunabileceği dili setini ifade eder.

Yeşil alan ise istemci tarafından istek sonrası sunucuda bağlı kalacak mı,

yoksa işim bitti kapat daha veri beklemiyorum anlamına gelir, böylece bu

istek sonrası socket otomatik olarak sunucu tarafından kapatılır.


iki söz dizimi vardır;
Connection: keep-alive = canlı kalma
Connection: close = kapatma

bunlar kod yazarken işimizi oldukça kolaylaştıran işlevlerdir.

Bu söylediklerim Düzeltme eleştirme değil tavsiyedir.

/nr 8.8.8.8


Kod:
alias nr sockopen -e $+(nrd-,$1) proxycheck.io 443
on *:sockopen:nrd-*: {
  var %s sockwrite -tn $sockname
  %s GET $+(/v3/,$gettok($sockname,-1,$asc(-)),?vpn=1&asn=1) HTTP/1.1
  %s Host: proxycheck.io
  %s User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:104.0) Gecko/20100101 Firefox/104.0
  %s Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/avif,image/webp,*/*;q=0.8
  %s Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.5,en;q=0.3
  %s Alt-Used: proxycheck.io
  %s Connection: close
  %s $crlf
}
on *:sockread:nrd-*:{
  :d | sockread -f %d
  if ($sockbr == 0) return
  if (*"*":*,* iswm %d ) echo 4 $remove(%d,$chr(44),$chr(34))
  else echo 3 Req: %d

  goto d
}

aLdiana 01 Eylül 2022 15:19
Cevap: Nerden kodu güncel
 
Alıntı:
CoCoRiCo Nickli Üyeden Alıntı (Mesaj 1042714456)
Teblikler başarılı.. Ancak bir kac teknik hususu ekleyelim ki; bilgi alırken işimiz kolay olsun..

Sunucular cevapları genellikle istemcinin isteklerine göre şekillendirir, bu Dil
ve sıkıştırma işleri gibi meselerde de böyle çalışır.. "Accept-Encoding: gzip,

deflate, br" böylece tarayıcı buna göre aldığı veriyi işler.


kırmızı alan istemcinin Tarayıcısının sunucudan talep ettiği dili belirtir ve bir kaç

ilave bilgi içerir. "Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.5,en;q=0.3"

böylece gönderdiği metnin dönüştürüleceği veya okunabileceği dili setini ifade eder.

Yeşil alan ise istemci tarafından istek sonrası sunucuda bağlı kalacak mı,

yoksa işim bitti kapat daha veri beklemiyorum anlamına gelir, böylece bu

istek sonrası socket otomatik olarak sunucu tarafından kapatılır.


iki söz dizimi vardır;
Connection: keep-alive = canlı kalma
Connection: close = kapatma

bunlar kod yazarken işimizi oldukça kolaylaştıran işlevlerdir.

Bu söylediklerim Düzeltme eleştirme değil tavsiyedir.

/nr 8.8.8.8


Kod:
alias nr sockopen -e $+(nrd-,$1) proxycheck.io 443
on *:sockopen:nrd-*: {
  var %s sockwrite -tn $sockname
  %s GET $+(/v3/,$gettok($sockname,-1,$asc(-)),?vpn=1&asn=1) HTTP/1.1
  %s Host: proxycheck.io
  %s User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:104.0) Gecko/20100101 Firefox/104.0
  %s Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/avif,image/webp,*/*;q=0.8
  %s Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.5,en;q=0.3
  %s Alt-Used: proxycheck.io
  %s Connection: close
  %s $crlf
}
on *:sockread:nrd-*:{
  :d | sockread -f %d
  if ($sockbr == 0) return
  if (*"*":*,* iswm %d ) echo 4 $remove(%d,$chr(44),$chr(34))
  else echo 3 Req: %d

  goto d
}
Hiç değişmemişsin ellerine sağlık hahaha

MasteR06 01 Eylül 2022 16:22
Cevap: Nerden kodu güncel
 
Alıntı:
CoCoRiCo Nickli Üyeden Alıntı (Mesaj 1042714456)
Teblikler başarılı.. Ancak bir kac teknik hususu ekleyelim ki; bilgi alırken işimiz kolay olsun..

Sunucular cevapları genellikle istemcinin isteklerine göre şekillendirir, bu Dil
ve sıkıştırma işleri gibi meselerde de böyle çalışır.. "Accept-Encoding: gzip,

deflate, br" böylece tarayıcı buna göre aldığı veriyi işler.


kırmızı alan istemcinin Tarayıcısının sunucudan talep ettiği dili belirtir ve bir kaç

ilave bilgi içerir. "Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.5,en;q=0.3"

böylece gönderdiği metnin dönüştürüleceği veya okunabileceği dili setini ifade eder.

Yeşil alan ise istemci tarafından istek sonrası sunucuda bağlı kalacak mı,

yoksa işim bitti kapat daha veri beklemiyorum anlamına gelir, böylece bu

istek sonrası socket otomatik olarak sunucu tarafından kapatılır.


iki söz dizimi vardır;
Connection: keep-alive = canlı kalma
Connection: close = kapatma

bunlar kod yazarken işimizi oldukça kolaylaştıran işlevlerdir.

Bu söylediklerim Düzeltme eleştirme değil tavsiyedir.

/nr 8.8.8.8


Kod:
alias nr sockopen -e $+(nrd-,$1) proxycheck.io 443
on *:sockopen:nrd-*: {
  var %s sockwrite -tn $sockname
  %s GET $+(/v3/,$gettok($sockname,-1,$asc(-)),?vpn=1&asn=1) HTTP/1.1
  %s Host: proxycheck.io
  %s User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:104.0) Gecko/20100101 Firefox/104.0
  %s Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/avif,image/webp,*/*;q=0.8
  %s Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.5,en;q=0.3
  %s Alt-Used: proxycheck.io
  %s Connection: close
  %s $crlf
}
on *:sockread:nrd-*:{
  :d | sockread -f %d
  if ($sockbr == 0) return
  if (*"*":*,* iswm %d ) echo 4 $remove(%d,$chr(44),$chr(34))
  else echo 3 Req: %d

  goto d
}
Eleştiri de olsa hiç sıkıntı değil. Eleştiri olmadan kimse kendini geliştiremez. Gösterdiğiniz yollar için teşekkür ederim. Bundan sonra bu etkenleri de göz önünde bulundururum. Emeğinize sağlık.

High 11 Şubat 2023 00:06
Cevap: Nerden kodu güncel
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...], konu güncel olmasa da

/nerden nick yazarak sorgulama yapmak istediğimiz de böyle bir uyarı veriyor.

* /enable: Grup(lar) Yok

/nerden ip adresi şeklinde sorgulama yapıyor bilgine


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 14:11.

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net