IRCDefteri - En İyi IRCForum Sayfasi

IRCDefteri - En İyi IRCForum Sayfasi (https://www.ircforumda.net/)
-   mIRC Parça Kodlar (https://www.ircforumda.net/mirc-parca-kodlar/)
-   -   Nerden kodu güncel (https://www.ircforumda.net/mirc-parca-kodlar/31437-nerden-kodu-guncel.html)

Emre 24.Ağustos.2022 13:42

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)



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 @Feragat 'ı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.


Forum Saati: 18:13. Zaman dilimi GMT +4 olarak ayarlanmıştır.

Powered by vBulletin® Version 3.8.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.