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

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - iptracer (https://www.ircforumlari.net/mirc-scripting-sorunlari/386926-iptracer.html)

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:[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 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

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

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

Merhabalar.

Kod:

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.

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

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

Güncellenmesi Lazım

@[Ü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 ?

Alıntı:

eLsukr Nickli Üyeden Alıntı (Mesaj 1041242871)

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:

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.