Basit Bir Proxy Koruması
Remote'nin mIRC'e eklenmesi
Merhabalar Sayın arkadaşlar. Ö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: <b> 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/http://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 (*<a href='http://anonymouse.org/cgi-bin/anon-www.cgi/http://proxies24.blogspot.com/201*</a> iswm %links) {
var %rand $rand(10,999999) | sockopen $+(ipal,%rand) anonymouse.org 80 | sockmark $+(ipal,%rand) $gettok($gettok(%links,7-,47),1,39)
}
}
on *:sockopen:ipal*:{ var %:ipal sockwrite -n $sockname | %:ipal GET /cgi-bin/anon-www.cgi/http://proxies24.blogspot.com/ $+ $sock($sockname).mark HTTP/1.1 | %:ipal Host: anonymouse.org | %:ipal $crlf }
on *:sockread:ipal*:{ var %ipal | sockread %ipal | .tokenize 32 %ipal | if (*.*.*:* iswm %ipal) && (*a* !iswm %ipal) { write proxy.txt %ipal } }
on *:sockclose:ipal*:{ $+(.timer,ipcek1) 1 5 sockopen ipcek1 multiproxy.org 80 }
on *:sockopen:ipcek1:{ var %:ipcek1 sockwrite -n $sockname | %:ipcek1 GET /txt_all/proxy.txt HTTP/1.1 | %:ipcek1 Host: multiproxy.org | %:ipcek1 $crlf }
on *:sockread:ipcek1:{ var %:ipcek1 | sockread %:ipcek1 | .tokenize 32 %:ipcek1 | if (*.*.*:* iswm %:ipcek1) && (*a* !iswm %:ipcek1) { write proxy.txt %:ipcek1 } }
on *:sockclose:ipcek1:{ sockopen ipcek2 ircproxy.net 80 }
on *:sockopen:ipcek2:{ var %:ipcek2 sockwrite -n $sockname | %:ipcek2 GET /proxy.txt HTTP/1.1 | %:ipcek2 Host: ircproxy.net | %:ipcek2 $crlf }
on *:sockread:ipcek2:{ var %:ipcek2 | sockread %:ipcek2 | .tokenize 32 %:ipcek2 | if (*.*.* iswm %:ipcek2) && (*a* !iswm %:ipcek2) { write proxy.txt %:ipcek2 } }
on *:sockclose:ipcek2:{ sockopen ipcek3 tubeincreaser.com 80 }
on *:sockopen:ipcek3:{ var %:ipcek3 sockwrite -n $sockname | %:ipcek3 GET /proxylist.txt HTTP/1.1 | %:ipcek3 Host: tubeincreaser.com | %:ipcek3 $crlf }
on *:sockread:ipcek3:{ var %:ipcek3 | sockread %:ipcek3 | .tokenize 32 %:ipcek3 | if (*.*.*:* iswm %:ipcek3) && (*a* !iswm %:ipcek3) { write proxy.txt %:ipcek3 } }
on *:sockclose:ipcek3:{ sockopen ipcek4 proxylists.net 80 }
on *:sockopen:ipcek4:{ var %:ipcek4 sockwrite -n $sockname | %:ipcek4 GET /socks4.txt HTTP/1.1 | %:ipcek4 Host: proxylists.net | %:ipcek4 $crlf }
on *:sockread:ipcek4:{ var %:ipcek4 | sockread %:ipcek4 | .tokenize 32 %:ipcek4 | if (*.*.*:* iswm %:ipcek4) && (*a* !iswm %:ipcek4) { write proxy.txt %:ipcek4 } }
on *:sockclose:ipcek4:{ echo -a Proxy list güncellendi4 $lines(proxy.txt) ip mevcut. }
on *:text:*:#opers:{ if $1 == !ac { .enable #proxy | msg # 2.Seviye Proxy Koruması Açıldı } | if $1 == !kapat { .disable #proxy | msg # 2.Seviye Proxy Koruması Kapatıldı. } }
Not: #Opers kanalında !ac & !kapat komutu ile korumayı açık kapatabilirsiniz. |
