Proxy Koruması Güncel(Debug/Socket) - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Alper · 31 Ocak 2018, 20:46

Merhaba Arkadaşlar,

Çeşitli kodlardan oluşturduğum Proxy Korumasını sizinle paylaşıyorum. Kod içinde bulunan kodlar mutlaka forumda mevcuttur. Hepsi bir arada olan bir kod yoktur diye düşünüyorum.

Özellikler:
Debug üzerinden çalışma.
Girişte @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 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 *!Mobil@177.*
- 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.

- Eksiklik olabilir sorunla karşılaşırsanız konu başlığı altında dile getirirseniz yardımcı olmaya çalışırım.

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

on *:start:{ ykle | ykle1 | ykle2 | .connect_ aç | korumaontheircd | .proal_ | .timeral 0 18000 .proal_ }
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 }
alias korumaontheircdfull { .set %prox on | .set %aynidnt on | .set %:vpn on }
alias korumaoff { .set %prox off | .set %aynidnt off | .set %:vpn off }
alias proal_ {
  if $hget(Proxy) { .hfree -sw Proxy }
  var %::rand $r(1,999999)
  sockopen $+(alpro,%::rand) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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 ($token($sock($sockname).mark,2,191) != $read(nickmuaf.txt)) {
      .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) {
    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 $+ @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...],-,$token($server,2,46))
      echo -t $+ @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...],-,$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: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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 # -
    } 
  } 
}

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Clone Koruması Proxy Koruması ve SaldırıProgramına OnLem KOdu Lazım	neobre	mIRC Scripting Sorunları	13	09 Ekim 2009 00:07
Proxy Koruması ( Koruma Icın Proxy Lıstesı Lazım)	Heavenly	mIRC Scripting Sorunları	2	05 Temmuz 2009 20:09

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.