IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Tekil Mesaj gösterimi

CoCoRiCo · 01 Eylül 2022, 15:12

MasteR06 Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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

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)

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

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: Kodu kopyalamak için üzerine çift tıklayın!

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
}