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

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

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.

Cevap: Radyo kick tcl

çalışmayan yerini söylermisiniz?

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"

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

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

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

Cevap: Radyo kick tcl

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

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 .

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.

Cevap: Radyo kick tcl

eggdrop1.6.19 Şuda eggdrop versiyonum unutmuşum pardon.

hmm şimdi güzel abicim ;

set ip "Ip"
set port "Port"
set adminpass "Adminpass"
su satırları kendime gore ayarladim İ

sunucu ip aynı zamanda radyo ip : 94.x.x.97 vari..
port : 8.x.x.x

ve sc_serv.conf a ekledigim admin pass i ekledim ..

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] seklinde girip site uzerinden kickleye biliyorum yayını..

ama bu sekilde çalışmıyor ..

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

+ bi konu şu , aşağıdaki yayındasınız vs hic bi sekilde mesaj vermiyor dj kanalına..

Radyo.tcl Radyo nickinde giris yapior Radyo nickine root yazdim services.conf a ekledimde raw da felan bi sıkıntı yoq .

Ekstram bi, olay varsa oda sc_trans_linux linux icin oto dj ki sanırsam hic bi alakası yok onla amac kimse yokken onun yayın alıp millet gelince !kick vs diip yayıan gecmesi zaten hepimizin istedigi bu sanırsam

putserv "PRIVMSG #Dj :2 Yayındasınız. "

Cevap: Radyo kick tcl

Nerde var yanlışım _?

Cevap: Radyo kick tcl

Bu tcl çalışmıor arkadaşlar.

Cevap: Radyo kick tcl

Çalışmıyor, Herhangi Bir Tepkide Vermiyor.
Kullanılan Versiyon eggdrop1.6.17 bununla alakalı mı acaba? 21 dede dendim ondada çalışmadı

Cevap: Radyo kick tcl

Arkadaşlar, sorunu Çözebilen, Veya Elinde Çalışanı olan varmı?

Cevap: Radyo kick tcl

Birde Bunu Deneyin

Alıntı:

## Buraya radyonun kurulu olduğu dizinde "sc_serv.conf" un yerini belirtiyoruz.
set dosya_adresi "../radyo/sc_serv.conf"

## Buraya komutun geçerli olacağı kanalı yazıyoruz.
set kickkanal "#dj"

## Başkada birşeye dokunmuyoruz. Gerisini ben hallederim

bind pub - !kickradyo kickradyo

proc kickradyo {nick host handle chan arg} {
global dosya_adresi kickkanal

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

set dosya [open $dosya_adresi r]
set liste [split [subst -nocommands [read $dosya]] "\n"]
regexp -- {DestIP=(.+?) Yport, port to connect to} $liste - ip
regexp -- {PortBase=(.+?) Optional Parameters} $liste - port
regexp -- {Password=(.+?) PortBase. This is} $liste - pass
regexp -- {AdminPassword=(.+?) AutoDumpUsers controls whether} $liste - adminpass
close $dosya

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
}

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 BuCaLI #
############################

Cevap: Radyo kick tcl

Güzelmiş. Ama admin pass yoksa bu da atmicaktır çoğu kişi adminpass ayarlamayıp yayın şifresiyle attırıyor. Kendi kullandığım şu var çalışan;

PHP- Kodu:

   set kickkanal "#DJ"

bind pub - !djat kick

proc kick {nick host handle chan arg} {
global ip port adminpass kickkanal
if {$chan != $kickkanal} {return 0}

# asagisi radyo IP 'si olcak.
set ip "33.33.22.22"
# simdi de portunu yaz.
set port "8080"
# admin pass veya kullanmiyosan yayin sifren
set adminpass "sifrem33"

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 :Yayindaki DJ dusuruldu, lutfen yayini aliniz. Komutu gereksiz kullanmanizin tespit edilmesi halinde yetkilerinizin alinabilecegini unutmayiniz..."
}

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
}

Bunu aynı bota koycaksanız ek bir tcl ile source edin, başka tcl içine koyunca çalışmayabilir. Komut: !djat

Cevap: Radyo kick tcl

Arkadaşlar Genel Olarak Rica Ediyorum Herkesden Aldıgınız Tcllerin Yazılımların isimlerini Degiştirmeyin deiştirmeden Kullanın Genel bir ricadir Emek hırsızlıgına Gerek yok hiç bir manasıda Yok..

Cevap: Radyo kick tcl

Evt bende de çalışmadı

Cevap: Radyo kick tcl

Alıntı:

epicemic Nickli Üyeden Alıntı (Mesaj 1041306567)

Evt bende de çalışmadı

Kod:

##Buraya Radyonun İp Adresini Yazın..

set ip "94.242.238.61"

##Buraya Radyonun Portunu Yazın..

set port "8888"

##Buraya Radyonun Şifresini Yazın..

set pass "asdasdasd"

##Buraya Radyonun Admin Şifresini Yazın..

set adminpass "asdasdasd"

## Buraya Komutun Geçerli Olacağı Kanalı Yazın..

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 Yayını Düşürülmüştür.. Lütfen Yayını Alı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

}
 

######kickradyo.tcl#########

## Coded By LyK`a                    #

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

Bide bunu dene.