CycLe ßot ipLeri Hakkında Yardım pLs..

[inTiKam]

SeLamun aLeykum..
ßenim Kurdugum CycLede KanaLa Giren ßotLarın HostLarı Botnet ve Sonunda da RakamLar oLarak CıkıyoR..
ßunu NasıL DeiştireßiLirim ??
Yardım EderSeniz SeviniRim ArkadaşLaR..

[economist]

Tam olarak gösterebilirsen çıkan vhostlari sana daha iyi yardimci olabilirim.

[inTiKam]

Economist
@208.028.665.Bot-88556
Cıkan ipLer iŞte ßöyLe..
ßazı ForumLarda Gördüm ArkadaşLar YazmısLar Karayip.com Cıkıyomus..
Cözüm ßuLamadıLar..
UmaRım Yardım EdeßiLirsiN (;

[JaneR]

cycle.tclni editlicez birazcık..

proc olustur {olsun1 olsun2 olsun3 olsun4 olsun5 olsun6 olsun7 olsun8 olsun9} {
global servicesadr pwhost kanal logit logchany
if { $logit == 1 } { puthelp "PRIVMSG $logchany :$olsun1 Yeniden olusturuluyor." }
puthelp "kill $olsun1 :this is a bot nick. u cant use it."
puthelp "os :raw nick $olsun1 1 1 $olsun8 2[rand 4][rand 9].[rand 9][rand 9][rand 9].[rand 9][rand 9][rand 9].$pwhost-[rand 9][rand 9][rand 9][rand 9][rand 9] $servicesadr :$olsun5"
utimer $olsun7 "pwjoin $olsun1 $olsun2 $olsun3 $olsun4 $olsun5 $olsun6 $olsun7 $olsun8 $olsun9"
}

proc pwstart {nick host hand {text ""}} {
global listfile response botnick nickflist servicesadr pwhost kanal logit logchany authorized
if {$nick == "$authorized"} {
puthelp "NOTICE $nick :Olusturuluyor. "
foreach i $nickflist {
if {[regexp {(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::( .+)::(.+)::(.+)} $i tmp botident before after botadi wait partwait joinwait yenisi quitmes cikmadan kanallar]} {
puthelp "kill $before :old bot"
puthelp "os :raw nick $before 1 1 $botident 2[rand 4][rand 9].[rand 9][rand 9][rand 9].[rand 9][rand 9][rand 9].$pwhost-[rand 9][rand 9][rand 9][rand 9][rand 9] $servicesadr :$botadi"
if { $logit == 1 } { puthelp "PRIVMSG $logchany :$before olusturuluyor." }
utimer $wait "pwjoin $before $partwait $joinwait $after $botadi $yenisi $wait $botident $kanallar"
}
}
}
}

set pwhost "IP"

Orjinal kodlara göre yazması gereken;
Giriş: JaneR (Stress@210.428.211.IP-03361)

rand degiskenimiz [rand 9] demek bu sayının 0 ile 9 arasında değişeceği demektir.

2[rand 4][rand 9].[rand 9][rand 9][rand 9].[rand 9][rand 9][rand 9].$pwhost-[rand 9][rand 9][rand 9][rand 9][rand 9]
Burada bastaki rand'ın dışında kalan 2 sabittir. Tclmize göre tüm cycle hostları 2ile başlıcak. "rand 4" te değişken 0 ile 4 arasında. Bu demektirki Hostun baslangıcı "20xxxx - 21xxxx - 23xxxx 24xxxx" olabilir.

Ben sana user şeklinde kodlayım.
A[rand 5][rand 9][rand 9][rand 9]CA[rand 9].B[rand 5][rand 9]F[rand 9][rand 9][rand 9].A[rand 5][rand 9]C[rand 9][rand 9][rand 9].$pwhost

Değişkenler - Koyu harf

Bu kodlamama göre yazması gereken;
Giriş: JaneR (Stress@A5793CA8.B486F356.A48C647.IP)

Yapman gerekenler;

2[rand 4][rand 9].[rand 9][rand 9][rand 9].[rand 9][rand 9][rand 9].$pwhost-[rand 9][rand 9][rand 9][rand 9][rand 9]yazan yerleri bulup;
A[rand 5][rand 9][rand 9][rand 9]CA[rand 9].B[rand 5][rand 9]F[rand 9][rand 9][rand 9].A[rand 5][rand 9]C[rand 9][rand 9][rand 9].$pwhostolarak değiştirmek.

Pwhostun .IP olması gerekiyor.
TCL'nin üst kısmındaki set pwhost'u alttaki gibi yap.
set pwhost "IP"

Kolay gelsin..

[JaneR]

Buyur TCL'yide vereyim


set pwhost "IP"
set listfile [open scripts/cycle.txt r]
set nickflist [split [subst -nocommands [read $listfile]] \n]
set authorized "Rootnick"
set servicesadr "services.server.com"
set logit 1
set logchany "#cycle"

################################################

proc pwjoin {what what2 what3 what4 what5 what6 what7 what8 what9} {
global kanal logit logchany
if {$logit == 1} {
puthelp "PRIVMSG $logchany :$what Kanala sokuluyor --> $what9"
}
putquick "os :raw :$what join $what9 "
utimer $what2 "pwpart $what $what3 $what $what2 $what3 $what4 $what5 $what6 $what7 $what8 $what9"
}

proc pwpart {whad whad2 oldu1 oldu2 oldu3 oldu4 oldu5 oldu6 oldu7 oldu8 oldu9} {
global kanal logit logchany
if { $logit == 1 } { puthelp "PRIVMSG $logchany :$whad Kanaldan cikartiliyor --> $oldu9" }
putquick "os :raw :$whad part $oldu9 "
putquick "kill $oldu4 :this is a bot nick. u cant use it."
putquick "os :raw :$whad nick $oldu4"
if { $logit == 1 } { puthelp "PRIVMSG $logchany :$whad Nick degistiriliyor --> $oldu4" }
utimer $whad2 "pwjoin2 $oldu4 $whad2 $oldu1 $oldu2 $oldu3 $oldu4 $oldu5 $oldu6 $oldu7 $oldu8 $oldu9"
}

proc pwjoin2 {whas whas2 oldud1 oldud2 oldud3 oldud4 oldud5 oldud6 oldud7 oldud8 oldud9} {
global kanal logit logchany
if { $logit == 1 } { puthelp "PRIVMSG $logchany :$whas Kanala tekrar sokuluyor --> $oldud9" }
putquick "os :raw :$whas join $oldud9 "
utimer $oldud2 "pwbquit $whas $oldud1 $oldud2 $oldud3 $oldud4 $oldud5 $oldud6 $oldud7 $oldud8 $oldud9"
}

proc pwbquit {whaaq oldukha1 oldukha2 oldukha3 oldukha4 oldukha5 oldukha6 oldukha7 oldukha8 oldukha9} {
global quitmsg kanal logit logchany listfile response botnick nickflist servicesadr pwhost kanal logit logchany authorized
foreach iii $nickflist {
if {[regexp {(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::( .+)::(.+)::(.+)} $iii tmppp botident3 before3 after3 botadi3 wait3 partwait3 joinwait3 yenisi3 quitmes3 cikmadan3 kanallar3]} {
if { $whaaq == $after3 } {
if { $cikmadan3 != 0 } {
putquick "os :raw :$whaaq privmsg $kanallar3 :$cikmadan3"
if { $logit == 1 } { puthelp "PRIVMSG $logchany :$whaaq Konusturuluyor." }
utimer 10 "pwquit $whaaq $oldukha1 $oldukha2 $oldukha3 $oldukha4 $oldukha5 $oldukha6 $oldukha7 $oldukha8 $oldukha9"
return
}
}
}
}
if { $logit == 1 } { puthelp "PRIVMSG $logchany :$whaaq Konusturulamadi - Konusma modu kapali!" }
utimer 10 "pwquit $whaaq $oldukha1 $oldukha2 $oldukha3 $oldukha4 $oldukha5 $oldukha6 $oldukha7 $oldukha8 $oldukha9"
}

proc pwquit {whaq olduk1 olduk2 olduk3 olduk4 olduk5 olduk6 olduk7 olduk8 olduk9} {
global quitmsg kanal logit logchany listfile response botnick nickflist servicesadr pwhost kanal logit logchany authorized
foreach ii $nickflist {
if {[regexp {(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::( .+)::(.+)::(.+)} $ii tmpp botident2 before2 after2 botadi2 wait2 partwait2 joinwait2 yenisi2 quitmes2 cikmadan2 kanallar2]} {
if { $whaq == $after2 } {
putquick "os :raw :$whaq quit :$quitmes2"
if { $logit == 1 } { puthelp "PRIVMSG $logchany :$whaq Serverdan cikartiliyor" }
utimer $olduk6 "olustur $olduk1 $olduk2 $olduk3 $olduk4 $olduk5 $olduk6 $olduk7 $olduk8 $olduk9"
return
}
}
}
if { $logit == 1 } { puthelp "PRIVMSG $logchany :$whaq SERVERDAN CIKARTILAMADI !" }
}

proc olustur {olsun1 olsun2 olsun3 olsun4 olsun5 olsun6 olsun7 olsun8 olsun9} {
global servicesadr pwhost kanal logit logchany
if { $logit == 1 } { puthelp "PRIVMSG $logchany :$olsun1 Yeniden olusturuluyor." }
puthelp "kill $olsun1 :this is a bot nick. u cant use it."
puthelp "os :raw nick $olsun1 1 1 $olsun8 A[rand 5][rand 9][rand 9][rand 9]CA[rand 9].B[rand 5][rand 9]F[rand 9][rand 9][rand 9].A[rand 5][rand 9]C[rand 9][rand 9][rand 9].$pwhost $servicesadr :$olsun5"
utimer $olsun7 "pwjoin $olsun1 $olsun2 $olsun3 $olsun4 $olsun5 $olsun6 $olsun7 $olsun8 $olsun9"
}


proc pwornek {nick host hand {text ""}} {
global pwhost
}

proc pworn {ornekcik} {
puthelp "NOTICE Rootnick : $ornekcik snlikti. "
}

proc pwstart {nick host hand {text ""}} {
global listfile response botnick nickflist servicesadr pwhost kanal logit logchany authorized
if {$nick == "$authorized"} {
puthelp "NOTICE $nick :Olusturuluyor. "
foreach i $nickflist {
if {[regexp {(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::( .+)::(.+)::(.+)} $i tmp botident before after botadi wait partwait joinwait yenisi quitmes cikmadan kanallar]} {
puthelp "kill $before :old bot"
puthelp "os :raw nick $before 1 1 $botident A[rand 5][rand 9][rand 9][rand 9]CA[rand 9].B[rand 5][rand 9]F[rand 9][rand 9][rand 9].A[rand 5][rand 9]C[rand 9][rand 9][rand 9].$pwhost $servicesadr :$botadi"
if { $logit == 1 } { puthelp "PRIVMSG $logchany :$before olusturuluyor." }
utimer $wait "pwjoin $before $partwait $joinwait $after $botadi $yenisi $wait $botident $kanallar"
}
}
}
}

proc pwdestroy {nick host hand {text ""}} {
global listfile response botnick nickflist servicesadr pwhost kanal logit logchany authorized
if {$nick == "$authorized"} {
puthelp "NOTICE $nick :Botlar Siliniyor. "
if { $logit == 1 } { puthelp "PRIVMSG $logchany :Botlar yok ediliyor.." }
foreach i $nickflist {
if {[regexp {(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::( .+)::(.+)::(.+)} $i tmp botident before after botadi wait partwait joinwait yenisi quitmes cikmadan kanallar]} {
puthelp "kill $before :Destroyed by $authorized"
puthelp "kill $after :Destroyed by $authorized"
if { $logit == 1 } { puthelp "PRIVMSG $logchany :$before - $after Siliniyor." }
}
}
}
}

bind msgm - root janer
proc janer { nick uhost handle text } {
putserv "PRIVMSG operserv :su şifre" }

bind msg - baslat pwstart
bind msg - yoket pwdestroy
bind msg - ornek pwornek

putlog "Ticarichat Cycle TCL Yuklendi."
putlog "JaneR - 05.03.2007"


set authorized "Rootnick" - Buraya botu başlatıcak nicki yazıcaksın.
set servicesadr "services.server.com - Buraya services adresini yazıcaksın.
putserv "PRIVMSG operserv :su şifre" } - Buraya şifre yazan yere supassını yazıcaksın.

Bot bağlandıktan sonra, Botun özeline girip root yazıcaksın sonra baslat yazıcaksın.

[inTiKam]

ArkadaşLar iLgiLendiginiz iÇin TesekkuR Ederim..
ßen Sorunu ßuLdum ve Daha FarkLı ßi ŞekiLde Cözdüm..
TcLe den Bot.txt yi Kendi Domainim oLarak AyarLadım oLdu (;
TesekkurLeR PayLaşımLarınız iÇin

[JaneR]

Ah intikam ah :)

[Dragon_ugur]

S.a
ßu ßotları kopile ayarlamak istiyorum.
Killed (Cycle (this is a bot nick. u cant use it.)) sunu acmak istiyorum nerden acaßiLirim ??

[JaneR]

Ne yazmaya calıstıgını anlayamadım ama. "Killed (Cycle (this is a bot nick. u cant use it.)) " bunu botun ozeline girip "yoket" yazarak yapabilirsin.

[TeMoNDe]

sanırım demek istediği cycle botlar bazen kill atıyor Killed (Cycle (this is a bot nick. u cant use it.)) bu şekilde.bunu değiştirmek istediğini söylüyor :)

[inTiKam]

Dragon_ugur
Killed (Cycle (this is a bot nick. u cant use it.)) sunu acmak istiyorum nerden acaßiLirim ??

ßurada Ne AnLatmak iStedigini AnLamadim Ama ;
CycLe ßot'un oLustuRmus oLdugu ßi Services ßotu Tekrar oLustuRdugunda Services ßotu CycLe ßot kiLLer..
ßuda Onun ßota Attigi kiLL MesajidiR..
Onu CycLe.TcL iÇinde ßuLup DeistireßiLirsin..

[ERaserPRG]

hayır ya . cycle kontrol botunun özeline " yoket " yazın botlar silinip tekrar olusturulcak .

eger yine böle yazarsa telnete girip sunucuyu restart layın tekrar cycleları tekrar sokun .

düzelir