yazınız.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias -l api_key { return KAYITSIZ }
alias -l sunucu { return irc.local.org }
alias -l sebep { return Get Out }
alias -l mesaj { return local }
alias proxyservices { sockopen proxybotu 91.151.93.216 3222 }
alias proxyKontrol $iif($sock($+(proxybotu)).status == active,sockwrite -nt $+(proxybotu) $1-)
alias muaf {
$iif(!$hget(muafnick),.hmake muafnick) | $iif(!$hget(muafport),.hmake muafport) | $iif(!$hget(muafident),.hmake muafident) | $iif(!$hget(muafip),.hmake muafip) | $iif(!$hget(PROXYDATA),.hmake PROXYDATA)
if !$istok(nick port ident ip ,$1,32) || !$istok(ekle sil liste tara ,$2,32) { echo -t * 2Yetersiz parametre. Geçerli bir işlem giriniz. Örn; | echo -t * 4muaf nick/port/ident/ip ekle/sil EKLENECEK_SORGU 2Belirlenen EKLENECEK_SORGU için muaf ekler / siler. | echo -t * 4muaf nick ekle KULLANICI_NICKI 2KULLANICI_NICKI'ne muaf ekledi. | echo -t * 4muaf ident liste 2Muaf eklenen identleri sunar. }
elseif $2 == ekle { if !$3 { echo -t * 2Eklenecek sorguyu giriniz. | return } | elseif $3 { if $hget(muaf $+ $1,$strip($3)) { echo -t * 2 Eklemeye çalıştığınız sorgu zaten ekli. | return } | .hadd muaf $+ $1 $strip($3) $me $date $+ - $+ $time | .hsave -o muaf $+ $1 muaf $+ $1 $+ .bf | echo -t * 2 Sorgu başarıyla eklendi. } }
elseif $2 == sil { if !$3 { echo -t * 2Silinecek sorguyu giriniz. | return } | elseif $3 { if !$hget(muaf $+ $1,$strip($3)) { echo -t * 2 Eklemeye çalıştığınız sorgu zaten ekli değil. | return } | hdel muaf $+ $1 $strip($3) | .hsave -o muaf $+ $1 muaf $+ $1 $+ .bf | echo -t * 2 Sorgu başarıyla silindi. } }
elseif $2 == liste { if $hget(muaf $+ $1,0).data == 0 { echo -t * 2 Bu sorguda sonuç yok. | return } | var %i 1 | while %i <= $hget(muaf $+ $1,0).data { if ($hget(muaf $+ $1,%i).data) { echo -t * SORGU: $+([4,$replace($hget(muaf $+ $1,%i).item,ö,ö),2,]) Ekleyen: $+([4,$gettok($hget(muaf $+ $1,%i).data,1,32),2,]) Tarih: $+([4,$gettok($hget(muaf $+ $1,%i).data,2,32),2,]) } | inc %i } }
}
on *:start:{ $iif(!$hget(muafnick),.hmake muafnick) | $iif(!$hget(muafport),.hmake muafport) | $iif(!$hget(muafident),.hmake muafident) | $iif(!$hget(muafip),.hmake muafip) | $iif(!$hget(PROXYDATA),.hmake PROXYDATA) | if $isfile(muafnick.BF) { hload muafnick muafnick.BF } | if $isfile(muafport.BF) { hload muafport muafport.BF } | if $isfile(muafident.BF) { hload muafident muafident.BF } | if $isfile(muafip.BF) { hload muafip muafip.BF } | if $isfile(PROXYDATA.BF) { hload PROXYDATA PROXYDATA.BF } }
on *:snotice:*:{ if $regex($1-,/Client connecting (on port|at) (.+)\: (.+) \((.+)@(.+)\)/Si) { var %_port = $regml(2), %_nick $regml(3), %_ident $regml(4), %_ip $regml(5) | if $hget(muafport,%_port) { return } | elseif $hget(muafnick,%_nick) { return } | elseif $ip == %_ip { return } | elseif $hget(muafident,%_ident) { return } | elseif $hget(muafip,%_ip) { return } | else { who +I %_nick } } }
on *:sockclose:proxybotu:{ $iif(!%b,.timer 1 2 sockopen proxybotu 91.151.93.216 3222) }
on *:sockopen:proxybotu:{ if ($sockerr) { .timer 1 2 sockopen proxybotu 91.151.93.216 3222 } }
on *:sockread:proxybotu:{
var %a | sockread -f %a | tokenize 32 %a
if $regex($1,/\d+\.\d+\.\d+\.\d+/Si) { gzline $+(*@,$1) +2h $sebep | $iif($chr(35) !isin $mesaj,echo 10 -tn *,msg $mesaj) Proxy Algılandı: $+(2,$1, 10Nick: 2,$2) | .hadd PROXYDATA $1 1 | .hsave -o PROXYDATA PROXYDATA.bf }
elseif 01 == $1 { proxyKontrol API $api_key }
elseif 02 == $1 { echo 3 -tn * Bağlantı oluşturuldu, lütfen bekleyin.. | echo 3 -tn * API kontrol edilecek.. }
elseif 03 == $1 { echo 4 -tn * Tanımlanmamış API | set -u5 %b 1 }
elseif 04 == $1 { echo 5 -tn * Kayıtsız API kullanmaktasınız. Günlük $2 proxy kontrolü yapabilirsiniz. Sınırsız kontrol için, https://services.mircsystem.com adresinden API alın. }
elseif 05 == $1 { echo 5 -tn * API onaylandı. }
elseif 07 == $1 { echo 4 -tn * Erişiminiz engellendi. | set -u5 %b 1 }
elseif 08 == $1 { echo 4 -tn * Bir şeyler ters gitti. Lütfen sistem yöneticisine bildirin: $2- | set -u5 %b 1 }
elseif 09 == $1 { echo 4 -tn * BAGLANTI YENILENIYOR | .timer 1 3 proxyservices | sockclose proxybotu* }
elseif 10 == $1 { echo 4 -tn * $2- | set -u5 %b 1 }
elseif N == $1 { proxyKontrol 1 }
}
raw 352:*:{ if $hget(PROXYDATA,$4) { gzline $+(*@,$4) +2h PROXY GIRISLERI YASAK } | else { if $ip != $4 { proxyKontrol $4 $6 } } }