Ip'den giren nickleri siralama - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

SuLh · 10 Şubat 2016, 18:02

Daha önce kendim için yaptığım, sunucuya giren nicklerin ip adreslerini ve girdikleri porttan giris tiplerini hash'a kaydettirip sorgulatan bir kod. Geliştirilebilir.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on *:snotice:*client connect*: {
  if $remove($8,:) = 6667 {
    if $hfind( $+ $token($token( $+ $10 $+ ,2,$asc(@)),1,41),*,0,w) > 0 {
      hadd -s $token($token( $+ $10 $+ ,2,$asc(@)),1,41) $9 IRC
      hsave -s $token($token( $+ $10 $+ ,2,$asc(@)),1,41) takipler/ $+ $token($token( $+ $10 $+ ,2,$asc(@)),1,41) $+ .h

    }
    else { 
      hmake -s $token($token( $+ $10 $+ ,2,$asc(@)),1,41)
      hadd -s $token($token( $+ $10 $+ ,2,$asc(@)),1,41) $9 IRC
      hsave -s $token($token( $+ $10 $+ ,2,$asc(@)),1,41) takipler/ $+ $token($token( $+ $10 $+ ,2,$asc(@)),1,41) $+ .h
      write yuklenecek.txt takipler/ $+ $token($token( $+ $10 $+ ,2,$asc(@)),1,41) $+ .h
    }
  }
  elseif $remove($8,:) = 7098 {
    if $hfind( $+ $token($token( $+ $10 $+ ,2,$asc(@)),1,41),*,0,w) > 0 {
      hadd -s $token($token( $+ $10 $+ ,2,$asc(@)),1,41) $9 WEB
      hsave -s $token($token( $+ $10 $+ ,2,$asc(@)),1,41) takipler/ $+ $token($token( $+ $10 $+ ,2,$asc(@)),1,41) $+ .h

    }
    else { 
      hmake -s $token($token( $+ $10 $+ ,2,$asc(@)),1,41)
      hadd -s $token($token( $+ $10 $+ ,2,$asc(@)),1,41) $9 WEB
      hsave -s $token($token( $+ $10 $+ ,2,$asc(@)),1,41) takipler/ $+ $token($token( $+ $10 $+ ,2,$asc(@)),1,41) $+ .h
      write yuklenecek.txt takipler/ $+ $token($token( $+ $10 $+ ,2,$asc(@)),1,41) $+ .h
    }
  }
}
on $*:text:/^[!.&-]tak[iIİ]p/Si:#nes: {
  if !$2 { msg $chan Lutfen bir ip giriniz. | return }
  if !$regex($2,/^[0-9]/) { msg $chan Lutfen ip giriniz, nick degil. | return }
  if $hfind( $+ $2 $+ ,*,0,w) = 0 { msg $chan Bu ip hakkinda herhangi bir bilgi yok.. | return }
  else { 
    msg $chan ------ 4 $2 ipsinden giris yapan nickler  -----
    var %i 1
    while (%i <= $hfind( $+ $2 $+ ,*,0,w)) {

      msg $chan 2Nick: 1,8 $hfind( $+ $2 $+ ,*,%i,w)  2Giris tipi: 1,8 $hget( $+ $2 $+ ,$hfind( $+ $2 $+ ,*,%i,w))
      msg $chan ---------------------------------------------------------
      inc %i
    }
  }
}

on *:start: {
  var %i 1
  while (%i <= $lines(yuklenecek.txt)) {
    hmake $remove($gettok($read(yuklenecek.txt,%i),2,$asc(/)),.h)
    hload -s $remove($gettok($read(yuklenecek.txt,%i),2,$asc(/)),.h) $read(yuklenecek.txt,%i)
    inc %i
  }
}

SuLh · 11 Şubat 2016, 22:22

Görseli ve açıklamayı unutmuşum.

!takip ip ile çalışır.

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

YouMyCure · 11 Şubat 2016, 23:45

Emeğine Sağlık Kardeşim

Feragat · 12 Şubat 2016, 02:15

Üstte paylaştığın kod ile ilgili biliyor da olabileceğin bir kaç öneri
-
if $hfind( $+ $2 $+ ,*,0,w)

tanım içinde tanım kullanırken $+ ile birleştirmeye gerek kalmaz

if $hfind($2,*,0,w)

-

art arda kullanılan if koşullarında her defasında return veya halt etmeye gerek yok.

elseif kullanarak bu daha düzenli yapılabilir. if'lerin birbirinden bağımsız çalışması biraz engellenmiş olur.
if (koşul) { kodlar }
elseif (koşul) { kodlar }
elseif (koşul) { kodlar }
elseif (koşul) { kodlar }

-
if - else de return hatası

if (koşul) { kodlar | return }
else { kodlar }

if altında else kullanıldığında, if koşulunu return etmeye gerek kalmaz. Eğer koşul uymuyorsa else yi çalıştıracaktır.

if (koşul) { kodlar }
else { kodlar }
gibi..

-
hash tablo da -s anahtarı, yapılan işlemde bilgilendirme mesajı almak içindir.
ayrıca hadd komutunda -m anahtarı kullanırsan, öncesinde hmake yapmaya gerek kalmaz. -m anahtarı eğer tablo yoksa oluşturmaya yarar.

Anlatımım yanlış anlaşılmasın, hepimizin eksikleri/bilmedikleri var. Amacım sadece konunun zenginleşmesi.

Güzel paylaşım, başarılar.

SuLh · 12 Şubat 2016, 02:31

Feragat Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Üstte paylaştığın kod ile ilgili biliyor da olabileceğin bir kaç öneri
-
if $hfind( $+ $2 $+ ,*,0,w)

tanım içinde tanım kullanırken $+ ile birleştirmeye gerek kalmaz

if $hfind($2,*,0,w)

-

art arda kullanılan if koşullarında her defasında return veya halt etmeye gerek yok.

elseif kullanarak bu daha düzenli yapılabilir. if'lerin birbirinden bağımsız çalışması biraz engellenmiş olur.
if (koşul) { kodlar }
elseif (koşul) { kodlar }
elseif (koşul) { kodlar }
elseif (koşul) { kodlar }

-
if - else de return hatası

if (koşul) { kodlar | return }
else { kodlar }

if altında else kullanıldığında, if koşulunu return etmeye gerek kalmaz. Eğer koşul uymuyorsa else yi çalıştıracaktır.

if (koşul) { kodlar }
else { kodlar }
gibi..

-
hash tablo da -s anahtarı, yapılan işlemde bilgilendirme mesajı almak içindir.
ayrıca hadd komutunda -m anahtarı kullanırsan, öncesinde hmake yapmaya gerek kalmaz. -m anahtarı eğer tablo yoksa oluşturmaya yarar.

Anlatımım yanlış anlaşılmasın, hepimizin eksikleri/bilmedikleri var. Amacım sadece konunun zenginleşmesi.

Güzel paylaşım, başarılar.

Tabii ki eleştiri, anlatım olmadan gelişim olmaz. Alternatif fikir oldukça eleştiri güzeldir, önerilerini dikkate alacağım teşekkür ederim..

GeneraL · 20 Mart 2022, 02:08

Merhaba üstad bunu aynı şekilde yükledim lakin olmadı nerede yanlış yapıyoruz acaba

SuLh Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Daha önce kendim için yaptığım, sunucuya giren nicklerin ip adreslerini ve girdikleri porttan giris tiplerini hash'a kaydettirip sorgulatan bir kod. Geliştirilebilir.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on *:snotice:*client connect*: {
  if $remove($8,:) = 6667 {
    if $hfind( $+ $token($token( $+ $10 $+ ,2,$asc(@)),1,41),*,0,w) > 0 {
      hadd -s $token($token( $+ $10 $+ ,2,$asc(@)),1,41) $9 IRC
      hsave -s $token($token( $+ $10 $+ ,2,$asc(@)),1,41) takipler/ $+ $token($token( $+ $10 $+ ,2,$asc(@)),1,41) $+ .h

    }
    else { 
      hmake -s $token($token( $+ $10 $+ ,2,$asc(@)),1,41)
      hadd -s $token($token( $+ $10 $+ ,2,$asc(@)),1,41) $9 IRC
      hsave -s $token($token( $+ $10 $+ ,2,$asc(@)),1,41) takipler/ $+ $token($token( $+ $10 $+ ,2,$asc(@)),1,41) $+ .h
      write yuklenecek.txt takipler/ $+ $token($token( $+ $10 $+ ,2,$asc(@)),1,41) $+ .h
    }
  }
  elseif $remove($8,:) = 7098 {
    if $hfind( $+ $token($token( $+ $10 $+ ,2,$asc(@)),1,41),*,0,w) > 0 {
      hadd -s $token($token( $+ $10 $+ ,2,$asc(@)),1,41) $9 WEB
      hsave -s $token($token( $+ $10 $+ ,2,$asc(@)),1,41) takipler/ $+ $token($token( $+ $10 $+ ,2,$asc(@)),1,41) $+ .h

    }
    else { 
      hmake -s $token($token( $+ $10 $+ ,2,$asc(@)),1,41)
      hadd -s $token($token( $+ $10 $+ ,2,$asc(@)),1,41) $9 WEB
      hsave -s $token($token( $+ $10 $+ ,2,$asc(@)),1,41) takipler/ $+ $token($token( $+ $10 $+ ,2,$asc(@)),1,41) $+ .h
      write yuklenecek.txt takipler/ $+ $token($token( $+ $10 $+ ,2,$asc(@)),1,41) $+ .h
    }
  }
}
on $*:text:/^[!.&-]tak[iIİ]p/Si:#nes: {
  if !$2 { msg $chan Lutfen bir ip giriniz. | return }
  if !$regex($2,/^[0-9]/) { msg $chan Lutfen ip giriniz, nick degil. | return }
  if $hfind( $+ $2 $+ ,*,0,w) = 0 { msg $chan Bu ip hakkinda herhangi bir bilgi yok.. | return }
  else { 
    msg $chan ------ 4 $2 ipsinden giris yapan nickler  -----
    var %i 1
    while (%i <= $hfind( $+ $2 $+ ,*,0,w)) {

      msg $chan 2Nick: 1,8 $hfind( $+ $2 $+ ,*,%i,w)  2Giris tipi: 1,8 $hget( $+ $2 $+ ,$hfind( $+ $2 $+ ,*,%i,w))
      msg $chan ---------------------------------------------------------
      inc %i
    }
  }
}

on *:start: {
  var %i 1
  while (%i <= $lines(yuklenecek.txt)) {
    hmake $remove($gettok($read(yuklenecek.txt,%i),2,$asc(/)),.h)
    hload -s $remove($gettok($read(yuklenecek.txt,%i),2,$asc(/)),.h) $read(yuklenecek.txt,%i)
    inc %i
  }
}

Beatle · 03 Nisan 2022, 04:52

Emeğine sağlık

JameS · 03 Nisan 2022, 05:05

Emeğine Sağlık

Subzero · 17 Nisan 2022, 02:55

GeneraL Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Merhaba üstad bunu aynı şekilde yükledim lakin olmadı nerede yanlış yapıyoruz acaba

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on $*:text:/^[!.&-]tak[iIİ]p/Si:#nes: {

bu kısımdaki #nes olan kanal kısmını değiştir. denedim çalışıyor.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Q Basic Alıştırma sinif yas siralama	Kaf_Dağı	Programlama	0	21 Aralık 2015 12:37
Kanal Giren Nickleri Random Renklendirmek	Feragat	mIRC Parça Kodlar	1	23 Mart 2015 10:48
Kanala Giren Nickleri Kaydedecek Kod	eNyA	mIRC Scripting Sorunları	10	20 Mayıs 2012 17:53
liste.txtden sirasi ile dialogda siralama?	Aero	mIRC Scripting Sorunları	6	16 Şubat 2009 20:59
Kanala Giren Nickleri Kaydetme	alemdar66	mIRC Scripting Sorunları	9	07 Ekim 2007 04:59

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.