| IrCbaStarD | 28 Ağustos 2015 21:13 |
Proxy korumasi [Addon]
Kod:
on *:Start:$iif(!$file(pm.s),write -c pm.s) | hmake pm | hload pm pm.s
on *:sockopen:sorgu*:{
var %xs sockwrite -n $sockname
%xs GET $+(/proxy/api/sorgu.php?key=,%api.key,&ip=,$regsubex($sockname,(.+)\*(.+)\*(.+),\2)) HTTP/1.1
%xs Host: proje.ircdepo.tk
%xs Accept: image/jpeg, application/x-ms-application, image/gif, application/xaml+xml, image/pjpeg, application/x-ms-xbap, */*
%xs Accept-Language: tr-TR
%xs 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)
%xs Connection: Keep-Alive
%xs $crlf
}
on *:sockread:sorgu*:{
sockread &b | var %komut $bvar(&b,1,$bvar(&b,0)).text, %komut $replace($replace(%komut,$crlf,$chr(124)),||,^), %komut $gettok(%komut,2,$asc(^)), %komut $gettok(%komut,2,124)
if %komut = 1 {
gzline $regsubex($sockname,(.+)\*(.+)\*(.+),*@\2) - $sebep
$iif(!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]),window -zn @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
echo 3 -t @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] *** $qt(Nick: $regsubex($sockname,(.+)\*(.+)\*(.+),\3)) Proxy korumasından atilmistir, $qt(IP: $regsubex($sockname,(.+)\*(.+)\*(.+),\2))
sockclose $sockname
}
if %komut = 0 { p.tara2 $regsubex($sockname,(.+)\*(.+)\*(.+),\2) | sockclose $sockname }
}
on *:sockopen:t.proxy*:{
var %xs sockwrite -n $sockname
%xs GET $+(/proxy/?ip=,$sock($sockname).mark) HTTP/1.1
%xs Host: proje.ircdepo.tk
%xs Accept: image/jpeg, application/x-ms-application, image/gif, application/xaml+xml, image/pjpeg, application/x-ms-xbap, */*
%xs Accept-Language: tr-TR
%xs 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)
%xs Connection: Keep-Alive
%xs $crlf
}
on *:sockread:t.proxy*:{
var %s | sockread -f %s | if ($regex(%s,/<font color="red">/i)) {
gzline $+(*@,$sock($sockname).mark) - $sebep
$iif(!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]),window -zn @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
echo 4 -t @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] *** $qt(IP: $sock($sockname).mark) Proxy korumasından atilmistir [TARAMA]
}
}
alias p.tara2 { var %s $+(t.proxy~,$1) | $iif($sock(%s),sockclose $v1) | sockopen %s proje.ircdepo.tk 80 | sockmark %s $1 }
#Proxy off
on $*:snotice:/client\sconnecting.+[:]\s(.+)\x28.+@(.+)\x29/i:{
if $hfind(pm,$regml(2),1,W).data { p.m $regml(1) $regml(2) | return }
if $regex(s,$regml(2),\d+\.\d+\.\d+\.\d+) { p.tara $regml(2) $regml(1) }
else who +I $regml(1)
}
raw 352:*:if (!$hfind(pm,$4,1,W).data && !$regex($6,/(?:.+Serv|Global)/i)) { p.tara $4 $6 }
#Proxy end
alias p.m {
$iif(!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].Muaf),window -ze @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].Muaf)
echo 4 -t @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].muaf $qt(Nick: $1) $qt(IP: $2) Muaf listesinde.
}
alias p. hadd -m pm $md5($+($1,$ticks)) $1 | hsave pm pm.s | echo 3 -a *** $qt($1) Listeye eklenmiştir.
alias p.. echo 3 -a *** $qt($hget(pm,$1)) listeden silinmistir. | hdel -m pm $1 | hsave pm pm.s
alias muaf {
var %e echo 3 -a ***
if $1 = ekle {
if !$hfind(pm,$2,1,W).data { p. $2 }
else { %e Listede ekli durumda. }
}
if $1 = sil {
if $hfind(pm,$2,1,W).data { p.. $hfind(pm,$2,1,W).data }
else { %e Listede bulunmuyor }
}
if $1 = liste {
var %e2 echo 3 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-Muaf, %s 1, %f $hget(pm,0).item
if %f = 0 { %e Liste Boş Durumda. | return }
$iif(!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-Muaf),window -ze @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-Muaf)
%e2 *** Proxy Muaf Listesi.
%e2
while %s <= %f { %e2 $qt(IP: $hget(pm,%s).data) | inc %s }
%e2
%e2 *** Muaf listesi sonu.
}
}
alias p.tara {
var %s $+(Sorgu*,$1,*,$2) | $iif($sock(%s),sockclose $v1)
sockopen %s proje.ircdepo.tk 80
}
menu * {
.-
.Proxy Koruması
.-
..Api Key:set %api.key $$?"Siteden aldiniz API KEY Numarasini Yaziniz. $str($crlf,2) $+ $iif(%Api.key,Mevcut keyiniz: $v1,Api Keyiniz Bulunmuyor) $+ "
..-
..Proxy
...Durum $+($chr(40),$iif($group(#Proxy) = On,Acik,Kapali),$chr(41)):echo 3 -a *** Proxy Koruması $iif($group(#Proxy) = On,Acik,Kapali) Durumda.
...-
...Ac:.enable #Proxy | Echo 3 -a *** Proxy Koruması acilmistir.
...Kapat:.disable #Proxy | echo 3 -a *** Proxy korumasi kapatilmistir.
...-
.Proxy Muaf
..Proxy Muaf $+($chr(40),IP,$chr(32),$hget(pm,0).item,$chr(41)) :echo 3 -a *** Proxy muaf listesinde toplam $hget(pm,0).item IP adresi vardir.
..-
..Ekle:muaf ekle $$?" $+ $me Ip Adresi Giriniz. $str($crlf,2) $+ Wildcard kullanabilirsiniz. 78.21.* seklin de ekleme yapabilirsiniz."
..Sil:Muaf sil $$?"Silmek istediginiz IP adresini yaziniz."
..-
..Liste:Muaf liste
.-
.Proxy Tara:Who +I *
}
alias sebep return $me
Herkes botu sokmayacagi icin addon olarakda yazalim dedik. Addonu kullanmak icin ilk önce api key almalisiniz, elinizdeki mevcut keyide girebilirsiniz. Popups(Sağ tik menü)'de bütün ayarlarini yapabilirsiniz koruma ilk kapali olarak yüklenecektir, ayarlari girmelisiniz apikey ayarlari ayarlayip muaf ipler vs. korumayi aktif etmelisiniz. Suanda ban sebebi $me = Yani nickiniz olarak atiyor değiştirmek icin; Kod:
alias sebep return $me
Kod:
alias sebep return IRC.Bilmamne.ORG Security System
Düzenlemelisiniz. |
