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/)
-   -   Basit Bir Proxy Koruması (https://www.ircforumu.net/hazir-kodlar/5352-basit-bir-proxy-korumasi.html)

immortaL 27 Mart 2017 12:42

Basit Bir Proxy Koruması
 
Remote'nin mIRC'e eklenmesi

Öncelikle mIRC scripting'inizde Alt+R kombinasyonuna basarak mIRC Remote kısmını acınız.

Boş bir satıra aşağıdaki Kodları Ekleyiniz.

Eğer ayrı bir remote olarak eklemek istiyorsanız :

//run $mircdir

Komutu ile mIRC'inizin ana dizinini açınız ve orda yeni bir .txt oluşturunuz.
oluşturdunuğunuz txt içerisine aşağıdaki Code'i ekleyiniz.

Kod:

#####Proxy Koruması ßy Proxy##########

on *:start:ipal | $+(.timer,ipal) 0 5000 /ipal
#proxy off
alias proxy_ { if ($1) { inc %_ | sockopen $+(proxy*,%_) www.simpleproxylist.com 80 | sockmark $+(proxy*,%_) $1 } }
on *:sockopen:proxy*:{ var %s sockwrite -n $sockname | %s GET /info.php?ip= $+ $sock($sockname).mark HTTP/1.1 | %s Host: www.simpleproxylist.com | %s $crlf }
on *:sockread:proxy*:{ var %v | sockread $htmlfree(%v) | .tokenize 32 $htmlfree(%v) | if (Proxy: isin %v) { gzline $+(*@,$sock($sockname).mark) 1h 1IP adresinizde 4PROXY 1girişi tespit edilmiştir. 1mIRC7Turk7System4™ } }
on *:snotice:*on*port*: { .who +I $9 }
on *:snotice:*changed his/her nickname*:{ .who +I $11 }
raw 352:*:{
  if $read(proxy.txt,w,$+(*,$4,*)) { gzline $+(*@,$4) +1h 1IP adresinizde 4PROXY 1girişi tespit edilmiştir. | return }
  ptara $4
  proxy_ $4
}
alias htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%x), %x = $remove(%x, )
  return %x
}
alias ptara {
  var %f = $gettok($1-,1,46),%f2 = $gettok($1-,1-2,46),%ip = $1,%l = $gettok($1-,$numtok($1-,46),46),%n = $2
  if $regex(%ip,/(\d+\.\d+\.\d+\.\d+)) {
    if $regex(%f,/(78|88|85|95|81)) { goto end }
    if $regex(%f2,/(84\.(154|26|13)|190\.(184|43|131|208|166|80|207)|193\.3|216\.(6|152)|62\.(120|217|248|29)|194\.(208|27|154)|217\.(17|131|64)|195\.(87|42|17(4|5))|94\.(79|54|78|96|98|99|242|100)|195\.214|213\.(236|161|211|21|14|153|194|43|204|248|14|43|38|14|248|159|153|204)|212\.(62|38|77|29|213|58|12|33|45|48|50|58|64|98|133|2|33|253|64|2|238|146|17(4|5)|33)|62\.29|144\.122|217\.164|195\.(33|142|4|74|244|17(4|5))|217\.131|195\.214|82\.(223|209|71|115)|62\.248|193\.140|94\.12(2|0|3|1|4))) { goto end }
    if $regex(%f2,/(76\.14|149\.254|92\.45|78\.27|121\.210|90\.148|41\.(208|250|233|201|209)|201\.(244|210)|91\.(191|112|177|176|180|140)|89\.(241|5|148|252|146|211)|87\.(109|101)|79\.(141|85|123|172|114))) { goto end }
    if $regex(%f2,/(82\.(145|101|211)|94\.97|64\.55|62\.74|93\.(88|91|182)|86\.(121|91|99|108)|83\.(93|228|238|149|66)|62\.(29|85|108|113|248)|139\.179|80\.(120|241|210|69|86|63|71|78)|144\.122|155\.233|160\.75|161\.9|168\.139|193\.(140|192|243|255)|194\.(27|54)|195\.(33|46|64|74|87|112|142|155|174|214|244|254)|212\.(2|12|15|29|31|33|45|48|50|57|58|64|65|79|98|101|108|109|115|125|127|133|146|154|156|174|252)|213\.(14|43|74|138|139|148|153|159|161|186|194|202|204|232|238|243|248|254|31|131|169|174|195))) { goto end }
    gzline $+(*@,%ip) - 2Sunucumuza proxy/tor/socks/wingate ile girmek yasak!
  }
  :end
}
#proxy end

menu channel,menubar {
  » Proxy Koruması
  .» Proxy Koruması Aç:.enable #proxy | echo -a « 2.Seviye Proxy Koruması Acılmışdır. »
  .-
  .» Proxy Koruması Kapat:.disable #proxy | echo -a « 2.Seviye Proxy Koruması Kapatıldı. »
}
alias ipal { .remove proxy.txt | sockclose links | sockopen links anonymouse.org 80 }
on *:sockopen:links:{ var %:links sockwrite -n $sockname | %:links GET /cgi-bin/anon-www.cgi/https://proxies24.blogspot.com/ HTTP/1.1 | %:links Host: anonymouse.org | %:links $crlf }
on *:sockread:links:{
  var %links | sockread %links | .tokenize 32 %links
  if (*#more* iswm %links) { return }
  if (*