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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   Eggdrop, NeoStats, BNC (https://www.ircforumlari.net/eggdrop-neostats-bnc/)
-   -   Radyo kick tcl (https://www.ircforumlari.net/eggdrop-neostats-bnc/325255-radyo-kick-tcl.html)

Sessiz 31 Mart 2010 19:39

Radyo kick tcl
 
Merhaba arkadaşlar. BucaLI arkadaşım boyle bir kod paylaşmış zamanında fakat çalışmıyordu. Ayrıca bir kaç istek vardı.
Kod:

set kickkanal "#dj"

bind pub - !kickyauf kickyauf

proc kickyauf {nick host handle chan arg} {

if {$chan != $kickkanal} {return 0}

set ip "Ip"
set port "Port"
set adminpass "Adminpass"

set sock [socket [duzelt $ip] [duzelt $port]]
puts $sock "GET /admin.cgi?pass=[duzelt $adminpass]&mode=kicksrc 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 :2 Yayındasınız. "
}

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
}
putcmdlog "Load Radyo kick. Coded Sessiz"

Komut Dj kanalında kullanılır.
!kickyauf 'dur. Isterseniz değiştirebilirsiniz, bu kodları alıp bir kick.tcl dosya oluşturunuz daha sonra Eggdrop/scripts klasörüne atın.
Radyo.conf unuzu açarak en alt satıra, source scripts/kick.tcl satırını ekleyin kaydedin ve botu bir defa killeyin.
Bu kadar :) Kolay gelsin teşekkürler.

IcNaMeK 23 Haziran 2010 12:43

Cevap: Radyo kick tcl
 
Kod Calısmadı abi

yanki 23 Haziran 2010 12:49

Cevap: Radyo kick tcl
 
çalışmayan yerini söylermisiniz?

IcNaMeK 23 Haziran 2010 12:54

Cevap: Radyo kick tcl
 
Kodu Radyo Botuma Yukledim ama calısmadı. Sunucuma Bu kodu tcl olarak attım rayo botunada tcleyi yükledim ama yinede calısmadı

set kickkanal "#dj"
bind pub - !kickyauf kickyauf
proc kickyauf {nick host handle chan arg} {
if {$chan != $kickkanal} {return 0}
set ip "95.168.171.134"
set port "2009"
set adminpass "şifresi"
set sock [socket [duzelt $ip] [duzelt $port]]
puts $sock "GET /admin.cgi?pass=[duzelt $adminpass]&mode=kicksrc 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 :2 Yayındasınız. "
}
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
}
putcmdlog "Load Radyo kick. Coded Sessiz"

yanki 23 Haziran 2010 13:08

Cevap: Radyo kick tcl
 
Arkadaş nerde hata yapdigini düşüne dursun bende onla ilgili karşilaştiklarimi yazayim..
görüldügü gibi tcl kodlayıcısı arkadaş nedense yardım istiyor burada.
Alıntı:

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 #
############################
Alıntı:

<KeMaNcI> putcmdlog "Load Radyo kick. Coded Sessiz"
<KeMaNcI> aynen
<KeMaNcI> yazdım
<yanki> kick yapin şimdi
<KeMaNcI> neyi
<KeMaNcI> kick yapıyım
<KeMaNcI> [13:02:08] <&KeMaNcI> !kick
<KeMaNcI> [13:02:27] <&KeMaNcI> !kickyauf
<yanki> şuan yayininiz Frozen durumda.
<yanki> bekleyin bi sn size yeni tcl verecegim
<KeMaNcI> tamam
<yanki> mircbul size mi ait ?
<KeMaNcI> evet
<yanki> peki kendi sitenizde radyokick.tcl'yi
<yanki> isimleri degiştrerek
<yanki> yayinlamasini yapmişsiniz.
<yanki> ve Bucalinin tcl'si o .
<KeMaNcI> ondan haberim yok valla ben
<KeMaNcI> telnete bakıom
<KeMaNcI> weblere karısmam
<yanki> Kodlayan Düzenleyen: KeMaNcI
<yanki> bunu ßaşkasi yazamaz deilmi.
<KeMaNcI> asla
<KeMaNcI> ben yazmadım
<yanki> inat olsun diede yazamaz.
<KeMaNcI> kimsenin
<KeMaNcI> hakkına
<KeMaNcI> tecavuz
<KeMaNcI> etmem

İyi Çalişmalar Dilerim

yanki 23 Haziran 2010 17:47

Cevap: Radyo kick tcl
 
Yazilan kelimeden nasil Bir yorum Çıkartiniz anlamadim ama.. Ben biliyorum kimin Kodlayıcısı oldugunu emin olun.. Ondan dolayi yazilmiş olanlari çzmeniz gerekiyor..

qusursuz 23 Ağustos 2010 17:24

Cevap: Radyo kick tcl
 
S.a ;

Abiler bu zımbırtının çalışır hali ciddi anlamda gerekli bana , burası paylaşım alanı şu sözlerimle yanlış kelime kullanmıyorumdur umarım lakin ücretli dahi almayı düşünüyorum bilginize. Yardım amaçlı 2 arakdaşa pm attım zaten ek olarak burdan da genel bi bildiri yapayım ..

yanki 23 Ağustos 2010 17:31

Cevap: Radyo kick tcl
 
qusursuz arkadaşım yukarda yazılanlardan anlamadıgınız nokta neresidir.

qusursuz 23 Ağustos 2010 17:43

Cevap: Radyo kick tcl
 
Yukarıda anlamadığım birşey yok , varsada helal bana bir tcl'nin yazarının nick satırını değişip tcl ben yazdım edalarıyla yayınlara kızmışsınız ki doğrusuda bu olsa gerek şahsım adına bu başkası beni bağlamaz.

------------------

Ben kendi adıma bu tclnin çalışınanı ihtiyacım olduğunu arz ettim .

yanki 23 Ağustos 2010 17:48

Cevap: Radyo kick tcl
 
Tclde kırmızı yerleri kendinize göre düzenleyip daha sonra Dj kanal'inda !kickyauf yaparak denediniz mi ? çalişmadigini nasil nerden kanıtladiniz onuda gösteriniz.


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 00:14.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk