| immortaL | 05 Şubat 2018 17:02 |
Proxy Koruması Güncel(Debug/Socket)
Özellikler:
Debug üzerinden çalışma.
Girişte @Network Penceresinde Giren Kişinin Bilgilerini Gösterme.
Belli sayıda yurtdışı girişi olduğunda Yurtdışı girişlerini banlama.
Karaliste *!*@* formatında ekleme
Muaf nick/IP ekleme
Siteden güncel proxy liste çekme(5 saatte bir olarak ayarlı)
Vpn girişlerini yasaklama
Nick ve ident aynı olanı banlama.
Komutlar:
!proxyip ekle/sil/list
!proxynick ekle/sil/list
!muafip ekle/sil/list
!muafnick ekle/sil/list
!karaliste ekle/sil/list
!korumaon
!korumaoff
!korumafullon
Örnek Ekleme:
- İdentinde ~ işareti ile başlayanlar giremesin
!karaliste ekle *!~*@*
- İdenti Mobil olan ve IP 177 ile başlayanlar giremesin
!karaliste ekle *!Mobil@177.*
- Alper nicki muaf olsun
!muafnick ekle Alper
- 177 ile başlayan ipler banlansın
!proxyip ekle 177.*
- Nl uzantılı hostlar giremesin
!proxyip ekle *.nl
- 78 ile başlayan ip ler muaf olsun
!muafip ekle 78.*
- Ekleme yapılmış olan dosyaları ekten indirip mirc klasörünün ana dizine attıktan sonra kullandığınız mirci kapatıp açtıktan sonra çalışacaktır. Kod:
on *:start:{ ykle | ykle1 | ykle2 | .connect_ aç | korumaontheircd | .proal_ | .timeral 0 18000 .proal_ }
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } }
alias ykle { $iif(!$isfile(proxip.hs),.write proxip.hs) | .hmake proxip 100 | .hload proxip proxip.hs }
alias ykle1 { $iif(!$isfile(krlst.hs),.write krlst.hs) | .hmake krlst 100 | .hload krlst krlst.hs }
alias ykle2 { $iif(!$isfile(prox.hs),.write prox.hs) | .hmake prox 100 | .hload prox prox.hs }
alias korumaontheircd { .set %prox on | .set %aynidnt off | .set %:yon off | .set %:vpn off | .set %:nrdn off }
alias korumaontheircdfull { .set %prox on | .set %aynidnt on | .set %:vpn on }
alias korumaoff { .set %prox off | .set %aynidnt off | .set %:vpn off | .set %:yon off }
alias proal_ {
if $hget(Proxy) { .hfree -sw Proxy }
var %::rand $r(1,999999)
sockopen $+(alpro,%::rand) www.socks24.org 80
$+(.timer,otoproxy) 1 40 guncelpro
}
alias guncelpro { echo -sat Proxy list güncellendi toplam4 $hget(Proxy,0).data }
alias connect_ {
if ($1 = aç) debug -i on connect_
if ($1 = kapat) debug off
tokenize 32 $1-
if $1 = <- && $3 = NOTICE {
if ($9 == connecting) && ($level($13) != muafnick) && ($level($remove($token($14,2,64),$chr(41))) != muafips) {
var %:r = $r(1,999999999999), %ip2 = $remove($token($14,2,64),$chr(41))
.sockopen $+(pro,%:r) www.ipaddresslocation.org 80 | sockmark $+(pro,%:r) $+($remove($token($14,2,64),$chr(41)),¿,$13)
if (%aynidnt = on) && ($13 === $right($gettok($14,1,64),-1)) { kill $13 7Nickiniz13&4Identiniz 8Aynıdır 9Değişiriniz %ver1 }
if (%prox == on) {
if $hget(proxy,%ip2) { kline $+(*@,%ip2) +0 2Sunucumuza 4Proxy/Tor/Socks/Wingate 2ile girmek yasak!! %ver1 }
elseif $hfind(prox,$13,1,W).data { kline $13 +0 8Yasaklı 7Nick 4Olarak 9Algılandınız. %ver1 }
elseif $hfind(proxip,%ip2,1,W).data { kline $+(*@,%ip2) +0 7Proxy 4Olarak 9Algılandınız. %ver1 }
elseif $hfind(krlst,$+($13,!,$remove($14,$chr(40),$chr(41))),1,W).data { kline $13 +0 7Sunucuya 4Girişiniz 9Yasaklanmıştır. 6! %ver1 }
}
}
}
}
on *:sockopen:pro*:{
sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,1,191)) HTTP/1.1
sockwrite -nt $sockname Host: www.ipaddresslocation.org
sockwrite -nt $sockname Connection: keep-alive
sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36
sockwrite -nt $sockname $crlf
}
on *:sockread:pro*:{
if ($sockerr) { .sockclose $sockname | return }
var %:pro | sockread -f %:pro
if (IP Country: isin %:pro) && (*Turkey* iswm $token($htmlfree(%:pro),2,58)) && (%:yon == on) {
.inc %:yici
if (%:yici >= 2) { .set %:yon off | .unset %:yici }
}
if (IP Country: isin %:pro) && (*Turkey* !iswm $token($htmlfree(%:pro),2,58) ) {
if (!$ulist($token($sock($sockname).mark,2,191),muafnick,1)) {
.inc -u3 %:yd?s?
if (%:yon == on) { kline $+(*@,$token($sock($sockname).mark,1,191)) +0 7Yurtdışı 4Girişi 9Yasaktır. 6! %ver1 }
elseif (%:yd?s? >= 7) { .set %:yon on | echo -at [ Yurt Dışı Girişi ] - Yurt Dışı Girişleri Kapatıldı. }
}
}
if (ISP Provider: isin %:pro) {
var %sglyc = $token($htmlfree(%:pro),2,58)
if (Virtua isin %sglyc) { kline $+(*@,$token($sock($sockname).mark,1,191)) +0 7Proxy 4Girişi 9Yasaktır. 6! %ver1 }
elseif (%:vpn == on) {
if (Services isin %sglyc) || (Ocean isin %sglyc) || (SG.GS isin %sglyc) || (SurfEasy isin %sglyc) || (ISPPro isin %sglyc) || (WorldStream isin %sglyc) || (SoftLayer isin %sglyc) || (OVH isin %sglyc) || (Liteserver isin %sglyc) {
kline $+(*@,$token($sock($sockname).mark,1,191)) +0 7Vpn 4Kullanımı 9Yasaktır. 6! %ver1
}
}
}
if (%:yon == off) && (%:nrdn == on) {
if (IP Country: isin %:pro) { .hadd -ms $token($sock($sockname).mark,2,191) Ülke $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) }
if (IP City: isin %:pro) { .hadd -ms $token($sock($sockname).mark,2,191) Sehir $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) }
if (ISP Provider: isin %:pro) {
var %:isp $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58))
var %:n $token($sock($sockname).mark,2,191), %ip $token($sock($sockname).mark,1,191), %ülke $hget(%:n,Ülke), %sehir $hget(%:n,Sehir)
window -e $+(@,Network,-,$token($server,2,46))
echo -t $+(@,Network,-,$token($server,2,46)) 2[ 4Giriş 2] *** Nick:4 %:n 3- IP:4 %ip 3- Ulke:4 %ülke 3- Sehir:4 %sehir 3- ISP:4 %:isp 3- Saat:4 $timestamp
.hfree -sw %:n
sockclose $sockname
}
}
}
on *:sockopen:alpro*:{
var %:proal sockwrite -n $sockname
%:proal GET / HTTP/1.1
%:proal Host: www.socks24.org
%:proal User-Agent: Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:48.0) Gecko/20100101 Firefox/48.0
%:proal Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
%:proal Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.5,en;q=0.3
%:proal Connection: keep-alive
%:proal $crlf + $crlf
}
on *:sockread:alpro*:{
var %proal
sockread %proal
if (*timestamp-link*.html* iswm %proal) {
var %rand $rand(10,999999)
.sockopen $+(hpsproal,%rand) www.socks24.org 80
.sockmark $+(hpsproal,%rand) $token($token(%proal,3-,47),1,39)
}
}
on *:sockopen:hpsproal*:{ var %:proalhps sockwrite -n $sockname | %:proalhps GET / $+ $sock($sockname).mark HTTP/1.1 | %:proalhps Host: www.socks24.org | %:proalhps $crlf + $crlf }
on *:sockread:hpsproal*:{ var %proalhps | sockread %proalhps | if $regex(%proalhps,(\d+\.\d+\.\d+\.\d+)) { .hadd -m Proxy $regml(1) IP } }
on *:input:*:{
if $regex($1,/^[!\.]korumaon$/Si) { .korumaontheircd | echo -sat Koruma Açık }
if $regex($1,/^[!\.]korumaoff$/Si) { .korumaoff | echo -sat Koruma Kapalı }
if $regex($1,/^[!\.]korumafullon$/Si) { .korumaontheircdfull | echo -sat Koruma Full Açık }
if $regex($1,/^[!\.]pr[oO]xyn[ıiİ][cçÇ]k$/Si) {
if $regex($2,/^ekle$/Si) {
if (!$3) { .timer -h 1 500 msg # Lütfen nick belirtiniz | return }
if $hfind(prox,$strip($3),0,W).data { .timer -h 1 500 msg # $qt($nick) Eklemek istediğiniz Nick Zaten Listede mevcut $+([,$chr(32),$hget(prox,$hfind(prox,$strip($3),1,W).data),$chr(32),]) Eslesen Veri. | return }
var %n = $left($calc($ctime * $rand(1000,9999)),7)
.hadd -m prox %n $strip($3)
.hsave -o prox prox.hs
.timer -h 1 500 msg # Proxy Listesine Eklenen Kayıt: $strip($3)
}
if $regex($2,/^s[ıiİ]l$/Si) {
if (!$3) { .timer -h 1 500 msg # $qt($nick) Lütfen Nick belirtin | return }
if !$hfind(prox,$strip($3),0,W).data { .timer -h 1 500 msg # $strip($3) Proxy Nick Listesinde Bulunmamaktadır. | return }
.hdel -m prox $hfind(prox,$strip($3),1,W).data
.hsave -o prox prox.hs
.timer -h 1 500 msg # Proxy Listesinden Silinen Kayıt: $strip($3)
}
if $regex($2,/^l[ıiİ]st$/Si) {
if ($hget(prox,0).data == 0) { .timer -h 1 500 msg # Proxy Nick Listesi bos. | return }
.timer -h 1 500 msg # -
var %:ya = 1 | while (%:ya <= $hget(prox,0).data) { .timer -h 1 500 msg # %:ya $+ ) [ $hget(prox,%:ya).data ] | inc %:ya }
.timer -h 1 500 msg # -
}
}
if $regex($1,/^[!\.]pr[oO]xy[ıiİ]p$/Si) {
if $regex($2,/^ekle$/Si) {
if (!$3) { .timer -h 1 500 msg # Lütfen IP belirtin | return }
if $hfind(proxip,$strip($3),0,W).data { .timer -h 1 500 msg # $qt($nick) Eklemek istediğiniz IP Zaten Listede mevcut $+([,$chr(32),$hget(proxip,$hfind(proxip,$strip($3),1,W).data),$chr(32),]) Eslesen Veri.. | return }
var %:r = $left($calc($ctime * $rand(1000,9999)),7)
.hadd -m proxip %:r $strip($3)
.hsave -o proxip proxip.hs
.timer -h 1 500 msg # Proxy IP Listesine Eklenen Kayıt: $strip($3)
}
if $regex($2,/^s[ıiİ]l$/Si) {
if (!$3) { .timer -h 1 500 msg # Lütfen IP belirtin | return }
if !$hfind(proxip,$strip($3),0,W).data { .timer -h 1 500 msg # $strip($3) Proxy IP Listesinde Bulunmamaktadır. | return }
.hdel -m proxip $hfind(proxip,$strip($3),1,W).data
.hsave -o proxip proxip.hs
.timer -h 1 500 msg # Proxy IP Listesinden Silinen Kayıt: $strip($3)
}
if $regex($2,/^l[ıiİ]st$/Si) {
if ($hget(proxip,0).data == 0) { .timer -h 1 500 msg # Proxy IP Listesi bos. | return }
.timer -h 1 500 msg # -
var %:g = 1 | while (%:g <= $hget(proxip,0).data) { .timer -h 1 500 msg # %:g $+ ) [ $hget(proxip,%:g).data ] | inc %:g }
.timer -h 1 500 msg # -
}
}
if $regex($1,/^[!\.]m[uU]afn[ıiİ][cçÇ]k$/Si) {
if $2 == list {
.timer -h 1 500 msg $chan listeleniyor.
var %:mnck = 1, %mnc = $ulist(*,muafnick,0)
.timer -h 1 500 msg $chan - Toplam Muaf Nick Sayısı:4 %mnc
while %:mnck <= %mnc {
.timer -h 1 500 msg $chan $+(%:mnck,$chr(41)) $iif($ulist(*,muafnick,%:mnck) == $nick,$+(,$v1,),$v1)
inc %:mnck 1
}
}
if $2 == ekle {
if $3 == $null { .timer -h 1 500 msg $chan $+(",$nick,") Lütfen eklenecek nicki yazınız | return }
if $ulist($3,muafnick,1) { .timer -h 1 500 msg $chan $+(",$nick,") Belirtiginiz kritere uyan $+(",,$3,,") zaten mevcut | return }
.auser muafnick $3-
.timer -h 1 500 msg $chan $+(",,$3,,") Muaf Nick Listesine Eklendi
}
if $2 == sil {
if $3 == $null { .timer -h 1 500 msg $chan $+(",$nick,") Lütfen silinecek Nicki Yazınız | return }
.ruser muafnick $3- | .timer -h 1 500 msg $chan $+(",,$3,,") Muaf nick Listesinden Silindi
}
}
if $regex($1,/^[!\.]m[uU]af[ıiİ]p$/Si) {
if $2 == list {
.timer -h 1 500 msg $chan listeleniyor.
var %:mips = 1, %mip = $ulist(*,muafips,0)
.timer -h 1 500 msg $chan - Toplam Muaf IP Sayısı:4 %mip
while %:mips <= %mip {
.timer -h 1 500 msg $chan $+(%:mips,$chr(41)) $iif($ulist(*,muafips,%:mips) == $nick,$+(,$v1,),$v1)
inc %:mips 1
}
}
if $2 == ekle {
if $3 == $null { .timer -h 1 500 msg $chan $+(",$nick,") Lütfen eklenecek IP - HOST yazınız | return }
if $ulist($3,muafips,1) { .timer -h 1 500 msg $chan $+(",$nick,") Belirtiginiz kritere uyan $+(",,$3,,") zaten mevcut | return }
.auser muafips $3-
.timer -h 1 500 msg $chan $+(",,$3,,") Muaf IP Listesine Eklendi
}
if $2 == sil {
if $3 == $null { .timer -h 1 500 msg $chan $+(",$nick,") Lütfen silinecek IP - HOST Yazınız | return }
.ruser muafips $3- | .timer -h 1 500 msg $chan $+(",,$3,,") Muaf IP Listesinden Silindi
}
}
if $regex($1,/^[!\.]karal[ıiİ]ste$/Si) {
if (!$2) { .timer -h 1 500 msg # Kullanımı: !karaliste ekle/sil/list | return }
if $regex($2,/^ekle$/Si) {
if (!$3) { .timer -h 1 500 msg # Lütfen FullAdres belirtiniz | return }
if $hfind(krlst,$strip($3),0,W).data { .timer -h 1 500 msg # $qt($nick) Eklemek istediğiniz Zaten KaraListede mevcut $+([,$chr(32),$hget(krlst,$hfind(krlst,$strip($3),1,W).data),$chr(32),]) Eslesen Veri. | return }
var %n1 = $left($calc($ctime * $rand(1000,9999)),7)
.hadd -m krlst %n1 $strip($3)
.hsave -o krlst krlst.hs
.timer -h 1 500 msg # KaraListeye Eklenen Kayıt: $strip($3)
}
if $regex($2,/^s[ıiİ]l$/Si) {
if (!$3) { .timer -h 1 500 msg # $qt($nick) Lütfen Nick belirtin | return }
if !$hfind(krlst,$strip($3),0,W).data { .timer -h 1 500 msg # $strip($3) KaraListede Bulunmamaktadır. | return }
.hdel -m krlst $hfind(krlst,$strip($3),1,W).data
.hsave -o krlst krlst.hs
.timer -h 1 500 msg # KaraListeden Silinen Kayıt: $strip($3)
}
if $regex($2,/^l[ıiİ]st$/Si) {
if ($hget(krlst,0).data == 0) { .timer -h 1 500 msg # KaraListe bos. | return }
.timer -h 1 500 msg # -
var %:ya = 1 | while (%:ya <= $hget(krlst,0).data) { .timer -h 1 500 msg # %:ya $+ ) [ $hget(krlst,%:ya).data ] | inc %:ya }
.timer -h 1 500 msg # -
}
}
}
|
