IRCForumu.Net | Türkiye'nin IRC ve mIRC Forumu   Reklam Alanı

 

Go Back   IRCForumu.Net | Türkiye'nin IRC ve mIRC Forumu > IF - mIRC Scripting > Hazır Kodlar

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Arama Stil
Alt 23 Kasım 2016, 18:34   #1
Gelme, burası çok derin.
Avatar Yok
 
Üyelik tarihi: 07 Mayıs 2016
Bulunduğu yer: Ankara
Mesajlar: 584
WEB Sitesi: www.Sohbetsin.Com
IRC Sunucusu: irc.FixSohbet.Net
İlgi Alanı: Domain
Kan Grubu: A RH (+)
Alınan Beğeni: 86
Post /* Nomercy Proxy Destek Botu */

;- Öncelikle bunu paylaşmamın sebebi , Son 1 aydır açılan '' Proxy list - Proxy Bot - Proxy Güncel Site vb '' gibi konuların epeyce popiler olması , buda oluyor ki ,

Lamerlerin IRC'lere cirit atması demektir.

;- Şahsen bu konuda hazm almayan birisi olduğum için , bu kodun epeyçe arkadaşların işine yaracağından eminim.

/• Kurulum •/
;- Nomercy'inin Alt+R ( Remote ) Kısmını açıyoruz ve Aliaslar.amk kısmını aktif ediyoruz


Kod:
if !$sock(nomercy) {
    sockopen nomercy $qsunucu $qsunucuport
  }
  if !$sock(sysbot) {
    sockopen sysbot $qsunucu $qsunucuport
  }
  if !$sock(duyurubot) {
    sockopen duyurubot $qsunucu $qsunucuport
  }


;- Bu kısmı bulduktan sonra ; Hemen altına kırmızı '' ksc '' botumuzu aktif ettiriyoruz.Yani Socket botumuzu aktif edecek ilk



Kod:
  if !$sock(nomercy) {
    sockopen nomercy $qsunucu $qsunucuport
  }
  if !$sock(sysbot) {
    sockopen sysbot $qsunucu $qsunucuport
  }
  if !$sock(duyurubot) {
    sockopen duyurubot $qsunucu $qsunucuport
  }
  if !$sock(ksc) {
    sockopen ksc $qsunucu $qsunucuport
  }


;- Daha Sonrasında ister , Klasörden ister '' REMOTE '' kısmından '' YENİ '' Remote sayfasını açaraktan alttaki kodu ; Pastelliyoruz. ( Kopy\paste )

Kod:
on *:SOCKOPEN:KSC: {
  %secnick = Discovery $+ $r(100,9999)
  sockwrite -nt $sockname  NICK %secnick
  sockwrite -nt $sockname  USER K.S.CMGZ  "" " $+ $iif($host,$host,$ip) $+ " : $+ $qlogo
  sw $sockname Pass $sxx
}

on *:SOCKREAD:KSC: {
  var %s2
  sockread %s2
  tokenize 32 %s2
  if $1 == PING {
    sockwrite -nt $sockname  PONG $2
  }
  ;Rawlar!
  if $2 == 376 || $2 == 422 {
    sockwrite -nt $sockname  oper $qoperpass
    .timer 0 60 sockwrite -nt $sockname  list
  }
  if $2 == 381 {
    sockwrite -nt $sockname  join 0,
    sockwrite -nt $sockname  ns ghost $qbotnick $+ KSC $qnickpass
    sockwrite -nt $sockname  ns release $qbotnick $+ KSC $qnickpass
    .timer 1 2 sockwrite -nt $sockname  NICK $qbotnick $+ KSC
    .timer 1 2 sockwrite -nt $sockname  NICK $qbotnick $+ KSC
  }
  if $2 == 366 {
    if $4 != #karantina && $4 != #BotKontrol && $4 != #Opers {
      sockwrite -nt $sockname  PART $4
    }
/• Kod Açılımı •/;- Atılan Line işlemlerini rapor şeklinde verilcek kanalı temsil ediyor.


PHP- Kodu:
sockwrite -nt $sockname privmsg #Opers 5[ Bilgi ]-(<7P-1>) 1[2Nick1]: $12  1[2IP1]: $left($token($13,2,64),-1 

;- Txt kaydedilmiş , Dosyaları okutcak analiz kod'u

Kod:
  if $2 == Notice {
    if *Client connecting on port* iswm $1- {
      if $read(okuncakdosyaismi.txt,w,$+($left($token($13,2,64),-1),*)) {
        sockwrite -nt $sockname gline *@ $+ $left($token($13,2,64),-1) - 2I-DNCR  2Di14sco7ve2ry4™1 v0.9 System
        sockwrite -nt $sockname privmsg #Opers 5[ Bilgi ]-(<7P-1>) 1[2Nick1]: $12  1[2IP1]: $left($token($13,2,64),-1)
      }
    }
  }
}

/• Kod'da Değişkenlik •/;-Eğerki okuncak dosya ismini birden fazla çoğaltmak istiyorsaniz şayet ;
Dosya-1 - Dosya-2 - Dosya-3 varsayımla örnek gösterelim.


Kod:
if *Client connecting on port* iswm $1- {
      if $read(Dosya-1.txt,w,$+($left($token($13,2,64),-1),*)) {
        sockwrite -nt $sockname gline *@ $+ $left($token($13,2,64),-1) - 2I-DNCR 2Di14sco7ve2ry4™1 v0.9 System
        sockwrite -nt $sockname privmsg #Opers 5[ Bilgi ]-(<7P-1>) 1[2Nick1]: $12  1[2IP1]: $left($token($13,2,64),-1)
      }
      elseif $read(Dosya-2,w,$+($left($token($13,2,64),-1),*)) {
        sockwrite -nt $sockname gline *@ $+ $left($token($13,2,64),-1) - 2I-DNCR 2Di14sco7ve2ry4™1 v0.9 System
        sockwrite -nt $sockname privmsg #Opers 5[ Bilgi ]-(<7P-2>) 1[2Nick1]: $12  1[2IP1]: $left($token($13,2,64),-1)
      }
      elseif $read(Dosya-3.txt,w,$+($left($token($13,2,64),-1),*)) {
        sockwrite -nt $sockname gline *@ $+ $left($token($13,2,64),-1) - 2I-DNCR 2Di14sco7ve2ry4™1 v0.9 System
        sockwrite -nt $sockname privmsg #Opers 5[ Bilgi ]-(<7P-3>) 1[2Nick1]: $12  1[2IP1]: $left($token($13,2,64),-1)
        }
    }
  }
}

;- Eğer ki ; Siz txt dosyasını tek tek Klasore atmak değilde ; Ben bi '' PROXY '' klasörü acacam ( Klasor ismi : > PROXY < olarak ayarlanmıştır ) , o klasor içindeki '' TXT '' leri okusun istiyorsaniz şayet ;

Kod:
if *Client connecting on port* iswm $1- {
    var %:I-DNCR = $findfile(proxy/, *.txt, 0)
      while %:I-DNCR {
        if $read($remove($findfile(proxy/, *.txt, %:I-DNCR),$mircdir),w,$+($left($token($13,2,64),-1),*)) {
          echo -a $nopath($findfile(proxy/, *.txt, %:I-DNCR)) --> $1-
          sockwrite -nt $sockname gline *@ $+ $left($token($13,2,64),-1) - 2I-DNCR 2Di14sco7ve2ry4™1 v0.9 System
          sockwrite -nt $sockname privmsg #Opers 2Bilgi Proxy Girişi Atıldı :   $left($token($13,2,64),-1)
        }
        dec %:I-DNCR
      }

Not : Proxy List ( txt )'kiler ister portlu , ister portsuz ; Her türlü uzaklaştırmak için dizayn edilmiştir.
__________________
immortaL isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Cevapla

Etiketler
botu, destek, nomercy, proxy

Seçenekler Arama
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
Ücretsiz Canlı Destek Sistemi - Türkçe - tawk.to - Crisp - Smartsupp Benzeri fikirproje Ücretsiz Scriptler 0 14 Aralık 2021 10:40


Forum Yasal Uyarı
Powered by vBulletin® Version 3.8.9 Beta 1
Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
Search Engine Friendly URLs by vBSEO 3.6.0
Kuruluş: IRCForumu.Net © 30 Nisan 2018 Cumartesi
Kurucular: immortaL

IRCForumu.Net Her Hakkı Saklıdır.

irc forumu | ircforumları | irc forumları |
Sitemiz bir "paylaşım" sitesidir. Bu yüzden sitemize kayıt olan herkes kontrol edilmeksizin mesaj/konu/resim paylaşabilmektedir. Bu sebepten ötürü, sitemiz üzerinden paylaşılan mesajlar, konular ve resimlerden doğabilecek olan yasal sorumluluklar paylaşan kullanıcıya aittir. IRCForumu.Net hiçbir yasal sorumluluk kabul etmemektedir. İllegal herhangi bir faaliyet görülmesi durumunda [email protected] adresine mail atıldığı taktirde mesaj, konu ya da resim en fazla 24 saat içerisinde silinecektir.

5101 sayılı yasayla değişik 5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı T.C. Kültür ve Turizm Bakanlığı tarafından hak sahipliği verilmiş olan MÜ-YAP tarafından yasaklanmış olup, yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.