API tools faq
paste
Advertisement
SaNCaK

miRC Proxy Koruma

SaNCaK
Feb 5th, 2023
4,298
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 6.49 KB | None | 0 0
raw download clone embed print report
  1. menu channel,status,menubar,query {
  2.   -
  3.   $iif(o !isincs $usermode,$style(2)) Oper
  4.   .$iif(%Proxy,$style(1)) Proxy Koruma ( $+ $iif(%Proxy,On,Off) $+ ) {
  5.     if (%Proxy) { unset %Proxy | .disable #Proxy | echo -ta 15,1 -4=7^14,1 S15,1a0NC14,1a0,1K 7,1^4=15- 0,1 Proxy Koruma  00,14 KAPALI  }
  6.     else { set %Proxy on | .enable #Proxy | echo -ta 15,1 -4=7^14,1 S15,1a0NC14,1a0,1K 7,1^4=15- 0,1 Proxy Koruma  00,03 AÇILDI  }
  7.   }
  8.   .Proxy Güncelle:_al
  9. }
  10. on *:start:if $isfile(txt/Proxy.hash) { .hmake Proxy | .hload Proxy txt/Proxy.hash }
  11.  
  12. #Proxy off
  13. on *:snotice:*Client connecting*:/.who +I $token($token($4-,2,58),1,32)
  14. raw 352:*:{
  15.   var %:r $+($left($md5($ticks),$r(5,20)),$6)
  16.   if $hget(Proxy,$4) { gline $+(*@,$4) +5h Proxy Yasak.. $+([,Hash,]) | echo -tsa 15,1 -4=7^14,1 S15,1a0NC14,1a0,1K 7,1^4=15-  [2,0 PROXY ] Nick:2 $6 - IP:2 $4  }
  17.   else { sockopen $+(proxy,%:r) proxysorgula.net 80 | sockmark $+(proxy,%:r) $+($4,¿,$6) }
  18. }
  19. on *:sockopen:proxy*:{
  20.   if ($sockerr) { .sockclose $sockname | return }
  21.   sockwrite -nt $sockname GET $+(/?ip=,$token($sock($sockname).mark,1,191)) HTTP/1.1
  22.   sockwrite -nt $sockname Host: $sock($sockname).addr
  23.   sockwrite -nt $sockname Accept: image/jpeg, application/x-ms-application, image/gif, application/xaml+xml, image/pjpeg, application/x-ms-xbap, */*
  24.   sockwrite -nt $sockname Accept-Language: tr-TR
  25.   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)
  26.   sockwrite -nt $sockname Connection: Keep-Alive
  27.   sockwrite -nt $sockname $crlf
  28. }
  29. on *:sockread:proxy*:{  
  30.   if ($sockerr) { .sockclose $sockname | return }
  31.   var %:proxy | sockread -f %:proxy | tokenize 32 %:proxy
  32.   if $regex($1-,/numaral[ıiİ] [Iİi]P proxy\'dir/i) {
  33.     gzline $+(*@,$token($sock($sockname).mark,1,191)) +5h Proxy Yasak.. $+([,$token($1-,2,45),])
  34.     msg #sancak [4 PROXY ] 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)) - Tipi:2 $token($1-,2,45)
  35.     echo -ast [4 PROXY ] 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)) - Tipi:2 $token($1-,2,45)
  36.  
  37.     sockclose $sockname
  38.   }
  39. }
  40. #Proxy end
  41. alias _güncel { echo -ast 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 txt/Proxy.hash }
  42. alias _ekle { .hadd -ms Proxy $1 Proxy }
  43. alias _al {
  44.   var %:rand $md5($ticks) | inc %:cek
  45.   if (%:cek == 1) { sockopen $+(_proxy-1,%:rand) www.proxyserverlist24.top 80 | $+(.timer,_cekkanka) 1 50 _al }
  46.   elseif (%:cek == 2) { sockopen $+(_proxy-1,%:rand) www.socks24.org 80 | $+(.timer,_cekkanka) 1 50 _al }
  47.   elseif (%:cek == 3) { sockopen $+(_proxy-1,%:rand) socks5online.blogspot.com 80 | $+(.timer,_cekkanka) 1 50 _al }
  48.   elseif (%:cek == 4) { sockopen $+(_proxy-1,%:rand) socksv9.blogspot.com 80 | $+(.timer,_cekkanka) 1 50 _al }
  49.   elseif (%:cek == 5) { sockopen $+(_proxy-1,%:rand) proxy-heaven.blogspot.com 80 | $+(.timer,_cekkanka) 1 50 _al }
  50.   elseif (%:cek == 6) { sockopen $+(_proxy-1,%:rand) multiproxy.org 80 | sockmark $+(_proxy-1,%:rand) /txt_all/proxy.txt | $+(.timer,_cekkanka) 1 50 _al }
  51.   elseif (%:cek == 7) { sockopen $+(_proxy-1,%:rand) www.gatherproxy.com 80 | sockmark $+(_proxy-1,%:rand) /proxylistbycountry | $+(.timer,_cekkanka) 1 50 _al }
  52.   elseif (%:cek == 8) { sockopen $+(_proxy-1,%:rand) www.live-socks.net 80 | $+(.timer,_cekkanka) 1 50 _al }
  53.   elseif (%:cek == 9) { sockopen $+(_proxy-1,%:rand) www.freshnewproxies24.top 80 | $+(.timer,_cekkanka) 1 50 _al }
  54.   elseif (%:cek == 10) { sockopen $+(_proxy-1,%:rand) socks5-proxy-list.blogspot.com 80 | $+(.timer,_cekkanka) 1 50 _al }
  55.   elseif (%:cek == 11) { sockopen $+(_proxy-1,%:rand) www.proxylistdaily.net 80 | $+(.timer,_cekkanka) 1 50 _al }
  56.   else { _güncel }
  57. }
  58. on *:sockopen:_proxy-1*:{
  59.   if ($sockerr) { .sockclose $sockname | return }
  60.   sockwrite -nt $sockname GET $iif($sock($sockname).mark,$sock($sockname).mark,/)   HTTP/1.1
  61.   sockwrite -nt $sockname Host: $sock($sockname).addr
  62.   sockwrite -nt $sockname Accept: image/jpeg, application/x-ms-application, image/gif, application/xaml+xml, image/pjpeg, application/x-ms-xbap, */*
  63.   sockwrite -nt $sockname Accept-Language: tr-TR
  64.   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)
  65.   sockwrite -nt $sockname Connection: Keep-Alive
  66.   sockwrite -nt $sockname $crlf
  67. }
  68. on *:sockread:_proxy-1*:{
  69.   if ($sockerr) { .sockclose $sockname | return }
  70.   var %:_proxy1 | sockread -f %:_proxy1 | tokenize 32 %:_proxy1
  71.   if (*timestamp-link*.html* iswm $1-) { _proxyal1 $sock($sockname).addr $+(/,$token($token($1-,4,39),3-,47)) }
  72.   elseif $regex($1-,/href=\"\/proxylist\/country/Si) { _proxyal1 $sock($sockname).addr $+(/,$token($token($1-,2-,47),1,34)) }
  73.   elseif (*<a href="http://www.proxylistdaily.net/p/*">* iswm $1-) { _proxyal1 $sock($sockname).addr $+(/,$token($token($1-,2,34),3-,47)) }
  74.   elseif $regex($1-,/(\d+\.\d+\.\d+\.\d+)/Si) { _ekle $regml(1) }
  75. }
  76. alias _proxyal1 { var %:rand $+($r(100,9999999),$md5($ticks),$r(1000,999999999)) | sockopen $+(_proxyal1,%:rand) $1 80 | sockmark $+(_proxyal1,%:rand) $2 }
  77. on *:sockopen:_proxyal1*:{
  78.   if ($sockerr) { .sockclose $sockname | return }
  79.   sockwrite -nt $sockname GET $iif($sock($sockname).mark,$sock($sockname).mark,/)   HTTP/1.1
  80.   sockwrite -nt $sockname Host: $sock($sockname).addr
  81.   sockwrite -nt $sockname Accept: image/jpeg, application/x-ms-application, image/gif, application/xaml+xml, image/pjpeg, application/x-ms-xbap, */*
  82.   sockwrite -nt $sockname Accept-Language: tr-TR
  83.   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)
  84.   sockwrite -nt $sockname Connection: Keep-Alive
  85.   sockwrite -nt $sockname $crlf
  86. }
  87. on *:sockread:_proxyal1*:{
  88.   if ($sockerr) { .sockclose $sockname | return }
  89.   var %:_proxyal1 | sockread -f %:_proxyal1 | tokenize 32 %:_proxyal1
  90.   if $regex($1-,/(\d+\.\d+\.\d+\.\d+)/Si) { _ekle $regml(1) }
  91. }
Tags: Kod mirc irc
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!