Sohbet muhabbet sohbet, sohbet odası
reklam alanı reklam alanı

  • Konu İçeriğini Görebilmek İçin Lütfen Üye Olun. Aksi Takdirde İçeriği Göremezsiniz.

Proxy koruma 2020

admin

Forever mIRCX!
Yönetici
Yetkili
mIRCX Admin
Denetleyici
Katılım
16 Kas 2019
Mesajlar
343
Tepkime puanı
0
Puanları
16
Konum
public_html
Web sitesi
www.mircx.net

İtibar:

Proxy list güncelleme ve online proxy sorgulama olarak.
mIRC açılışında Proxy listesini yüklerken biraz kasabilir bilginiz olsun

Kod:
menu * {
  Proxy Koruması
  .Aç:/.enable #Proxy | echo -a Proxy koruması açıldı..
  .Kapat:/.disable #Proxy | echo -a Proxy koruması kapatıldı..
}
on *:start:if $isfile(Proxy.tprk) { .hmake Proxy | .hload Proxy Proxy.tprk }
#Proxy off
on *:snotice:*:{
  if $regex($1-,/Client connecting (on port|at) (.+)\: (.+) \((.+)@(.+)\)/Si) {
    var %_port = $regml(2), %_nick $regml(3), %_ident $regml(4), %_ip $regml(5)
    ;- Muaf port ekleme.
    if $istok(7000 7005 1453,%_port,32) { return }
    ;- Muaf nick ekleme
    elseif $istok(Nick Nick1 Nick2 Nick3,%_nick,32) { return }
    ;- Muaf ident ekleme
    elseif $istok(SoyLe KELEBEK BIZIMMEKAN,%_ident,32) { return }
    ;- Muaf IP ekleme
    elseif $istok(88.888.55.258 78.458.88.888,%_ip,32 ) { return }
    else { who +I %_nick }
  }
}
raw 352:*:{
  var %:r $+($left($md5($ticks),$r(5,20)),$6)
  if $hget(Proxy,$4) { gzline $+(*@,$4) +5h Proxy Yasak.. $+([,Hash,]) | msg #Xline [ HASH ] Nick:4 $6 - IP:4 $4 }
  else { sockopen $+(proxy,%:r) e-sisnet.com 80 | sockmark $+(proxy,%:r) $+($4,¿,$6) }
}
on *:sockopen:proxy*:{
  if ($sockerr) { .sockclose $sockname | return }
  sockwrite -nt $sockname GET $+(/?ip=,$token($sock($sockname).mark,1,191)) HTTP/1.1
  sockwrite -nt $sockname Host: $sock($sockname).addr
  sockwrite -nt $sockname Accept: image/jpeg, application/x-ms-application, image/gif, application/xaml+xml, image/pjpeg, application/x-ms-xbap, */*
  sockwrite -nt $sockname Accept-Language: tr-TR
  sockwrite -nt $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729)
  sockwrite -nt $sockname Connection: Keep-Alive
  sockwrite -nt $sockname $crlf
}
on *:sockread:proxy*:{
  if ($sockerr) { .sockclose $sockname | return }
  var %:proxy | sockread -f %:proxy | tokenize 32 %:proxy
  if $regex($1-,/numaral[ıiİ] [Iİi]P proxy\'dir/i) {
    gzline $+(*@,$token($sock($sockname).mark,1,191)) +5h Proxy Yasak.. $+([,$token($1-,2,45),])
    msg #Xline [ $token($1-,2,45) ] Nick:4 $token($sock($sockname).mark,2,191) - IP:4 $token($sock($sockname).mark,1,191) $iif($token($token($1-,2,41),2,40),- Hostname:4 $token($token($1-,2,41),2,40)) $iif($token($token($1-,1,41),2,40),- Ülke:2 $token($token($1-,1,41),2,40))
    sockclose $sockname
  }
}
#Proxy end

alias _güncel { echo -a Proxy list güncellendi. Toplam Proxy :4 $replace($bytes($hget(Proxy,0).data,b),$chr(44),.) | unset %:cek | $+(.timer,_al) 1 10000 _al | .hsave -o Proxy Proxy.tprk }
alias _ekle { .hadd -ms Proxy $1 Proxy }
alias _al {
  var %:rand $md5($ticks) | inc %:cek
  if (%:cek == 1) { sockopen $+(_proxy-1,%:rand) www.proxyserverlist24.top 80 }
  elseif (%:cek == 2) { sockopen $+(_proxy-1,%:rand) msocks5.blogspot.com 80 }
  elseif (%:cek == 3) { sockopen $+(_proxy-1,%:rand) socks5online.blogspot.com 80 }
  elseif (%:cek == 4) { sockopen $+(_proxy-1,%:rand) socksv9.blogspot.com 80 }
  elseif (%:cek == 5) { sockopen $+(_proxy-1,%:rand) proxy-heaven.blogspot.com 80 }
  elseif (%:cek == 6) { sockopen $+(_proxy-1,%:rand) multiproxy.org 80 | sockmark $+(_proxy-1,%:rand) /txt_all/proxy.txt }
  elseif (%:cek == 7) { sockopen $+(_proxy-1,%:rand) www.gatherproxy.com 80 | sockmark $+(_proxy-1,%:rand) /proxylistbycountry }
  elseif (%:cek == 8) { sockopen $+(_proxy-1,%:rand) www.live-socks.net 80 }
  elseif (%:cek == 9) { sockopen $+(_proxy-1,%:rand) www.freshnewproxies24.top 80 }
  elseif (%:cek == 10) { sockopen $+(_proxy-1,%:rand) socks5-proxy-list.blogspot.com 80 }
  elseif (%:cek == 11) { sockopen $+(_proxy-1,%:rand) www.proxylistdaily.net 80 }
  else { _güncel | return }
  $+(.timer,_cekkanka) 1 60 _al
}
on *:sockopen:_proxy-1*:{
  if ($sockerr) { .sockclose $sockname | return }
  sockwrite -nt $sockname GET $iif($sock($sockname).mark,$sock($sockname).mark,/)   HTTP/1.1
  sockwrite -nt $sockname Host: $sock($sockname).addr
  sockwrite -nt $sockname Accept: image/jpeg, application/x-ms-application, image/gif, application/xaml+xml, image/pjpeg, application/x-ms-xbap, */*
  sockwrite -nt $sockname Accept-Language: tr-TR
  sockwrite -nt $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729)
  sockwrite -nt $sockname Connection: Keep-Alive
  sockwrite -nt $sockname $crlf
}
on *:sockread:_proxy-1*:{
  if ($sockerr) { .sockclose $sockname | return }
  var %:_proxy1 | sockread -f %:_proxy1 | tokenize 32 %:_proxy1
  if (*timestamp-link*.html* iswm $1-) { _proxyal1 $sock($sockname).addr $+(/,$token($token($1-,4,39),3-,47)) }
  elseif $regex($1-,/href=\"\/proxylist\/country/Si) { _proxyal1 $sock($sockname).addr $+(/,$token($token($1-,2-,47),1,34)) }
  elseif (*<a href="http://www.proxylistdaily.net/p/*">* iswm $1-) { _proxyal1 $sock($sockname).addr $+(/,$token($token($1-,2,34),3-,47)) }
  elseif $regex($1-,/(\d+\.\d+\.\d+\.\d+)/Si) { _ekle $regml(1) }
}
alias _proxyal1 { var %:rand $+($r(100,9999999),$md5($ticks),$r(1000,999999999)) | sockopen $+(_proxyal1,%:rand) $1 80 | sockmark $+(_proxyal1,%:rand) $2 }
on *:sockopen:_proxyal1*:{
  if ($sockerr) { .sockclose $sockname | return }
  sockwrite -nt $sockname GET $iif($sock($sockname).mark,$sock($sockname).mark,/)   HTTP/1.1
  sockwrite -nt $sockname Host: $sock($sockname).addr
  sockwrite -nt $sockname Accept: image/jpeg, application/x-ms-application, image/gif, application/xaml+xml, image/pjpeg, application/x-ms-xbap, */*
  sockwrite -nt $sockname Accept-Language: tr-TR
  sockwrite -nt $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729)
  sockwrite -nt $sockname Connection: Keep-Alive
  sockwrite -nt $sockname $crlf
}
on *:sockread:_proxyal1*:{
  if ($sockerr) { .sockclose $sockname | return }
  var %:_proxyal1 | sockread -f %:_proxyal1 | tokenize 32 %:_proxyal1
  if $regex($1-,/(\d+\.\d+\.\d+\.\d+)/Si) { _ekle $regml(1) }
}
Proxy koruması sorgulu sorgu cevaplarını istediğiniz log kanalına yansıtır. %95 civarı başarılı saldırıları büyük çoğunlukla kesmenize yarayabilir faydalı bir kod.

Kod:
# Add-on u ekledikten sonra sağ tıklayıp log kanalını ayarlandıktan sonra aktif ediniz.
# Muaf port için ilgili satırı çoğaltabilirsiniz.


menu * {
  Proxy Koruması
  .Aç:/.enable #ProxyKoruma | echo -a Proxy koruması açıldı..
  .Kapat:/.disable #ProxyKoruma | echo -a Proxy koruması kapatıldı..
  .-
  .Log Kanalı:.set %proxylogkanali $$?="Örnek #kanal1,#kanal2"
}

#ProxyKoruma off
on *:snotice:*Client connecting*:{
  ; alt satır kopyalanarak muaf port eklenebilir
  if $remove($8,1,33,:) == 7000 { halt }
  .who +I $token($token($4-,2,58),1,32)
}

raw 352:*:{
  var %:r $+($left($md5($ticks),$r(5,20)),$6)
  sockopen $+(proxy,%:r) proxy.turkirc.org 80
  sockmark $+(proxy,%:r) $+($4,¿,$6)
}

on *:sockopen:proxy*:{
  sockwrite -nt $sockname GET $+(/?ipv4=,$token($sock($sockname).mark,1,191))  HTTP/1.1
  sockwrite -nt $sockname Host: $sock($sockname).addr
  sockwrite -nt $sockname Accept: image/jpeg, application/x-ms-application, image/gif, application/xaml+xml, image/pjpeg, application/x-ms-xbap, */*
  sockwrite -nt $sockname Accept-Language: tr-TR
  sockwrite -nt $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729)
  sockwrite -nt $sockname Connection: Keep-Alive
  sockwrite -nt $sockname $crlf
}

on *:sockread:proxy*:{
  if ($sockerr) { .sockclose $sockname | return }
  var %:proxy | sockread -f %:proxy | tokenize 32 %:proxy
  ;msg %proxylogkanali -a %:proxy
  if $regex($1-,/sonuc red/i) {
    gzline $+(*@,$token($sock($sockname).mark,1,191)) +5h Proxy Yasak!
    /msg %proxylogkanali (4GİRİŞ) $token($sock($sockname).mark,1,191) numaralı IP Proxy'dir. (Nick: $token($sock($sockname).mark,2,191) $+ )
    sockclose $sockname
    return
  }
  if $regex($1-,/sonuc green/i) {
    /msg %proxylogkanali (3GİRİŞ) $token($sock($sockname).mark,1,191) numaralı IP Proxy degildir. (Nick: $token($sock($sockname).mark,2,191) $+ )
    sockclose $sockname
    return
  }
  if $regex($1-,/sonuc orange/i) {
    /msg %proxylogkanali (7GİRİŞ) $token($sock($sockname).mark,1,191) numaralı IP sorgulanamadı! (Nick: $token($sock($sockname).mark,2,191) $+ )
    sockclose $sockname
    return
  }
}
#ProxyKoruma end
Guzel bir proxy koruması.En önemli özelliği hızlı olmasıdır.Tr ipleri dışında girişlere izin vermez bu yuzden arada bir atılmalar olabilir.

Kod:
on *:snotice:*Client*connecting*: {
var %dx = $gettok($right($left($10,-1),-1),2,64)
var %re = $iif($regex(%dx,-) != 1,$gettok(%dx,1,46),DONE)
if %re == DONE {
kline $9 Blocked HOSTNAME
goto end
}
;##############################################
;# Türkiye IP başlangıç haneleri. 88.147.44.55
;# Buraya bu ip numaralarını aralarında boşluk bırakarak ekleyebiliriz.
;# Böylece bu ip numaraları ile başlaan girişleri, servere almayacak.
;#
if $istok(81 85 88 80 212 195,%re,32) == $false {
kline $9 Blocked HOSTNAME
}
:end
}
DNSBL Proxy Koruma

Kod:
menu menubar,channel {
  +> Proxy Koruma
  ..Aç:!if $group(#Proxys).status = on { echo 4 -tgae Proxy Korumasi Zaten AÇIK } | else { /.enable #Proxys | echo 4 -tgae Proxy Korumasi AÇILDI | set %proxys on  }
  ..Kapat:!if $group(#Proxys).status = off { echo 4 -tgae Proxy Korumasi Zaten KAPALI } | else { /.disable #Proxys | echo 4 -tgae Proxy Korumasi KAPATILDI | set %proxys off  }
  ..Durum < $replace($group(#Proxys).status, off, Kapali, on, Açik) >:.
}

#Proxys off
alias tara {
  if ($1) {
    var %pro1 $rand(1,99999999)
    sockopen $+(pro5,%pro1,.,$2,.,$3) dronebl.org 80
    sockmark $+(pro5,%pro1,.,$2,.,$3) $1
  }
}
on *:sockopen:pro5*:{
  sockwrite -n $sockname GET /lookup.do?ip= $+ $sock($sockname).mark HTTP/1.1
  sockwrite -n $sockname Host: dronebl.org
  sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/53.0.2785.116 Safari/537.36
  sockwrite -n $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
  sockwrite -n $sockname $crlf
}
on *:sockread:pro5*:{
  var %xx [ $+ [ $sockname ] ]
  sockread %xx [ $+ [ $sockname ] ]
  if (*There have been listings for the host* iswm %xx [ $+ [ $sockname ] ]) {
    gzline $+(*@,$sock($sockname).mark) - 0,10 Proxy Banned 
    if !$window(@DBSL-tor) { window -neg1 @DBSL-tor } | echo @DBSL-tor ( IP ) $+(4 $chr(32),$sock($sockname).mark),$chr(32)) 1IP adresinden 4PROXY 1giriş tespit edilmiştir.
    halt   
  }
}
on *:snotice:*Client connecting on port*:who +I $9
raw 352:*:{
  tara $4
}

#Proxys end
Güncel olarak bir paylaşım yapıyım dedim proxy koruması kendi sitem üzerinden sorguluyor ve sağlamdır.

Kod:
menu * {
  Proxy Koruması
  .Aç:/.enable #Proxy | echo -a Proxy koruması açıldı..
  .Kapat:/.disable #Proxy | echo -a Proxy koruması kapatıldı..
}

#Proxy off
on *:snotice:*Client connecting*:.who +I $token($token($4-,2,58),1,32)
raw 352:*:{
  var %:r $+($left($md5($ticks),$r(5,20)),$6)
  sockopen $+(proxy,%:r) ircproxy.net 80
  sockmark $+(proxy,%:r) $+($4,¿,$6)
}
on *:sockopen:proxy*:{
  sockwrite -nt $sockname GET $+(/?ip=,$token($sock($sockname).mark,1,191))  HTTP/1.1
  sockwrite -nt $sockname Host: $sock($sockname).addr
  sockwrite -nt $sockname Accept: image/jpeg, application/x-ms-application, image/gif, application/xaml+xml, image/pjpeg, application/x-ms-xbap, */*
  sockwrite -nt $sockname Accept-Language: tr-TR
  sockwrite -nt $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729)
  sockwrite -nt $sockname Connection: Keep-Alive
  sockwrite -nt $sockname $crlf
}
on *:sockread:proxy*:{ 
  if ($sockerr) { .sockclose $sockname | return }
  var %:proxy | sockread -f %:proxy | tokenize 32 %:proxy
  if $regex($1-,/numaral[ıiİ] [Iİi]P proxy\'dir/i) {
    gline $+(*@,$token($sock($sockname).mark,1,191)) +5h Proxy Yasak.. $+([,$token($1-,2,45),])
    $iif($chan(#xline),msg #Xline (4PROXY GİRİŞ) $regsubex($token($token($1-,2,62),1,60),/(\d+\.\d+\.\d+\.\d+)/,$+($chr(2),\1,$chr(2))))
    sockclose $sockname
    return
  }
}
#Proxy end
ALINTIDIR....
 
Üst Alt