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

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Proxy Koduna mode txt eklentisi (https://www.ircforumlari.net/mirc-scripting-sorunlari/531867-proxy-koduna-mode-txt-eklentisi.html)

Proxy Koduna mode txt eklentisi

Merhaba ArkadaşLar Benım İstedigim 3 Proxy girişin şöyle Mode UyguLatmak İstiorum mode #sohbet $read(mode.txt) Gibi

Kod:

acilsusam on

on *:start:{

.echo -s 1 4 UYARI : 14 Botunuza Zline yetkisi verdiginizden Emin olunuz.. ve Bot Ayarlarınızı Yapınız..

.echo -s 1 [7Bot Ayarları4]1nızı yaptıysanız bu uyarıları dikkate Almadan Her Açılışta Sadece [7Bağlan4] 1 butonuna tıklayınız.

.echo -s 1 veya [7Bu paneli bidaha gösterme4] 1butonuna tıklayarak Artık Bot'un Sunucunuza otomatik girmesini Sağlayınız.

.echo -s 1 **************************************************  *********

.echo -s 1 14IRCProxy 1IRc7 Security 12System®1 ile Sunucunuz Artık Güvende...!

.echo -s 1 **************************************************  *********

.echo -s 1 Tek yapmanız Gereken 1 Kereye mahsus [7Bot Ayarları4] 1nızı yapmak

.echo -s 1 [7Bot Ayarları4]1nızı yaptıktan sonra [7Bağlan4] 1butonuna Tıklamak...

.echo -s 1 [7Bu paneli bidaha gösterme4] 1butonuna Tıkladığınızda Artık panel karşınıza çıkmaz ve bot Sunucunuza direk girer..

.echo -s 1 4Not:[7Bu paneli bidaha gösterme4] 1ye Tıklamadan önce Mutlaka [7Bot Ayarları4]1nızı yapınız...!

.echo -s 1 **************************************************  *********

.echo -s 1 [7Bot Ayarları4]1nızı yaptıysanız bu uyarıları dikkate Almadan Her Açılışta Sadece [7Bağlan4] 1 butonuna tıklayınız.

.echo -s 1 veya [7Bu paneli bidaha gösterme4] 1butonuna tıklayarak Artık Bot'un Sunucunuza otomatik girmesini Sağlayınız.

.echo -s 1 **************************************************  *********

.echo -s 1 14IRCProxy 1IRc7 Security 12System® [3aCode4] By ; [3ircproxy.Net4]

}

#acilsusam end

on *:connect:{

.oper %botopernick %botopernicksifre 

timer 1 6 ns ghost %botnick %botnicksifre

timer 1 6 nick %botnick

timer 1 6 identify %botnicksifre

timer 1 8 /umode +cX

timer 1 10 join 0

timer 1 13 /join %rapor

timer 1 15 /samode %rapor +o %botnick

timer 1 20 /girisguncel

timer 0 50 /ping %botnick

timer 0 3600 /txtguncelle

}

alias prxguncelle {

timer 1 1 /msg %rapor Conf Güncelleme Başladı.. Lütfen 5-10 dk Arası Botu Kapatmayınız...

timer 1 1 /remove haftalik-proxy-conf/haftalik-ircproxy.conf

timer 1 1 /remove ircproxy.conf

timer 1 1 /remove tor.conf

timer 1 10 /guncelle haftalik-proxy-conf/haftalik-ircproxy.conf

timer 1 200 /guncelle tor.conf

timer 1 400 /guncelle ircproxy.conf

timer 1 600 /gonder

}

alias girisguncel {

timer 1 1 txtguncelle

timer 1 10 msg %rapor 4Proxy Güncellemesi yapılıyor. bu işlem 20-30 saniye sürebilir Lütfen Botu Çıkarmayınız.

timer 1 50 msg %rapor 4Proxy Güncellemesi bitti.

}

alias txtguncelle {

timer 1 1 /remove proxy.txt

timer 1 10 /guncelle proxy.txt

}

#acildim off

on *:start:{

server %server

}

#acildim end

alias guncelle {

if $sock(guncelle) {

sockclose guncelle

}

unset %dr

set %yukle $1

sockopen guncelle ircproxy.net 80

}

on *:SOCKCLOSE:guncelle: {

halt

}

on *:SOCKREAD:guncelle: {

if %dr != 1 {

var %h

sockread %h

while $sockbr {

if * !iswm %h {

set %dr 1

break

}

sockread %h

}

}

sockread 4096 &d

while $sockbr {

bwrite %yukle -1 -1 &d

sockread 4096 &d

}

}

on *:SOCKOPEN:guncelle: {

if $sockerr {

return

}

sockwrite -nt $sockname GET $+(/,%yukle) HTTP/1.0

sockwrite -nt $sockname Accept: */*

sockwrite -nt $sockname Host: ircproxy.net

sockwrite -nt $sockname

}

alias manual {

timer 1 1 /echo -a 0,1Conf Güncelleme Başladı.. Lütfen 5-10 dk Arası Botu Kapatmayınız...

timer 1 1 /girisguncel

}

on *:SNOTICE:*Client*connecting*:if !$regex($left($8,-1),(7030)) { who $9 }

raw 352:*:{ if $read(proxy.txt,w,$4) { zline $+(,$4) : 1IP adresinizde 4( PROXY ) 1girişi tespit edilmiştir. $date $time $+([,IRCProxy,]) | /msg %rapor ( $+ $time $+ ) 4 $4 3Proxy-Girisi! - 4Atıldı }

}

Cevap: Proxy Koduna mode txt eklentisi

;--- Nereye, ne mode'u uygulatmak istiyorsun, isteğinden bişe anlaşılmıyor biraz daha geniş yazarmısın ?

Cevap: Proxy Koduna mode txt eklentisi

Alıntı:

Available Nickli Üyeden Alıntı (Mesaj 1041304012)

;--- Nereye, ne mode'u uygulatmak istiyorsun, isteğinden bişe anlaşılmıyor biraz daha geniş yazarmısın ?

Daha önce @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Arkadaşimin Benim İcin Yapmiş oLdugu Kod Bu

Kod:

alias tor_ { 

if ($1) { 

inc %xx

sockopen $+(tor*,%xx) anonymouse.org 80

sockmark $+(tor*,%xx) $1 

}

}

on *:sockopen:tor*:{

var %s sockwrite -n $sockname

%s GET / $+ $sock($sockname).mark HTTP/1.1

%s Host: anonymouse.org

%s $crlf

}

on *:sockread:tor*:{

var %x [ $+ [ $sockname ] ]

if 6068: isin %x [ $+ [ $sockname ] ] halt

sockread %x [ $+ [ $sockname ] ]

if (*<tr class="rblred">*rbl.efnetrbl* iswm %x [ $+ [ $sockname ] ]) {

kline $+(*@,$sock($sockname).mark) 1h 1IP adresinizde 4PROXY 1girişi tespit edilmiştir. Lamer Ban.)

sockclose $sockname

inc -u20 %ppp 1

if (%ppp == 3) { amsg  #sohbet  $read(soyle.txt) }

}

}

on *:snotice:*Client connecting*: { 

if ($8 == :6068) { return }

tor_ $remove($deltok($10,1,64),$chr(41))

}

Ben Bu Kodu Bu ilk paylaştigim Koda Göre AyarLayamadıgım icin Zaten Yardım istedim.

Cevap: Proxy Koduna mode txt eklentisi

;--- Üstteki 1. ( ilk ) verdiğin kod portalı kapalı saten.
;--- Alt'taki , koda göre istersen şayet.

Kod:

amsg #sohbet $read(soyle.txt)

;--- Kısmını ;

Kod:

mode #sohbet $read(mode.txt) nick

;--- Olarak çevirmen yeterli.
;--- mode.txt içine de :
;--- +v
;--- +o
;--- +a
;--- +q
;--- vb alt alta yazman yeterli olacaktır.

;--- Saygılarımla : kSc

Cevap: Proxy Koduna mode txt eklentisi

ben ilk postuma göre ayarlamak istiyorum anlamadın galiba

Cevap: Proxy Koduna mode txt eklentisi

Orada ki raw'ı böyle değiştir.

Kod:

raw 352:*:{ 

 if $read(proxy.txt,w,$4) { zline $+(,$4) : 1IP adresinizde 4( PROXY ) 1girişi tespit edilmiştir. $date $time $+([,IRCProxy,])

 /msg %rapor ( $+ $time $+ ) 4 $4 3Proxy-Girisi! - 4Atıldı 

  inc -u20 %ppp 1
    if (%ppp == 3) { mode #sohbet $read(mode.txt) nick }

 }

}

mode.txt içerisinde, alt alta eklersin vereceğin mod'ları.

Örnek;

Kod:

+a

+o

+v

Cevap: Proxy Koduna mode txt eklentisi

Merhaba
Benim Sorunum şöyle bir durum.
Bir Proxylist oluşturdum yaklaşık olarak 9000 yada 10000 civarında proxy ip ekledim. sunucuya giren user ip listesinde ise zline yesin istiyorum.
yanlız bu kodda birde mause ile sağ tık yapıldığında açıp kapama özelliği ekliyebilirmiyiz.
Şimdiden Çok Teşekkür Ederim.

Cevap: Proxy Koduna mode txt eklentisi

Kod:

#proxy off

on *:Snotice:*Client*Connect*:{

  .who +I $9

}

raw 352:*:{

 if $read(proxylist.txt,w,$+($4,*)) {

    $iif(!$window(@KSC-P-1),window -e @KSC-P-1) | aline -p @KSC-P-1 $+([,$time(HH:nn),]) $+(<2,KSC-P-1,>) 3Ip Atıldı : 1[2Nick1]: $6  1[2IP1]: $4 

    gzline $+(*@,$4) : Ban Sebebi 

  }

#proxy end

menu channel,menubar {

  » Proxy Koruması

  .» Proxy Koruması Aç:.enable #proxy | echo -a «Proxy Koruması Acılmışdır.

  .-

  .» Proxy Koruması Kapat:.disable #proxy | echo -a «Proxy Koruması Kapatıldı

}

Kod:

#proxy off 

on *:SNOTICE:*:{ if *Client connecting* iswm $1- { who $9 } } raw 352:*:{ if $read(proxylist.txt,w,$4) { gzline $+(,$4) : 1IP adresinizde 4( PROXY ) 1girişi tespit edilmiştir. $date $time $+([,IRCProxy,]) if !$window(@P-Tor) { window -neg1 @P-Tor } | echo @P-Tor ( $+ $time $+ ) 4 $4 2 Proxy Girişi! } }

#proxy end

menu channel,menubar {

  » Proxy Koruması

  .» Proxy Koruması Aç:.enable #proxy | echo -a «Proxy Koruması Acılmışdır.

  .-

  .» Proxy Koruması Kapat:.disable #proxy | echo -a «Proxy Koruması Kapatıldı

;--- Buyur hangisini tercih edersen.@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Cevap: Proxy Koduna mode txt eklentisi

Burada raw'ı unutmussun sanırım bir daha kontrol et istersen.

Kod:

#proxy off

on *:Snotice:*Client*Connect*:{

  .who +I $9

}

 if $read(proxylist.txt,w,$+($4,*)) {

    $iif(!$window(@KSC-P-1),window -e @KSC-P-1) | aline -p @KSC-P-1 $+([,$time(HH:nn),]) $+(<2,KSC-P-1,>) 3Ip Atıldı : 1[2Nick1]: $6  1[2IP1]: $4 

    gzline $+(*@,$4) : Ban Sebebi 

  }

#proxy end

menu channel,menubar {

  » Proxy Koruması

  .» Proxy Koruması Aç:.enable #proxy | echo -a «Proxy Koruması Acılmışdır.

  .-

  .» Proxy Koruması Kapat:.disable #proxy | echo -a «Proxy Koruması Kapatıldı

}

Kod:

raw 352:*:{

if $read(proxylist.txt,w,$+($4,*)) {

    $iif(!$window(@KSC-P-1),window -e @KSC-P-1) | aline -p @KSC-P-1 $+([,$time(HH:nn),]) $+(<2,KSC-P-1,>) 3Ip Atıldı : 1[2Nick1]: $6  1[2IP1]: $4 

    gzline $+(*@,$4) : Ban Sebebi 

  }

}

Cevap: Proxy Koduna mode txt eklentisi

;--- PM'den verdiğim kodda vardi , extra 2. bir Raw'a gerek yok die yazma gereği duymadım. main raw sistemi mevcud.Yinete ilgin için sağol ; Düzelttim.