reklam reklam

  • Konu İçeriğini Görebilmek İçin Lütfen Üye Olun. Aksi Takdirde İçeriği Göremezsiniz.

mIRC Küfür Koruması (Socket Kullanarak)

admin

Forever mIRCX!
Yönetici
Yetkili
mIRCX Admin
Denetleyici
Katılım
16 Kas 2019
Mesajlar
335
Tepkime puanı
0
Puanları
16
Konum
public_html
Web sitesi
www.mircx.net

İtibar:

Kod:
on *:load: {
  .echo -aq $input(Yapımcı: SaNCaK $+ $crlf $+ $crlf $+ Addon: Küfür Koruması $chr(40) $+ v5.4 $+ $chr(41) $+ $crlf $+ $crlf $+ Yapım: 17/10/2014 $+ $crlf $+ $crlf $+ Iletişim: sancak@outlook.com.tr $+ $crlf $+ $crlf $+ Kodu Kullandığınız için Teşekkür ederim,igo,Addon: Küfür Koruması$chr(40) $+ v5.4 $+ $chr(41))
  echo -a _____________________________________________________________________________________
  echo -a 4,1 -=^ 14,1S15,1aN15,1C0,1aK4,1^=-  0,1 Add-On yükleniyor... 
  echo -a 4,1 -=^ 14,1S15,1aN15,1C0,1aK4,1^=-  0,1 Çalışan mIRC15 $version 0Sistem15 Windows $+ $os 
  echo -a ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
  echo -a 4,1[15,1 NOT: 4,1] 0,1 kufur.txt Dosyası oluşturarak siteadresiniz.com adresinizin ana dizinine atınız.
  echo -a ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
}

Menu Channel {
  -
  $iif($group(#Kufurkoruma) == on,$style(1) Kufur Koruma  [Açık],Kufur Koruma [Kapalı]) { $iif($group(#Kufurkoruma) == on, .disable  #Kufurkoruma, .enable #Kufurkoruma) }
  -
}

#Kufurkoruma off
on @*:text:*:#: bw $1-
on @*:action:*:#: bw $1-
on @*:notice:*:#: bw $1-
#Kufurkoruma end

on *:sockopen:bw*:{
  if (!$sockerr) {
    tokenize 96 $str($chr(96) sockwrite -n $sockname,2)
    $1 GET /kufur.txt HTTP/1.1
    $2 Host: $+($sock($sockname).addr,$str($crlf,2))
  }
}
alias -l bw {
  var %b = $+(bw,$site,$r(1,9999),$ticks)
  if ($sock(%b)) sockclose $v1
  sockopen %b sitenizinadi.com 80
  set -e %1- $strip($1-) | set -e %1-- kick # $nick Küfür etmek yasaktır!
}
on *:sockread:bw*:{
  if (!$sockerr) {
    if (!$sock($sockname).mark) {
      var %b | sockread %b
      if (!%b) sockmark $sockname 1 | halt
    }
    while ($sock($sockname).rq > 0) {
      sockread -fn &bw
      if ($regex(%1-,/(^| )\Q $+ $bvar(&bw,1-).text $+ \E\b/)) {
        %1-- | unset %1* | sockclose $sockname
      }
    }
  }
}
Dosyayı Buradan indirebilirsiniz. kufur.txt
 
Üst Alt