IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet odaları

Etiketlenen Kullanıcılar

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 07 Mayıs 2010, 13:32   #11
Çevrimdışı
aSi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Shell Firmaları için Dns.tcl




Sağolasın..

__________________
Doğruları biliyorsan, yalanları dinlemek eğlencelidir.
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları eglen sohbet bizimmekan
Alt 12 Mart 2012, 14:23   #12
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Shell Firmaları için Dns.tcl




Link yenilicek Arkadaş varmıdır.

 
Alıntı ile Cevapla

Alt 12 Mart 2012, 22:01   #13
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Shell Firmaları için Dns.tcl




PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
 
bind pub 
- !dns lookup:do_lookup
if {[catch {exec which nslookuplookpath]} {
  
putlog "$host/IP Banner and dnslookup proc disabled, error:\n$lookpath"
  
return 0
} else {
  
proc dnslookup {host} {
    global 
lookpath
    set name 
"Unknown"set ip "Unknown"set errmsg "Unknown";
    
set server_lines 0
    set $host 
[lindex [string tolower $host0]
    if {[catch {
exec $lookpath [lindex $host 0]} buff]} {
      foreach 
line [split $buff \n] {
 if {[
string first "${host}:" $line] != -1} {
   
set errmsg [string trim [lindex [split $line :] 1]]
 }
      }
      return 
"Hata:$errmsg"
    
}
    
set buff [split $buff \n]
    
set buff [lreplace $buff 0 1]
    if {[
regexp {name = (.*)\.} $buff -> name]} { set ip $host }
    foreach 
data $buff {
      switch [
lindex $data 0] {
 
"İsim:" {
   
set name [string trim [lindex [split $data :] 1]]
 }
 
"Adres:" {
   
set ip [string trim [lindex [split $data :] 1]]
 }
 
"Adres:" {
   
set ip [string trim [lindex [split $data :] 1]]
 }
      }
    }
    return 
"${name}:${ip}"
  
}
}
proc lookup:do_lookup {ni uh ha chan text} {
  if {[
llength $text] > 1} { return }
  if {[
onchan $text $chan]} {
    
set host_ip [dnslookup [lindex [split [getchanhost $text $chan] @] 1]]
  } else {
  
set host_ip [dnslookup $text]
  }
  
set name [lindex [split $host_ip :] 0]
  
set ip [lindex [split $host_ip :] 1]
  
puthelp "privmsg $chan :DNS Sorgulama: $text ($name -> $ip)"
  
return 1                                                 



 
Alıntı ile Cevapla

Cevapla

Etiketler
dnstcl, firmalari, firmaları, için, shell


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

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Shell firmalari icin 8 modul paket modulleri GozdeSheLL Unreal IRCd 14 26 Şubat 2013 19:57
Shell firmaları, dikkat edin bu sizin için. house Eggdrop, NeoStats, BNC 32 23 Temmuz 2012 22:58
shell ci arkadaslar için velehmet Eggdrop, NeoStats, BNC 5 28 Mart 2006 01:19