/* Nomercy Proxy Destek Botu */ - IRCSayfasi

***aSK*** · 25 Ağustos 2020, 16:52

/* 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)
      }
    }
  }
}

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.

25 Ağustos 2020, 16:52	#1
Çevrimdışı *aSK*	/* Nomercy Proxy Destek Botu / -- Sponsor Baglantı --* **/ 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) } } } } 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. Paylaş Paylaşmak istediğiniz sosyal site seçin Digg Del.icio.us Technorati Twitter Face'de paylaş Spurl! Reddit! Wong! 0

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Proxy Nedir? Proxy Ayarları Nasıl Yapılır? Proxy ile VPN Arasındaki Farklar Nelerdir?	RoJ	Proxy Dünyası	0	27 Şubat 2021 21:50
Baykar Teknik Müdürü Selçuk Bayraktar, #WhatsAppSiliyoruz etiketine destek veren isimlerden bir tanesi oldu. Bayraktar, etikete destek verirken kendi	RoJ	Whatsapp	0	10 Ocak 2021 20:58
MF Botu Hakkında	aSK	mIRC Parça Kodlar	0	22 Ağustos 2020 10:34
Proxy Koruma Botu (Socket çalışır)	PLuToN	IRCd Makaleler	0	15 Temmuz 2020 02:45
Bopm Kurulumu ( Telnetten proxy botu baglama ) Sproxy diye bilinir( etkilidir) Bopm Kurulumu	GeN	Unreal IRCd	0	13 Temmuz 2020 23:06

Şu an bu konuyu okuyan kişi sayısı: 1 (0 üye ve 1 misafir)