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.

» 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) ] ]}}

» 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}

» 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 }

» 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))}}}

» 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

» Devamını Oku

mIRC Badnick Koruması

Kurulum: Kodu çalıştırmak için aşağıdaki 2 işlemden birini uygulayabilirsiniz. 1) Kodları ALT+R yapıp açılan pencereye yapıştırın. 2) Bir not defteri açıp içine yapıştırın ve mIRC klasörünüzün içine atın. Daha sonra mIRCte /load -rs Dosyanız.txt komutunu uygulayın. Kodlar: ;--------------------------------------------------; Kötü Rumuz Koruması; Kodlamaların tamamı ve bazı dialog kodları el33t'e aittir...; Dialog hazırlaması bana aittir...; /KötüRumuz Yazarak Çalıştırabilirsiniz...; www.IRCForumlari.net;---------------------------------------------------------alias kötürumuz { if (!$dialog(kötürumuz)) dialog -m kötürumuz kötürumuz }dialog kötürumuz {  title "Kötü Rumuz Koruması"  size -1 -1 200 180  option dbu  text "..:: Rumuz Listesi ::..", 999, 20 10 60 10  combo 1, 5 20 90 130  button "Ekle (+)", 2, 4 146 27 13  button "Çıkar (-)", 3, 32 146 27 13  button "Temizle (!)", 4, 60 146 35 13  box "Seçenekler", 5, 101 17 93 40  check "OP olduğumda tarama yap!", 6, 106 28 73 10  check "Yeni rumuz kötüyse at!", 7, 106 40 70 10  button "?", 8, 182 28 9 9  button "?", 9, 182 40 9 9  box "Kick Mesajınız", 10, 101 60 93 40  edit "", 11, 106 76 83 10, autohs  box "Açıklamalar", 12, 101 103 93 55  text "Kötü Rumuz Koruması  www.IRCForumlari.net              S1y4H", 13, 106 110 85 40  link "www.ircforumlari.net", 14, 108 164 52 15  button "Kapat!", 15, 168 161 27 13  text "..:: Kötü Rumuz Koruması ::..", 16, 13 165 80 10,disable}on *:dialog:kötürumuz:*:*:{  if ($devent == init) {    loadbuf -o $dname 1 $shortfn(nickler.txt) | did -c $dname 1 1    if (%oto-tara == on) { did -c kötürumuz 6 }    if (%NickDeğiş == on) { did -c kötürumuz 7 }    did -a $dname 11 %kckmsg  }  if ($devent == sclick) {    if ($did == 2) {      var %kötürmz = $did(1).text      if $read(nickler.txt,w,%kötürmz) {         echo -a $timestamp *** Eklemek istediğiniz rumuz listede mevcut.      }      else {        write nickler.txt %kötürmz | did -a $dname 1 %kötürmz | did -d $dname 1 $did(1).text      }    }    if ($did == 3) {      if $read(nickler.txt,w,$did(1).seltext) { write $+(-dl,$readn) nickler.txt | did -d $dname 1 $did(1).sel }    }    if ($did == 4) {      if ($$?!="Bütün listeyi silmek istediğinizden emin misiniz?" == $true) { set %satırsayısı $lines(nickler.txt) | write -c nickler.txt | did -r $dname 1 | echo -a $timestamp *** Listedeki  $+ %satırsayısı $+  adet rumuz silindi. | unset %satırsayısı } | else { return }    }    if ($did == 8) {      did -a $dname 13 +o modunu aldığınızda otomatik olarak kötü rumuz arar, bulunanları Nick!*@* şeklinde banlayıp atar. Özellikle kanala girdiğinizde (@ olursanız) oto. tarama yapacağından işinize yaracaktır.    }    if ($did == 9) {      did -a $dname 13 @ olduğunuz kanallarda kullanıcı nick değiştirdiğinde seçtiği yeni rumuz listedeki tanımlamalarınızdan biriyle uyuşursa @ olduğunuz tüm kanallarda Nick!*@* ban şeklinde uzaklaştırılır.    }    if ($did == 6) {      if (%oto-tara == off) { .set %oto-tara on | .enable #oto-tara | echo -a $timestamp *** Otomatik rumuz tarama 4aktif. }      elseif (%oto-tara == on) { .set %oto-tara off | .disable #oto-tara | echo -a $timestamp *** Otomatik rumuz tarama 4kapatıldı. }    }    if ($did == 7) {      if (%NickDeğiş == off) { .set %NickDeğiş on | .enable #NickDeğiş | echo -a $timestamp *** Yeni kötü rumuz koruması 4aktif. }      elseif (%NickDeğiş == on) { .set %NickDeğiş off | .disable #NickDeğiş | echo -a $timestamp *** Yeni kötü rumuz koruması 4kapatıldı. }    }    if ($did == 14) {      run http://www.ircforumlari.net    }    if ($did == 15) {      if ($did(11) == $Null) {        echo -a $timestamp *** Kick Mesajı belirlenmedi, orjinal mesaj kullanılacak.        dialog -x kötürumuz kötürumuz         set %kckmsg 4Rumuzunuz 1kanal seviyesine uygun olmayan nitelikler taşımaktadır. 4/Nick YeniRumuz 1komutuyla rumuzunuzu değiştirmeden kanala giriş yapamazsınız.      }      else {        set %kckmsg $did(11)        dialog -x kötürumuz kötürumuz      }    }  }};--------------------; Kodlamalar...;--------------------on @*:join:#:if $kotunick($nick) { mode # +b $nick | kick # $nick %kckmsg }#NickDeğiş onon *:NICK:{ if $kotunick($newnick) { var %_ = 1, %< = $v1 | while $comchan($newnick,%_) { if $me isop $v1 { mode $v2 +b %< | kick $v2 $newnick %kckmsg } | inc %_ } } }#NickDeğiş endalias kotunick { var %_ = 1 | while $read(nickler.txt,%_) { if $v1 iswm $1 { return $v1 } | inc %_ } | return $false }alias krt {  if $1 ischan && $me isop $1 {    var %` = $lines(Nickler.txt)    while %` {      if $fline($1,$read(Nickler.txt,%`),0,1) >= 1 { var %~ = $ifmatch | while %~ { if $line($1,$fline($1,$read(Nickler.txt,%`),%~,1),1) isreg $1 { mode $1 +b $+($read(Nickler.txt,%`),!*@*) | kick $1 $line($1,$fline($1,$read(Nickler.txt,%`),%~,1),1) %kckmsg } | dec %~ } }      dec %`     }   }}#oto-tara onon *:OP:#:if $opnick == $me { krt $chan }#oto-tara end;-----------------------------------------on *:LOAD:{  echo -a $timestamp *** Kötü Rumuz Koruması başarıyla yüklendi.  echo -a $timestamp *** S1y4H  run notepad.exe nickler.txt  set %oto-tara on  set %NickDeğiş on  set %kckmsg 4Rumuzunuz 1kanal seviyesine uygun olmayan nitelikler taşımaktadır. 4/Nick YeniRumuz 1komutuyla rumuzunuzu değiştirmeden kanala giriş yapamazsınız.}on *:UNLOAD:{   echo -a $timestamp *** Kötü Rumuz Koruması kaldırıldı.   unset %oto-tar  unset %NickDeğiş  unset %kckmsg}

» Devamını Oku
1 2