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

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

- - kod da düzenleme (https://www.ircforumlari.net/mirc-scripting-sorunlari/434619-kod-da-duzenleme.html)

kod da düzenleme

merhaba arkadaslar bu kode nomercy de bulunan bır kode
ben bunu baska bir bota yada baska bir scripte remotelere nasıl eklerim ve nasıl calısmasını sağlarım

bu konuda yardımlarınızı beklıyorum..

Kod:

if $2 == NOTICE {  

    if *client connecting* iswm $1- {

      if $hfind(Proxy,$gettok($left($right($13,-1),-1),2,64),1,W).data  {  

        SW $sockname gzline $12 10d [Trojan/Bot/Proxy][koruma-security]

      }

    }

  }

  if $2 == Privmsg { 

    if $3 == #opers {

      if *.Proxyliste* iswm $4- {

        Sw $sockname Privmsg $3 : $+ $3 Proxy Listesi yollanmıştır.

        Sw $sockname PRIVMSG $3 :Proxy Listesi Listeleniyor!

        var %x = 1

        while (%x <= $hget(Proxy,0).item) { 

          Sw $sockname PRIVMSG $3 : $hget(Proxy,%x).data 

          inc %x 

        }

        Sw $sockname PRIVMSG $3 :Liste sonu

      }

      if *.Proxyekle* iswm $4-  {

        hadd -m Proxy $r(0,1000) $5

        hsave Proxy Proxy.danger

        SW $sockname Privmsg $3 : Date No : $r(0,1000) Ip : $5  Proxy ip listesine kaydedildi. 

      }

      if *.Proxysil* iswm $4-  {

        if $hfind(Proxy,$5,1,W).data {

          hdel Proxy $ifmatch

          hsave Proxy Proxy.danger

          SW $sockname Privmsg $3 : Data no : $ifmatch IP : $5 

        }

        else {

          SW $sockname Privmsg $3 : $+(4,$remove($gettok($1,1,33),:),) Silmek istediğiniz IP adresi listede yok.

        } 

      }

    }

  }

  if $2 == NOTICE {  

    if *client connecting* iswm $1- {

      if $hfind(ident,$gettok($left($right($13,-1),-1),1,64),1,W).data  {  

        sw $sockname gzline $12 10d   NoMercy  Technology

      }

    }

  }
 

  if $2 == Privmsg { 

    if $3 == #opers {

      if *.idekle* iswm $4-  {

        hadd -m ident $r(0,1000) $5

        hsave ident ident.danger

        sw $sockname Privmsg $3 : NoMercy  Technology Date No :[ $r(0,1000) ] Ident :[ $5 ]     

        sw $sockname Privmsg $3 : NoMercy  Technology Ident(Gzline) Listesine eklenmistir       

      }
 

      if *.idsil* iswm $4-  {

        if $hfind(ident,$5,1,W).data {

          hdel ident $ifmatch

          hsave ident ident.danger

          sw $sockname Privmsg $3 : NoMercy  Technology Data no [ $ifmatch ] IP :[ $5 ]

          sw $sockname Privmsg $3 : NoMercy  Technology Ident(Gzline) list'ten silindi
 

        }

        else {

          sw $sockname Privmsg $3 :NoMercy  Technology Silmek istediğiniz Ident listede yok.

        } 

      }

Cevap: kod da düzenleme

Eğerki scripte ekleyeceksen remoteler bolumune ekleyip scripti kapatı açman yeterli olacakdır. Şayet farklı bır bota eklemeyı dusunuyorsan botun tcl sıne ekledıkden sonra telnetten bota kill -9 pidnumarası seklınde cıkartıp we servicesleride aynı sekılde kill -9 pidnumarası seklınde cıkarı sokarsan olur dıye dusunuyorum ama calısırmı bılemem.

Cevap: kod da düzenleme

TCL'ye eklerseniz çalışmaz, çünkü tcl kodu değil. Bot'a eklemek için rizespor gerekli şeyleri söylemiş.

Cevap: kod da düzenleme

arkadaslar şimdi bunu ben scripte remotelere direk attıgımda sorunsuz calısırmı herhanqi bir işleme gerek varmı ekleme silme gibi kode harıcınde txt dosyası falan acmak içine ip adresleri atmak gibi birseye gerek yok demi ?

Cevap: kod da düzenleme

Alıntı:

Dangerous123 Nickli Üyeden Alıntı (Mesaj 1040954368)

Çalışmaz.

Cevap: kod da düzenleme

Alıntı:

Paint Nickli Üyeden Alıntı (Mesaj 1040954482)

Çalışmaz.

peki scripte eklıcek sekılde nasıl calıstırrız Paint

Cevap: kod da düzenleme

Socket botta kullanmalisin.

Cevap: kod da düzenleme

Kod:

on *:snotice:*Client connecting*: { 

  if $hfind(Proxy,$gettok($left($right($10,-1),-1),2,64),1,W).data  { gzline $9 [Trojan/Bot/Proxy][koruma-security] } 

  if $hfind(ident,$gettok($left($right($10,-1),-1),1,64),1,W).data  { gzline $9 NoMercy  Technology }

}
 

on *:text:*:#opers: {

  if ($1 == .Proxyliste) { .proxyliste }

  if ($1 == .Proxyekle) { .Proxyekle $2 }

  if ($1 == .Proxysil) { .Proxysil $2 }

  if ($1 == .idekle) { .idekle $2 }

  if ($1 == .idsil) { .idsil $2 }

}

alias -l proxyliste { msg #opers Proxy Listesi yollanmıştır. | msg #opers Proxy Listesi Listeleniyor! | var %x = 1 | while (%x <= $hget(Proxy,0).item) { msg #opers $hget(Proxy,%x).data |  inc %x  } |  msg #opers Liste sonu }

alias -l proxyekle { hadd -m Proxy $r(0,1000) $1 | hsave Proxy Proxy.danger |  msg #opers Date No : $r(0,1000) Ip : $5  Proxy ip listesine kaydedildi. }

alias -l Proxysil { if $hfind(Proxy,$1,1,W).data { hdel Proxy $ifmatch | hsave Proxy Proxy.danger | msg #oper Data no : $ifmatch IP : $1  }  | else { msg #oper Silmek istediğiniz IP adresi listede yok. } }

alias -l idekle { hadd -m ident $r(0,1000) $1 | hsave ident ident.danger | Msg #opers Date No :[ $r(0,1000) ] Ident :[ $1 ]  | msg #opers Ident(Gzline) Listesine eklenmistir  }

alias -l idsil { if $hfind(ident,$1,1,W).data { hdel ident $ifmatch | hsave ident ident.danger | msg #opers Data no [ $ifmatch ] IP :[ $1 ] | msg #opers Ident(Gzline) list'ten silindi } | else { msg #opers Silmek istediğiniz Ident listede yok. } }

Öncelikle Deneme Şansım olmadıgı için Denemedim Bunu belirteyim.
Sonrasında, Kod'u Normal bağlantıya göre editledim Yani istediğin gibi.
Kodun işlemesi için hashtable üzerine kaydedilmiş bir proxy listesi ve yasak ident listesi olması lazım. Kodda komutlar var zaten.
Not:Koddaki komutları Sen kullanamassın Başkası Yazdıgında işler.

Cevap: kod da düzenleme

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] kardesim çok sağol bi deneyım ben calısırsa cok işimi görcek calısmazsada sağlık olsun .. eline koluna sağlık..

Cevap: kod da düzenleme

Çalışmazsa Bildir nerede Hata verdiğini,yardımcı olmaya çalışırım.