Çevrimdışı

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

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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Kolay gelsin teşekkürler.

 

Çevrimdışı

Kod Calısmadı abi

 

Çevrimdışı

çalışmayan yerini söylermisiniz?

__________________

 

Çevrimdışı

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"

 

Çevrimdışı

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

__________________

 

Çevrimdışı

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

__________________

 

Çevrimdışı

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 ..

 

Çevrimdışı

qusursuz arkadaşım yukarda yazılanlardan anlamadıgınız nokta neresidir.

__________________

 

Çevrimdışı

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 .

 

Çevrimdışı

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.

__________________