IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 24 Ekim 2007, 14:18   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
otomatik badnick tarama




arkadaşlar bende yine forumlardan aldıgım bir kod var bu kod oto yatkili oldugum kanala girince oto taramayı cok yavaş yapıyor vede nickler .txt birebir aynı olmasa atmıyor yani şöyle
mesela nickler.txt de lez var onun haricinde __lezzo_ olunca atmıyor yani bir zahmet editleyinde ben nerden başşlıycagımı bilemedim $read okuturken * sagına soluna bundan koyuyoruz ama olmadı yapamadım ilgi ve alakanıza tşkler
kodİ;
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ı voLkaN"
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ı [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] voLkaN", 13, 106 110 85 40
link "[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]", 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 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
}
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ş on
on *:NICK:{ if $kotunick($newnick) { var %_ = 1, %< = $v1 | while $comchan($newnick,%_) { if $me isop $v1 { mode $v2 +b %< | kick $v2 $newnick %kckmsg } | inc %_ } } }
#NickDeğiş end
alias 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 on
on *: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
}
not: alıntıdır

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 24 Ekim 2007, 15:59   #2
BLaCK_and_WHiTe
Guest
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Yüzdesi:(%)
Cevap: otomatik badnick tarama




Watchmaker Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
payLaşım için sağoL üstad işe yarar.. emeğine sağlık.

önce adamın yazdığını oku
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


*nick
nick*

şeklinde olması gerekir

 
Alıntı ile Cevapla

Alt 24 Ekim 2007, 22:34   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: otomatik badnick tarama




Hızlı tarama yapabilmeniçin bir kod yazdım, işini görecektir.

alias btara { var %% = 1,%%% = $nick($1,0) | while %% <= %%% { if $bdnick($nick($1,%%)) { echo -a $v1 - $v2 } | inc %% } }
alias bdnick { var %1 = 1,%2 = $lines(bad.txt) | while %1 <= %2 { if $+(*,$read(bad.txt,%1),*) iswm $1 { ban -k # $v2 2 kotü rumuz. } | inc %1 | else { return $false } } }
on *:op:#: { if $opnick == $me { btara # } }

Herhangi bir kanal'da op olduğun an, bad.txt içindeki kelimeleri kanal'daki tüm nicklerde arıyacaktır. Bulduğu tüm nick'leri kanal'dan banlar.
Bad.txt dosyasının içine nick'leri alt alta yazman yeterli olur.
Ek olarak /btara #kanal şeklinde, istediğin zaman tarama yapabilirsin.

 
Alıntı ile Cevapla

Alt 04 Kasım 2007, 19:22   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: otomatik badnick tarama




usta bu kasıyor kanal 1000 kişilik taramada scipt donuyor resmen o konuda yapılabilcek bişi varmı acaba

 
Alıntı ile Cevapla

Alt 05 Kasım 2007, 23:33   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: otomatik badnick tarama




1000 kişilik kanal'da bırakta donsun, 1000 tane nick'de en aşşağı 50 tane kelimeyi aramak kolay işmi sence? :)

 
Alıntı ile Cevapla

Alt 06 Kasım 2007, 10:34   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: otomatik badnick tarama




userlistle belki daha rahat olur
if $level($nick!*@*) == badnick { komutl(ar) }

on badnick:event: gibi..

 
Alıntı ile Cevapla

Alt 25 Aralık 2010, 14:34   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: otomatik badnick tarama




L4roXyL Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Hızlı tarama yapabilmeniçin bir kod yazdım, işini görecektir.

alias btara { var %% = 1,%%% = $nick($1,0) | while %% <= %%% { if $bdnick($nick($1,%%)) { echo -a $v1 - $v2 } | inc %% } }
alias bdnick { var %1 = 1,%2 = $lines(bad.txt) | while %1 <= %2 { if $+(*,$read(bad.txt,%1),*) iswm $1 { ban -k # $v2 2 kotü rumuz. } | inc %1 | else { return $false } } }
on *:op:#: { if $opnick == $me { btara # } }

Herhangi bir kanal'da op olduğun an, bad.txt içindeki kelimeleri kanal'daki tüm nicklerde arıyacaktır. Bulduğu tüm nick'leri kanal'dan banlar.
Bad.txt dosyasının içine nick'leri alt alta yazman yeterli olur.
Ek olarak /btara #kanal şeklinde, istediğin zaman tarama yapabilirsin.


Bunu Aldım ve mIRC e tanıttım fakat calismiyor.. bi gözden gecirirmisiniz..

verdigi hata şu..


userhost:
-
kotü bu kişi şuanda sunucuda bulunmuyor
-
* /ban: Kullanıcı Bulunamadı 2
-
* /ban: Kullanıcı Bulunamadı 2
-
* /ban: Kullanıcı Bulunamadı 2

 
Alıntı ile Cevapla

Cevapla

Etiketler
badnick, mirc, mirc download, mirc indir, otomatik, tarama


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
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 Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Badnick korumasına uygun Tarama hk. Prens mIRC Scripting Sorunları 14 14 Ocak 2015 15:21
badnick tarama hatası XDie mIRC Scripting Sorunları 20 08 Eylül 2014 15:43
Badnick Tarama Düzen iniesta mIRC Scripting Sorunları 1 25 Kasım 2012 02:42
Badnick tarama + ban. AttackZone mIRC Scripting Sorunları 3 09 Ocak 2012 03:24
badnick tarama mesaj Emir_2009 mIRC Scripting Sorunları 5 28 Mayıs 2010 01:03