kick mesajına ... eklemek
 

Merhabalar bu Benim Antispam Botu yardımınızı istediğim konu şu: Antispam Bottaki Kick mesajım
Reklam Yasak: Yazdığı mesaj: [ $mid($gettok(%temp,4-,32),2,600) ]
işte bu..
Yapmak istediğim antispam botuma reklam yapıldığı zaman direk mesajı kick mesajına alıyor oysa mesajın arasına mesela [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] reklamı yapıldı
w..w..w..d..o..m..a..i..n..c..o..m gibi ayırmasını istiyorum

Yazdığı mesaj: [ $mid($gettok(%temp,4-,32),2,600) ]
işte bu normal hali direk yapılan reklamı kick mesajına alıyor
Nasıl yapabilirim acaba yardım ederseniz çok sevinirim ?

2. Konu ise
Antispam botumun içinde yer alan
sockwrite -n antispam NICK $read(Spam\1) $+ $read(Spam\2) $+ $read(Spam\3) $+ $read(Spam\4) $+ $read(Spam\5) $+ $read(bursa\kokorec) $+ $read(Spam\6)
}
}

Yani Her cyle yaptığında Nick değişmesi olmuyor yapamadım
$rand olarak yapılmıştı yani rasgele nick değiştirmesi
ben $read yaptım
Ama istediğim Nickleri değiştirmiyor
Bunu yapamasınızda
ilk sorduğum soru hakkında
Yardımda bulunursanız çok çok sevinirim hepinize şimdiden teşekkür ederim
Kolay gelsin.

[box=Alience]Kod cok uzun olduğu için attachment yapılmıştır + 2 mesaj birleştirilmiştir[/box]

1. soru için istediğin kod bu başlıkta var: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

alias noktala {
var %yazi = $1-
var %yap = $regsub(%yazi,/([a-z])/g,...$1,%yazi)
return %yazi
}

Bu kodu kullan. Kick mesajını aldığı satıra $noktala(xxxx) yazarsın. Artık o satırda kick mesajı yerine geçen ne varsa hepsini ( ) içine alıp başına $noktala yazacaksın yani :)

var %kickmsg Reklam Yasak: Yazdığı mesaj: [ $noktala($mid($gettok(%temp,4-,32),2,600)) ]

gibi.

arkadasim utku 1 de sey yapilabilir mi acaba. o soyledigin posta baktim ama su var. btoa gelen mesajin tamamini noktali noktali yapiyor. soyle olamaz mi spam gelen mesajin 1 bolumunu orda gosterse olabilir mi yani

w..w..w..d..o..m..a..i..n..c..o..m boyle degil de

w..w..d..m..a..n.o..m bu sekilde aradaki bazi harfleri sileerk yazdirabilir miyiz. o zaman reklamcilar gibi olammis oluruz. digeri gibi olursa mesaji aynen yazinca 1 arakdas soylemis reklamcilar gibi oluruz hakli
benim dedfigim gibi mumkun mudur?


w..w..w..d..o..m..a..i..n..c..o..m boyle degil de

w..w..d..m..a..n.o..m bu sekilde

Tebrik ederim tam onu düşünüyordum çok teşekkür ederim aynı zamanda dediğin oluyor ama tamamını noktalıyor dediğin gibi olursa çok daha iyi olur yani
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
w..w..w..d..o..m..a..i..n..c..o..m Değilde
w..w..d..m..n..o..m şeklinde kısaltmamız çok daha iyi olur lütfen anlayanlar yazabilirmi
çok tşk ederim kolay gelsin.

yani ornegin

[01:19] *** Giriş: neaiouWii ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
[01:19] *** ChanServ mode değiştirdi:+b [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
[01:19] *** neaiouWii ChanServ Tarafından Kanaldan Atıldı (AKICK by (Spammer (T...u...r...k...l...e...r...l...e 30 ...d...k Lı...k Sê...x ))) H...i...k...a...y...eM.ORĞ)))
[01:19] *** agBdeouZ ChanServ Tarafından Kanaldan Atıldı (AKICK by (Spammer (T...u...r...k...l...e...r...l...e 30 ...d...k Lı...k Sê...x ))) H...i...k...a...y...eM.ORĞ)))


ornek olarak bu. bota herif reklam yapmis ve akick mesajinda ben banlayan kisi olark butun reklami yazmism yani 1 nevi ben onun ne guzel reklamini yapmisim. bunu kisaltamaz miyiz yani


(Spammer (T..r...k...l...r...l...e 30 ..k Lı.k Sê...x ))) H..k...a..eM.ORĞ)))


ustteki yerine boyle banlattiramaz miyiz?

çok güzel anlatmışsın tebrik ediyorum cevap beklemekten başka şansımız yok :)

o başlığa baktıysanız bir nebze fikriniz oluşmuştur güzel bir geliştirme örneği var ayrıca sizin cevabınıza gelince arkadaşın verdiği örneği değiştirdim onun dediği aynı işlemleri yapın ama verdiği kodu aşağıdaki ile değiştirin:

alias noktala {
var %getvar = $strip($1-), %retvar = $mid(%getvar,1,1) , %i = $calc($rand(1,3) + 1)
while %i <= $len(%getvar) {
%retvar = $+(%retvar,..,$mid(%getvar,%i,1))
inc %i $rand(1,3)
}
return %retvar
}


şimdi komutu uygulamaya başlıyorum:
//echo - $noktala(deneme mesajı budur baicim)
- d..e..e..m..e..m..e..a....b..u..r..b..c..i

//echo - $noktala(deneme mesajı budur baicim)
- d..e..e..e..e..a..j....b..d..r....a..i..c..i

//echo - $noktala(deneme mesajı budur baicim)
- d..n..m....m..s..a..j..b..u..b..c..m

//echo - $noktala(deneme mesajı budur baicim)
- d..n..e..m....s..j....b..u..r..b..a..i

hepsinde değişik cıkıyor daha çok karıştırmak istiyorsanız $rand(1,3) teki 3 u buyutursunuz ben 5 yapıp komutu uyguladım:
//echo - $noktala(deneme mesajı budur baicim)
- d..m....s..a..ı..u..r..a

2. soruna gelince $read(Spam\1) $+ $read(Spam\2) $+ $read(Spam\3) $+ $read(Spam\4) $+ $read(Spam\5) $+ $read(bursa\kokorec) $+ $read(Spam\6)

bu tamamen yanlış $read'in kullanımı $read(dosyanınadi.uzantisi,satır) eğer satir yazmassan rastgele birşey seçer

Alience tbr ederim noktalama sistemi tıkır tıkır çalışıyor çok şey istiyorum ama kusura bakma: konu açılmışken bu noktalama sistemini şu şekilde yapabilirmisin

mesela reklam mesajı bu [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Kick mesajına bu şekilde yansıycak
ww.. dom.. co..
yani ilk 2 yada 3 harfi alıp sonuna 2 nokta koyucak ? Bunu yapmamız mümkün'mü ?

İsteme amacım mesela çok uzun yazı yazıyor reklamcı
antispam bot birde onu çok noktalar koyunca araya kelime iyice uzuyor ve reklam kick mesajına sığmıyor :)
Dediğim gibi reklamın ilk 2 yada 3 harfini alıp sonunu 2 nokta almak mümkünse yardımcı olabilirmisin ?

buyur noktala kodunu yine değiştirdim, bundan sonrada şoyle boyle demeyin maymuna dondurduk noktaları :D

alias noktala {
var %getvar = $strip($1-), %retvar = $null, %i = 1
while $gettok(%getvar,%i,46) {
var %rf = $iif($len($ifmatch) <= 3,2,$rand(2,3))
%retvar = $+(%retvar,$chr(32),$left($gettok(%getvar,%i,46),% rf),$str(.,$calc($len($gettok(%getvar,%i,46)) - %rf)))
inc %i 1
}
return %retvar
}


kodun şimdiki yaptıgı iş girdiyi . ya gore ayırması ve
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
gibi 3 kelime veya daha az olanlarda sadece 1 . kullanması diğerlerinde random şekilde ya 2 ya 3 harf kullanıp diğerlerini noktalaması

denenmiş örnekleri:
//echo - $noktala([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
- ww. de.... co.
- ww. den... co.

bunu ekledim ama soyle oldu

[22:54] *** ChanServ mode değiştirdi:+b [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
[22:54] *** anti-spam-bot ChanServ Tarafından Kanaldan Atıldı (Spammer (.))

spam botun ban sebebine ise

$address($1,2) Spammer ( $+ $noktala($2-) $+ )

boyle ekledim herhalde burda 1 yançis var. alience nasil ekleyecegim ban sebep yerine

$1- değil $noktala($mid($gettok(%temp,4-,32),2,600)) olacak

$address($1,2) Spammer ( $+ $noktala($2-) $+ ) yerine

$address($1,2) Spammer ( $+ $noktala($mid($gettok(%temp,4-,32),2,600)) $+ )

tabi bu yukarıda verilen addon icin :D

olmadi alience. yine ayni. aynen

$address($1,2) Spammer ( $+ $noktala($mid($gettok(%temp,4-,32),2,600)) $+ )

bunu ekledim ban sebebp yerine ama yine ayni.

23:07] *** ChanServ mode değiştirdi:+b [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
[23:07] *** connecttotop ChanServ Tarafından Kanaldan Atıldı (Spammer ())
yine noka var sadece

senin kullandıgın remoteyi yazarmısın şu banlama kısmını sadece!

var %ct = $chan($me)
var %cn = 1
while (%cn <= %ct) {
if (($1 ison $chan(%cn)) && ($me isop $chan(%cn)) && (%asb.dcckb == 1)) {
/cs akick $chan(%cn) add $address($1,2) Spammer ( $+ $noktala($mid($gettok(%temp,4-,32),2,600)) $+ )
/cs akick $chan(%cn) enforce
/cs akick $chan(%cn) del $address($1,2)
}
inc %cn



bildigimiz spam bot banlama yeri iste.
senin remoteyi ekledim ban yerlerinide dedigin gibi yaptim ama olmadi.)

Uffffpps yanlışın var yukarıdaki kodlarada bakarsan 1 özellik ile 2. si arasında kod tamamen değişiyor bu senin spam botun kick mesajını nereden alıyor o lazım verdiğin kodda o yok.

alias asb.checkspamwords {
var %botchans = $numtok(%asb.chans,44)
var %bc = 1
while (%bc <= %botchans) {
if ($gettok(%asb.chans,%bc,44) isin $2) { goto end }
inc %bc
}
var %n = 1
var %totalwords $numtok(%asb.spamwords,44)
while (%n <= %totalwords) {
if ($gettok(%asb.spamwords,%n,44) iswm $2) {
if ((%asb.repspamto == 1) && (%asb.repspamto.spec != $null)) { sockwrite -n asb privmsg Redhack $address($nick,2) $1- }
if (%asb.logspam == 1) { write $scriptdirasb.spamlog.txt TIME: $date - $time | write $scriptdirasb.spamlog.txt SPAMMER: %asb.checkspammask | write $scriptdirasb.spamlog.txt AD: $gettok(%asb.checkspam,2-,32) | write -i $scriptdirasb.spamlog.txt | write $scriptdirasb.spamlog.txt 7=============================================== =============== | write -i $scriptdirasb.spamlog.txt }
var %ct = $chan(0)
var %cn = 1
while (%cn <= %ct) {
if (($numtok(%asb.curchans,44) == 1) && ($me isop $gettok(%asb.curchans,1,44)) && ($1 !ison $gettok(%asb.curchans,1,44))) { set %asb.didkb 1 | ban -u $+ $calc(%asb.spamkb.mins * 60) $gettok(%asb.curchans,1,44) %asb.checkspammask %asb.spamkb.mask | goto end }
if (($1 ison $chan(%cn)) && (%asb.spamkb == 1)) {
/cs akick $chan(%cn) add $address($1,2) Spammer ( $+ $noktala($mid($gettok(%temp,4-,32),2,600)) $+ )
/cs akick $chan(%cn) enforce
/cs akick $chan(%cn) del $address($1,2)
set %asb.didkb 1
}
inc %cn
}
}
if (%asb.didkb == 1) { goto end }
inc %n

burasi ?

Alience ne yazıkki benim için olan olmadı bak demiştin ilk 2,3 harfini alıyor diğerlerini noktalıyor ( Ne yazıkki hepsini noktalıyor)
You were kicked from #kanal by .. Reklam Yasak: Yazdığı mesaj:[ ...............................]

işte sonuç bi tekrar bi göz atman mümkünmü maymun oldu dediğin gibi ama şunu bi halletsem rahat bir nefes alıcam :)

aias: $noktala($2) yazman gerekli
feels: kick mesajı olarak ne donuyor onu bir yazarmısın komutuna aynı kick mesajını altına kopyala ve
//echo 12 -a Alienceye: $address($1,2) $mid($gettok(%temp,4-,32),2,600)
komutunu yaz neymiş şu kick mesajı?!

ayrıca bu korumaları cok aradınızmı :D

Antispam Bot'a reklam olarak gelen mesaj Bu : #Zirve tıkla canım

Son verdiğin kodları yaptıktan sonra atılan kick mesajı Bu:

Aysu_ RuGaL tarafından kanaldan atıldı (Reklam yasak Yazdığı mesaj : [ ................. ]

Daha önce verdiğinde tamam ayırıyordu ama çok parçalıyordu
dediğim gibi ww.. dom.. co.. için verdiğin kode sonucu çıkan sonuç bu :(

hepsinin nokta olarak cıkmaması gerekli en azında #Zi......... gibi cıkmalıydı
ayrıca koduda son olarak değiştirdim kodda . yoksa boşluğu kaale alıyor:

örnekleride:
//echo - $noktala(#Zirve tıkla canım)
- #Z.... tık.. ca...

//echo - $noktala([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
-
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
de.... co.

eğer çalışmıyorsa biryerlerde yanlış yapıyorsundur, tekrar tekrar kontrol et çünkü çalışıyor. Birde benden bu kadar artık diğerkodlarını siz değiştirin oldu olacak spam botunu yazdırıcaksınız bir suru nokta kodu var isteğinize göre editleyin artık :D

[ #z.... tık.. can.. ] Evet bu sefer Oldu :) çok teşekkür ederim Kolay gelsin :)

Yanıt: kick mesajına ... eklemek
 

ya arkadaslar ben Spawn Botumun Kline atmasını istiorum yani reklam yapanLara Kline attırabilirmiyiz nasıl ayarLayacagız? yardımcı Olabilirmisiniz?

Yanıt: kick mesajına ... eklemek
 

forumda cok bulabilirsin...

Cevap: kick mesajına ... eklemek
 

arkadaslar peki noktalama deilde mesajı parca parca kick mesajına nasıl aktarabiliriz ?

Cevap: kick mesajına ... eklemek
 

( $+ $replace($strip($1-),e,.,a,.,i,.,o,.,u,.,ı,.,ü,.) $+ )

Buradaki Harfleri Çoğaltabilirsin iş görüo işini görür yani..

Cevap: kick mesajına ... eklemek
 

güzel olmus eline saglık ama nickide yansıtıyor kick mesajına onu nasıl sılecez

Cevap: kick mesajına ... eklemek
 

( $+ $replace($strip($1-),e,.,a,.,i,.,o,.,u,.,ı,.,ü,.) $+ )

Buradaki Mavi Olan Yeri ($2-) Olarak Değiştirirsen Sorunun Hal Olacaktır..