| Ottoman |
25 Haziran 2021 23:16 |
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(@pRoXy),window -zn @pRoXy)
echo 3 -t @pRoXy *** $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,//i)) {
gzline $+(*@,$sock($sockname).mark) - $sebep
$iif(!$window(@pRoXy),window -zn @pRoXy)
echo 4 -t @pRoXy *** $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(@pRoXy.Muaf),window -ze @pRoXy.Muaf)
echo 4 -t @pRoXy.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 @pRoXy-Muaf, %s 1, %f $hget(pm,0).item
if %f = 0 { %e Liste Boş Durumda. | return }
$iif(!$window(@pRoXy-Muaf),window -ze @pRoXy-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
Kod ; IrCbaStarD Aittir. |
