Forum
Aktif konular
Üyeler
Kurallar
Arama
Anti Spam Botu Anti Spam Botu
-
miLLet bana harbiCisinden saglam bi spam botu laZım bi spam botu yaptim gibi bi$ey oda haTa vaRdi kafaYı sıyıRacagım vakiT bulup ugraSamıyoRumDa su konuYa bi El atSanız Hic f€næ oLmaz.. guzel bi antispam codu veRiseNiz cok Sevini®im...¤¤¤
-
buna bi bak...
on !*:join:#:{ if ($readclones(clones,joindetect) == on) { jcscan $chan $nick } }
#who.halt off
raw 352:*:halt
raw 315:*:.disable #who.halt | halt
#who.halt end
alias dclonescan { dialog -m clone.dialog clone.dialog }
dialog clone.dialog {
title "DéLi mIRC clonescan"
option dbu
size -1 -1 200 180
box " channel ", 1, 5 2 70 24
combo 2, 10 10 60 40, drop
box " actions ", 3, 5 30 70 36
button "scan", 4, 9 39 30 10
button "Ban", 5, 41 39 30 10
button "Kick", 6, 9 51 30 10
button "KickBan", 7, 41 51 30 10
box "", 8, 5 71 189 85
text "num", 9, 14 78 14 10
text "host/nicks", 10, 32 78 25 10
list 14, 9 86 181 74, vsbar hsbar
box "", 15, 80 2 114 64
check " Giren Cloneleri Göster", 16, 85 7 62 12
check " Giren CLoneleri Kickle", 17, 85 18 60 12
check " Giren Cloneleri Banla", 18, 85 29 70 12
check " Clone Kick Mesajı", 19, 85 40 64 11
edit "", 20, 85 51 104 11, autohs limit 150
button "Kapat", 21, 82 165 26 10, cancel
}
on *:dialog:clone.dialog:init:*:{ unset %cfg.* | did -r clone.dialog 14 | did -m clone.dialog 20 | fillcloneoptions }
on *:dialog:clone.dialog:sclick:*:{
if ($did == 4) { if ($did(clone.dialog,2) == $null) { halt } | else { did -r clone.dialog 14 | cscan $did(clone.dialog,2) } }
if ($did == 5) { if ($did(clone.dialog,2) == $null) { halt } | else { if ($me !isop $did(clone.dialog,2)) { halt } | mode $did(clone.dialog,2) +b *!*@ $+ $gettok($did(clone.dialog,14,$did(clone.dialog,14).sel),4,32) } }
if ($did == 6) { if ($did(clone.dialog,2) == $null) { halt } | else { if ($me !isop $did(clone.dialog,2)) { halt } | _ckick $did(clone.dialog,2) $gettok($did(clone.dialog,14,$did(clone.dialog,14).sel),4,32) } }
if ($did == 7) { if ($did(clone.dialog,2) == $null) { halt } | else { if ($me !isop $did(clone.dialog,2)) { halt } | mode $did(clone.dialog,2) +b *!*@ $+ $gettok($did(clone.dialog,14,$did(clone.dialog,14).sel),4,32) | _ckick $did(clone.dialog,2) $gettok($did(clone.dialog,14,$did(clone.dialog,14).sel),4,32) } }
if ($did == 16) { if ($did(clone.dialog,16).state == 1) { %cfg.joindetect = on } | else { %cfg.joindetect = off } }
if ($did == 17) { if ($did(clone.dialog,17).state == 1) { did -u clone.dialog 18 | %cfg.kick = on | %cfg.kickban = off } | else { %cfg.kick = off | if ($did(clone.dialog,18).state == 1) { %cfg.kickban = on } | else { %cfg.kickban = off } } }
if ($did == 18) { if ($did(clone.dialog,18).state == 1) { did -u clone.dialog 17 | %cfg.kickban = on | %cfg.kick = off } | else { %cfg.kickban = off | if ($did(clone.dialog,17).state == 1) { %cfg.kick = on } | else { %cfg.kick = off } } }
if ($did == 19) { if ($did(clone.dialog,19).state == 0) { did -m clone.dialog 20 | %cfg.kickm = off } | else { did -n clone.dialog 20 | %cfg.kickm = on | %cfg.kickmsg = $did(clone.dialog,20).text } }
if ($did == 21) { %cfg.kickmsg = $did(clone.dialog,20).text | .timersaveclones -m 1 100 savecloneoptions }
}
alias fillcloneoptions {
if ($readclones(clones,joindetect) == on) { did -c clone.dialog 16 | %cfg.joindetect = on }
if ($readclones(clones,joinkick) == on) { did -c clone.dialog 17 | %cfg.kick = on }
if ($readclones(clones,joinkickban) == on) { did -c clone.dialog 18 | %cfg.kickban = on }
if ($readclones(clones,kickm) == on) { did -c clone.dialog 19 | did -n clone.dialog 20 | did -a clone.dialog 20 $readclones(clones,kickmsg) | %cfg.kickm = on }
}
alias savecloneoptions {
if (%cfg.joindetect != $null) { writeclones clones joindetect %cfg.joindetect }
if (%cfg.kick != $null) { writeclones clones joinkick %cfg.kick | if (%cfg.kickban == off) { writeclones clones joinkickban off } }
if (%cfg.kickban != $null) { writeclones clones joinkickban %cfg.kickban | if (%cfg.kick == off) { writeclones clones joinkick off } }
if (%cfg.kickm != $null) { writeclones clones kickm %cfg.kickm | writeclones clones kickmsg %cfg.kickmsg }
}
alias space { if ($1 == $null) { return $chr(160) } | if ($1 !isnum) { halt } | return $str($chr(160),$1) }
alias _ckick {
var %ckick.chan $1, %ckick.total $nick($1,0), %ckick.host *!*@ $+ $2, %ckick.reason $3-
if ($1 == $null) || ($2 == $null) { halt }
:loop
if (%ckick.total == 0) { goto end }
if ($nick(%ckick.chan,%ckick.total) == $me) { dec %ckick.total | goto loop }
if (%ckick.host == $address($nick(%ckick.chan,%ckick.total),2)) { if (%ckick.reason == $null) { .quote KICK %ckick.chan $nick(%ckick.chan,%ckick.total) :1Clone Bulunan Adres 2 %ckick.host } | else { .quote KICK %ckick.chan $nick(%ckick.chan,%ckick.total) : $+ %ckick.reson } }
dec %ckick.total
goto loop
:end
}
alias filldialogchan {
var %dchan $chan(0), %daux 1
:loop
if (%daux > %dchan) { goto end }
did -a clone.dialog 2 $chan(%daux)
if ($chan(%daux) == %cscan.chan) { did -c clone.dialog 2 %daux }
inc %daux
goto loop
:end
}
alias readclones {
if ($1 == $null) || ($2 == $null) { halt }
return $readini clones.ini $1 $2
}
alias writeclones {
if ($1 == $null) || ($2 == $null) || ($3 == $null) { halt }
.writeini clones.ini $1 $2 $3-
}
alias makeclonesconf { writeclones clones joindetect on | writeclones clones joinkick off | writeclones clones joinkickban off | writeclones clones kickm off }
alias clon {
hmake clones 500
var %x = 1, %c = $iif($1 ischan,$1,$active),%ticks = $ticks,%clones
if ($window(@clones)) window -c @clones
window @clones
if (%c ischan) && ($ialchan(*,%c,0) != $nick(%c,0)) { .enable #clones | aline @clones Updating IAL.. | .ial on | who %c }
while ($nick(%c,%x)) {
var %i = $ifmatch
if ($hget(clones,$address(%i,2)) == $null) && ($ialchan($address(%i,2),%c,0) > 1) {
inc %clones $ialchan($address(%i,2),%c,0)
hadd clones $address(%i,2) $address(%i,2)
var %temp,%a = 1
while ($ialchan($address(%i,2),%c,%a)) {
set %temp %temp $+ $chr(44) $ialchan($address(%i,2),%c,%a).nick
inc %a
}
aline @clones $ialchan($address(%i,2),%c,0) clones from $address(%i,2) $+ : $mid(%temp,2,$calc($len(%temp) - 1))
}
inc %x
}
aline @clones -
aline @clones Group(s) of clones found: $hmatch(clones,*,0) (Total: %clones $+ )
aline @clones Synsched in $duration($calc(($ticks - %ticks) / 1000)) $gettok($calc(($ticks - %ticks) / 1000),2,46) $+ millisecs
hfree clones
}
#clones off
raw 315:*: cs $2 | .disable #clones
#clones end
on *:connect: .disable #clones
alias clonescan {
if ($chan == $null) && ($1 == $null) { echo -a [clones]: Syntax: /clonescan #chan $+ $chr(124) $+ config | halt }
if ($1 == $null) { %cscan.chan = $chan }
elseif ($1 ischan) { %cscan.chan = $1 }
if ($dialog(clone.dialog) == $null) { dclonescan }
filldialogchan
if ($1 != config) { .timercallcscan -m 1 10 cscan %cscan.chan }
}
alias cscan {
%cscan.chan = $1 | %cscan.total = $nick($1,0) | %cscan.clone.num = 0
.enable #who.halt | .quote WHO %cscan.chan
:loop
if (%cscan.total == 0) { goto end }
%cscan.clone = $ialchan($address($nick(%cscan.chan,%cscan.total),2),%cscan.chan,0)
%cscan.host = $address($nick(%cscan.chan,%cscan.total),2)
if (%cscan.clone > 1) {
if (%cscan.info. [ $+ [ %cscan.host ] ] != $null) { goto endb }
%cscan.info. [ $+ [ %cscan.host ] ] = 1
:loopa
if (%cscan.clone == 0) { goto enda }
inc %cscan.clone.num
if ($istok(%cscan.clone.nicks,$ialchan(%cscan.host,%cscan.chan,%cscan.clone).nick,32) == $true) { dec %cscan.clone | goto loopa }
%cscan.clone.nicks = %cscan.clone.nicks $ialchan(%cscan.host,%cscan.chan,%cscan.clone).nick
dec %cscan.clone | goto loopa
:enda
did -a clone.dialog 14 $space(3) $ialchan(%cscan.host,%cscan.chan,0) $space(6) $right(%cscan.host,$calc($len(%cscan.host) - 4)) ( $+ %cscan.clone.nicks $+ )
unset %cscan.clone.nicks
}
:endb
dec %cscan.total | goto loop
:end
if (%cscan.clone.num == 0) { did -a clone.dialog 14 $space(3) 0 $space(6) no clones found | unset %cscan* | halt }
unset %cscan*
}
alias jcscan {
%cscan.chan = $1 | %cscan.total = $nick(%cscan.chan,$2) | %cscan.clone.num = 0
%cscan.clone = $ialchan($address($nick(%cscan.chan,%cscan.total),2),%cscan.chan,0)
%cscan.host = $address($nick(%cscan.chan,%cscan.total),2)
if (%cscan.clone > 1) {
if (%cscan.info. [ $+ [ %cscan.host ] ] != $null) { goto end }
%cscan.info. [ $+ [ %cscan.host ] ] = 1
:loop
if (%cscan.clone == 0) { goto end }
inc %cscan.clone.num
if ($istok(%cscan.clone.nicks,$ialchan(%cscan.host,%cscan.chan,%cscan.clone).nick,32) == $true) { dec %cscan.clone | goto loopa }
%cscan.clone.nicks = %cscan.clone.nicks $ialchan(%cscan.host,%cscan.chan,%cscan.clone).nick
dec %cscan.clone | goto loop
:end
echo %cscan.chan 1- Clones - 4 $+ $ialchan(%cscan.host,%cscan.chan,0) $+ 12 - CLone Adres - 74[7 $+ $right(%cscan.host,$calc($len(%cscan.host) - 4)) $+ 4 ] 12 - NickLer - 7 4[7 $+ %cscan.clone.nicks $+ 4]7
if ($me !isop %cscan.chan) { goto e }
if ($readclones(clones,joinkickban) == on) { .quote MODE %cscan.chan +b *!*@ $+ $right(%cscan.host,$calc($len(%cscan.host) - 4)) }
if ($readclones(clones,joinkick) == on) || ($readclones(clones,joinkickban) == on) { if ($readclones(clones,kickm) == on) { _ckick %cscan.chan $right(%cscan.host,$calc($len(%cscan.host) - 4)) $readclones(clones,kickmsg) } | else { _ckick %cscan.chan $right(%cscan.host,$calc($len(%cscan.host) - 4)) } }
:e
unset %cscan*
}
}
-
scanner olarakta bunu kullan
menu channel {
Clone # :clonescan #
}
alias clonescan {
if ($1 ischan) {
unset %clone.*
.remove clones.clz
set %clone.start $ticks
set %clone.start2 $time
set %clone.all $nick($1,0)
:start
inc %clone.i
if (%clone.address.done. [ $+ [ $address($nick($1,%clone.i),2) ] ] == $null) {
set %clone.address.all. [ $+ [ $address($nick($1,%clone.i),2) ] ] $ialchan($address($nick($1,%clone.i),2),$1,0)
if (%clone.address.all. [ $+ [ $address($nick($1,%clone.i),2) ] ] > 1) {
inc %clone.groups
:start2
inc %clone.ii
set %clone.address.nicks. [ $+ [ $ialchan($address($nick($1,%clone.i),2),$1,1) ] ] %clone.address.nicks. [ $+ [ $ialchan($address($nick($1,%clone.i),2),$1,1) ] ] & $userprefix($ialchan($address($nick($1,%clone.i),2),$1,%clone.ii).nick,$1) $+ $ialchan($address($nick($1,%clone.i),2),$1,%clone.ii).nick
inc %clone.tot
if (%clone.ii != %clone.address.all. [ $+ [ $address($nick($1,%clone.i),2) ] ]) { goto start2 }
set %magick.text %clone.address.nicks. [ $+ [ $ialchan($address($nick($1,%clone.i),2),$1,1) ] ]
set %magick.len $len(%magick.text)
set %magick.magick $replace($right(%magick.text,$calc(%magick.len -1)),&,2&12)
write clones.clz echo @clonez 4Group %clone.groups $+ :2 %clone.address.all. [ $+ [ $address($nick($1,%clone.i),2) ] ] Clones4:12 %magick.magick 2at site:12 $address($nick($1,%clone.i),2)
unset %magick.*
set %clone.address.done. [ $+ [ $address($nick($1,%clone.i),2) ] ] x
unset %clone.ii
}
}
if (%clone.i != %clone.all) { goto start }
window -c @clonez
if (%clone.tot != $null) {
iecho CloneScan on12 $1 3took4 $calc(($ticks - %clone.start) / 1000) 3secs, and4 %clone.tot 3clones on4 %clone.groups 3groups was found.
.timer -m 1 1200 window @clonez
.timer -m 1 1250 .play -c $me clones.clz 2
}
else iecho Clonescanner Found 0 clones on $1
unset %clone.*
}
}
alias iecho {
set %tsta $readini mirc.ini options n4
if ($gettok(%tsta,12,44) == 1) { set %ts $timestamp }
echo -a 3 $+ $+ %ts $+ *** 4 $+ $1 $+ 3 $2-
if (Status isin $active) && (Window isin $active) {
echo -a $+ $colour(info) $+ -
}
unset %ts %tsta
}
-
bu ne oluyo kardeşler
-
genc hacker en kısa zamanda deneyecegim su aralar derseler filan bas kaldıramıyorum evdeki pocde coktu :)) bide bu spma bot için logo fln gerekcek mi ?
-
harika Bişi Buu manyak flood yapıyor millet takır takır düşüyor :))) AMa Herkese Vermeseniz Daha İİ oLUr
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Toplam Hit: 13525 Toplam Mesaj: 6
Cevapla