Türkiye'nin IRCd ve LaMeR Forumu Sitesi
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5

[-]
Tags
hash lamerler mirckodları koruması ircforum mirckodu badnickkoruması badnickkodu badnickkorumaları badnickkoruma badnick mircaddonları badnickaddonu irckodları lamerlercom ircforumları ircaddonları

Badnick-Koruması (Hash)
Admin
#1
Heart 
Badnick-Koruması (Hash) Yapımcısı Toprak Arkadaşımız



Kod:
on *:start:{ $iif(!$isfile(badnick.tprk),.mkdir badnick.tprk) | .hmake badnick.tprk | .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 (4*?) 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.tprk dosyası mirc klasorun (//run $mircdir)[b]Yani Ana bölümüne içine atınız.
[/b]

İndirme linklerini görebilmek için sitemize üye ol manız veya giriş yapmanız gerekiyor.Sitemize üyelikler ücretsizdir!
Cevapla


Bu Konudaki Yorumlar
Badnick-Koruması (Hash) - Yazar: Admin - 02-21-2020, 10:46 AM

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Lightbulb IP Bazlı Clone Korumasi Admin 0 85 11-15-2020, 08:23 PM
Son Yorum: Admin
Lightbulb PingFlood koruması Admin 0 71 11-15-2020, 08:18 PM
Son Yorum: Admin
  Clone Koruması 2020 Admin 0 586 08-20-2020, 05:56 PM
Son Yorum: Admin
Lightbulb mIRC Kanal Yetki Koruması Admin 0 541 08-20-2020, 05:43 PM
Son Yorum: Admin
  mIRC Küfür Koruması (Seçmeli Hotlink) Admin 1 1,403 06-04-2020, 04:20 PM
Son Yorum: Lamer

Hızlı Menü:


Konuyu Okuyanlar: 1 Ziyaretçi