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

eLsukr · 22 Mart 2011, 13:14

s.a sevgili coder abilerim şöyle bir kd varmı mesela herhangi bi kanalda
!iptracer 88.229.30.5 yada
!iptara 88.229.30.5
yazdığımda hemen şöle bir bilgi gelmesi mümkünmü tşk.ler

IP address [[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]]:88.229.30.5 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] IP country code:TR IP address country:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Turkey IP address state:Ankara IP address city:Ankara IP address latitude:39.9272 IP address longitude:32.8644 ISP of this IP [[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]]:Turk Telekom Organization:Turk Telekom Host of this IP: [[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]]:dsl88-229-7685.ttnet.net.tr [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Local time in Turkey:2011-03-22 13:11

aSi · 22 Mart 2011, 14:23

Ajan botun !nerden vs olarak vardı, aslında aratsan bulursun.

eLsukr · 23 Mart 2011, 10:33

aSi kardeşim öyle bir konu açılmış ama konuyu açan arkadaş oper /admin degilmiş bu nedenle kod yazılmamış arkadaşa ben o konuya bakmıştım kod yazılmadıgındanyeni açayım dedim . varsa öyle bir code , coder akadaşladrdan rica ederim.. tsk.ler

CesuryureK · 23 Mart 2011, 14:02

Merhabalar.

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

alias htmlfree {  
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x  
}
alias sehir { sockopen Ulke ip-address-lookup-v4.com 80  }  
on *:SockOpen:Ulke:{  
  sockwrite -n $sockname GET /lookup.php?ip= $+ %Ulke HTTP/1.1
  sockwrite -n $sockname host: ip-address-lookup-v4.com
  sockwrite -n $sockname $crlf  
}  
on *:SockRead:Ulke: {  
  var %bilgi
  sockread %bilgi
  if (host name isin $htmlfree(%bilgi)) {
    if ($len($gettok($gettok($htmlfree(%bilgi),6,32),2,58)) == 1) { msg %aktifpencere Host: Bulunamadı }
    else { msg %aktifpencere Host: $gettok($gettok($htmlfree(%bilgi),6,32),2,58) }
  }
  if (Country Code isin $htmlfree(%bilgi)) { msg %aktifpencere Ulke: $remove($gettok($htmlfree(%bilgi),1,58),Country Code) }
  if (Country Code isin $htmlfree(%bilgi)) { msg %aktifpencere Ulke Kodu: $remove($gettok($htmlfree(%bilgi),2,58),Region) 
  }
  if (Country Code isin $htmlfree(%bilgi)) { msg %aktifpencere Bölge: $remove($gettok($htmlfree(%bilgi),3,58),City) }
  if (Country Code isin $htmlfree(%bilgi)) { msg %aktifpencere Sehir: $remove($gettok($htmlfree(%bilgi),4,58),Latitude,Postal Code) }
  if (Postal Code isin $htmlfree(%bilgi)) { msg %aktifpencere Posta Kodu: $remove($gettok($htmlfree(%bilgi),5,58),Latitude) }
  if (Area Code isin $htmlfree(%bilgi)) { msg %aktifpencere Alan Kodu: $remove($gettok($htmlfree(%bilgi),8,58),DMA Code) }
  if (Country Code isin $htmlfree(%bilgi)) { 
    if (TR isin $remove($gettok($htmlfree(%bilgi),2,58),Region)) { 
      msg %aktifpencere Enlem: $remove($gettok($htmlfree(%bilgi),5,58),Longitude) 
      msg %aktifpencere Boylam: $remove($gettok($htmlfree(%bilgi),6,58),Whois* Information NetRange)
    }
    else { 
      msg %Aktifpencere Enlem: $remove($gettok($htmlfree(%bilgi),6,58),Longitude)
      msg %Aktifpencere Boylam: $remove($gettok($htmlfree(%bilgi),7,58),Area Code)
    }
  }
}
on *:input:*: {
  if ($regex($1,/(^[!.](iptara|iptrace)$)/i)) {
    .set -u10 %ulke $2 | set -u10 %aktifpencere $active
    .sehir $2
    .timer 1 5 .sockclose ulke
  }
}

[14:01:32] <CesuryureK> !iptara 69.197.59.30
[14:01:33] <CesuryureK> Host: Bulunamadı
[14:01:33] <CesuryureK> Ulke: United States
[14:01:33] <CesuryureK> Ulke Kodu: US
[14:01:33] <CesuryureK> Bölge: California
[14:01:33] <CesuryureK> Sehir: Fullerton
[14:01:33] <CesuryureK> Posta Kodu: 92832
[14:01:33] <CesuryureK> Alan Kodu: 714
[14:01:33] <CesuryureK> Enlem: 92832
[14:01:33] <CesuryureK> Boylam: 33.8682
------------------------------------------

[14:02:07] <CesuryureK> !iptrace 95.15.248.112
[14:02:08] <CesuryureK> Host: dsl95-15-63600.ttnet.net.tr
[14:02:08] <CesuryureK> Ulke: Turkey
[14:02:08] <CesuryureK> Ulke Kodu: TR
[14:02:08] <CesuryureK> Bölge: Ankara
[14:02:08] <CesuryureK> Sehir: Ankara
[14:02:08] <CesuryureK> Enlem: 39.9272
[14:02:08] <CesuryureK> Boylam: 32.8644

Kendim yazdığım koddur.

Bilgileri sadece kendiniz görmek istiyorsanız kodda geçen

msg %aktifpencere
yerine
Echo -a
kullanmanız yeterli.

!iptara veya !iptrace veya .iptara veya .iptrace komudunu nerde kullanırsanız bilgileri oraya verecektir. Komutu siz kullanabilirsiniz INPUT demek sizin yazacağınız yazıda işlev görmesidir.

Ayrıca !iptara komutunu uyguladığınızda o !iptara kısmının aktif pencereye gitmemesini istiyorsanız kodun INPUT eventinde sockclose ulke satırının altına
.halt
kelimesini eklersiniz.

eLsukr · 23 Mart 2011, 15:27

çok tesekkür ederim saygıdeger sevgili abiciğim Allah razı olsun

eLsukr · 12 Kasım 2012, 15:24

ustadlar bu kod çalışmıyo artık herhalde
[15:19:53] <elsukr> .iptara 78.183.150.250
[15:19:55] <elsukr> Host:

başka bişi de çıkmıyo

IRC-Dancer · 12 Kasım 2012, 15:51

Güncellenmesi Lazım

MesqeN · 12 Kasım 2012, 17:15

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] hocam bu vermiiş oldugun kodu şöyle birşey yapa bilirmiyiz

Örnegin sunucuya giriş cıkışları İP lerini kayıt etigim .txt uzantılı dosyadan tarata bilirmiyim?

!tara 88.159.11.1

Sunucuya giriş tarihi Nicki
Sunucuya giriş tarihi Nicki

Gibi sıralama yapa bilirmi ?

Feragat · 12 Kasım 2012, 17:54

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

ustadlar bu kod çalışmıyo artık herhalde
[15:19:53] <elsukr> .iptara 78.183.150.250
[15:19:55] <elsukr> Host:

başka bişi de çıkmıyo

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

alias htmlfree {  
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x  
}
alias sehir { sockopen Ulke ip-address-lookup-v4.com 80  }  
on *:SockOpen:Ulke:{  
  sockwrite -n $sockname GET /ip/ $+ %Ulke HTTP/1.1
  sockwrite -n $sockname host: ip-address-lookup-v4.com
  sockwrite -n $sockname $crlf  
}  
on *:SockRead:Ulke: {  
  var %bilgi
  sockread %bilgi
  if (*IP in* iswm $htmlfree(%bilgi)) { msg %aktifpencere Host: $remove($htmlfree(%bilgi),- Comments and Complaints) }
}

on *:input:*: {
  if ($regex($1,/(^[!.](iptara|iptrace)$)/i)) {
    .set -u10 %Ulke $2 | set -u10 %aktifpencere $active
    .sehir $2
    .timer 1 5 .sockclose ulke
  }
}

Not: Kod CesuryureK e aittir. Ben sadece kendimce sadeleştirip Ülke ve Şehir Göstermesini Sağladım.

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

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.