Çevrimdışı

Toprak öncelikle tşk. ederim.
muaf eklemek istedigimiz kodun tamamı bu.
Alias'a nasıl bi ekleme yapmalıyız ki muaf ip ekleyebilelim?
yani alias kısmına eklememiz gereken komut nedir acaba onu bilmiyoruz

menu * {
.-
.Proxy Koruması
.-
..-
..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 *
}

#Proxy off
on *:snotice:*Client connecting*:.who +I $token($token($4-,2,58),1,32)
raw 352:*:{
var %:r $+($left($md5($ticks),$r(5,20)),$6)
sockopen $+(proxy,%:r) toprak.xyz 80
sockmark $+(proxy,%:r) $+($4,¿,$6)
}
on *:sockopen:proxy*:{
sockwrite -nt $sockname GET $+(/?ip=,$token($sock($sockname).mark,1,191)) HTTP/1.1
sockwrite -nt $sockname Host: $sock($sockname).addr
sockwrite -nt $sockname Accept: image/jpeg, application/x-ms-application, image/gif, application/xaml+xml, image/pjpeg, application/x-ms-xbap, */*
sockwrite -nt $sockname Accept-Language: tr-TR
sockwrite -nt $sockname 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)
sockwrite -nt $sockname Connection: Keep-Alive
sockwrite -nt $sockname $crlf
}
on *:sockread:proxy*:{
if ($sockerr) { .sockclose $sockname | return }
var %:proxy | sockread -f %:proxy | tokenize 32 %:proxy
if $regex($1-,/numaral[ıiİ] [Iİi]P proxy\'dir/i) {
gline $+(*@,$token($sock($sockname).mark,1,191)) +5h Proxy Yasak.. $+([,$token($1-,2,45),])
$iif($chan(#BotKontrol),msg #BotKontrol (4PROXY GİRİŞ) $regsubex($token($token($1-,2,62),1,60),/(\d+\.\d+\.\d+\.\d+)/,$+($chr(2),\1,$chr(2))))
sockclose $sockname
return
}
}
#Proxy end