Kahkaha

Bayıldım

Cool

Kızgın

Mahcup

Öğretici

Şaşkın

Suskun

Tatlı

Üzgün

Süper

/kara #kanal { Klon taraması + işlev }

Ana Sayfa » internet » IRC » /kara #kanal { Klon taraması + işlev }
/kara #kanal { Klon taraması + işlev }

Kodenin amacı;
Kanaldaki kloneleri tespit ederek, işlev yapmanızı sağlar(isterseniz).
Kullanımı: /ktara #kanalismi
Sonucları görmek için; /sonuclar
İşlev yapmak için; /at numara mesajınız.
Not: Sanırım, 1 gün uğraştım :)

Görünüm şekli:

[02:15]- Bilgi: S: ( 1 ) Klon: ( 2 ) Adres: ( F514C632.22A8D14D.IP ) Nickler: ( ayhan1972,beyfendiyim35 )

Buradaki S: ( numara )
İşlev yapabileceğiniz sıra numarasıdır.
Bir alias oluşturdum kullanmak isteyenlere;
/at numara mesajınız yaptığınızda;
Belirlediğiniz sırada bulunan nick’leri sunucudan uzaklaştıracaktır.

Korumalar.txt dosyasının içine eklediğiniz IP’ler klon taramasında çıkmayacaktır.
Ekleme şekli; /ekle helper.yes.net
Şeklindedir.

Buyrun kod; (Değişiklik yapılmaması tavsiye edilir, aksi taktirde bozabilirsiniz)

 

on *:join:#: { if $nick == $me && $chan(#).ial == $false { .ial on | .who # } }
alias ktara {
  if $active != # { .echo -a $+($timestamp,$chr(45),$chr(32),Kanal penceresinde değilsiniz.) | halt }
  if !$1 { echo $1 $+($timestamp,$chr(45),$chr(32),Kanal ismi girmediniz.) | halt }
  if $me !ison $1 { .echo -a $+($timestamp,$chr(45),$chr(32),$chr(2),$1,$chr(2),$chr(32),kanalında bulunmuyorsunuz.) | halt }
  else { echo $1 $+($timestamp,$chr(45),$chr(32),Bilgi:,$chr(32),$chr(2),$1,$chr(2),$chr(32),kanalı için tarama başlatıldı lütfen bekleyiniz.)
    write -c nickler.txt | write -c nickler2.txt | write -c sonuc.txt | var %- = 1, %x = $ialchan(*,$1,0),%/ = $1
    while (%- <= %x) { if $read(nickler.txt,w,$gettok($ialchan(*,$1,%-),2,64)) && !$read(korumalar.txt,w,$gettok($ialchan(*,$1,%-),2,64)) { var %1 = $ialchan($+(*,$v1,*),$1,0)  | write nickler2.txt $gettok($ialchan(*,$1,%-),1,33) | inc %-  }
  else { write nickler.txt $gettok($ialchan(*,$1,%-),2,64) | inc %- } } }
  var %– = 1,%½ = $lines(nickler2.txt) |  while %– <= %½ { bak $read(nickler2.txt,%–) %/ | inc %– }
  echo $1 $+($timestamp,$chr(45),$chr(32),Bilgi:,$chr(32),$chr(2),$1,$chr(2),$chr(32),kanalı için tarama tamamlandı. Sonuçları görmek için:,$chr(32),$chr(2),/sonuclar,$chr(2),$chr(32),yazınız.)
}
alias bak {
  var %% = 1,%& = $gettok($address($1,2),2,64),%&& = $ialchan($+(*,%&,*),$2,0) | while %% <= %&& {
  var %%- = $addtok(%%-,$gettok($ialchan($+(*,%&,*),$2,%%),1,33),44) | inc %% } | if !$read(sonuc.txt,w,$+($gettok(%%-,1,44),*)) { write sonuc.txt %%- %% %& }
}
alias sonuclar {
  var %- = 1, %– = $lines(sonuc.txt) | while %- <= %– {
    echo -a $+($timestamp,$chr(45),$chr(32),Bilgi:,$chr(32),S:,$chr(32),$chr(40),$chr(32),$chr(2),%-,$chr(2),$chr(32),$chr(41),$chr(32),Klon:,$chr(32),$chr(40),$chr(32),$chr(2),$calc($gettok($read(sonuc.txt,%-),2,32) -1),$chr(2),$chr(32),$chr(41),$chr(32),Adres:,$chr(32),,$chr(40),$chr(2),$chr(32),$gettok($read(sonuc.txt,%-),3,32),$chr(2),$chr(32),$chr(41),$chr(32),Nickler:,$chr(32),$chr(40),$chr(32),$chr(2),$gettok($read(sonuc.txt,%-),1,32),$chr(32),$chr(2),$chr(41))
    inc %-
  }
  echo -a $+($timestamp,$chr(45),$chr(32),Bilgi:,$chr(32),Sonuclar sıralandı.)
  echo -a $+($timestamp,$chr(45),$chr(32),Bilgi:,$chr(32),$chr(2),$lines(sonuc.txt),$chr(2),$chr(32),adet veri bulundu)
  echo -a $+($timestamp,$chr(45),$chr(32),Bilgi:,$chr(32),Verilen sıra numaralarındaki kullanıcıları sunucudan uzaklaştırmak için;,$chr(32),$chr(2),/at sıranumarası mesajınız,$chr(32),$chr(2),işlevini yapabilisiniz.)
}
alias at { if $1 { gline $gettok($read(sonuc.txt,$1),1,44) $2- } }
alias ekle {
  if !$1 { echo -a $+($timestamp,$chr(45),$chr(32),Bilgi:,$chr(32),Herhangir bir IP/host girmediniz.) | halt }
  if $read(korumalar.txt,w,$1) { echo -a $+($timestamp,$chr(45),$chr(32),Bilgi:,$chr(32),$chr(2),$1,$chr(2),$chr(32),adresini zaten daha önce girmişsiniz.) | halt }
  write korumalar.txt $1 | echo -a $+($timestamp,$chr(45),$chr(32),Bilgi:,$chr(32),$chr(2),$1,$chr(2),$chr(32),adresini korumalar listesine başarıyla eklediniz.)
}

/kara #kanal { Klon taraması + işlev } - Yorumlar

YORUMLARINIZI PAYLAŞIN

 

Yapılan Yorumlar

BENZER İÇERİKLERİlginizi çekebilecek diğer içerikler

kelebek

kelebek 09 Kasım 2020

irc invex komutu

irc invex komutu 17 Ocak 2011

SOSYAL MEDYADA BİZSitemizin sosyal medya hesapları

ÖNE ÇIKAN KATEGORİLER

RASTGELE İÇERİKLER

Seni Yaşıyorum Sis Chipsetleri MAR-KA AMBALAJ Kırık Testi Akciğer Hastalıkları BNC ne işe yarar?

FACEBOOK'TA BİZ

Hoşgeldiniz Kelebek IRCd ve Kelebek Script ile ilgili her türlü yardımı HELPDESK alanından alabilrsiniz.

Kelebek mIRC Script Sohbet Sitesi - Tüm Hakları Saklıdır