IRCForumu.Net | Türkiye'nin IRCd ve mIRC Forumu   Reklam Alanı


  IRCForumu.Net | Türkiye'nin IRCd ve mIRC Forumu IF - mIRC Scripting Hazır Kodlar

Bizim mekan Reklam alanı

Yeni Konu   Cevap Yaz

 
LinkBack Seçenekler Arama Stil
Alt 05 Şubat 2018, 17:02   #1
Gelme, burası çok derin.
 
Üyelik tarihi: 07 Mayıs 2016
Bulunduğu yer: Ankara
Mesajlar: 581
WEB Sitesi: www.Sohbetsin.Com
IRC Sunucusu: irc.FixSohbet.Net
İlgi Alanı: Domain
Kan Grubu: A RH (+)
Alınan Beğeni: 86
Post Proxy Koruması Güncel(Debug/Socket)

Özellikler:
Debug üzerinden çalışma.
Girişte @Network Penceresinde Giren Kişinin Bilgilerini Gösterme.
Belli sayıda yurtdışı girişi olduğunda Yurtdışı girişlerini banlama.
Karaliste *!*@* formatında ekleme
Muaf nick/IP ekleme
Siteden güncel proxy liste çekme(5 saatte bir olarak ayarlı)
Vpn girişlerini yasaklama
Nick ve ident aynı olanı banlama.

Komutlar:
!proxyip ekle/sil/list
!proxynick ekle/sil/list
!muafip ekle/sil/list
!muafnick ekle/sil/list
!karaliste ekle/sil/list
!korumaon
!korumaoff
!korumafullon

Örnek Ekleme:
- İdentinde ~ işareti ile başlayanlar giremesin
!karaliste ekle *!~*@*
- İdenti Mobil olan ve IP 177 ile başlayanlar giremesin
!karaliste ekle *[email protected]*
- Alper nicki muaf olsun
!muafnick ekle Alper
- 177 ile başlayan ipler banlansın
!proxyip ekle 177.*
- Nl uzantılı hostlar giremesin
!proxyip ekle *.nl
- 78 ile başlayan ip ler muaf olsun
!muafip ekle 78.*

- Ekleme yapılmış olan dosyaları ekten indirip mirc klasörünün ana dizine attıktan sonra kullandığınız mirci kapatıp açtıktan sonra çalışacaktır.



Kod:
on *:start:{ ykle | ykle1 | ykle2 | .connect_ aç | korumaontheircd | .proal_ | .timeral 0 18000 .proal_ }
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } 
alias ykle { $iif(!$isfile(proxip.hs),.write proxip.hs) | .hmake proxip 100 | .hload proxip proxip.hs }
alias ykle1 { $iif(!$isfile(krlst.hs),.write krlst.hs) | .hmake krlst 100 | .hload krlst krlst.hs }
alias ykle2 { $iif(!$isfile(prox.hs),.write prox.hs) | .hmake prox 100 | .hload prox prox.hs }
alias korumaontheircd { .set %prox on | .set %aynidnt off | .set %:yon off | .set %:vpn off | .set %:nrdn off }
alias korumaontheircdfull { .set %prox on | .set %aynidnt on | .set %:vpn on }
alias korumaoff { .set %prox off | .set %aynidnt off | .set %:vpn off | .set %:yon off }
alias proal_ {
  if $hget(Proxy) { .hfree -sw Proxy }
  var %::rand $r(1,999999)
  sockopen $+(alpro,%::rand) www.socks24.org 80
  $+(.timer,otoproxy) 1 40 guncelpro
}
alias guncelpro { echo -sat Proxy list güncellendi toplam4 $hget(Proxy,0).data }

alias connect_ {
  if ($1 = aç) debug -i on connect_ 
  if ($1 = kapat) debug off
  tokenize 32 $1-
  if $1 = <- && $3 = NOTICE {
    if ($9 == connecting) && ($level($13) != muafnick) && ($level($remove($token($14,2,64),$chr(41))) != muafips) {
      var %:r = $r(1,999999999999), %ip2 = $remove($token($14,2,64),$chr(41))
      .sockopen $+(pro,%:r) www.ipaddresslocation.org 80 | sockmark $+(pro,%:r) $+($remove($token($14,2,64),$chr(41)),¿,$13)
      if (%aynidnt = on) && ($13 === $right($gettok($14,1,64),-1)) { kill $13 7Nickiniz13&4Identiniz 8Aynıdır 9Değişiriniz %ver1 } 
      if (%prox == on) {
        if $hget(proxy,%ip2) { kline $+(*@,%ip2) +0 2Sunucumuza 4Proxy/Tor/Socks/Wingate 2ile girmek yasak!! %ver1 }
        elseif $hfind(prox,$13,1,W).data { kline $13 +0 8Yasaklı 7Nick 4Olarak 9Algılandınız. %ver1 }
        elseif $hfind(proxip,%ip2,1,W).data { kline $+(*@,%ip2) +0 7Proxy 4Olarak 9Algılandınız. %ver1 }     
        elseif $hfind(krlst,$+($13,!,$remove($14,$chr(40),$chr(41))),1,W).data { kline $13 +0 7Sunucuya 4Girişiniz 9Yasaklanmıştır. 6! %ver1 }
      }
    }
  }
}
on *:sockopen:pro*:{ 
  sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,1,191)) HTTP/1.1 
  sockwrite -nt $sockname Host: www.ipaddresslocation.org 
  sockwrite -nt $sockname Connection: keep-alive
  sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
  sockwrite -nt $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 -nt $sockname $crlf
}

on *:sockread:pro*:{  
  if ($sockerr) { .sockclose $sockname | return }
  var %:pro | sockread -f %:pro
  if (IP Country: isin %:pro) && (*Turkey* iswm $token($htmlfree(%:pro),2,58)) && (%:yon == on) { 
    .inc %:yici
    if (%:yici >= 2) { .set %:yon off | .unset %:yici }
  }
  if (IP Country: isin %:pro) && (*Turkey* !iswm $token($htmlfree(%:pro),2,58) ) {
    if (!$ulist($token($sock($sockname).mark,2,191),muafnick,1)) {
      .inc -u3 %:yd?s?
      if (%:yon == on) { kline $+(*@,$token($sock($sockname).mark,1,191)) +0 7Yurtdışı 4Girişi 9Yasaktır. 6! %ver1  }
      elseif (%:yd?s? >= 7) { .set %:yon on | echo -at [ Yurt Dışı Girişi ] - Yurt Dışı Girişleri Kapatıldı. }
    }
  }
  if (ISP Provider: isin %:pro) { 
    var %sglyc = $token($htmlfree(%:pro),2,58)
    if (Virtua isin %sglyc) { kline $+(*@,$token($sock($sockname).mark,1,191)) +0 7Proxy 4Girişi 9Yasaktır. 6! %ver1   }
    elseif (%:vpn == on) { 
      if (Services isin %sglyc) || (Ocean isin %sglyc) || (SG.GS isin %sglyc) || (SurfEasy isin %sglyc) || (ISPPro isin %sglyc) || (WorldStream isin %sglyc) || (SoftLayer isin %sglyc) || (OVH isin %sglyc) || (Liteserver isin %sglyc) {
        kline $+(*@,$token($sock($sockname).mark,1,191)) +0 7Vpn 4Kullanımı 9Yasaktır. 6! %ver1 
      }
    }
  } 
  if (%:yon == off) && (%:nrdn == on) {
    if (IP Country: isin %:pro) { .hadd -ms $token($sock($sockname).mark,2,191) Ülke $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) }
    if (IP City: isin %:pro) { .hadd -ms $token($sock($sockname).mark,2,191) Sehir $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) }
    if (ISP Provider: isin %:pro) { 
      var %:isp $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58))
      var %:n $token($sock($sockname).mark,2,191), %ip $token($sock($sockname).mark,1,191), %ülke $hget(%:n,Ülke), %sehir $hget(%:n,Sehir)
      window -e $+(@,Network,-,$token($server,2,46))
      echo -t $+(@,Network,-,$token($server,2,46)) 2[ 4Giriş 2] *** Nick:4 %:n 3- IP:4 %ip 3- Ulke:4 %ülke 3- Sehir:4 %sehir 3- ISP:4 %:isp 3- Saat:4 $timestamp
      .hfree -sw %:n
      sockclose $sockname
    }
  }
}
on *:sockopen:alpro*:{
  var %:proal sockwrite -n $sockname
  %:proal GET / HTTP/1.1
  %:proal Host: www.socks24.org
  %:proal User-Agent: Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:48.0) Gecko/20100101 Firefox/48.0
  %:proal Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
  %:proal Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.5,en;q=0.3
  %:proal Connection: keep-alive
  %:proal $crlf + $crlf
}
on *:sockread:alpro*:{
  var %proal
  sockread %proal
  if (*timestamp-link*.html* iswm %proal) {
    var %rand $rand(10,999999)
    .sockopen $+(hpsproal,%rand) www.socks24.org 80
    .sockmark $+(hpsproal,%rand) $token($token(%proal,3-,47),1,39)
  }
}
on *:sockopen:hpsproal*:{ var %:proalhps sockwrite -n $sockname | %:proalhps GET / $+ $sock($sockname).mark HTTP/1.1 | %:proalhps Host: www.socks24.org | %:proalhps $crlf + $crlf }
on *:sockread:hpsproal*:{ var %proalhps | sockread %proalhps | if $regex(%proalhps,(\d+\.\d+\.\d+\.\d+)) { .hadd -m Proxy $regml(1) IP } }

on *:input:*:{
  if $regex($1,/^[!\.]korumaon$/Si) { .korumaontheircd | echo -sat Koruma Açık }
  if $regex($1,/^[!\.]korumaoff$/Si) { .korumaoff | echo -sat Koruma Kapalı }
  if $regex($1,/^[!\.]korumafullon$/Si) { .korumaontheircdfull | echo -sat Koruma Full Açık } 
  if $regex($1,/^[!\.]pr[oO]xyn[ıiİ][cçÇ]k$/Si) {
    if $regex($2,/^ekle$/Si) {
      if (!$3) { .timer -h 1 500 msg # Lütfen nick belirtiniz | return }        
      if $hfind(prox,$strip($3),0,W).data { .timer -h 1 500 msg # $qt($nick) Eklemek istediğiniz Nick Zaten Listede mevcut $+([,$chr(32),$hget(prox,$hfind(prox,$strip($3),1,W).data),$chr(32),]) Eslesen Veri. | return }
      var %n = $left($calc($ctime * $rand(1000,9999)),7)
      .hadd -m prox %n $strip($3)
      .hsave -o prox prox.hs
      .timer -h 1 500 msg # Proxy Listesine Eklenen Kayıt: $strip($3)
    }
    if $regex($2,/^s[ıiİ]l$/Si) {
      if (!$3) { .timer -h 1 500 msg # $qt($nick) Lütfen Nick belirtin | return }        
      if !$hfind(prox,$strip($3),0,W).data { .timer -h 1 500 msg # $strip($3) Proxy Nick Listesinde Bulunmamaktadır. | return }
      .hdel -m prox $hfind(prox,$strip($3),1,W).data
      .hsave -o prox prox.hs
      .timer -h 1 500 msg # Proxy Listesinden Silinen Kayıt: $strip($3)
    }
    if $regex($2,/^l[ıiİ]st$/Si) {
      if ($hget(prox,0).data == 0) { .timer -h 1 500 msg # Proxy Nick Listesi bos. | return }
      .timer -h 1 500 msg # -
      var %:ya = 1 | while (%:ya <= $hget(prox,0).data) { .timer -h 1 500 msg # %:ya $+ ) [ $hget(prox,%:ya).data ] | inc %:ya }
      .timer -h 1 500 msg # -
    } 
  } 
  if $regex($1,/^[!\.]pr[oO]xy[ıiİ]p$/Si) {
    if $regex($2,/^ekle$/Si) {
      if (!$3) { .timer -h 1 500 msg # Lütfen IP belirtin | return }        
      if $hfind(proxip,$strip($3),0,W).data { .timer -h 1 500 msg # $qt($nick) Eklemek istediğiniz IP Zaten Listede mevcut $+([,$chr(32),$hget(proxip,$hfind(proxip,$strip($3),1,W).data),$chr(32),]) Eslesen Veri.. | return }
      var %:r = $left($calc($ctime * $rand(1000,9999)),7)
      .hadd -m proxip %:r $strip($3)
      .hsave -o proxip proxip.hs
      .timer -h 1 500 msg # Proxy IP Listesine Eklenen Kayıt: $strip($3)
    }
    if $regex($2,/^s[ıiİ]l$/Si) {
      if (!$3) { .timer -h 1 500 msg # Lütfen IP belirtin | return }        
      if !$hfind(proxip,$strip($3),0,W).data { .timer -h 1 500 msg # $strip($3) Proxy IP Listesinde Bulunmamaktadır. | return }
      .hdel -m proxip $hfind(proxip,$strip($3),1,W).data
      .hsave -o proxip proxip.hs
      .timer -h 1 500 msg # Proxy IP Listesinden Silinen Kayıt: $strip($3) 
    }
    if $regex($2,/^l[ıiİ]st$/Si) {
      if ($hget(proxip,0).data == 0) { .timer -h 1 500 msg # Proxy IP Listesi bos. | return }
      .timer -h 1 500 msg # -
      var %:g = 1 | while (%:g <= $hget(proxip,0).data) { .timer -h 1 500 msg # %:g $+ ) [ $hget(proxip,%:g).data ] | inc %:g }
      .timer -h 1 500 msg # -
    }  
  }
  if $regex($1,/^[!\.]m[uU]afn[ıiİ][cçÇ]k$/Si) {
    if $2 == list {
      .timer -h 1 500 msg $chan listeleniyor.
      var %:mnck = 1, %mnc = $ulist(*,muafnick,0)
      .timer -h 1 500 msg $chan - Toplam Muaf Nick Sayısı:4 %mnc
      while %:mnck <= %mnc  {
        .timer -h 1 500 msg $chan $+(%:mnck,$chr(41)) $iif($ulist(*,muafnick,%:mnck) == $nick,$+(,$v1,),$v1)
        inc %:mnck 1
      }
    }
    if $2 == ekle { 
      if $3 == $null { .timer -h 1 500 msg $chan $+(",$nick,") Lütfen eklenecek nicki yazınız | return }
      if $ulist($3,muafnick,1) { .timer -h 1 500 msg $chan $+(",$nick,") Belirtiginiz kritere uyan $+(",,$3,,") zaten mevcut | return }
      .auser muafnick $3- 
      .timer -h 1 500 msg $chan $+(",,$3,,") Muaf Nick Listesine Eklendi
    }
    if $2 == sil { 
      if $3 == $null { .timer -h 1 500 msg $chan $+(",$nick,") Lütfen silinecek Nicki Yazınız | return }
      .ruser muafnick $3- | .timer -h 1 500 msg $chan $+(",,$3,,")  Muaf nick Listesinden Silindi 
    }
  }
  if $regex($1,/^[!\.]m[uU]af[ıiİ]p$/Si) {
    if $2 == list {
      .timer -h 1 500 msg $chan listeleniyor.
      var %:mips = 1, %mip = $ulist(*,muafips,0)
      .timer -h 1 500 msg $chan - Toplam Muaf IP Sayısı:4 %mip
      while %:mips <= %mip  {
        .timer -h 1 500 msg $chan $+(%:mips,$chr(41)) $iif($ulist(*,muafips,%:mips) == $nick,$+(,$v1,),$v1)
        inc %:mips 1
      }
    }
    if $2 == ekle { 
      if $3 == $null { .timer -h 1 500 msg $chan $+(",$nick,") Lütfen eklenecek IP - HOST yazınız | return }
      if $ulist($3,muafips,1) { .timer -h 1 500 msg $chan $+(",$nick,") Belirtiginiz kritere uyan $+(",,$3,,") zaten mevcut | return }
      .auser muafips $3- 
      .timer -h 1 500 msg $chan $+(",,$3,,") Muaf IP Listesine Eklendi
    }
    if $2 == sil { 
      if $3 == $null { .timer -h 1 500 msg $chan $+(",$nick,") Lütfen silinecek IP - HOST Yazınız | return }
      .ruser muafips $3- | .timer -h 1 500 msg $chan $+(",,$3,,")  Muaf IP Listesinden Silindi 
    }
  }
  if $regex($1,/^[!\.]karal[ıiİ]ste$/Si) {
    if (!$2) { .timer -h 1 500 msg # Kullanımı: !karaliste ekle/sil/list | return }
    if $regex($2,/^ekle$/Si) {
      if (!$3) { .timer -h 1 500 msg # Lütfen FullAdres belirtiniz | return }        
      if $hfind(krlst,$strip($3),0,W).data { .timer -h 1 500 msg # $qt($nick) Eklemek istediğiniz Zaten KaraListede mevcut $+([,$chr(32),$hget(krlst,$hfind(krlst,$strip($3),1,W).data),$chr(32),]) Eslesen Veri. | return }
      var %n1 = $left($calc($ctime * $rand(1000,9999)),7)
      .hadd -m krlst %n1 $strip($3)
      .hsave -o krlst krlst.hs
      .timer -h 1 500 msg # KaraListeye Eklenen Kayıt: $strip($3)
    }
    if $regex($2,/^s[ıiİ]l$/Si) {
      if (!$3) { .timer -h 1 500 msg # $qt($nick) Lütfen Nick belirtin | return }        
      if !$hfind(krlst,$strip($3),0,W).data { .timer -h 1 500 msg # $strip($3) KaraListede Bulunmamaktadır. | return }
      .hdel -m krlst $hfind(krlst,$strip($3),1,W).data
      .hsave -o krlst krlst.hs
      .timer -h 1 500 msg # KaraListeden Silinen Kayıt: $strip($3)
    }
    if $regex($2,/^l[ıiİ]st$/Si) {
      if ($hget(krlst,0).data == 0) { .timer -h 1 500 msg # KaraListe bos. | return }
      .timer -h 1 500 msg # -
      var %:ya = 1 | while (%:ya <= $hget(krlst,0).data) { .timer -h 1 500 msg # %:ya $+ ) [ $hget(krlst,%:ya).data ] | inc %:ya }
      .timer -h 1 500 msg # -
    } 
  } 
}





 immortaL isimli Üye şimdilik offline konumundadır   Alıntı
Alt 18 Ağustos 2018, 20:42   #2
 
dizZy - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: 08 Ocak 2017
Bulunduğu yer: Edirne
Mesajlar: 3
WEB Sitesi: Emekli
IRC Sunucusu: Emekli
İlgi Alanı: mIRC Scripting
Kan Grubu: A RH (-)
Alınan Beğeni: 1
Standart Cevap: Proxy Koruması Güncel(Debug/Socket)

Ziyaretçilere içerik gizlenmiştir.
Ücretsiz olarak sizde bize katılmak istermisiniz?

Kayıt ol Giriş yap

 dizZy isimli Üye şimdilik offline konumundadır   Alıntı
Alt 18 Ağustos 2018, 20:44   #3
 
Üyelik tarihi: 19 Ocak 2018
Bulunduğu yer: İstanbul
Mesajlar: 10
WEB Sitesi: FixSohbet.Net
IRC Sunucusu: irc.FixSohbet.Net
İlgi Alanı: Linux
Kan Grubu: 0 RH (-)
Alınan Beğeni: 4
Standart Cevap: Proxy Koruması Güncel(Debug/Socket)

Ziyaretçilere içerik gizlenmiştir.
Ücretsiz olarak sizde bize katılmak istermisiniz?

Kayıt ol Giriş yap

 Sado isimli Üye şimdilik offline konumundadır   Alıntı
Alt 18 Ağustos 2018, 21:02   #4
 
dizZy - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: 08 Ocak 2017
Bulunduğu yer: Edirne
Mesajlar: 3
WEB Sitesi: Emekli
IRC Sunucusu: Emekli
İlgi Alanı: mIRC Scripting
Kan Grubu: A RH (-)
Alınan Beğeni: 1
Standart Cevap: Proxy Koruması Güncel(Debug/Socket)

Ziyaretçilere içerik gizlenmiştir.
Ücretsiz olarak sizde bize katılmak istermisiniz?

Kayıt ol Giriş yap

 dizZy isimli Üye şimdilik offline konumundadır   Alıntı
Alt 18 Ağustos 2018, 21:25   #5
Gelme, burası çok derin.
 
Üyelik tarihi: 07 Mayıs 2016
Bulunduğu yer: Ankara
Mesajlar: 581
WEB Sitesi: www.Sohbetsin.Com
IRC Sunucusu: irc.FixSohbet.Net
İlgi Alanı: Domain
Kan Grubu: A RH (+)
Alınan Beğeni: 86
Standart Cevap: Proxy Koruması Güncel(Debug/Socket)

Ziyaretçilere içerik gizlenmiştir.
Ücretsiz olarak sizde bize katılmak istermisiniz?

Kayıt ol Giriş yap






 immortaL isimli Üye şimdilik offline konumundadır   Alıntı

Yeni Konu   Cevap Yaz

Etiketler
günceldebug or socket, koruması, proxy

Seçenekler Arama
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık



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


Powered by vBulletin® Version 3.8.9 Beta 1
Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
Search Engine Friendly URLs by vBSEO 3.6.0
IRCForumu - Sohbet - Bizim mekan
Copyright ©2005 - 2016 IRCForumu.Net | Tüm Hakları Saklıdır.