Türkçe Mirc Ozele Tekrar/Flood Korumasi

Türkçe Mirc Ozele Tekrar/Flood Korumasi Kod; * Doğum: metin :*:?: ( . Inc-U10 $+(%, sel, $ nick) $ Nick |% nick set | 2 $($+(%, sel, $ nick)) == 4 (userip $ nick eğer. Üstünde% sel ayarlamak için:) 2 $($+(%, sel, $ nick))> = 6 (zline $ nick Özel Flood zline eğer! | Unset $+(%, sel, $ nick)) ) Ham […]

» Devamını Oku

mIRC HASH Kufur korumasi!

on @*:TEXT:*:#: {  ; +o +h +v ler bu degerden etkilenmeyecekler  if ($nick !isreg #) return  var %l = $strip($1-)  if ($hmatch(kufur,%l)) {    ban -u300 # $nick 3    kick # $nick Kotu kelimeler kullandığınız için girişiniz Yasaklanmıştır!  }}alias kufur {  if ($1 == ekle) && ($regex($2,[A-Za-z])) {    hadd kufur $2    secho  $2  veritabanina başarıyla eklendi  }  elseif ($1 == sil) {    if ($hfind(kufur,$2)) {      hdel kufur $2      secho $2 veritabanindan başarıyla silindi    }    else { secho $2 veritabaninda bulunamadi }  }  elseif ($1 == list) {    var %x = 1     while (%x < = $hget(kufur,0).item) {      set %hkufur $addtok(%hkufur,$hget(kufur,%x).item,1)      if ($numtok(%hkufur,32) >= 7) { secho $replace(%hkufur,$chr(1),$+($chr(32),-,$chr(32))) | unset %hkufur }      inc %x    }    if ($numtok(%hkufur,32) >= 1) { secho $replace(%hkufur,$chr(1),$+($chr(32),-,$chr(32)))  | unset %hkufur }  }  else { secho hatali islem }}alias secho {  ;echo -a $1-  if (!$window(@kufur)) { window -e @kufur }  echo @kufur $+($chr(40),$time,$chr(41),$chr(32),$1-)}on *:EXIT: hsave -o kufur kufur.htb on *:start: {   hmake kufur 1000   if ($exists(kufur.htb)) { hsave -o kufur kufur.htb }   hload kufur kufur.htb } /kufur ekle belirtilen kufuru tablomuza ekler /kufur sil belirtilen kufuru tablodan siler /kufur list eklenmis tum kufurleri listeler kufur eklerken wildcad kullanilabilir /kufur ekle *sokar* seklinde eklendiginde sokarim sokrlar sokarak gibi kelimeler de de uyarilacak ve kanaldan atilacaktir. alıntıdır. Görüntüleme: 3.902

» Devamını Oku

mIRC Clone Koruma

on *:snotice:*Client connecting on*:{.timer 1 15 unset %xxx. [ $+ [ $gettok($gettok($10,2,64),1,41) ] ] inc %xxx. [ $+ [ $gettok($gettok($10,2,64),1,41) ] ] if %xxx. [ $+ [ $gettok($gettok($10,2,64),1,41) ] ] >= 4 { .gline $+(*@,$gettok($gettok($10,2,64),1,41)) 3600 2Ozel koruma sistemi ; 4AkasyaFM2 aynı IP'den 4'den fazla giris tespit etmistir.unset %xxx. [ $+ [ $gettok($gettok($10,2,64),1,41) ] ]}} Görüntüleme: 3.782

» Devamını Oku

mIRC Tor koruma

alias tor_ { if ($1) { inc %tor | sockopen $+(tor*,%tor) www.sectoor.de 80 | sockmark $+(tor*,%tor) $1 } }on *:sockopen:tor*:{  var %s sockwrite -n $sockname  %s GET /tor.php?ip= $+ $sock($sockname).mark HTTP/1.1  %s host: www.sectoor.de  %s $crlf}on *:sockread:tor*:{  var %> [ $+ [ $sockname ] ]  sockread %> [ $+ [ $sockname ] ]  if (*IP is LISTED* iswm %> [ $+ [ $sockname ] ]) {     gzline $+(*@,$sock($sockname).mark) 2h TOR Koruması! [ $+ $date $+ ] [ $+ $time $+ ]    sockclose $sockname  }}raw 352:*:{  tor_ $4}on *:snotice:*Client connecting*: {  .who +I $9} Görüntüleme: 3.154

» Devamını Oku

mIRC Sc5/tor/socks/proxy koruması

alias prx {inc -u4 %xxxxsockopen prx $+ %xxxx imanlisohbet.net 80sockmark $+(prx*,%xxxx) $1}on *:sockopen:prx*:{sockwrite -n $sockname GET /ips.php?q= $+ $sock($sockname).mark HTTP/1.1sockwrite -n $sockname Host: imanlisohbet.net $+ $crlf $+ $crlf}on *:sockread:prx*:{var %prxsockread %prxif (proxy listed isin %prx) {.gzline *@ $+ $sock($sockname).mark : Proxy-yasaksockclose $sockname}}raw 352:*:{ prx $4 } on *:snotice:*Client connecting*: { .who +I $9 } Görüntüleme: 4.370

» Devamını Oku

mIRC UZUN YAZI KORUMASI

on @*:text:*:#: {if ($nick isop $chan) || ($nick == $me) { halt }if ($len($strip($1-)) >= 250) {hinc -mu10 uzunyazi $+($chan,.,$nick) 1if $hget(uzunyazi,$+($chan,.,$nick)) == 1 {.msg # $nick : Uzun yazı yazmak yasaktır, lütfen bu kurala uygun yazınız.}if $hget(uzunyazi,$+($chan,.,$nick)) == 2 {.msg # $nick : Uzun yazı yazmamanız konusunda 2. uyarınız, tekrarlamanız halinde kanaldan uzaklaştırılacaksınız.}if $hget(uzunyazi,$+($chan,.,$nick)) == 3 {.ban # $nick 5.kick # $nick Bu kanal içerisinde uzun yazı yazmak yasaktır..hdel -s uzunyazi $+($chan,.,$nick))}}} Görüntüleme: 3.156

» Devamını Oku

Badnick Koruması (Hash)

on *:start:{ $iif(!$isfile(badnick.tprk),.write badnick.tprk) | .hmake badnick 100 | .hload badnick badnick.tprk }on @*:join:#:{   if $hfind(badnick,$nick,1,W).data {    mode # +b $nick    kick # $nick 1Nick değiştirip(/nick yeninick) tekrar kanala giriş yapabilirsiniz..    if !$hget(bdnck,$nick) {      .hinc -msu20 bdnck $nick       msg #Opers [ JOIN ] $nick nicki badnick olarak tespit edildi. $+([,$chr(32),$hget(badnick,$hfind(badnick,$nick,1,W).data),$chr(32),])    }  }}on *:nick:{  if $hfind(badnick,$newnick,1,W).data {    msg #Opers [ NICK ] $newnick nicki badnick olarak tespit edildi. $+([,$chr(32),$hget(badnick,$hfind(badnick,$newnick,1,W).data),$chr(32),])    var %:c $regsubex($str(-,$comchan($newnick,0)),/./g, $iif($regex($nick($comchan($newnick,\n),$me).pnick,/(%|@|&|~\.)/i),$comchan($newnick,\n) $chr(32)))    var %c = 1 | while %c < = $token(%:c,0,32) {      mode $token(%:c,%c,32) +b $newnick | kick $token(%:c,%c,32) $newnick 1Nick değiştirip(/nick yeninick) tekrar kanala giriş yapabilirsiniz..      inc %c    }  }}on *:text:*:#:{  if $regex($1,/^[!\.]badnick$/Si) {    if $regex($2,/^ekle$/Si) {      if (!$3) { msg # Lütfen nick belirtiniz | return }              if $hfind(badnick,$strip($3),0,W).data { msg # Eklemeye çalıştığınız badnick zaten $+([,$chr(32),$hget(badnick,$hfind(badnick,$strip($3),1,W).data),$chr(32),]) maskesi ile uyuşmakta. | return }      var %n = $left($calc($ctime * $rand(1000,9999)),7)      .hadd -m badnick %n $strip($3)      .hsave -o badnick badnick.tprk      msg # $strip($3) Badnick listesine eklendi.    }    if $regex($2,/^s[ıiİ]l$/Si) {      if (!$3) { msg # Lütfen nick belirtiniz | return }              if !$hfind(badnick,$strip($3),0,W).data { msg # Bad nick listesinde bulunmamaktadir. | return }      .hdel -m badnick $hfind(badnick,$strip($3),1,W).data      .hsave -o badnick badnick.tprk      msg # $strip($3) Badnick listesinden silindi.    }    if $regex($2,/^tara$/Si) {      if (!$3) { msg # Lütfen nick belirtiniz | return }              if !$hfind(badnick,$strip($3),0,W).data { msg # Badnick listem'de $strip($3) ait bir mask yok. | return }      msg # Nick: $strip($3) - 4Mask: $+([,$chr(32),$hget(badnick,$hfind(badnick,$strip($3),1,W).data),$chr(32),])    }    if $regex($2,/^l[ıiİ]st$/Si) {      if ($hget(badnick,0).data == 0) { msg # Badnick listesi boş. | return }      msg # Badnick listesi      msg # -      var %i = 1 | while (%i <= $hget(badnick,0).data) { msg # %i $+ .4) [ $hget(badnick,%i).data ] | inc %i }      msg # -      msg # Badnick listesi sonu    }    }  if $regex($1,/^[!\.]tara$/Si) {    if !$regex($2,/^#/Si) { msg # Lütfen #kanal belirtiniz | return }      if !$chan($2) { msg # $2 kanal'ında bulunmuyorum | return }    var %:tara = 1 | while %:tara <= $nick($2,0) {      if $hfind(badnick,$nick($2,%:tara),1,W).data {        msg #Opers [ TARAMA ] $nick($2,%:tara) nicki badnick olarak tespit edildi. $+([,$chr(32),$hget(badnick,$hfind(badnick,$nick($2,%:tara),1,W).data),$chr(32),])        mode $2 +b $nick($2,%:tara) | kick $2 $nick($2,%:tara) 1Nick değiştirip(/nick yeninick) tekrar kanala giriş yapabilirsiniz..      }      inc %:tara    }      }} Komut(lar): !badnick ekle Nick (*?) Mask olarak ekleyebilirsiniz. !badnick sil Nick !badnick tara Nick Etkilenen nick’in maskını gösterir. (Nick: turgay – Mask: [ *gay ]) !badnick list !tara #Kanal Belirlenen kanal’da badnick taraması yapar. Badnick dosyası mirc klasorun(//run $mircdir) içine atınız. badnick.tprk Görüntüleme: 3.824

» Devamını Oku
1 2