IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum

IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum (https://www.ircforumu.net/)
-   Hazır Kodlar (https://www.ircforumu.net/hazir-kodlar/)
-   -   Otomatik proxy ban atma (https://www.ircforumu.net/hazir-kodlar/7509-otomatik-proxy-ban-atma.html)

immortaL 21 Mart 2018 15:20

Otomatik proxy ban atma
 
Kod:

on *:start:_al
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } }
alias _güncel {
  if $lines(proxy.txt) == 0 { _al | return }
  echo -a Proxy list güncellendi toplam4 $lines(proxy.txt)
  sockclose *proxy*
  unset %*
  .timercycle 1 5 kontrol
}
alias _al {
  .remove proxy.txt
  .timercycle off
  var %::rand $md5($ticks)
  sockopen $+(_proxy6,%::rand) proxyserverlist24.blogspot.com.tr 80
  ipal
  $+(.timer,qproxy) 1 20 _güncel
}
alias _ekle {
  if !$read(proxy.txt,w,$1) {
    .write proxy.txt $1
  }
}

alias ipal { .remove proxy.txt | sockclose 12proxytext | sockopen 12proxytext www.proxyserverlist24.top 80 }
on *:sockopen:12proxytext*:{
  var %s sockwrite -n $sockname
  %s GET / HTTP/1.1
  %s Accept: image/jpeg, image/gif, image/pjpeg, application/x-ms-application, application/xaml+xml, application/x-ms-xbap, */*
  %s Accept-Language: tr-TR
  %s User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; WOW64; Trident/4.0; SLCC2; .NET CLR 2.0.50727)
  %s Host: $sock($sockname).addr
  %s Connection: Keep-Alive
  %s $crlf

}
on *:sockread:12proxytext*:{
  var %63 | sockread %63
  if (*timestamp-link*.html* iswm %63) {
    3ekproxyal $+(/,$token($token(%63,4,39),3-,47))
  }
}
alias 3ekproxyal {
  var %rand $rand(0,999999999)
  sockopen $+(3ekproxytext,%rand) www.proxyserverlist24.top 80
  sockmark $+(3ekproxytext,%rand) $1
}

on *:sockopen:3ekproxytext*:{
  var %s sockwrite -n $sockname
  %s GET $+(/,$sock($sockname).mark) HTTP/1.1
  %s Accept: image/jpeg, image/gif, image/pjpeg, application/x-ms-application, application/xaml+xml, application/x-ms-xbap, */*
  %s Accept-Language: tr-TR
  %s User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; WOW64; Trident/4.0; SLCC2; .NET CLR 2.0.50727)
  %s Host: $sock($sockname).addr
  %s Connection: Keep-Alive
  %s $crlf
}
on *:sockread:3ekproxytext*:{
  var %63 | sockread %63
  if (*.*:* iswm %63) && (*a* !iswm %63) {
    var %ip $token($htmlfree(%63),1,32)
    _ekle %ip
  }
}

Kod:

on *:text:*:#giris: {
  if (connecting isin $2-) {
    if $read(proxy.txt,w,$remove($token($7,2,64),$chr(41))) {
      gline *@ $+ $remove($token($7,2,64),$chr(41)) - Proxy Girişi Yasaktır.
    }
  }
}



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

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Search Engine Friendly URLs by vBSEO 3.6.0
Copyright ©2005 - 2023 IRCForumu.Net - Tüm Hakları Saklıdır.