IRC ve mIRC Kullanıcılarının Buluşma Noktası
  Reklam Ver

  IRC ve mIRC Kullanıcılarının Buluşma Noktası mIRC Scripting mIRC Scripting Hazır Kodlar

Forum tutkunlarının tek adresi Türkiye Sohbet Odaları Sohbetteyiz herkes burda

ayna chat muhabbetbayilik veren firmalar

Şeker Shell  Sohbet


mIRC Scripting Hazır Kodlar

mIRC Scriptinglerinizde kullanabileceğiniz hazır kodlara bu başlık altından ulaşabilirsiniz.



37Beğeni(ler)

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 27 Mart 2015, 22:48   #1
Çevrimdışı
Badnick Koruması (Hash)


-- Sponsor Baglantı --


Merhaba,
Forum'da var mı bilmiyorum ama baya detaylı bir badnick koruması oldu
mIRC Bot için yaptım kendisi kullanmak isteyen text event'ini input event'i ile değiştirsin.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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.
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Merhaba,
Forum'da var mı bilmiyorum ama baya detaylı bir badnick koruması oldu
mIRC Bot için yaptım kendisi kullanmak isteyen text event'ini input event'i ile değiştirsin.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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.
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
__________________
Ölmek için doğmuştur ya insan; O yüzden her yağmur sonrası Toprak kokusunu sever.

Konu Toprak tarafından (04 Haziran 2017 Saat 22:07 ) değiştirilmiştir. Sebep: Link yenilendi.
  Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
Alt 27 Mart 2015, 23:13   #2
Çevrimdışı
Cevap: Badnick Koruması (Hash)




Emeğine sağlık. Badnicklere ölüm!

__________________
The Ghost of Christmas past. The End..
  Alıntı ile Cevapla

Alt 28 Mart 2015, 12:11   #3
Çevrimdışı
Cevap: Badnick Koruması (Hash)




mIRC'lerde bulunması gereken bir remote (bence) eminim bir çok kişiye faydası olacaktır. Yanında hazır badlist de var miss (; yalnız yanılmıyorsam muaf kanal ve açma/kapama eklentisi yok. Ben kendime göre ayarladım ama istersen sende ekle daha kullanışlı olur diye düşünüyorum. Toprak, eline emeğine sağlık.

__________________
I want to know GOD's thoughts, the rest are details...
  Alıntı ile Cevapla

Alt 30 Mart 2015, 22:07   #4
Çevrimdışı
Cevap: Badnick Koruması (Hash)




Emeğine sağlık.

  Alıntı ile Cevapla

Alt 21 Nisan 2015, 22:50   #5
Çevrimdışı
Uzaklaştırıldı
wolera - ait Kullanıcı Resmi (Avatar)
Cevap: Badnick Koruması (Hash)




Merhaba addon çalışmıyor.

ON Unknown command hatası vermekte.

  Alıntı ile Cevapla

Alt 26 Nisan 2015, 16:08   #6
Çevrimdışı
Cevap: Badnick Koruması (Hash)




Arkadaşın sorunu başka bir input eventin'den kaynaklı.

__________________
Ölmek için doğmuştur ya insan; O yüzden her yağmur sonrası Toprak kokusunu sever.
  Alıntı ile Cevapla

Alt 29 Nisan 2015, 12:57   #7
Çevrimiçi
Cevap: Badnick Koruması (Hash)




$dll olarak yazılsa daha iyi olmaz mı

  Alıntı ile Cevapla

Alt 29 Nisan 2015, 13:26   #8
Çevrimdışı
Cevap: Badnick Koruması (Hash)




msl 'nin buna rahatlıkla gücü yetiyor, dll desteği gerektiren bir konu değil.

__________________
The Ghost of Christmas past. The End..
  Alıntı ile Cevapla

Alt 29 Nisan 2015, 15:28   #9
Çevrimiçi
Cevap: Badnick Koruması (Hash)




YellowLine Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 20 mesajınız olması gerekir.
$dll olarak yazılsa daha iyi olmaz mı

evet güzel fikir
Bu forumdaki linkleri ve resimleri görebilmek için en az 20 mesajınız olması gerekir.


@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] yapar
Bu forumdaki linkleri ve resimleri görebilmek için en az 20 mesajınız olması gerekir.

__________________
Kirletilmiş bir ilişkiyi, bir tek ayrılık temizler.
Kullanıcı imzalarındaki bağlantı ve resimleri görebilmek için en az 20 mesaja sahip olmanız gerekir ya da üye girişi yapmanız gerekir.
  Alıntı ile Cevapla

Alt 19 Ekim 2015, 01:10   #10
Çevrimdışı
Cevap: Badnick Koruması (Hash)




Toprak Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 20 mesajınız olması gerekir.
Merhaba,
Forum'da var mı bilmiyorum ama baya detaylı bir badnick koruması oldu
mIRC Bot için yaptım kendisi kullanmak isteyen text event'ini input event'i ile değiştirsin.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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.
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Usta çalışmadı ama ?

  Alıntı ile Cevapla

Cevapla

Etiketler
badnick, hash, koruması

Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Debug && Hash Tables - Badnick,Reklam,Küfür Korumaları Doktrin mIRC Scripting Hazır Kodlar 10 26 Eylül 2017 17:23
/* Badnick Koruması (Hash) */ XPhytoN mIRC Scripting Hazır Kodlar 8 09 Ocak 2017 04:34
Badnick Kode hash cevirme KivanC mIRC Scripting Sorunları 1 18 Ekim 2014 22:02
/* Küfür Koruması (hash) */ XPhytoN mIRC Scripting Hazır Kodlar 9 07 Nisan 2010 18:18
Hash Badnick Atmıyor ? Editor mIRC Scripting Sorunları 6 25 Ağustos 2008 09:29



tasarim81 teknoloji perakendezincirleri otomatlistesi marka-listesi kozmetikkisiselbakim hizmet-sektoru giyim-aksesuar dekorasyon-sitesi caferestoran