mIRCbuL.Net Türkçe mIRC indir

YayinKick.tcl Kullanimi Ve Amaçlari:

Ssh,putty Kullanimina gerek Kalmadan Takili Kalan Yayini Veya, Radio hacklenmesinde Uygunsuz Yayinlara Aninda Mudahale Edebileceginiz güzel bir tcl:

Kurulumu:

Kodlayan Düzenleyen: KeMaNcI

Öncelikle radionuzun kurulu oldugu sc_serv.conf dosyamizi açip küçük nir edit yapiyoruz..

;AdminPassword=

satirinina admin şifrenizi belirtip kapatip tekrar açin.. ( Başinda ; işareti varsa kaldirin ) daha sonra aşagidaki bilgileri kendi radyonuz göre düzenleyerek tcl yi ekleyip tanidin:

##Buraya Radyonun İp Adresini Yazin..
set ip “ipadres”
##Buraya Radyonun Portunu Yazin..
set port “port”
##Buraya Radyonun Şifresini Yazin..
set pass “password”
##Buraya Radyonun Admin Şifresini Yazin..
set adminpass “adminpass”
## Buraya Komutun Geçerli Olacaği Kanali Yazin..
set kickkanal “#Dj”
## Başkada Birşeye Dokunmuyoruz. Gerisini Ben Hallederim

bind pub – !kickradyo kickradyo
proc kickradyo {nick host handle chan arg} {
global ip port pass adminpass kickkanal
if {$chan != $kickkanal} {return 0}
set sock [socket [duzelt $ip] [duzelt $port]]
puts $sock “GET /admin.cgi?pass=[duzelt $pass]&mode=kicksrc&pass=[duzelt $adminpass] HTTP/1.0″
puts $sock “User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.9)”
puts $sock “Host: $ip”
puts $sock “Connection: close”
puts $sock “”
flush $sock
close $sock
putserv “PRIVMSG #Dj :12Radyo Yayini Düşürülmüştür.. Lütfen Yayini Aliniz..”
}

proc duzelt { a } {
regsub -all {\}} $a “” a
regsub -all {\{} $a “” a
regsub -all {\;} $a “” a
regsub -all {\*} $a “” a
regsub -all ” ” $a “” a
return $a
}

######kickradyo.tcl#########
## Coded By KeMaNcI #
############################