Neler yeni
MEGAForum - Teknoloji Forumu

Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı yada giriş yapmalısınız. Forum üye olmak tamamen ücretsizdir.

Gelişmiş Whois Eklentisi

SaNCaK

MFC Üyesi
  • Üyelik Tarihi
    7 Kas 2017
  • Mesajlar
    35
  • MFC Puanı
    0
Kod:
on *:load: { 
  .echo -aq $input(Yapımcı: SaNCaK $+ $crlf $+ $crlf $+ Addon: Whois $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: Whois $chr(40) $+ v5.4 $+ $chr(41))
  echo -a _____________________________________________________________________________________
  echo -a 4,1[15,1 SaNCaK 4,1] 0,1 Add-On yükleniyor... 
  echo -a 4,1[15,1 SaNCaK 4,1] 0,1 Çalışan mIRC15 $version 0Sistem15 Windows $+ $os 
  echo -a 4,1[15,1 SaNCaK 4,1] 0,1 Coder: 15SaNCaK 0,1 E-Mail: 15sancak@outlook.com.tr 
  echo -a 4,1[00,01 SaNCaK 4,1] 15,1 Copyright 12©15 1999-2017 
  echo -a ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
}
on *:unload: { 
  .echo -aq $input(Author: SaNCaK $+ $crlf $+ $crlf $+ Addon: Whois $chr(40) $+ v5.4 $+ $chr(41) $+ $crlf $+ $crlf $+ Released at: 17/10/2016 $+ $crlf $+ $crlf $+ Contact: sancak@outlook.com.tr $+ $crlf $+ $crlf $+ Unloading...,igo,Addon: Whois $chr(40) $+ v5.4 $+ $chr(41))
}
;~~~~~~~~~~~~~~~ § â ñ ¢ â K ~~~~~~~~~~~~~~
on *^:Join:#:{
  if ($nick == $me) {
    echo $chan  $timestamp 12___[2  # 14Kanalına Girdiniz..12]------------------------------------------° | halt
  }
}
raw 332:* {
  echo $2 $timestamp 12|--» 14Kanal Mesaj: 02 $3- 
  halt
}
raw 333:* {
  echo $2 $timestamp 12|--» 14Kanal Kuruluş Tarihi:02 $asctime($4)
  echo $2 $timestamp 12|--» 14Topic Kurucusu:02 $3
  halt
}
raw 366:*: {
  echo  $2 $timestamp 12|--» 14Kanalda Op:2  $opnick($2,0) 14Voice:2 $vnick($2,0) 14Toplam:2 $nick($2,0)  14kişi bulunuyor. 
  echo  $2 $timestamp 12 ¯°---------------------------------------------------------------------°
  halt
}
raw 328:* {
  echo $2 $timestamp 12|--» 14URL: 02 $3- 
  halt
}

;~~~~~~~~~~~~~~~ § â ñ ¢ â K ~~~~~~~~~~~~~~
alias clonecntrl { who +h $1 | set %jnk $1 }
alias kanalclone {
  if ($ial($address($1,2),0) == 1) return
  var %nickler = 0 | var %clone = $1
  while (%nickler < $ial($address($1,2),0)) { inc %nickler | var %clone = $addtok(%clone,$ial($address($1,2),%nickler).nick, 44) }
  return %clone
}

#whocontrol off
raw 352:*: {
  haltdef 
  if %jnk { %cloneleri = $addtok(%cloneleri,$6,32) }  
}
raw 315:*:if %jnk { haltdef | unset %jnk |   echo -a $timestamp 12|---› 14Kullandığı nickler:1 $eval(%cloneleri,2) | .disable #whocontrol }
#whocontrol end
raw 301:*: {
  haltdef
  echo -a $timestamp 12|---› 14Away Durumu:1 ( $+ $3- $+ )
}
raw 307:*: {
  haltdef
  echo -a $timestamp 12|---› 14Kayıt Durumu:1 Bu Nick Kayıtlı ve İdentify Edilmiştir.
}
raw 310:*: {
  haltdef
  echo -a 4» IRC Helper
}
raw 335:*: {
  echo -a $timestamp 12|---› 14Bot:1 Evet (+B).
  halt
}
raw 311:*:{
  haltdef
  echo -a $timestamp 12___[1Whois:1 $2 12] -------------------------------------------------------------•
  ;echo -a $timestamp 12|---› 14Nick:1 $2
  echo -a $timestamp 12|---› 14FullName:1 $6-
  echo -a $timestamp 12|---› 14İp Adresi:1 $3 $+ 04 $+ @ $+ 01 $+ $4
  var %clone = $kanalclone($2)
  if (%clone == $null)   echo -a $timestamp 12|---› 14Kanaldaki Klonları:1 (Clone yok!)
  else   echo -a $timestamp 12|---› 14Clone:1 ( $+ $numtok(%clone,44) $+ ) kişi 04/01 %clone
  haltdef
}
raw 312:*:{
  haltdef
  echo -a $timestamp 12|---› 14Server:1 $3
}
raw 313:*: {
  haltdef
  echo -a $timestamp 12|---› 14Network Özelliği:1 $4 $5 $6 $7 $8 $9
}
raw 314:*:{
  haltdef
  echo -a $timestamp 12¯°--------------------------------------------------------------------------------•
  echo -a $timestamp 12|---› 14Nick:1 $2
  echo -a $timestamp 12|---› 14FullName:1 $6-
  echo -a $timestamp 12|---› 14İp Adresi:1 $3 $+ 04 $+ @ $+ 01 $+ $4
  var %clone = $kanalclone($2)
  if (%clone == $null)   echo -a $timestamp 12|---› 14Kanaldaki Klonları:1  ( Clone yok! )
  else   echo -a $timestamp 12|---› 14Clone:1 ( $+ $numtok(%clone,44) $+ ) kişi 04/01 %clone
  haltdef

}
raw 317:*:{
  haltdef
  %idle = $replace($duration($3),secs,saniye,sec,saniye,mins ,dakika,min,dakika,hrs,saat,hr,saat,days,gün,day,gün,wks,hafta,wk,hafta)
  %baglanis = $replace($asctime($4),mon,Pazartesi,tue,Salı,wed,Çarşamba,thu,Perşembe,fri,Cuma,sat,Cumartesi,sun,Pazar,jan,Ocak,Feb,Şubat,Mar,Mart,apr,Nisan,May,Mayıs,Jun,Haziran,Jul,Temmuz,Aug,Ağustos,Sep,Eylül,Oct ,Ekim,Nov,Kasım,Dec,Aralık)
  echo -a $timestamp 12|---› 14Bağlandığı Zaman:1 %baglanis
  echo -a $timestamp 12|---› 14Boş Olduğu Süre:1 %idle
  echo -a $timestamp 12|---› 14Bağlandıktan Sonra Geçen Süre:1 $duration($calc($ctime - $4))
}
raw 318:*:{
  haltdef
  .timer -h 1 200 echo -a $timestamp 12¯°--------------------------------------------------------------------------------•
}
raw 319:*:{
  haltdef
  echo -a $timestamp 12|---› 14Kanalları:1 $3-
  echo -a $timestamp 12|---› 14Ortak kanallar:1 $ortak_k($2) 04/01 Toplam:04 $comchan($2,0) 01Kanal
}

raw 338:*:{
  haltdef
  echo -a $timestamp 12|---› 14Gerçek İp Adresi:01 $4 $5 $6
  echo -a $timestamp 12|---› 14Gerçek İp:1 $3 $4
}
raw 320:*:{
  haltdef
  echo -a $timestamp 12|---› 14Swhois:1 $2-
}
raw 330:*: echo -a $timestamp 12|---› 14Durum:1 $2 Nicki $3 Accountuna kayıtlıdır. | halt
raw 378:*:{
  haltdef
  .enable #whocontrol
  clonecntrl $7
  echo -a $timestamp 12|---› 14Gerçek Ip Adresi:01 $4 $5 $6 $7
}
raw 379:*:{
  haltdef
  echo -a $timestamp 12|---› 14Nick modeleri:01 $6
}
raw 671:*:{
  haltdef
  echo -a $timestamp 12|---› 14Bağlantı:1 $3-
}
raw 327:*: {
  echo -a $timestamp 12|---› 14Client Info:1 Java User
  halt
}

raw 310:*: {
  echo -a $timestamp 12|---› 14 Özellikleri • 1 Yardım sever biri gibi duruyor
  halt
}

raw 325:*: {
  echo -a $timestamp 12|---› 14 Özellikleri • 1 Hassas Kulaklara Sahip.
  halt
}

raw 328:*: {
  echo -a $timestamp 12|---› 14 Kullandığı İp Numarası • 1 $7-
  halt
}

raw 308:*: {
  echo -a $timestamp 12|---› 14 Bilgi:1 Servis Ajanı! •
  halt
}
raw 320:*:{
  haltdef
  echo -a $timestamp 14|---› 14Swhois:1 $2-
}
raw 330:*: echo -a $timestamp 14|---› 14NickServ:1 $2  $4 $5 $6 $7 $3 | halt
raw 378:*:{
  haltdef
  .enable #whocontrol
  clonecntrl $7
  echo -a $timestamp 14|---› 14Real Ip Address:01 $4 $5 $6 $7
}
raw 379:*:{
  haltdef
  echo -a $timestamp 14|---› 14Modes:01 $6
}
raw 671:*:{
  haltdef
  echo -a $timestamp 14|---› 14Connection:1 $3-
}

raw 276:*:{
  haltdef
  echo -a $timestamp 14|---› 14Client :1 $3 $4 $5 $6 $7
}

raw 327:*: {
  echo -a $timestamp 14|---› 14Client Info:1 Java User
  halt
} 

raw 310:*: {
  echo -a $timestamp 14|---› 14 Info: 1 Yardım sever biri gibi duruyor
  halt
}

raw 325:*: {
  echo -a $timestamp 14|---› 14 Info: 1 Hassas Kulaklara Sahip.
  halt
}
raw 308:*: {
  echo -a $timestamp 14|---› 14 Info:1 Servis Ajanı! •
  halt
} 
alias ortak_k {
  if ($server == $null) {   echo -a $timestamp 14|---› 14Herhangi bir sêrvêr'a bağlı değilsiniz. }
  elseif ($chan($me) == 0) {   echo -a $timestamp 14|---› 14Herhangi bir kanala girmiş değilsiniz. }
  elseif (!$1) {   echo -a $timestamp 14|---› 14Ortak kanallarınızın bulunacağı nick belirtilmedi. }
  elseif ($comchan($1,0) == 0) {   echo -a $timestamp 14|---› 14No such nick/channel. }
  else {
    var %oid 1
    set %orka $comchan($1,0)
    unset %knms
    while (%oid <= %orka) {
      set %knms $comchan($1,%oid) $+ $chr(32) $+ %knms
      inc %oid
    }
    return %knms
  }
}
on *:snotice:*whois*: { 
  var %> = $+(%,op:,$2) 
  inc -eu60 $(%>,1)
  if ($(%>,2) == 1) { 
    .msg $gettok(%>,2,58) 1UYARI : 4[ 2Sistem bilgilerime baktığınızı tespit etti.Sorun Nedir? 4] | window -e @Whois | echo @Whois 0,6 $time  *** 2UYARI:4 $2 2şu Anda Bilgilerinize Bakıyor 4[2 Whois Çekti 4] | /echo 1 -a 0,6 $time  *** 2UYARI: 4 $2 2şu Anda Bilgilerinize Bakıyor 4[2 Whois Çekti 4]
    halt 
  }
  elseif ($(%>,2) == 2) { 
    .msg $gettok(%>,2,58) 1UYARI : 4[ 2Sistem bilgilerime 2. kez baktığınızı tespit etti.Eğer yazınıza cevap alamıyorsanız bilgisayar başında olmayabilirim ya da meşgulümdür. 4] | window -e @Whois | echo @Whois 0,6 $time  *** 1UYARI :  4 $2 2şu Anda 2. Kez Bilgilerinize Bakıyor 4[2 Whois Çekti 4] | /echo 1 -a 0,6 $time  *** 4[ 2UYARI:4 $2 2şu Anda 2. Kez Bilgilerinize Bakıyor 4[2 Whois Çekti 4]
  }
  elseif ($(%>,2) == 3) { 
    .msg $gettok(%>,2,58) 1UYARI : 4[ 2Sistem bilgilerime tekrar baktığınızı tespit etti ve özel korumalarım devreye girdi tekrar whois çekmeyiniz!! 4] | /window -e @Whois | echo @Whois 0,6 $time  *** 1UYARI :  *** 4 $2 2şu Anda 3. Kez Bilgilerinize Bakıyor 4[2 Whois Çekti 4] | echo -a 0,6 $time  *** 1UYARI :4 $2 2şu Anda 3. Kez Bilgilerinize Bakıyor 4[2 Whois Çekti 4]
  } 
  elseif ($(%>,2) == 4) {
    .kill $gettok(%>,2,58) 1UYARI : 4[ 2Lütfen Uyarılarımı Dikkate Alınız... Whois Güvenlik Birimleri Tarafından Kill ıle Uyarıldınız 4] | window -e @Whois | echo @Whois 0,6 $time  *** 1UYARI : 4[3 $2 5Rumuzlu şahıs gereksiz whois çekme suçundan kill ile uyarıldı. 4] | echo -a 0,6 $time  *** 1UYARI : 4[3 $2 5Rumuzlu şahıs gereksiz whois çekme suçundan kill ile uyarıldı. 4]
    unset $(%>,1) 
  } 
}
;~~~~~~~~~~~~~~~ § â ñ ¢ â K ~~~~~~~~~~~~~~
raw 1:*:echo -a $timestamp 1Hoşgeldin2 $8 | halt
raw 2:*:echo -a $timestamp 1Server versionu:2 $8 | halt
raw 3:*:echo -a $timestamp 1Server Kuruluş Tarihi:2  $6 $7 $8 $6 $11 | halt
raw 4:*:echo -a $timestamp 1Sunucu Adı:2  $2 1Çalışan Version:2 $3  | halt
raw 5:*:echo -a $timestamp 1Server bilgi:2 $6 $7 $8 $6 $10 | halt
raw 482:*:echo -a $timestamp 4,4 0,0 0,4 HATA 0,0 4,4 12 Bu komutu kullanabilmek için yönetici olmanız gerekmektedir. | halt
raw 401:*:echo -a $timestamp 4,4 0,0 0,4 HATA 0,0 4,4 12 $2 1Nicki şuan 12( $server ) 1 sunucusuna bağlı değil. $time | er54 $2 Nicki şuan ( $server ) sunucusuna bağlı değil. $time | halt
raw 381:*:echo -a $timestamp 3*** Login Basarili: $server Sunucusunda <4 $6- > olarak giriş yaptınız. | halt
raw 008:*:echo -a $timestamp 3*** Aldığınız Masklar: $5 | halt
raw 464:*:echo -a $timestamp 4,4 0,0 0,4 HATA 0,0 4,4 12 Yanlış şifre denemesi lütfen doğru şifreyi giriniz. | halt
;raw 421:*:echo -a $timestamp 4,4 0,0 0,4 HATA 0,0 4,4 1,14 Geçersiz Komut Uyguladınız. Komutlar Hakkında 02#help 1 kanalından yardım alabilirsiniz. | halt
raw 432:*:echo -a $timestamp 12 Kabul edilmeyen karakter kullandınız. Örnek: (ğüşçı) | halt
raw 471:*:echo -a $timestamp 14>1 $2 Kanalında limit var ve şu anda kanal limiti dolu. Daha sonra tekrar deneyiniz... | halt
raw 473:*:echo -a $timestamp 14>1 $2 Kanalına şu anda giremezsiniz. Kanal davetsel konumda (+i). Daha sonra tekrar deneyiniz...  | halt
raw 474:*:echo -a $timestamp 14>1 $2 Kanalına giremezsiniz. Banlısınız... | halt
raw 475:*:echo -a $timestamp 14>1 $2 Kanalı şifreli konumda. (+k) Şifreyi bilmeden giremezsiniz. | halt
raw 437:*:echo -a $timestamp 14>1 $2 Kanalında iken nick değiştiremezsiniz. Kanal nick değiştirmeye kapalı durumda. (+N) | halt
raw 472:*:echo -a $timestamp 14>1 $2 Yalnış mode ayarı. | halt
raw 481:*:echo -a $timestamp 12,120 IRCop değilsiniz. Bu komutu kullanamazsınız.  | halt
raw 430:*:echo -a $timestamp 12,120 $2 IRCop komutudur. Kullanamazsınız.  | halt
raw 404:*:echo -a $timestamp 14>1 $2 Kanalına Gönderilmedi. | halt
raw 405:*:echo -a $timestamp 14>1 Daha fazla kanala giremezsiniz. | halt
raw 352:*:echo -s $timestamp 14Kullanıcılar:1 $2-  | halt
raw 421:*:echo -a $timestamp 14>1 $2 Yalnış komut. | halt
raw 474:*:echo -a $timestamp 14>1 $2 Kanalına giremezsiniz. Banlısınız. | halt
raw 441:*:echo -a $timestamp 14>1 $2 $3 Kanalında bulunamadı. | halt
raw 478:*:echo -a $timestamp 14>1 $2 Ban List dolu.. ( $3 ) | halt
raw 412:*:echo -a $timestamp 14>1 $2 yazdığınız gitmedi. | halt
raw 328:*:echo -a $timestamp 14>1 $2 URL: $3  | halt
raw 433:*:echo -a $timestamp 14>1 $2 Nicki şu anda kullanılıyor. | halt
raw 306:*:echo -a $timestamp 14>1 Şu andan ihtibaren awaysiniz. | halt
raw 250:*:echo -a $timestamp 1Toplam bağlantı2 $4 1kişi. | halt
raw 252:*:echo -a $timestamp 1IRC'de olan IRCop sayısı:2 $2 | halt
raw 253:*:echo -a $timestamp 1Bilinmeyen bağlantı sayısı:2 $2 | halt
raw 254:*:echo -a $timestamp 1Aktif kanal sayısı:2 $2 | halt
raw 255:*:echo -a $timestamp 1Alıcılar2 $4 1tane - Yerel kullanıcılar2 $7 1tane. | halt
raw 251:*:echo -a $timestamp 1Toplam kullanıcı sayısı:2 $4 | halt
raw 251:*:echo -a $timestamp 1Görünmeyen kullanıcı sayısı:2 $7 | halt
raw 251:*:echo -a $timestamp 1Toplam Server sayısı:2 $10 | halt
raw 375:*:echo -a $timestamp 2«[1 Server Motd Başlangıcı 2]» | halt
raw 471:*:echo -a $timestamp 6,0 $2 Kanalında limit var ve şu an dolu. Tekrar deneyiniz.. | halt
raw 473:*:echo -a $timestamp 6,0 $2 Kanala Giremezsiniz, Şu An Davetsel 12,0 ( 4,0 invite 12,0 ) 6,0 Konumda.. | halt
raw 474:*:echo -a $timestamp 6,0 $2 Kanala Giremezsiniz, Sizi 6b3anladılar | halt
raw 475:*:echo -a $timestamp 6,0 $2 Kanala Giremezsiniz, Şu An Şifreli 12,0 ( 4,0 key 12,0 ) 6,0 Giriş Konumunda | halt
raw 437:*:echo -a $timestamp 6,0 $2 Bulunduğunuz Kanal 4,0 +d veya 4,0 +m  6,0 Modunda iken Nick Değişemezsiniz.. Kanaldan Çıkıp Tekrardan Deneyin | halt
raw 472:*:echo -a $timestamp 6,0 $2 Yanlış Mode Ayarı.. | halt
raw 430:*:echo -s $timestamp 6,0 $2 IRC Operator Komutudur, Kullanamazsın.. | er54 $2 IRC Operator Komutudur, Kullanamazsın.. | halt
raw 401:*:echo -s $timestamp 6,0 $2 Kişi ßulunamadı.. | er54 $2 Kişi ßulunamadı.. | halt
raw 404:*:echo -a $timestamp 6,0 $2 Yazdığınız Kanala Gönderilemedi.. | halt
raw 405:*:echo -a $timestamp 0,4 Dikkat.! 0,12 $Server Daha fazla kanala girmenize izin vermiyor! | halt
raw 352:*:echo -a $timestamp 6,0 $2-  | halt
raw 474:*:echo -a $timestamp 6,0 $2 Kanalına Giremezsin ßanlısın | halt
raw 441:*:echo -a $timestamp 6,0 $2 $3 Kanalında ßulunamadı.. | halt
raw 478:*:echo -a $timestamp 6,0 $2 ßan List Doldu ( $3 ) | notice $2 ßanlist Doldu.   | halt
raw 412:*:echo -a $timestamp 6,0 $2 Yazdığınız Karşıya Gitmedi.. | halt
raw 433:*:echo -a $timestamp 6,0 $2 Şu An Kullanılıyor  Nick`in Şifresini Biliyorsanız   2,0 /Nickserv Ghost $2 Şifre6,0 Şeklinde komudu kullanın. | halt
raw 493:*:echo -a $timestamp 0,12 0,4 $2 0,12 Nickinin Özeli Kapalı Olduğu Icin Mesajınız Kendisine Ulaşamadı.. | halt
;~~~~~~~~~~~~~~~ § â ñ ¢ â K ~~~~~~~~~~~~~~
dialog error {
  title "Hatalı işlem yaptınız"
  size -1 -1 250 93
  option pixels
  button "Tamam", 99, 1001 1001 1 1, ok
  text "", 1, 5 5 240 60, center
  button "Tamam", 2, 80 70 80 19, flat ok
}

alias er54 {
  if ($dialog(error) == $null) {
    dialog -m error error
    did -ra error 1 $1-
    halt
  }
  did -ra error 1 $1-
}

Kodların miRC sisteminize eklenmesi;
Eklenecek kodu kopyalıyoruz. (Kısayol Tuşu Ctrl + C) Ardından mIRC'imizi açıyoruz ve herhangi bir ekranda Alt + R tuşlarına basıyoruz. mIRC Scripts Editörü açılıyor.
[Aliases] [Popups] [Remote] [Users] [Variables] tablarından [Remote] sekmesini tıklıyoruz sonrasında Sol üst menümüzden;
|Dosya (ingilizce için File)
|Yeni (ingilizce için New)
Sekmelerine tıklıyoruz boş bir ekran karşımızda, ekrana sağ tıklayıp yapıştırı tıklıyoruz. (Kısayol Tuşu Ctrl + V) Son Olarak Tamam [OK] butonuna tıklıyoruz ve kodumuzu eklemiş oluyoruz.
 

Ekli dosyalar

  • Gelismis-Whois.rar
    4.7 KB · Görüntüleme: 2

vioLeta

| Az İnsan Çok Huzur |
Özel Üye
  • Üyelik Tarihi
    29 Tem 2015
  • Mesajlar
    2,530
  • MFC Puanı
    310
Teşekkürler
 

StigmatA

♣Şeytana Uymuyorum, Sadece Aynı Fikirdeyiz!♠
Forum Sorumlusu
Admin
Konum
ßursa
  • Üyelik Tarihi
    3 Nis 2008
  • Mesajlar
    26,363
  • MFC Puanı
    164,293
evet güzel bir remote kodu eline emeğine sağlık.
 
Üst Alt