Moderatör Olmak İçin Tıklayın Editör Olmak İçin Tıklayın Forum Kuralları IF Görüntülü Röportajlar IF Helper Grubu
IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  odeaweb

>
+
 Kayıt ol
Etiketlenen Kullanıcılar

3Beğeni(ler)

Yeni Konu aç Cevapla
Sayfa 1 Toplam 2 Sayfadan 1 2
 
LinkBack Seçenekler Stil
Alt 03 Temmuz 2025, 23:26   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
İp adresi konum sorgulama (Güncel)



Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias sorgula {
  if (!$1) { echo -a Lütfen bir IP giriniz. Örnek: /sorgula 1.2.3.4 | return }
  set %ipaddr $1
  set %ipdata $null
  echo -a IP: %ipaddr Bilgileri Sorgulanıyor...
  sockopen -e iplookup ipwho.is 443
}

on *:SOCKOPEN:iplookup: {
  if ($sockerr) {
    echo -a Sunucuyla Bağlantı Kurulamıyor.
    sockclose $sockname
    return
  }
  sockwrite -n $sockname GET $+(/,%ipaddr) HTTP/1.1
  sockwrite -n $sockname Host: ipwho.is
  sockwrite -n $sockname User-Agent: mIRC
  sockwrite -n $sockname Connection: close
  sockwrite -n $sockname $crlf
}

on *:SOCKREAD:iplookup: {
  if ($sockerr) {
    echo -a Sunucuyla Bağlantı Kurulamıyor.
    sockclose $sockname
    return
  }
  var %temp
  sockread %temp
  if (%temp != $null) {
    ; HTTP headerları atla
    if (!$regex(%temp, /^HTTP\/|^[A-Za-z\-]+:/i)) {
      set %ipdata %ipdata $+ %temp
    }
  }
}

on *:SOCKCLOSE:iplookup: {
  timer 1 1 showdata
}
alias showdata {
  if (%ipdata == $null) {
    echo -a  Gösterilecek Veri Yok.
    unset %ipaddr
    unset %ipdata
    return
  }

  var %type = Bulunamadı
  var %asn = Bulunamadı
  var %country = Bulunamadı
  var %region = Bulunamadı
  var %city = Bulunamadı
  var %org = Bulunamadı

  if (*"type":* iswm %ipdata) {
    if ($regex(%ipdata, /"Domain":"([^"]+)"/i)) { set %domain  $regml(1) }
  } 
  if (*"type":* iswm %ipdata) {
    if ($regex(%ipdata, /"type":"([^"]+)"/i)) { set %type  $regml(1) }
  }
  if (*"type":* iswm %ipdata) {
    if ($regex(%ipdata, /"continent":"([^"]+)"/i)) { set %continent  $regml(1) }
  }
  if (*"connection":* iswm %ipdata) {
    if ($regex(%ipdata, /"asn":\s*([0-9]+)/i)) { set %asn $regml(1) }
    if ($regex(%ipdata, /"isp":"([^"]+)"/i)) { set %org  $regml(1) }
  }
  if (*"country":* iswm %ipdata) { if ($regex(%ipdata, /"country":"([^"]+)"/i)) { set %country  $regml(1) } }
  if (*"region":* iswm %ipdata) { if ($regex(%ipdata, /"region":"([^"]+)"/i)) { set %region  $regml(1) } }
  if (*"city":* iswm %ipdata) { if ($regex(%ipdata, /"city":"([^"]+)"/i)) { set %city  $regml(1) } }

  echo -a 3,1[ K U L L A N I C I B İ L G İ L E R İ ]   9ASN  : 10 $utf2tr(%asn) 9Ülke  : 10 $utf2tr(%country) 9Kıta  : 10 $utf2tr(%continent) 9Bölge  : 10 $utf2tr(%region) 9Şehir  : 10 $utf2tr(%city) 9ISP  : 10 $utf2tr(%org) 9IP TÜRÜ  : 10 $utf2tr(%type) 9Alan Adı  : 10 $utf2tr(%domain)

  unset %ipaddr
  unset %ipdata
}
alias utf2tr {
  var %text = $1-
  %text = $replace(%text,\u0130,İ,\u0131,ı,\u00dc,Ü,\u00fc,ü,\u011e,Ğ,\u011f,ğ,\u015e,Ş,\u015f,ş,\u00d6,Ö,\u00f6,ö,\u00c7,Ç,\u00e7,ç)
  return %text
}

Kullanım şekli :

/sorgula ipadresi ÖRN : /sorgula 8.8.8.8


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


Çalışması için 6.35 ve üzeri ssl destekli bir mirc kullanıyor olmanız gerekiyor. https prorokolü üzerinden 443 portundan veri çekmektedir. Mirciniz ssl değilse ssl yapmanız gerekiyor.

__________________
Kahpeliğin bahanesi, İhanetin telafisi olmaz.
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet bizimmekan reklamver
Alt 08 Temmuz 2025, 13:04   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: İp adresi konum sorgulama (Güncel)



Eline sağlık kod mükemmel calisio

__________________
“If you want to shine like the sun, first burn like the sun.”
 
Alıntı ile Cevapla

Alt 09 Temmuz 2025, 17:17   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: İp adresi konum sorgulama (Güncel)



Gösterilecek Veri Yok. sürekli bunu diyor hangi ip adresine baksam !!

 
Alıntı ile Cevapla

Alt 09 Temmuz 2025, 17:19   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: İp adresi konum sorgulama (Güncel)



BeReLi Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Gösterilecek Veri Yok. sürekli bunu diyor hangi ip adresine baksam !!

mirc versionunuz nedir?

__________________
Kahpeliğin bahanesi, İhanetin telafisi olmaz.
 
Alıntı ile Cevapla

Alt 17 Kasım 2025, 17:45   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: İp adresi konum sorgulama (Güncel)



ben mirc 7.81 ile denedim Gösterilecek veri yok diyor :-)



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


--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 17:45 -->-> Daha önceki mesaj 17:43 --


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

__________________


SeN BeNiM YiLDiZ KaYaRKeN TuTTuGuM DiLeGiM DeGiL, eZaN oKuRKeN eTTiGiM DuaMSiN!!!
 
Alıntı ile Cevapla

Alt 17 Kasım 2025, 23:16   #6
Çevrimiçi
~ BLaCK_and_WHiTe ~
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: İp adresi konum sorgulama (Güncel)



ZaLiM1979 Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
ben mirc 7.81 ile denedim Gösterilecek veri yok diyor :-)


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

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias sorgula {
  if (!$1) { echo -a Örnek: /sorgula 1.2.3.4 | return }
  unset %head.done
  set %ip.raw $null
  set %ip.addr $1
  sockopen -e ip.lookup ipwho.is 443
}

on *:sockopen:ip.lookup:{
  if ($sockerr) { echo -a Bağlantı hatası. | return }

  sockwrite -nt $sockname GET /json/$+ %ip.addr HTTP/1.1
  sockwrite -nt $sockname Host: ipwho.is
  sockwrite -nt $sockname User-Agent: mIRC
  sockwrite -nt $sockname Connection: close
  sockwrite -nt $sockname $crlf
}

on *:sockread:ip.lookup:{
  var %l
  sockread %l

  ; header bitti mi?
  if (!$len(%l)) { set %head.done 1 | return }
  if (%l == $chr(13)) { set %head.done 1 | return }
  if (!%head.done) return

  ; json verisini ekle
  set %ip.raw %ip.raw %l
}

on *:sockclose:ip.lookup:{
  if (%ip.raw == $null) {
    echo -a Sunucu veri göndermedi.
    unset %ip.*
    return
  }

  var %j = %ip.raw
  var %asn = Bulunamadı
  var %ulke = Bulunamadı
  var %kita = Bulunamadı
  var %bolge = Bulunamadı
  var %sehir = Bulunamadı
  var %isp = Bulunamadı
  var %tur = Bulunamadı
  var %domain = Bulunamadı

  if ($regex(%j,/"asn":\s*([0-9]+)/)) set %asn $regml(1)
  if ($regex(%j,/"country":"([^"]+)"/)) set %ulke $regml(1)
  if ($regex(%j,/"continent":"([^"]+)"/)) set %kita $regml(1)
  if ($regex(%j,/"region":"([^"]+)"/)) set %bolge $regml(1)
  if ($regex(%j,/"city":"([^"]+)"/)) set %sehir $regml(1)
  if ($regex(%j,/"isp":"([^"]+)"/)) set %isp $regml(1)
  if ($regex(%j,/"type":"([^"]+)"/)) set %tur $regml(1)
  if ($regex(%j,/"domain":"([^"]+)"/)) set %domain $regml(1)

  echo -a ASN: $fixutf(%asn)
  echo -a Ülke: $fixutf(%ulke)
  echo -a Kıta: $fixutf(%kita)
  echo -a Bölge: $fixutf(%bolge)
  echo -a Şehir: $fixutf(%sehir)
  echo -a ISP: $fixutf(%isp)
  echo -a Tür: $fixutf(%tur)
  echo -a Domain: $fixutf(%domain)

  unset %ip.*
  unset %head.done
}

alias fixutf {
  return $replace($1-,\u0130,İ,\u0131,ı,\u00dc,Ü,\u00fc,ü,\u011e,Ğ,\u011f,ğ,
    \u015e,Ş,\u015f,ş,\u00d6,Ö,\u00f6,ö,\u00c7,Ç,\u00e7,ç)
}

Böyle dener misin

__________________
BLaCK_and_WHiTe is now known as SNOOPY


Kullanıcı imzalarındaki bağlantı ve resimleri görebilmek için en az 20 mesaja sahip olmanız gerekir ya da üye girişi yapmanız gerekir.
 
Alıntı ile Cevapla

Alt 18 Kasım 2025, 07:55   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: İp adresi konum sorgulama (Güncel)



SNOOPY Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias sorgula {
  if (!$1) { echo -a Örnek: /sorgula 1.2.3.4 | return }
  unset %head.done
  set %ip.raw $null
  set %ip.addr $1
  sockopen -e ip.lookup ipwho.is 443
}

on *:sockopen:ip.lookup:{
  if ($sockerr) { echo -a Bağlantı hatası. | return }

  sockwrite -nt $sockname GET /json/$+ %ip.addr HTTP/1.1
  sockwrite -nt $sockname Host: ipwho.is
  sockwrite -nt $sockname User-Agent: mIRC
  sockwrite -nt $sockname Connection: close
  sockwrite -nt $sockname $crlf
}

on *:sockread:ip.lookup:{
  var %l
  sockread %l

  ; header bitti mi?
  if (!$len(%l)) { set %head.done 1 | return }
  if (%l == $chr(13)) { set %head.done 1 | return }
  if (!%head.done) return

  ; json verisini ekle
  set %ip.raw %ip.raw %l
}

on *:sockclose:ip.lookup:{
  if (%ip.raw == $null) {
    echo -a Sunucu veri göndermedi.
    unset %ip.*
    return
  }

  var %j = %ip.raw
  var %asn = Bulunamadı
  var %ulke = Bulunamadı
  var %kita = Bulunamadı
  var %bolge = Bulunamadı
  var %sehir = Bulunamadı
  var %isp = Bulunamadı
  var %tur = Bulunamadı
  var %domain = Bulunamadı

  if ($regex(%j,/"asn":\s*([0-9]+)/)) set %asn $regml(1)
  if ($regex(%j,/"country":"([^"]+)"/)) set %ulke $regml(1)
  if ($regex(%j,/"continent":"([^"]+)"/)) set %kita $regml(1)
  if ($regex(%j,/"region":"([^"]+)"/)) set %bolge $regml(1)
  if ($regex(%j,/"city":"([^"]+)"/)) set %sehir $regml(1)
  if ($regex(%j,/"isp":"([^"]+)"/)) set %isp $regml(1)
  if ($regex(%j,/"type":"([^"]+)"/)) set %tur $regml(1)
  if ($regex(%j,/"domain":"([^"]+)"/)) set %domain $regml(1)

  echo -a ASN: $fixutf(%asn)
  echo -a Ülke: $fixutf(%ulke)
  echo -a Kıta: $fixutf(%kita)
  echo -a Bölge: $fixutf(%bolge)
  echo -a Şehir: $fixutf(%sehir)
  echo -a ISP: $fixutf(%isp)
  echo -a Tür: $fixutf(%tur)
  echo -a Domain: $fixutf(%domain)

  unset %ip.*
  unset %head.done
}

alias fixutf {
  return $replace($1-,\u0130,İ,\u0131,ı,\u00dc,Ü,\u00fc,ü,\u011e,Ğ,\u011f,ğ,
    \u015e,Ş,\u015f,ş,\u00d6,Ö,\u00f6,ö,\u00c7,Ç,\u00e7,ç)
}

Böyle dener misin


[18:11:2025|05:53:26] * Invalid format: $replace (line 72, IP.mrc)

__________________


SeN BeNiM YiLDiZ KaYaRKeN TuTTuGuM DiLeGiM DeGiL, eZaN oKuRKeN eTTiGiM DuaMSiN!!!
 
Alıntı ile Cevapla

Alt 18 Kasım 2025, 09:09   #8
Çevrimiçi
~ BLaCK_and_WHiTe ~
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: İp adresi konum sorgulama (Güncel)



Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias sorgula {
  if (!$1) { echo -a Örnek: /sorgula 1.2.3.4 | return }
  unset %head.done
  set %ip.raw $null
  set %ip.addr $1
  sockopen -e ip.lookup ipwho.is 443
}

on *:sockopen:ip.lookup:{
  if ($sockerr) { echo -a Bağlantı hatası. | return }

  sockwrite -nt $sockname GET /json/$+ %ip.addr HTTP/1.1
  sockwrite -nt $sockname Host: ipwho.is
  sockwrite -nt $sockname User-Agent: mIRC
  sockwrite -nt $sockname Connection: close
  sockwrite -nt $sockname $crlf
}

on *:sockread:ip.lookup:{
  var %l
  sockread %l

  ; header bitti mi?
  if (!$len(%l)) { set %head.done 1 | return }
  if (%l == $chr(13)) { set %head.done 1 | return }
  if (!%head.done) return

  ; json verisini ekle
  set %ip.raw %ip.raw %l
}

on *:sockclose:ip.lookup:{
  if (%ip.raw == $null) {
    echo -a Sunucu veri göndermedi.
    unset %ip.*
    return
  }

  var %j = %ip.raw
  var %asn = Bulunamadı
  var %ulke = Bulunamadı
  var %kita = Bulunamadı
  var %bolge = Bulunamadı
  var %sehir = Bulunamadı
  var %isp = Bulunamadı
  var %tur = Bulunamadı
  var %domain = Bulunamadı

  if ($regex(%j,/"asn":\s*([0-9]+)/)) set %asn $regml(1)
  if ($regex(%j,/"country":"([^"]+)"/)) set %ulke $regml(1)
  if ($regex(%j,/"continent":"([^"]+)"/)) set %kita $regml(1)
  if ($regex(%j,/"region":"([^"]+)"/)) set %bolge $regml(1)
  if ($regex(%j,/"city":"([^"]+)"/)) set %sehir $regml(1)
  if ($regex(%j,/"isp":"([^"]+)"/)) set %isp $regml(1)
  if ($regex(%j,/"type":"([^"]+)"/)) set %tur $regml(1)
  if ($regex(%j,/"domain":"([^"]+)"/)) set %domain $regml(1)

  echo -a ASN: $fixutf(%asn)
  echo -a Ülke: $fixutf(%ulke)
  echo -a Kıta: $fixutf(%kita)
  echo -a Bölge: $fixutf(%bolge)
  echo -a Şehir: $fixutf(%sehir)
  echo -a ISP: $fixutf(%isp)
  echo -a Tür: $fixutf(%tur)
  echo -a Domain: $fixutf(%domain)

  unset %ip.*
  unset %head.done
}

alias fixutf {
  return $replace($1-,\u0130,İ,\u0131,ı,\u00dc,Ü,\u00fc,ü,\u011e,Ğ,\u011f,ğ,\u015e,Ş,\u015f,ş,\u00d6,Ö,\u00f6,ö,\u00c7,Ç,\u00e7,ç)
}

$replace() parametresini 7.81'e göre biraz daha farklıymış tekrar kontrol ettim ve sondaki kısmı tekrar gözden geçirdim yine de bir hata varsa ufak bir testle sizin mirciniz üzerinde yaptığınız bazı değişikliklerden kaynaklanabilir.


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
/echo -a $fixutf(\u00f6\u011f\u015f)

bunu yazdığınız zaman altaki yazması gerekir.


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


__________________
BLaCK_and_WHiTe is now known as SNOOPY


Kullanıcı imzalarındaki bağlantı ve resimleri görebilmek için en az 20 mesaja sahip olmanız gerekir ya da üye girişi yapmanız gerekir.
 
Alıntı ile Cevapla

Alt 18 Kasım 2025, 23:27   #9
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: İp adresi konum sorgulama (Güncel)



Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias sorgula {
  if (!$1) { echo -a Lütfen bir IP giriniz. Örnek: /sorgula 1.2.3.4 | return }
  set %ipaddr $1
  set %ipdata $null
  echo -a IP %ipaddr bilgileri sorgulanıyor...
  sockopen -e iplookup ipwho.is 80
}
on *:SOCKOPEN:iplookup: {
  if ($sockerr) { echo -a Sunucuyla bağlantı kurulamıyor. | sockclose $sockname | return }
  sockwrite -n $sockname GET / $+ %ipaddr HTTP/1.1
  sockwrite -n $sockname Host: ipwho.is
  sockwrite -n $sockname User-Agent: mIRC
  sockwrite -n $sockname Connection: close
  sockwrite -n $sockname $crlf
}
on *:SOCKREAD:iplookup: {
  if ($sockerr) { echo -a Sunucuyla bağlantı hatası. | sockclose $sockname | return }
  var %tmp
  sockread %tmp
  if (%tmp != $null) {
    ; HTTP headerları geç
    if (!$regex(%tmp,/^(HTTP\/|Content-|Server:|Date:|Connection:)/i)) {
      set %ipdata %ipdata $+ %tmp
    }
  }
}
on *:SOCKCLOSE:iplookup: { .timer 1 1 showdata }
alias showdata {
  if (%ipdata == $null) { echo -a Gösterilecek veri yok. | unset %ipaddr | unset %ipdata | return }

  var %type = Bulunamadı
  var %asn = Bulunamadı
  var %country = Bulunamadı
  var %region = Bulunamadı
  var %city = Bulunamadı
  var %org = Bulunamadı
  var %domain = Bulunamadı
  var %continent = Bulunamadı

  if ($regex(%ipdata,/"type":"([^"]+)"/i))       { set %type $regml(1) }
  if ($regex(%ipdata,/"continent":"([^"]+)"/i))  { set %continent $regml(1) }
  if ($regex(%ipdata,/"asn":\s*([0-9]+)/i))      { set %asn $regml(1) }
  if ($regex(%ipdata,/"isp":"([^"]+)"/i))        { set %org $regml(1) }
  if ($regex(%ipdata,/"country":"([^"]+)"/i))    { set %country $regml(1) }
  if ($regex(%ipdata,/"region":"([^"]+)"/i))     { set %region $regml(1) }
  if ($regex(%ipdata,/"city":"([^"]+)"/i))       { set %city $regml(1) }
  if ($regex(%ipdata,/"domain":"([^"]+)"/i))     { set %domain $regml(1) }
  if ($regex(%ipdata,/"hostname":"([^"]+)"/i))   { set %domain $regml(1) }

  echo -a 3,1[ K U L L A N I C I   B İ L G İ L E R İ ]
  echo -a 9ASN: 10 $utf2tr(%asn)
  echo -a 9Ülke: 10 $utf2tr(%country)
  echo -a 9Kıta: 10 $utf2tr(%continent)
  echo -a 9Bölge: 10 $utf2tr(%region)
  echo -a 9Şehir: 10 $utf2tr(%city)
  echo -a 9ISP: 10 $utf2tr(%org)
  echo -a 9IP Türü: 10 $utf2tr(%type)
  echo -a 9Alan Adı: 10 $utf2tr(%domain)

  unset %ipaddr
  unset %ipdata
}

alias utf2tr {
  var %text = $1-
  %text = $replace(%text,\u0130,İ,\u0131,ı,\u00dc,Ü,\u00fc,ü,\u011e,Ğ,\u011f,ğ,\u015e,Ş,\u015f,ş,\u00d6,Ö,\u00f6,ö,\u00c7,Ç,\u00e7,ç)
  return %text
}


__________________
char *adres = [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] for(int i = 0; *(adres + i); i++) { putchar(toupper(adres[i])); }
 
Alıntı ile Cevapla

Alt 19 Kasım 2025, 13:05   #10
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: İp adresi konum sorgulama (Güncel)



SNOOPY Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias sorgula {
  if (!$1) { echo -a Örnek: /sorgula 1.2.3.4 | return }
  unset %head.done
  set %ip.raw $null
  set %ip.addr $1
  sockopen -e ip.lookup ipwho.is 443
}

on *:sockopen:ip.lookup:{
  if ($sockerr) { echo -a Bağlantı hatası. | return }

  sockwrite -nt $sockname GET /json/$+ %ip.addr HTTP/1.1
  sockwrite -nt $sockname Host: ipwho.is
  sockwrite -nt $sockname User-Agent: mIRC
  sockwrite -nt $sockname Connection: close
  sockwrite -nt $sockname $crlf
}

on *:sockread:ip.lookup:{
  var %l
  sockread %l

  ; header bitti mi?
  if (!$len(%l)) { set %head.done 1 | return }
  if (%l == $chr(13)) { set %head.done 1 | return }
  if (!%head.done) return

  ; json verisini ekle
  set %ip.raw %ip.raw %l
}

on *:sockclose:ip.lookup:{
  if (%ip.raw == $null) {
    echo -a Sunucu veri göndermedi.
    unset %ip.*
    return
  }

  var %j = %ip.raw
  var %asn = Bulunamadı
  var %ulke = Bulunamadı
  var %kita = Bulunamadı
  var %bolge = Bulunamadı
  var %sehir = Bulunamadı
  var %isp = Bulunamadı
  var %tur = Bulunamadı
  var %domain = Bulunamadı

  if ($regex(%j,/"asn":\s*([0-9]+)/)) set %asn $regml(1)
  if ($regex(%j,/"country":"([^"]+)"/)) set %ulke $regml(1)
  if ($regex(%j,/"continent":"([^"]+)"/)) set %kita $regml(1)
  if ($regex(%j,/"region":"([^"]+)"/)) set %bolge $regml(1)
  if ($regex(%j,/"city":"([^"]+)"/)) set %sehir $regml(1)
  if ($regex(%j,/"isp":"([^"]+)"/)) set %isp $regml(1)
  if ($regex(%j,/"type":"([^"]+)"/)) set %tur $regml(1)
  if ($regex(%j,/"domain":"([^"]+)"/)) set %domain $regml(1)

  echo -a ASN: $fixutf(%asn)
  echo -a Ülke: $fixutf(%ulke)
  echo -a Kıta: $fixutf(%kita)
  echo -a Bölge: $fixutf(%bolge)
  echo -a Şehir: $fixutf(%sehir)
  echo -a ISP: $fixutf(%isp)
  echo -a Tür: $fixutf(%tur)
  echo -a Domain: $fixutf(%domain)

  unset %ip.*
  unset %head.done
}

alias fixutf {
  return $replace($1-,\u0130,İ,\u0131,ı,\u00dc,Ü,\u00fc,ü,\u011e,Ğ,\u011f,ğ,\u015e,Ş,\u015f,ş,\u00d6,Ö,\u00f6,ö,\u00c7,Ç,\u00e7,ç)
}

$replace() parametresini 7.81'e göre biraz daha farklıymış tekrar kontrol ettim ve sondaki kısmı tekrar gözden geçirdim yine de bir hata varsa ufak bir testle sizin mirciniz üzerinde yaptığınız bazı değişikliklerden kaynaklanabilir.


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
/echo -a $fixutf(\u00f6\u011f\u015f)

bunu yazdığınız zaman altaki yazması gerekir.


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


ASN: Bulunamadı
Ülke: Bulunamadı
Kıta: Bulunamadı
Bölge: Bulunamadı
Şehir: Bulunamadı
ISP: Bulunamadı
Tür: Bulunamadı
Domain: Bulunamadı


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



/echo -a $fixutf(\u00f6\u011f\u015f) yapinca aktiv pencerede bu geliyor: $fixutf(\u00f6\u011f\u015f)

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 13:05 -->-> Daha önceki mesaj 13:03 --
Che Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias sorgula {
  if (!$1) { echo -a Lütfen bir IP giriniz. Örnek: /sorgula 1.2.3.4 | return }
  set %ipaddr $1
  set %ipdata $null
  echo -a IP %ipaddr bilgileri sorgulanıyor...
  sockopen -e iplookup ipwho.is 80
}
on *:SOCKOPEN:iplookup: {
  if ($sockerr) { echo -a Sunucuyla bağlantı kurulamıyor. | sockclose $sockname | return }
  sockwrite -n $sockname GET / $+ %ipaddr HTTP/1.1
  sockwrite -n $sockname Host: ipwho.is
  sockwrite -n $sockname User-Agent: mIRC
  sockwrite -n $sockname Connection: close
  sockwrite -n $sockname $crlf
}
on *:SOCKREAD:iplookup: {
  if ($sockerr) { echo -a Sunucuyla bağlantı hatası. | sockclose $sockname | return }
  var %tmp
  sockread %tmp
  if (%tmp != $null) {
    ; HTTP headerları geç
    if (!$regex(%tmp,/^(HTTP\/|Content-|Server:|Date:|Connection:)/i)) {
      set %ipdata %ipdata $+ %tmp
    }
  }
}
on *:SOCKCLOSE:iplookup: { .timer 1 1 showdata }
alias showdata {
  if (%ipdata == $null) { echo -a Gösterilecek veri yok. | unset %ipaddr | unset %ipdata | return }

  var %type = Bulunamadı
  var %asn = Bulunamadı
  var %country = Bulunamadı
  var %region = Bulunamadı
  var %city = Bulunamadı
  var %org = Bulunamadı
  var %domain = Bulunamadı
  var %continent = Bulunamadı

  if ($regex(%ipdata,/"type":"([^"]+)"/i))       { set %type $regml(1) }
  if ($regex(%ipdata,/"continent":"([^"]+)"/i))  { set %continent $regml(1) }
  if ($regex(%ipdata,/"asn":\s*([0-9]+)/i))      { set %asn $regml(1) }
  if ($regex(%ipdata,/"isp":"([^"]+)"/i))        { set %org $regml(1) }
  if ($regex(%ipdata,/"country":"([^"]+)"/i))    { set %country $regml(1) }
  if ($regex(%ipdata,/"region":"([^"]+)"/i))     { set %region $regml(1) }
  if ($regex(%ipdata,/"city":"([^"]+)"/i))       { set %city $regml(1) }
  if ($regex(%ipdata,/"domain":"([^"]+)"/i))     { set %domain $regml(1) }
  if ($regex(%ipdata,/"hostname":"([^"]+)"/i))   { set %domain $regml(1) }

  echo -a 3,1[ K U L L A N I C I   B İ L G İ L E R İ ]
  echo -a 9ASN: 10 $utf2tr(%asn)
  echo -a 9Ülke: 10 $utf2tr(%country)
  echo -a 9Kıta: 10 $utf2tr(%continent)
  echo -a 9Bölge: 10 $utf2tr(%region)
  echo -a 9Şehir: 10 $utf2tr(%city)
  echo -a 9ISP: 10 $utf2tr(%org)
  echo -a 9IP Türü: 10 $utf2tr(%type)
  echo -a 9Alan Adı: 10 $utf2tr(%domain)

  unset %ipaddr
  unset %ipdata
}

alias utf2tr {
  var %text = $1-
  %text = $replace(%text,\u0130,İ,\u0131,ı,\u00dc,Ü,\u00fc,ü,\u011e,Ğ,\u011f,ğ,\u015e,Ş,\u015f,ş,\u00d6,Ö,\u00f6,ö,\u00c7,Ç,\u00e7,ç)
  return %text
}


Bu Kod bu hatayi veriyor: IP 162.19.230.101 bilgileri sorgulanıyor...
Sunucuyla bağlantı kurulamıyor.

__________________


SeN BeNiM YiLDiZ KaYaRKeN TuTTuGuM DiLeGiM DeGiL, eZaN oKuRKeN eTTiGiM DuaMSiN!!!
 
Alıntı ile Cevapla

Cevapla
Sayfa 1 Toplam 2 Sayfadan 1 2

« önceki Konu | sonraki Konu »

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
İp adresi ve konum sorgulama Che mIRC Scripting Hazır Kodlar 3 10 Mayıs 2025 11:30
IP adresi şehir/ülke sorgulama XcLusive mIRC Scripting Hazır Kodlar 6 19 Mart 2025 14:59
Güncel Haberlerin Doğru Adresi knk Web Site Tanıtımı 0 28 Haziran 2024 02:36
e-Devlet şehit sorgulama sayfası açıldı! e-Devlet şehit sorgulama nasıl yapılır? Soy ağacı sorgulama... yaSmin Haber Arşivi 0 28 Şubat 2018 10:42
Coğrafi Konum, Özel Konum, Matematik Konum Liaaa Genel Coğrafya 0 07 Kasım 2012 14:35

×



Sitemiz bir " paylaşım " sitesidir. Bu yüzden sitemize kayıt olan herkes kontrol edilmeksizin mesaj/konu/resim paylaşabilmektedir.
Bu sebepten ötürü, sitemiz üzerinden paylaşılan mesajlar, konular ve resimlerden doğabilecek olan yasal sorumluluklar paylaşan kullanıcıya aittir. IRCForumlari.Net hiçbir yasal sorumluluk kabul etmemektedir. İllegal herhangi bir faaliyet görülmesi durumunda İletişim sayfası üzerinden ulaşıldığı taktirde mesaj, konu ya da resim en fazla 24 saat içerisinde silinecektir.
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.
İletişim Arşiv Gizlilik Sözleşmesi Yukarı git
ferizli haber kaynarca haber sohbet teması takipçi satın al anime izle tiktok takipçi satın al instagram beğeni satın al takipçi satın al takipçi satın al Buy Instagram Followers sohbet siteleri sohbet odaları sohbet odaları sohbet Aydın Haber Akyazı Haber Sitesi Siber Sesli Sohbet
Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk