lookjapan.COM - IRC ve mIRC dünyasının forumu!   buy vps


  lookjapan.COM - IRC ve mIRC dünyasının forumu! IF - mIRC Scripting Hazır Kodlar


Like Tree3Teşekkürler;
  • 3 Post By Toprak

Yeni Konu   Cevap Yaz

 
LinkBack Seçenekler Stil
Alt 27 Ocak 2015, 22:55   #1
Bir umuttur yaşamak
 
Toprak - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: 09 Eylül 1991
Bulunduğu yer: Konya
Mesajlar: 323
WEB Sitesi: https://www.teklan.com.tr/
IRC Sunucusu: irc.teklan.com.tr
İlgi Alanı: mIRC Scripting
Alınan Beğeni: 211
Standart BNC-Sistem (Socket Teknoloji)

Socket BNC-Sistem Ismı uzerinde oldugu gibi hiç bir servis kullanmadan , sadece mirc uzerine BNC ( Kalici Nick ) yapabilirsiniz artık , tabi hiç birşey orjinali gibi olmaz , bende elimden geldigi kadar yapabildigimi yaptim ve böyle birşey cıktı ortaya ins. işinize yarar.

Komut Paneli ;


[07:41] <Aeg> .bnckomut
[07:41] <BNC-System> BNC-System Komut Paneli -
[07:41] <BNC-System> -
[07:41] <BNC-System> BNC-System yetkili eklemek icin *** .yetkiekle Nick ***
[07:41] <BNC-System> BNC-System yetkili silmek icin *** .yetkisil Nick ***
[07:41] <BNC-System> BNC-System yetkili listesi gormek icin *** .yetkilist ***
[07:41] <BNC-System> BNC-System BNC Ekli listeyi gormek icin *** .bnclist ***
[07:41] <BNC-System> BNC-System BNC Ekleme yapabilmek icin BNC-System 'in ozeline *** .bncekle ** yaziniz.
[07:41] <BNC-System> *** BNC Ekleme kismindaki Hostunuz kismini yazarak ozel host aldirtabilirsiniz. ***
[07:41] <BNC-System> BNC-System BNC Silmek icin BNC-System 'in ozeline *** .bncsil ** yaziniz.
[07:41] <BNC-System> -
[07:41] <BNC-System> BNC-System Komut The End ~
[07:41] <BNC-System> Yapimci: *** By Aeg ***

Sifre Girildiginde Log Görüntülenme ;


[07:35] <Set> .girdim 123456
[07:35] <Aeg> Sifreyi Dogru Bildiniz
[07:35] <Aeg> [25/12/2010 07:27:21] [Mnet] :!tv kanal yazarak yayin akisini ögrenebilmek icin => #yayinakisi
[07:35] <Aeg> [25/12/2010 07:27:21] [Mnet] :Son dakika haberlerini canli almak icin => #haber
[07:35] <Aeg> [25/12/2010 07:27:21] [Mnet] : webmaster pagerank/backlink/index/alexa/dmoz degerleri icin => #webmaster
[07:35] <Aeg> [25/12/2010 07:27:28] [Maytap8651] :Rüyana girsin öcüler
[07:35] <Aeg> [25/12/2010 07:27:28] [Maytap8651] :tesekkür
[07:35] <Aeg> [25/12/2010 07:33:45] [Mnet] :!tv kanal yazarak yayin akisini ögrenebilmek icin => #yayinakisi
[07:35] <Aeg> [25/12/2010 07:33:45] [Mnet] :Son dakika haberlerini canli almak icin => #haber
[07:35] <Aeg> [25/12/2010 07:33:45] [Mnet] : webmaster pagerank/backlink/index/alexa/dmoz degerleri icin => #webmaster
[07:35] <Aeg> [25/12/2010 07:33:53] [tarKan27m] :slm cnm isim nedir



Kullanim Icın Gerekenler;


1. Sunucudan Kendi Nickinle Cıkıs Yapmak

2. Sunucuya Girdiginde Bot'un Ozeline .girdim Sifren olarak giriş yapma
3. Windows Sanal PC'iniz varsa ordan sokulma ( Olmasi Gerek Kalici Olmasi İçin )


/baglan <= yazarak bot'u baglarsiniz
/kopart <= yazarak kapatirsiniz.

Ayarlari Yaptikdan Sonra vs. işte Kullanirsaniz Görürsünüz ins. işinize yarar.



Kod:
alias bncnick return Aeg
alias bbotnick return BNC-System
alias bnickpass return 12345
alias bopers return Aeg 123456
alias bsupass return 123456
alias masterchan return #opers
alias masternickler return Aeg
alias bsunucu return irc.maytap.net 6667
alias sunucuident return 63
alias chanlar return #sohbet,#maytap,#opers,#radyo,#yarisma,#oyun
 alias bncekle {
  if (!$istok(%yetkili $chr(32) $masternickler ,$1,32)) { sw $sockname privmsg $1 $1 bu komutu kullanmaye yetkili degilsin! | halt }
  if ($2 == $null) { sw $sockname privmsg $1 Botun Gircegi Nicki Yazmayi Unuttunuz!, Komut: .bncekle Nickiniz NickSifreniz OperNICK OperPASS Hostunuz | halt }
  if $read(bnc.txt,w,$+(*,$2,*))  { sw $sockname privmsg $1  $2  Zaten Eskiden listede Ekli! | halt }
  if ($3 == $null) { sw $sockname privmsg $1 Botun Gircegi Nickin Sifresini Yazmayi Unuttunuz!, Komut: .bncekle Nickiniz NickSifreniz OperNICK OperPASS Hostunuz | halt }
  if ($4 == $null) { sw $sockname privmsg $1 Botun Gircegi Oper Nicki Yazmayi Unuttunuz!, Komut: .bncekle Nickiniz NickSifreniz OperNICK OperPASS Hostunuz | halt }  
  if ($5 == $null) { sw $sockname privmsg $1 Botun Gircegi Oper Nicki Sifresini Yazmayi Unuttunuz!, Komut: .bncekle Nickiniz NickSifreniz OperNICK OperPASS Hostunuz  | halt }
  write bnc.txt $2-
  sw $sockname privmsg $1  BNC Sistem Ayarlariniz Kayit Edilmistir.
  sw $sockname privmsg $1 -
  sw $sockname privmsg $1 [BNC Nick] $2
  sw $sockname privmsg $1 [BNC Sifre] $3
  sw $sockname privmsg $1 [BNC Opers Rumuz] $4 [BNC Opers Sifre] $5
  if ($6) { sw $sockname privmsg $1 [BNC Nick Host] $6 }
  sw $sockname privmsg $masterchan  $2  BNC Systemi eklendi
}
 alias bncsil {
  if (!$istok(%yetkili $chr(32) $masternickler ,$1,32)) { sw $sockname privmsg $1 $1 bu komutu kullanmaye yetkili degilsin! | halt }
  if ($2 == $null) { sw $sockname privmsg $1 Nicki Yazmayi Unuttunuz!, Komut: .bncsil Nick | halt }
  if ($1 !== $2) { sw $sockname privmsg $1 $1 Herkes Sadece Kendi Nickini Silebilir! | halt }
  if !$read(bnc.txt,w,$+(*,$2,*))  { sw $sockname privmsg $1  $2  Zaten Eskiden listede Bulunmuyor! | halt }
  write $+(-dI,$readn) bnc.txt
  sw $sockname privmsg $1  $2  Silindi.
  sockclose $+(clon,$chr(11),$2)
}
alias bnclist {
  var %s 1
  var %ss $lines(bnc.txt)
  if (%ss == 0) { sw $sockname privmsg $1 BNC Listesi Suanda Bos Durumda! | halt }
  sw $sockname privmsg $1 Bnc List Listeleniliyor..
  while (%s <= $lines(bnc.txt)) {
    sw $sockname privmsg $1 %s - $remove($gettok($read(bnc.txt,%s),1,32),)
    inc %s
  }
  sw $sockname privmsg $1 Bnc Liste Sonu..
}
alias yetkiekle {
  if (!$istok($masternickler ,$1,32)) { sw $sockname privmsg $2 $1 bu komutu kullanmaye yetkili degilsin! | halt }
  if ($2 == $null) { sw $sockname privmsg $2 Nick Yazmayi Unuttunuz! | halt }
  if ($istok(%yetkili,$3,32)) { sw $sockname privmsg $2  $3  Listemde Zaten bulunmaktadir! | halt }
  %yetkili = $addtok(%yetkili,$3,32)
  sw $sockname privmsg $2  $3  eklendi. 
}
alias yetkisil {
  if (!$istok( $masternickler ,$1,32)) { sw $sockname privmsg $2 $1 bu komutu kullanmaye yetkili degilsin! | halt }
  if ($2 == $null) { sw $sockname privmsg $2 Nick Yazmayi Unuttunuz! | halt }
  if (!$istok(%yetkili,$3,32)) { sw $sockname privmsg $2  $3  Listemde Zaten bulunmamaktadir! | halt }
  %yetkili = $deltok(%yetkili,$3,32)
  sw $sockname privmsg $2  $3  Silindi 
}
alias yetkilist {
  var %toplam = $numtok(%yetkili,32)
  var %x = 1
  if (%toplam == 0) { sw $sockname privmsg $1 BNC Ekeme Yetkisi Olan Nickler Listesi Suan Bos! | halt }
  sw $sockname privmsg $1 BNC ekleme yetkisi olan nickler.. 
  while %x <= %toplam {
    sw $sockname privmsg $1 %x -  $remove($gettok(%yetkili,%x,32),)
    inc %x
  }
  sw $sockname privmsg $1 BNC ekleme yetkisi nickler listesi sonu..
}
 alias bncnick {
  var %nick = $read(bnc.txt,w,$+(*,$1,*)) 
  return $gettok(%nick,1,32)
}
alias bncpass {
  var %nick = $read(bnc.txt,w,$+(*,$1,*))
  return  $remove($gettok(%nick,2,32),)
}
alias bnconick {
  var %nick = $read(bnc.txt,w,$+(*,$1,*))
  return  $remove($gettok(%nick,3,32),)
}
alias bncopass {
  var %nick = $read(bnc.txt,w,$+(*,$1,*))
  return $gettok(%nick,4,32) 
}
alias bnchost {
  var %nick = $read(bnc.txt,w,$+(*,$1,*))
  return $gettok(%nick,5,32) 
}
alias sw {
  if $sock($1).status == active {
    sockwrite -nt $1-
  }
}
alias girdir {
  sockclose $+(clon,$chr(11),$1)
  sockopen $+(clon,$chr(11),$1) $bsunucu
  sw $sockname privmsg $masterchan  $+(BNC-,$1)  Devreye Sokuldu.
}
 alias kontrolgirmis {
  var %s 1
  while (%s <= $lines(bnc.txt)) {
    kontrolg $gettok($read(bnc.txt,%s),1,32)
    inc %s
  }
  unset %girmis
}
 alias kontrolg {
  if (!$istok(%girmis,$1,32)) {
    girdir $1
  }
}
 alias logs {
  var %s = 1
  while (%s <= $lines($+(Logs\bnc,$3,.txt).txt)) {
    sw $2 privmsg $1 $read($+(Logs\bnc,$3,.txt),%s)
    inc %s
  }
  unset %sock $+ $3 $+ * 
  remove $+(Logs\bnc,$3,.txt)
  sw $2 join 0,
  sw $2 nick BNC- $+ $3
  sw $sockname privmsg $masterchan  $+(BNC-,$3)  Devreden Cikarilmistir.
  .timer 1 2 sw $sockname os raw svsnick $1 $3 :0
  sw $sockname os raw kill BNC- $+ $3  The End BNC- $+ $3 
}
 alias baglan {
  if ($sockerr) { echo -a Bot Zaten Sunuda | halt }  
  else { sockclose bncbot | sockopen bncbot $bsunucu | echo -a - bnc-Aeg Devreye Girdi! | halt }
}
alias kopart {
  if ($sockerr) { echo -a Bot Zaten Sunuda Degil | halt }  
  else { sockclose bncbot  | echo -a - bnc-Aeg Devreden Cikarildi! | halt }
}
on *:sockopen:bncbot:{
  if ($sockerr) { echo $color(info) -a Socket botun baglantisi kesildi. | return }
  sw $sockname NICK User $+ $r(0,99)
  sw $sockname USER $sunucuident * * :v0.1 (BNC System - Yapimci; by Aeg)
}
on *:sockread:bncbot: {
  if !$sock($sockname) { echo -a Baglanti Koptu! | halt }
  var %q
  sockread %q
  tokenize 32 %q
  if $1 == PING {
    sw $sockname PONG $2
  }
  if $2 == 376 {
    sw $sockname oper $bopers
    sw $sockname join 0,
    sw $sockname nick $bbotnick
    sw $sockname identify $bnickpass
    sw $sockname os su $bsupass
    sw $sockname join $masterchan
  }
  if $1 == error && $2 == :closing {
    baglan
  }
  if ($2 == 352) { 
    if $read(bnc.txt,w,$+($8,*)) { %girmis = $addtok(%girmis,$8,32) }
  }
  if ($2 == 315) {
    kontrolgirmis 
  }
  if $2 == notice { 
    if (*Client*exiting* iswm $strip($1-)) {
      if (ghost isin $1-) { halt }
      if $read(bnc.txt,w,$+($9,*)) {
        girdir $9
      }
    }
  }
  if ($2 == privmsg) {
    var %n = $gettok($gettok($1,1,33),1,58), %m = $4,%text = $right($4-,-1), %k = $3    
    if (%k == $masterchan) {
      if (.bnckomut isin %m) {
        sw $sockname privmsg %k BNC-System Komut Paneli -
        sw $sockname privmsg %k -
        sw $sockname privmsg %k BNC-System yetkili eklemek icin *** .yetkiekle Nick ***
        sw $sockname privmsg %k BNC-System yetkili silmek icin *** .yetkisil Nick ***
        sw $sockname privmsg %k BNC-System yetkili listesi gormek icin *** .yetkilist ***
        sw $sockname privmsg %k BNC-System BNC Ekli listeyi gormek icin *** .bnclist ***
        sw $sockname privmsg %k BNC-System BNC Ekleme yapabilmek icin $bbotnick 'in ozeline  *** .bncekle ** yaziniz.
        sw $sockname privmsg %k *** BNC Ekleme kismindaki 4Hostunuz kismini yazarak ozel host aldirtabilirsiniz. *** 4(YENI)
        sw $sockname privmsg %k BNC-System BNC Silmek icin $bbotnick 'in ozeline *** .bncsil ** yaziniz.
        sw $sockname privmsg %k -
        sw $sockname privmsg %k BNC-System Komut The End ~ 
        sw $sockname privmsg %k Yapimci: *** By Aeg ***
      } 
      if (.yetkiekle isin %m) { yetkiekle %n %k $5 | halt }
      if (.yetkisil isin %m) { yetkisil %n %k $5 | halt }
      if (.yetkilist isin %m) { yetkilist %k | halt }
      if (.bnclist isin %m) { bnclist %k | halt }
    }
    if (%k == $bbotnick) {
      if (.bncekle isin %m) { bncekle %n $5- | halt }
      if (.bncsil isin %m) { bncsil %n $5 | halt }  
    }
  }
}
  
 on *:SOCKOPEN:clon*: {
  var %sock = $gettok($sockname,2-,11)
  sw $sockname nick %sock
  sw $sockname USER $sunucuident " " : $+ $+([,,BNC-,$gettok($sockname,2-,11),,]) System v1
}
 on *:sockread:clon*: {
  if !$sock($sockname) { echo -a Baglanti Koptu! | halt }
  var %q
  sockread %q
  tokenize 32 %q
  var %sock = $gettok($sockname,2-,11)
  if $1 == PING {
    sw $sockname PONG $2
  }
  if $2 == 376 {
    sw $sockname oper $bnconick(%sock) $bncopass(%sock) 
    sw $sockname identify $bncpass(%sock)
    sw $sockname sethost $bnchost(%sock)
    sw $sockname join $chanlar
  }
  if ($2 == privmsg) {
    var %n = $gettok($gettok($1,1,33),1,58), %m = $4,%text = $right($4-,-1), %k = $3
    if (%k == %sock) {
      if (.girdim isin %m) {
        if ($5 !== $bncpass(%sock)) { 
          sw $sockname privmsg %n Sifreyi Yanlis Girdiniz! 
          halt
        }
        else {
          sw $sockname privmsg %n Sifreyi Dogru Bildiniz
          logs %n $sockname %sock
          halt
        }
      }
      if (%k == %sock) {
        inc -u100 %sock $+ %n
        if (%sock [ $+ [ %n ] ] == 1) { sw $sockname privmsg %n Merhaba %n , BNC-System Tarafinca Onlineyim , Ozelime Yazdiklariniz Log Tutulup , Online Oldugumda Goruntulenecektir! }
        write $+(Logs\bnc,%sock,.txt) $+([,,$date,,$chr(32),,$time,,]) $+([,4,%n,,]) $4-
      }
    }
  }
}







echoX, No_FeaR ve Goemon bu mesaja teşekkür etti





Ölmek için doğmuştur ya insan; O yüzden her yağmur sonrası Toprak kokusunu sever.
 Toprak isimli Üye şimdilik offline konumundadır   Alıntı

Yeni Konu   Cevap Yaz

Etiketler
bncsistem, socket, teknoloji


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
DivXPortal.Com - Teknoloji & Film Portalı AppendiX Web Site Tanıtımları 0 25 Aralık 2018 03:52
fraktalstudios.com Teknoloji aty_seouzmani Web Site Tanıtımları 0 05 Ocak 2017 17:20
Ücretsiz Wordpress Typecore Master Teması (Blog ve Teknoloji siteleri için) Anti WP Temaları 0 02 Temmuz 2016 22:18
HostServ [Socket Sistem] Toprak Hazır Kodlar 1 17 Mart 2016 03:32
HostServ [Socket Sistem] Toprak Hazır Kodlar 0 26 Ocak 2015 00:03

web hosting web hosting
 buy vds
 vps buy

Powered by vBulletin®
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.