[Difuzyon]

Kodun amacı:

+W modesine sahip (Helper,Oper,Admin vs vs) biri iseniz ve size whois çekildiğinde,
-irc.Sunucu.com- *** L4roXyL (asas@78.190.73.236) did a /whois on you.
şeklinde uyarı alıyorsanız koddan yararlanabilirsiniz.
Size whois çekenin ip no'sundan hareketle [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] adresinden yerel bağlantı bilgilerini size sunacaktır.


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


İşte kod:

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

on *:sockopen:whoiz:{
  sockwrite -n $sockname GET /index.php?query= $+ %difyipno  HTTP/1.1
  sockwrite -n $sockname Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -n $sockname $clrf   
}
on *:sockread:whoiz:{
  if ($sockerr) { echo -a Veri alımında Hata oluştu. | halt }
  else {
    var %difi 
    sockread %difi
    if (*Country*Region*City* iswm %difi) { set %dify $htmlfree($replace(%difi,</td>,$chr(32))) }
    elseif (*Registry*Information* iswm %difi) { 
      sockclose whoiz
      if $regex(%dify,/Region City ISP (.+) Google Map for.+Geolocation data from/i) {
        set %difuzyon $regml(1)
        if !$window(@Whois) { window -adk0 +let @Whois 700 80 290 132 Verdana 12 | titlebar @Whois yerel bilgiler... }
        else { window -a @Whois }
        aline @Whois 11,1Nick1...11:8 %difyyerelnick 1....................................................           
        aline @Whois 11,1IP no1.11:8 $token(%difuzyon,1,32) 1.....................................................
        aline @Whois 11,1Ülke1...............11:9 $token(%difuzyon,2,32) 1............................................
        aline @Whois 11,1Bölge1.............11:9 $token(%difuzyon,3,32) 1.......................................
        aline @Whois 11,1Şehir1..............11:9 $token(%difuzyon,4,32) 1......................................
        aline @Whois 11,1Organizasyon:9 $token(%difuzyon,5-,32) 1.................................................
        aline @Whois 0,1----------------Bilgi Sonu------------------------------------------------------------
        unset %dif*
      }      
    }
  }
}
alias bağlantı {
  sockclose whoiz
  sockopen whoiz 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
}
alias htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}
on *:snotice:*whois*on*you*: { 
  if !$hfind(Whoisler,$2).item && !$regex($sock(yerelbilgi).status,active) { 
    hadd -m Whoisler $2 $remove($token($3,2,64),$chr(41)) 
    set -e %difyipno $remove($token($3,2,64),$chr(41)) 
    set -e %difyyerelnick $2  
    bağlantı 
    echo -a 9,2***8 $2 11nicki size whois çekti,bilgileri alınıyor...
  }
}

Size whois çeken nick için 1 defa işlem yapmaktadır(flood olayına engel olmak için).

Resimde 2 türlü görüntü bir aradır.Bir tanesi window(pencere) diğer ise tip(baloncuk).
Yukarıdaki kod sadece window(pencere) halinde görünüm sağlamaktadır.
Şayet mirciniz destekliyorsa tip(baloncuk) olarak görmek isterseniz kod içerisinde mavi kısmı siler aşağıdaki dizinleri yerine eklersiniz.
Her ikisinide görmek istiyorsanız mavi kısmın hemen üstüne aşağıdaki kodu ilave edersiniz.

Alıntı:

noop $tip(Whois,Yerel Bilgiler,Nick: %difyyerelnick,7) noop $tip(Whois,Yerel Bilgiler,IP No: $token(%difuzyon,1,32),7) noop $tip(Whois,Yerel Bilgiler,Ülke: $token(%difuzyon,2,32),7) noop $tip(Whois,Yerel Bilgiler,Bölge: $token(%difuzyon,3,32),7) noop $tip(Whois,Yerel Bilgiler,Şehir: $token(%difuzyon,4,32),7) noop $tip(Whois,Yerel Bilgiler,Org.: $token(%difuzyon,5,32),7)

Görünüm seçeneklerini biraz daha arttırarak kendinize göre de düzenleyebilirsiniz.

İşinize yaraması dileğiyle...
Hoşca paylaşımlar.