Sohbet muhabbet sohbet, sohbet odası
Sohbet, Sohbet Odası Okey Oyna
mircx mircx

Proxy koruma 2020

[mIRCX] Konu Bilgileri

Konu Hakkında Merhaba, tarihinde mIRC Scripting Hazır Kodlar kategorisinde admin tarafından oluşturulan Proxy koruma 2020 başlıklı konuyu okuyorsunuz. Bu konu şimdiye dek 337 kez görüntülenmiş, 0 yorum ve 0 tepki puanı almıştır...
Kategori Adı mIRC Scripting Hazır Kodlar
Konu Başlığı Proxy koruma 2020
Konbuyu başlatan admin
Başlangıç tarihi
Cevaplar
Görüntüleme
İlk mesaj tepki puanı
Son Mesaj Yazan admin

admin

Mustafa Kemal ATATÜRK
Administrator
Katılım
16 Kas 2019
Mesajlar
506
Tepkime puanı
0
Puanları
16
Konum
public_html
Cinsiyet
Erkek
İlgi Alanı
Xenforo
IRC
irc.superalem.org

İ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