Hazır Kod Mobil web ban yasaklama #Baglanti kanali icin

alias taraport return 7003|7033|   ( Burda taramak istedigi portlari yazin )
on *:text:*:#bağlantı*:{
if $regex($1-,/ $+ $taraport $+ /i) {
var %ipsweb = $gettok($left($right($10,-1),-1),2,64),%:wnick = $remove($6,,14, ,)
ctcp %:wnick version
}
}
on *:ctcpreply:*version*: {
if $regex($2-,qwebirc v1.2) {
var %:uid $token($1-,-1,32)
if $hget(webban,%:uid) || $hget(mobilban,%:uid) {
msg #zz 0,4 UYARI 4 : $nick 1Yasaklı giriş yaptığı tespit edildi. - 4Tür: 1Mobil Ban 4Yasak Sıra No:1 %:uid $+ 
gline $nick 0 0,12 * 1 Girişiniz 12Yöneticiler1 tarafından yasaklanmıştır1.
return
}
echo -s $15
if *Windows* iswm $15 { msg #zz 1[12Web Giriş1] - Nick:12 $nick 1Tarayıcı:12 $iif(*KHTML* iswm $18,$21,$iif(like = $18,Opera/11.748.47,$iif(*Gecko* iswm $18,Mozilla/8.4781.254,$18))) 1İşletim Sistemi:12 Windows $iif(10 isin $remove($token($11,1,46),;),$remove($token($11,1,46),;),7) 1Cihaz:12 Bilgisayar 1UID:12 %:uid }
elseif *Linux* iswm $15 || *iphone* iswm $15 {
msg #zz 1[10Mobil Giriş1] - Nick:10 $nick 1Tarayıcı:10 $iif($left($17,-1) = X,$18,$iif(*KHTML* iswm $17,$20,$iif(like = $17,Opera/11.748.47,$iif(*Gecko* iswm $17,Mozilla/8.4781.254,$17)))) 1İşletim Sistemi:10 $iif(CPU* iswm $10,İOS $token($13,1,$asc(_)),$10 $left($11,-1)) 1Cihaz:10 $iif(O = $left($12,-1),iPhone,$left($12,-1)) 1UID:10 %:uid
}
msg #zz 4***2 $nick 1nickinin girişini yasaklamak için2 $iif(*Windows* iswm $9,!webban,!mobilban) ekle %:uid 1komutunu kullanabilirsiniz. 0,4 UYARI 4 :1 Gereksiz kullanmak yasaktır.
.hadd -m banned %:uid $nick
msg #zz 
}
if $regex($2-,ChatV2.1-ofs* WoOvv WoIRC) {
var %:uid $token($1-,-1,32)
if $hget(webban,%:uid) || $hget(mobilban,%:uid) {
msg #zz 0,4 Sabıkalı Giriş  1:4 $nick 1yasaklı giriş tespit edildi. (4Yasak Sıra No: %:uid $+ 1)
gline $nick 0 0,4 *  1Girişiniz 4Yöneticiler1 Tarafından Yasaklanmıştır.
return
}
if *Windows* iswm $10 { msg #zz 1[12Web Girişi1] - Nick:12 $nick 1Tarayıcı:12 $iif(*KHTML* iswm $19,$22,$iif(like = $19,Opera/11.748.47,$iif(*Gecko* iswm $19,Mozilla/8.4781.254,$19))) 1İşletim Sistemi:12 Windows $iif(*10* iswm $remove($token($12,1,46),;),$remove($token($12,1,46),;),7) 1Cihaz:12 Bilgisayar 1UID:12 %:uid }
elseif *Linux* iswm $10 || *iphone* iswm $10 {
msg #zz 1[10Mobil Giris1] - Nick:10 $nick 1Tarayıcı:10 $iif($left($18,-1) = X,$19,$iif(*KHTML* iswm $18,$21$iif(like = $18,Opera/11.748.47,$iif(*Gecko* iswm $18,Mozilla/8.4781.254,$18)))) 1İşletim Sistemi:10 $iif(CPU* iswm $11,İOS $token($14,1,$asc(_)),$11 $left($12,-1)) 1Cihaz:10 $iif(O = $left($13,-1),iPhone,$left($13,-1)) 1UID:10 %:uid
}
msg #zz 4***2 $nick 1nickinin girişini yasaklamak için2 $iif(*Windows* iswm $10,!webban,!mobilban) ekle %:uid 1komutunu kullanabilirsiniz. 0,4 UYARI 4 :1 Gereksiz kullanmak yasaktır.
.hadd -m banned %:uid $nick
msg #zz  
}
if $regex($2-,WoOvv*) {
var %:uid $token($1-,-1,32)
if $hget(webban,%:uid) || $hget(mobilban,%:uid) {
msg #zz 0,4 Sabıkalı Giriş  1:4 $nick 1yasaklı giriş tespit edildi. (4Yasak Sıra No: %:uid $+ 1)
gline $nick 0 0,4 *  1Girişiniz 4Yöneticiler1 Tarafından Yasaklanmıştır.
return
}
if *Windows* iswm $10 { msg #zz 1[12Web Girişi1] - Nick:12 $nick 1Tarayıcı:12 $iif(*KHTML* iswm $19,$22,$iif(like = $19,Opera/11.748.47,$iif(*Gecko* iswm $19,Mozilla/8.4781.254,$19))) 1İşletim Sistemi:12 Windows $iif(*10* iswm $remove($token($12,1,46),;),$remove($token($12,1,46),;),7) 1Cihaz:12 Bilgisayar 1UID:12 %:uid }
elseif *Linux* iswm $10 || *iphone* iswm $10 {
msg #zz 1[10Mobil Giris1] - Nick:10 $nick 1Tarayıcı:10 $iif($left($18,-1) = X,$19,$iif(*KHTML* iswm $18,$21$iif(like = $18,Opera/11.748.47,$iif(*Gecko* iswm $18,Mozilla/8.4781.254,$18)))) 1İşletim Sistemi:10 $iif(CPU* iswm $11,İOS $token($14,1,$asc(_)),$11 $left($12,-1)) 1Cihaz:10 $iif(O = $left($13,-1),iPhone,$left($13,-1)) 1UID:10 %:uid
}
msg #zz 4***2 $nick 1nickinin girişini yasaklamak için2 $iif(*Windows* iswm $10,!webban,!mobilban) ekle %:uid 1komutunu kullanabilirsiniz. 0,4 UYARI 4 :1 Gereksiz kullanmak yasaktır.
.hadd -m banned %:uid $nick
msg #zz  
}
haltdef
}
on *:text:*:*: {
if $regex($1,/^([!.]mob[iİı]lban)/Si) {
mkdir Hash
if !$regex($2,/^(ekle|s[iıİ]l|l[iİı]st)/Si) { msg #zz Hatalı Komut Kullandınız12 ( $1 on|off ) | return }
if $2 == ekle && $3 {
if $hget(mobilban,$3) { msg #zz $3 Zaten Mobil Ban Konumunda. | return }
.hadd -m mobilban $3 ok | .hsave mobilban Hash/mobilban.ymc
msg #zz $3 Mobil Ban Lisesine Eklendi.
gline $hget(banned,$3) 0 1Girişiniz Yöneticiler1 Tarafindan Yasaklanmıştır.
}
elseif $regex($2,/^(s[iYy]l)/Si) && $3 {
if !$hget(mobilban,$3) { msg #zz $3 Zaten Mobil Ban Konumunda Değil. | return }
.hdel mobilban $3 | .hsave mobilban Hash/mobilban.ymc
msg #zz $3 Mobil Ban Lisesinden Silindi.
}
elseif $regex($2,/^(l[iYy]st)/Si) {
msg #zz 1[12 $_network $_host - Mobil Ban Listesi1 ]
msg #zz 
var %i = 1 | while %i <= $hget(mobilban,0).item {
msg #zz -12 $hget(mobilban,%i).item
inc %i
}
}
}
if $regex($1,/^([!.]webban)/Si) {
mkdir Hash
if !$regex($2,/^(ekle|s[iıİ]l|l[iİı]st)/Si) { msg #zz Hatalı Komut Kullandınız12 ( $1 on|off ) | return }
if $2 == ekle && $3 {
if $hget(webban,$3) { msg #zz $3 Zaten Web Ban Konumunda. | return }
.hadd -m webban $3 ok | .hsave webban Hash/webban.ymc
msg #zz $3 Web Ban Lisesine Eklendi.
gline $hget(banned,$3) 0 1Girişiniz Yöneticiler1 Tarafından Yasaklanmıştır.
}
elseif $regex($2,/^(s[iYy]l)/Si) && $3 {
if !$hget(webban,$3) { msg #zz $3 Zaten Web Ban Konumunda Değil. | return }
.hdel webban $3 | .hsave webban Hash/webban.ymc
msg #zz $3 Web Ban Lisesinden Silindi.
}
elseif $regex($2,/^(l[iYy]st)/Si) {
msg #zz 1[12 $_network $_host - Web Ban Listesi1 ]
msg #zz 
var %i = 1 | while %i <= $hget(webban,0).item {
msg #zz -12 $hget(webban,%i).item
inc %i
}
}
}
}