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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)

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

- - şehir takip (https://www.ircforumlari.net/mirc-scripting-sorunlari/433241-sehir-takip.html)

Gulsum

06 Aralık 2011 14:31

şehir takip

herkese merhaba
ip takip codu vardı . ircye farklı bir nickle girmiş birisinin daha önceden hangi nicki kullandığını gösteriyodu.fakat modeme reset atıp ip adresi değiştiğinde bu yöntem işe yaramıyordu.bunu ip değilde bulunduğu şehire göre takibini yapması mümkünmü? bu istediğim cod büyük bir kanalda sorun olabilir cüki yüzlerce kişi girip cıkıyo kanala aynı şehirden yüzlerce kişi olabilir fakat ayrı bi özel kanal var 20 kişi civarında ve bu kanala giren kişilerin coğu aynı kişiler ve farklı farklı şehirlerde coğu.ip deyilde şehire göre nick takibi yapılabilirmi? hafıza kaydı kalıcımı olsun belirli günmü olsun bilemedim cünki aynı şehirden sayı 3 4 cıktığında nasıl kayıt edicek felan o coderlerin düşüneciği bişiy ben düşündüm işin icinden cıkamaadım karmaşık gibi biraz:) bilgilerde o an belirlediğim kanala echo olarak gösterilebilirmi.bide olabilirse nick özelime geldiğinde veya ben özele aldığımda bu bilgileri tekrar vermesi mümkünmü. isterseniz kullandığım şehir tesbit ve ip takibi codlerını yazayım ona göre ayarlama yapabilirsiniz belki.

şehir

Kod:

on *:sockopen:city*: { 

  var %komut sockwrite -nt $sockname

  %komut GET $+(/ip/,$token($sock($sockname).mark,2,42)) HTTP1.1/

  %komut Host: whatismyipaddress.com

  %komut $crlf

}

on *:sockread:city*: {

  var %/ | sockread %/

  if ($regex(%/,State/Region)) set %ipsehir [ $+ [  $token($sock($sockname).mark,2,42) ] ]  $token($remove(%/,<tr>,<th>,</tr>,</th>,</td>,<td>),2,58)

  if ($regex(%/,City:)) set %ipyer [ $+ [  $token($sock($sockname).mark,2,42) ] ]  $token($remove(%/,<tr>,<th>,</tr>,</th>,</td>,<td>),2,58)  

}

on *:sockclose:city*: {

  var %nick $token($sock($sockname).mark,1,42), %ip $token($sock($sockname).mark,2,42)

  echo -as Bilgi:2 %nick 6IP:2 %ip 6Sehir:2 %ipsehir [ $+  [ $token($sock($sockname).mark,2,42) ] ] 6Yer:2 %ipyer [ $+ [  $token($sock($sockname).mark,2,42) ] ]

  unset %ipsehir [ $+ [ $token($sock($sockname).mark,2,42) ] ] %ipyer [ $+ [ $token($sock($sockname).mark,2,42) ] ]

}

alias cit {

  var %rand $rand(0,99999)

  sockopen $+(city,%rand) whatismyipaddress.com 80

  sockmark $+(city,%rand) $1

}

raw 378:*: { cit $+($2,*,$gettok($gettok($1-,2,64),2,32)) |  haltdef }

alias city { 

  if ($1 == on) { set %city on | echo -ea Giris-City Sistem Open! }

  if ($1 == off) { set %city off | echo -ea Giris-City Sistem Deopen! }

}

ip takip

Kod:

alias hashran return $rand(0,999999)

on *:join:#kanal: {

  if ($nick == $me) { halt }

  if ($nickbul($address($nick,2))) { $iif($numtok($nickler($address($nick,2)),32) > 2,echo # $nick &2 5Gizli Ajan:2 $nickler($address($nick,2))) }

  hadd -m seens $hashran $+($date,+,$address($nick,2),+,$nick)

}

on *:open:?: {

  if ($nickbul($address($nick,2))) { echo $nick &2 5Gizli Ajan:2 $nickler($address($nick,2)) }

}

alias query {

  query $1

  if ($nickbul($address($1,2))) {

    echo $1 &2 $1 5Gizli Ajan:2 $nickler($address($1,2))

    echo $1 -

  }

}

alias nickbul {

  if (!$hget(seens)) { hmake seens | hload seens seens.63 }

  var %s 1

  while $hget(seens,%s).data {

    var %tarih $token($v1,1,43), %adres $token($v1,2,43), %nick $token($v1,3,43)

    $iif($1 == %adres,return 1)

    inc %s

  }

  return 0

}

alias nickler {

  if (!$hget(seens)) { hmake seens | hload seens seens.63 }

  unset %nickler

  var %s 1

  while $hget(seens,%s).data {

    var %tarih $token($v1,1,43), %adres $token($v1,2,43), %nick $token($v1,3,43)

    if ($1 == %adres) { %nickler = $addtok(%nickler,%nick,32) }

    inc %s

  }

  return  $replace(%nickler,$chr(32),$+($chr(32),4,-,,$chr(32)))

}

alias kontrols {

  if (!$hget(seens)) { hmake seens | hload seens seens.63 }

  unset %nickler

  var %s 1

  while $hget(seens,%s).data {

    var %tarih $token($v1,1,43), %adres $token($v1,2,43), %nick $token($v1,3,43), %v1 $v1

    if ($calc($ctime(%tarih) - $ctime($date)) >= 0) { hdel -m seens $hfind(seens,%v1,1,W).data }

    inc %s

  }

  hsave -o seens seens.63

  hfree -sw seens

  hmake seens

  hload seens seens.63

}

on *:start: {

  if ($findfile($mircdir,seens.63,0) >= 1) { kontrols }

}

on *:exit: {

  hsave -o seens seens.63

}

toXic

06 Aralık 2011 14:38

Cevap: şehir takip

Kod:

alias yerelip {

  return %yerelipno

}

on *:sockopen:yerelbilgi: {

  sockwrite -n $sockname GET $+(/ip/,$yerelip HTTP/1.1)

  sockwrite -n $sockname Host: $+(whatismyipaddress.com,$str($crlf, 2))

  sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7) Gecko/20040614 Firefox/0.8

  sockwrite -n $sockname $crlf

}

on *:sockread:yerelbilgi:{

  var %happen

  sockread $htmlfree(%happen)

  .tokenize 32 $htmlfree(%happen)

  if (*State/Region:* iswm %happen) {

    .set %yerelbölge 0

    .set %yerelbölge $1 $2 $3 $4 $5

    .set %yerelbölge $remove(%yerelbölge,State/Region:)

  }

  if (*City:* iswm %happen) {

    .set %yerelsehir 0

    .set %yerelsehir $1 $2 $3 $4 $5

    .set %yerelsehir $remove(%yerelsehir,City:)

  }

  if (*Country:* iswm %happen) {

    .set %yerelulke 0

    .set %yerelulke $1 $2 $3 $4 $5

    .set %yerelulke $remove(%yerelulke,Country:)

  }

  if (*Latitude:* iswm %happen) {

    .set %yerelenlem 0

    .set %yerelenlem $1 $2 $3 $4 $5

    .set %yerelenlem $remove(%yerelenlem,Latitude:)

  }

  if (*Longitude:* iswm %happen) {

    .set %yerelboylam 0

    .set %yerelboylam $1 $2 $3 $4 $5

    .set %yerelboylam $remove(%yerelboylam,Longitude:)

    .echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is ( $+ $time $+ ) 5,1 ·::4::6[10,1 Nick:7 %yerelnick 6]4,1::5::5· 

    .echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is ( $+ $time $+ ) 5,1 ·::4::6[10,1 IP No:7 %yerelipno 6]4,1::5::5· 

    .echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is ( $+ $time $+ ) 5,1 ·::4::6[10,1 Bölge:7 %yerelsehir 6]4,1::5::5· 

    .echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is ( $+ $time $+ ) 5,1 ·::4::6[10,1 Şehir:7 %yerelbölge 6]4,1::5::5· 

    .echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is ( $+ $time $+ ) 5,1 ·::4::6[10,1 Ulke:7 $replace(%yerelulke,TURKEY,Türkiye,GERMANY,Almanya,NETHERLANDS,Hollanda,UNITED KINGDOM,Ingiltere,UNITED STATES,Amerika B. Devletleri,CHINA,Çin,EGYPT,Mısır) 6]4,1::5::5· 

    .echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is ( $+ $time $+ ) 5,1 ·::4::6[10,1 Enlem:7 %yerelenlem 6]4,1::5::5· 

    .echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is ( $+ $time $+ ) 5,1 ·::4::6[10,1 Boylam:7 %yerelboylam 6]4,1::5::5· 

    .echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is ( $+ $time $+ ) 5,1 ·::4::6[10,1 *** 7Bilgi Sonu10 *** 6]4,1::5::5· 

  }

}

alias bilgi {

  if $sock(yerelbilgi) {

    sockclose $ifmatch

  }

  sockopen yerelbilgi whatismyipaddress.com 80

}

on *:snotice:*whois*: {

  if !$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is) { window -neg1 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is }

  set %yerelipno $remove($gettok($3,2,64),-1,$chr(41))

  set %yerelnick $2

  .bilgi

  halt

}

raw 378:*:$iif(!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is),window -ne @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is) | set %yerelnick $2 | set %yerelipno $7 | bilgi $7 | aline -h @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is ( $+ $time $+ ) 5,1 ·::4::6[10,1 Nick:7 %yerelnick 6]4,1::5::5· 

alias htmlfree {

  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%x), %x = $remove(%x,&nbsp;)

  return %x

}

Bu kod whois cektiğiniz kişinin sehrini gösteriyor anladiğim kadari ile böyle birşey istiyorsunuz.

Gulsum

06 Aralık 2011 15:22

Cevap: şehir takip

hayır ip takibi ve şehir gösteren cod varbende ve paylaştım yukarda istediğim farklı bişiy. yazdığımı bikez daha okursan sanırım daha iyi anlıcaksın yardımın için tşkler

Set	06 Aralık 2011 16:15

Cevap: şehir takip

Kod:

on !*:join:#KANAL: {

  userip $nick

}
 

alias hashran return $rand(0,999999)

on *:sockopen:city*: { 

  var %komut sockwrite -nt $sockname

  %komut GET $+(/ip/,$token($sock($sockname).mark,2,42)) HTTP1.1/

  %komut Host: whatismyipaddress.com

  %komut $crlf

}

on *:sockread:city*: {

  var %/ | sockread %/

  var %nick $token($sock($sockname).mark,1,42), %ip $token($sock($sockname).mark,2,42)

  if ($regex(%/,City:)) {

    var %nick $token($sock($sockname).mark,1,42), %ip $token($sock($sockname).mark,2,42), %sehir $token($free(%/),2-,58),%w @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]liAjan

    $iif(!$window(%w),window -a %w)

    if ($nickbul(%ip)) { $iif($numtok($nickler(%ip),32) > 2,echo -t %w 4 %nick 5Gizli Ajan:4 Sehir %sehir - 2 $nickler(%ip)) }

    hadd -m seens $hashran $+($date,+,%ip,+,%nick)

  }

} 

alias cit {

  var %rand $rand(0,99999)

  sockopen $+(city,%rand) whatismyipaddress.com 80

  sockmark $+(city,%rand) $1

}

raw 340:*: { cit $+($token($token($2-,1,61),1,42),*,$token($2-,2-,64)) | haltdef }

alias nickler {

  if (!$hget(seens)) { hmake seens | hload seens seens.63 }

  unset %nickler

  var %s 1

  while $hget(seens,%s).data {

    var %tarih $token($v1,1,43), %adres $token($v1,2,43), %nick $token($v1,3,43)

    if ($1 == %adres) { %nickler = $addtok(%nickler,%nick,32) }

    inc %s

  }

  return  $replace(%nickler,$chr(32),$+($chr(32),4,-,,$chr(32)))

}

alias nickbul {

  if (!$hget(seens)) { hmake seens | hload seens seens.63 }

  var %s 1

  while $hget(seens,%s).data {

    var %tarih $token($v1,1,43), %adres $token($v1,2,43), %nick $token($v1,3,43)

    $iif($1 == %adres,return $true)

    inc %s

  }

  return $false

}

alias kontrols {

  if (!$hget(seens)) { hmake seens | hload seens seens.63 }

  unset %nickler

  var %s 1

  while $hget(seens,%s).data {

    var %tarih $token($v1,1,43), %adres $token($v1,2,43), %nick $token($v1,3,43), %v1 $v1

    if ($calc($ctime(%tarih) - $ctime($date)) >= 0) { hdel -m seens $hfind(seens,%v1,1,W).data }

    inc %s

  }

  hsave -o seens seens.63

  hfree -sw seens

  hmake seens

  hload seens seens.63

}

alias free {

  var %b, %i =  $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%b),  %b = $remove(%b,&nbsp;,    )

  return %b

}

on *:start: {

  hmake seens

  if ($findfile($mircdir,seens.63,0) >= 1) { hload seens seens.63 | kontrols }

}

on *:exit: {

  hsave -o seens seens.63

}

Gulsum

06 Aralık 2011 17:53

Cevap: şehir takip

hata veriyo
Bilgi: Romantikbalik IP: 62.29.98.129 Sehir: Yer:
Bilgi: DaMLa_ IP: 88.224.247.24 Sehir: Yer:
başkabişiy göstermiyo şehride belirtmiyo

bide yanlış anlaşıldığımı düşünüyorum. kısaca belirtim .belirlediğim kanala giren kişinin hangi şehirde oldunu göstercek ve karşısınada o şehirden hangi nickler bu kanala girmiş
örnek : bilgi:Ahmet ip 88.224.247.24 Sehir :Bursa Bölge:osmangazi >> Bursadan #x kanalına Mehmet elif sedat Girmiş. Ahmet nicki daha önce bu nickleri kullanmış olabilir.

gibi.

POSOFxPOWER

07 Aralık 2011 02:16

Cevap: şehir takip

IP adresten sehir bulmasi hic bizaman 100% gostermez
bazen dogru gosterir bazen gostermez..

Gulsum

07 Aralık 2011 13:16

Cevap: şehir takip

:) fikrin için saol fakat bunu biliyorum 100% 97 doğru gestiryor .herneyse benim istediğim şey farklı zaten.belirlediğim kanala giren 20 30 kişi genellikle aynı kişiler . bu kişiler modeme reset atıp ip adresini değişmiş olsa dahi şehri değişmiyo . belirlediğim kanala giren kişilerin hangi şehirden ve nicklerini kayıt edicek bi cod. bu kişiler tekrar kanala başka nickle girdiğinde kaydetmiş verilerden bana şöle bi bilgi vericek.

Örnek :Bilgi Nick:Ahmet Sehir :Bursa Bölge:osmangazi : Bursadan #x
kanalına daha önce Mehmet elif sedat Girmiş. Ahmet nicki bu nickleri kullanmış olabilir.

gibi bilgi vericek. ip adresi ile nickleri takib eden cod var yukarda verdim benim istediğimde sehrine göre nick takibi.

Set	07 Aralık 2011 14:18

Cevap: şehir takip

Code calisiyor sorun yok bende, KANAL kısmını ayarlarsin gözükür.

Kod:

[14:17] Nito Gizli Ajan: Sehir Urfa - Deneme - MetaL

Gulsum

01 Mayıs 2012 00:17

Cevap: şehir takip

bu cod whois cektiğim kişinin şehrini gösteriyodu 1 aya yakın çalışmaz oldu acaba wep sitesimi kapalı niye çalışmıyo yardım edermisiniz.

Kod:

on *:sockopen:city*: { 

  var %komut sockwrite -nt $sockname

  %komut GET $+(/ip/,$token($sock($sockname).mark,2,42)) HTTP1.1/

  %komut Host: whatismyipaddress.com

  %komut $crlf

}

on *:sockread:city*: {

  var %/ | sockread %/

  if ($regex(%/,State/Region)) set %ipsehir [ $+ [  $token($sock($sockname).mark,2,42) ] ]  $token($remove(%/,<tr>,<th>,</tr>,</th>,</td>,<td>),2,58)

  if ($regex(%/,City:)) set %ipyer [ $+ [  $token($sock($sockname).mark,2,42) ] ]  $token($remove(%/,<tr>,<th>,</tr>,</th>,</td>,<td>),2,58)  

}

on *:sockclose:city*: {

  var %nick $token($sock($sockname).mark,1,42), %ip $token($sock($sockname).mark,2,42)

  echo -as Bilgi:2 %nick 6IP:2 %ip 6Sehir:2 %ipsehir [ $+  [ $token($sock($sockname).mark,2,42) ] ] 6Yer:2 %ipyer [ $+ [  $token($sock($sockname).mark,2,42) ] ]

  unset %ipsehir [ $+ [ $token($sock($sockname).mark,2,42) ] ] %ipyer [ $+ [ $token($sock($sockname).mark,2,42) ] ]

}

alias cit {

  var %rand $rand(0,99999)

  sockopen $+(city,%rand) whatismyipaddress.com 80

  sockmark $+(city,%rand) $1

}

raw 378:*: { cit $+($2,*,$gettok($gettok($1-,2,64),2,32)) |  haltdef }

alias city { 

  if ($1 == on) { set %city on | echo -ea Giris-City Sistem Open! }

  if ($1 == off) { set %city off | echo -ea Giris-City Sistem Deopen! }

}

muratt_aziz

02 Mayıs 2012 00:05

Cevap: şehir takip

raw 378:*: { cit $+($2,*,$gettok($gettok($1-,2,64),2,32)) | haltdef }
Whois cektiğinde kırmızı belirttiğim yer ipadresini whois rawlarından ayırtediyor eğer rawlarla ilgili bir sorunun yoksa kodu yeni baştan yazdım
ben vodofone vın kullanmaktayım kendime göre verileri socket sistemiyle aldım kod aşağıda
umarım işine yarar

IP Address: 176.55.61.68
Vodafone Telekomunikasyon A.S.Organization
Ülke: Turkey
Şehir: Samsun
Enlem: 41.2867
Boylam: 36.33
Bu aldığım sonuç herhangi bir sunucuyla bağlantım yok oper girip whois çekmeden kodu yazdım sorun olmayacağını umuyorum

Kod:

#shrtkp on

alias klk { sockopen city whatismyipaddress.com 80 }

on *:sockopen:city*: { 

  sockwrite -n $sockname GET /ip/ $+ %halat HTTP/1.1

  sockwrite -n $sockname Accept: text/html, application/xhtml+xml, */*

  sockwrite -n $sockname Accept-Language: tr-TR

  sockwrite -n $sockname User-Agent: Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; WOW64; Trident/5.0)

  sockwrite -n $sockname Host: whatismyipaddress.com

  sockwrite -n $sockname DNT: 1

  sockwrite -n $sockname Connection: Keep-Alive

  sockwrite -n $sockname $crlf

}

on *:sockread:city*: {

  var %az

  sockread %az

  if (Country: isin %az) { echo -a 4Ülke:3 $remove($htmlfree(%az),Country:) }

  if (IP Address: isin %az) { echo -a 4 $htmlfree(%az) }

  if ISP: isin %az { echo -a 4 $gettok($htmlfree(%az),5,58) }

  if State/Region isin %az { echo -a 4Şehir:3 $remove($htmlfree(%az),State/Region:) }

  if Latitude: isin %az {  echo -a 4Enlem:3 $remove($htmlfree(%az),Latitude:) }

  if Longitude: isin %az {  echo -a 4Boylam:3 $remove($htmlfree(%az),Longitude:) }

}

alias htmlfree { 

  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;) 

  return %x 

}

raw 378:*: { var %halat $+($2,*,$gettok($gettok($1-,2,64),2,32)) | klk %halat  | haltdef }

#shrtkp end

alias klk { }

alias city { 

  if ($1 == on) { .enable #shrtkp | echo -ea Giris-City Sistem Açık! }

  if ($1 == off) { .disable #shrtkp | echo -ea Giris-City Sistem Kapalı! }

}

menu * {

  Şehir Takip

  .Aç:city on

  .Kapat:city off

}

Gulsum

02 Mayıs 2012 11:05

Cevap: şehir takip

çalışmadı.

muratt_aziz

02 Mayıs 2012 20:50

Cevap: şehir takip

mircinde kanal özel farketmez sağ tıklayıp Şehir Takip yazısı üzerine gelip Aç sekmesini tıkla ardından şu şekilde komut gir

//set %halat 176.55.156.5 | klk

Eğer buşekildede BİR SONUÇ alamaz isen sorun kodlamayala ilgili değil demektir

Gulsum

03 Mayıs 2012 00:23

Cevap: şehir takip

burda verilen türkçe mirc 6.35 kullanıyorum herhangi bi oynama yapmadım rawlarla.olmadı verdiğin. ben zaten yeni code istemiyorum benim istediğim aşşağıdaki vermiş olduğum code şehir takibi nick takibi felan değil konyuyu buraya actım sadece.bu code whois cektiğim kişinin hangi şehirde yaşadığını gösteriyo.bu codenin önceden çok güzel çalışıyo iken şimdi çalışmamasının sebebi nedir.düzeltilebilirmi.

on *:sockopen:city*: {
var %komut sockwrite -nt $sockname
%komut GET $+(/ip/,$token($sock($sockname).mark,2,42)) HTTP1.1/
%komut Host: whatismyipaddress.com
%komut $crlf
}
on *:sockread:city*: {
var %/ | sockread %/
if ($regex(%/,State/Region)) set %ipsehir [ $+ [ $token($sock($sockname).mark,2,42) ] ] $token($remove(%/,<tr>,<th>,</tr>,</th>,</td>,<td>),2,58)
if ($regex(%/,City:)) set %ipyer [ $+ [ $token($sock($sockname).mark,2,42) ] ] $token($remove(%/,<tr>,<th>,</tr>,</th>,</td>,<td>),2,58)
}
on *:sockclose:city*: {
var %nick $token($sock($sockname).mark,1,42), %ip $token($sock($sockname).mark,2,42)
echo -as Bilgi:2 %nick 6IP:2 %ip 6Sehir:2 %ipsehir [ $+ [ $token($sock($sockname).mark,2,42) ] ] 6Yer:2 %ipyer [ $+ [ $token($sock($sockname).mark,2,42) ] ]
unset %ipsehir [ $+ [ $token($sock($sockname).mark,2,42) ] ] %ipyer [ $+ [ $token($sock($sockname).mark,2,42) ] ]
}
alias cit {
var %rand $rand(0,99999)
sockopen $+(city,%rand) whatismyipaddress.com 80
sockmark $+(city,%rand) $1
}
raw 378:*: { cit $+($2,*,$gettok($gettok($1-,2,64),2,32)) | haltdef }
alias city {
if ($1 == on) { set %city on | echo -ea Giris-City Sistem Open! }
if ($1 == off) { set %city off | echo -ea Giris-City Sistem Deopen! }
}

muratt_aziz

03 Mayıs 2012 22:31

Cevap: şehir takip

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

sizin verdiğiniz kod'un verileri aldığı site den alınan cvplar bunlar
ip ülke şehir ve kordinatları

Ben bir ip takip veya nick takipten bahsetmedim verdiğim kod da çalışıyor ilkkez kod yazmıyorum

//set %halat 176.55.156.5 | klk bunu yaz deme sebebim Kod senin mircte çalışıyormu bakmaktı çalışmıyor dedin kime dene dediysem çalışıyor dedi işte kanıtı resimde herkes gibi size yardımcı olmaktı amaç bu tür kodların yazarları sizler gibilerin butür tavırları yüzüne artık kod yazmıyor yardımda bulunmuyor Acaba neden nerde kod yazan coderler Ben söyliyim yaptıkları yardımlar karşılığı aldıkları tavırlar yüzüne gerek duymuyorlar yazmaya

ha Şunuda diyeyim mirc editleyenler bir cok konu ve postta cvp atanların yüzde 10 u kod yazamıyor gercek coderler az sayıda size kolay gelsin artık

Alıntı:

muratt_aziz Nickli Üyeden Alıntı (Mesaj 1041107544)

Gulsum

04 Mayıs 2012 00:32

Cevap: şehir takip

whois cektiğim kişinin ip adresi bu Bağlandığı IP : 178.233.232.115
codun gösterdiği ise bu
IP Address: 176.55.156.5
Vodafone Telekomunikasyon A.S.Organization
Ülke: Turkey
Şehir: Samsun
Enlem: 41.2867
Boylam: 36.33

Z-Lined

04 Mayıs 2012 08:55

Cevap: şehir takip

Yahu Verdiğiniz kodlar Cidden ÇAlışmıyor. Whois Cekıyorum ßir Cevap Vermiyor
//set %halat 176.55.156.5 | klk Murat_Aziz Bunu Yap Demişsin Onu Yapınca Bu Seferde Kime Whois Çeksen Aynı Yerleri Veriyor. Düzgün Verseniz Şu kodu Olmazmı? : )

Gulsum

04 Mayıs 2012 11:50

Cevap: şehir takip

yardımların için teşekkür ederim . ama ben verdiğim codun çalışmama sebebini bulmak istiyorum farklı code istemiyorum aşşağıdakini düzeltemezmiyiz.
on *:sockopen:city*: {
var %komut sockwrite -nt $sockname
%komut GET $+(/ip/,$token($sock($sockname).mark,2,42)) HTTP1.1/
%komut Host: whatismyipaddress.com
%komut $crlf
}
on *:sockread:city*: {
var %/ | sockread %/
if ($regex(%/,State/Region)) set %ipsehir [ $+ [ $token($sock($sockname).mark,2,42) ] ] $token($remove(%/,<tr>,<th>,</tr>,</th>,</td>,<td>),2,58)
if ($regex(%/,City:)) set %ipyer [ $+ [ $token($sock($sockname).mark,2,42) ] ] $token($remove(%/,<tr>,<th>,</tr>,</th>,</td>,<td>),2,58)
}
on *:sockclose:city*: {
var %nick $token($sock($sockname).mark,1,42), %ip $token($sock($sockname).mark,2,42)
echo -as Bilgi:2 %nick 6IP:2 %ip 6Sehir:2 %ipsehir [ $+ [ $token($sock($sockname).mark,2,42) ] ] 6Yer:2 %ipyer [ $+ [ $token($sock($sockname).mark,2,42) ] ]
unset %ipsehir [ $+ [ $token($sock($sockname).mark,2,42) ] ] %ipyer [ $+ [ $token($sock($sockname).mark,2,42) ] ]
}
alias cit {
var %rand $rand(0,99999)
sockopen $+(city,%rand) whatismyipaddress.com 80
sockmark $+(city,%rand) $1
}
raw 378:*: { cit $+($2,*,$gettok($gettok($1-,2,64),2,32)) | haltdef }
alias city {
if ($1 == on) { set %city on | echo -ea Giris-City Sistem Open! }
if ($1 == off) { set %city off | echo -ea Giris-City Sistem Deopen! }
}

muratt_aziz

05 Mayıs 2012 00:00

Cevap: şehir takip

Daha öncede dediğim gibi sunuculardan birinde en az oper gerekliki ben takılmıyorum sunuculara

2: whois rawları genellikle raw 378 $3 denk gelmektedirki bu sunucuya göre değişmektedir 311 $3 $4 de olabildiği gibi gercek ipin bulunduğu raw ve $1 cinsinden denk geldiği veriye bakılmalı

3: vermiş olduğunuz kod şehir ülke olarakmı yanıt veriiyordu size kordinatları da istiyormusunuz

şu şekilde denermisiniz kodu

Kod:

on *:sockopen:city*: { 

  on *:sockopen:city*: { 

    sockwrite -n $sockname GET /ip/ $+ %halat HTTP/1.1

    sockwrite -n $sockname Accept: text/html, application/xhtml+xml, */*

    sockwrite -n $sockname Accept-Language: tr-TR

    sockwrite -n $sockname User-Agent: Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; WOW64; Trident/5.0)

    sockwrite -n $sockname Host: whatismyipaddress.com

    sockwrite -n $sockname DNT: 1

    sockwrite -n $sockname Connection: Keep-Alive

    sockwrite -n $sockname $crlf

  }

}

on *:sockread:city*: {

  var %/ | sockread %/

  if <meta name="description" content="Location: isin %/ {

    set %ipyer $gettok($gettok(%tt,2,58),2,32)

    set %ipsehir $gettok($gettok(%tt,2,58),1,32)

    set %Bağlantı $gettok($gettok(%tt,2,58),15-,32)

  }

}

on *:sockclose:city*: {

  var %nick $token($sock($sockname).mark,1,42), %ip $token($sock($sockname).mark,2,42)

  echo -as Bağlantı türü:2 %Bağlantı

  echo -as Bilgi:2 %nick 6IP:2 %ip 6Sehir:2 %ipsehir [ $+ [ $token($sock($sockname).mark,2,42) ] ] 6Yer:2 %ipyer [ $+ [ $token($sock($sockname).mark,2,42) ] ]

  unset %ipsehir [ $+ [ $token($sock($sockname).mark,2,42) ] ] %ipyer [ $+ [ $token($sock($sockname).mark,2,42) ] ]

}

alias cit {

  var %rand $rand(0,99999)

  sockopen $+(city,%rand) whatismyipaddress.com 80

  sockmark $+(city,%rand) $1

}

raw 378:*: { set %halat $remove($3,@,*) | cit %halat | haltdef }

alias city { 

  if ($1 == on) { set %city on | echo -ea Giris-City Sistem Open! }

  if ($1 == off) { set %city off | echo -ea Giris-City Sistem Deopen! }

}

Gulsum

05 Mayıs 2012 00:19

Cevap: şehir takip

olmadı şöle gsteriyo
Bağlantı türü:
Bilgi: is IP: Sehir: Yer:
hiçbi bilgi yok

muratt_aziz

05 Mayıs 2012 18:23

Cevap: şehir takip

sunucu whois raw ve noları bulmak için yapman gereken birkac işlem var

öncelikle miricnde /debug @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] komutunu gir
Ardından whois cekbirine @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] penceresinde gercek ip yani kişinin ip sinni olduğu satırı buraya kopyala

örnek ben whois cekince aldığım veriler @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] penceresindekiler şunlar

> IRC.sunucu.Com WHOIS yqq
<- :IRC.sunucu.Com 311 yqq yqq _______ DC8A94B0.A3539D4D.B40E5340.IP * :Û©ÛÛ© Û©ÛÛ©
<- :IRC.sunucu.Com 378 yqq yqq : [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 176.55.141.207 adresinden bağlantı kuruyor
<- :IRC.sunucu.Com 319 yqq yqq :#Sohbet #Kelime #Radyo
<- :IRC.sunucu.Com 312 yqq yqq IRC.sunucu.Com :sunucu.Com IRC Server
<- :IRC.sunucu.Com 318 yqq yqq :Kişi bilgi (/WHOIS) bilgisi sonu

Görüldüğü gibi raw 378 ip adresine takavvul ediyor Bu 311 de olabilir $3 veya $4 de de deng gelebilir bunu bilmeliyiz şuandaki sıkıntı ip adresini alamamamız socket verilerinde bir sorun yok

muratt_aziz

05 Mayıs 2012 19:26

Cevap: şehir takip

Kod:

  on *:sockopen:city*: { 

    sockwrite -n $sockname GET /ip/ $+ %halat HTTP/1.1

    sockwrite -n $sockname Accept: text/html, application/xhtml+xml, */*

    sockwrite -n $sockname Accept-Language: tr-TR

    sockwrite -n $sockname User-Agent: Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; WOW64; Trident/5.0)

    sockwrite -n $sockname Host: whatismyipaddress.com

    sockwrite -n $sockname DNT: 1

    sockwrite -n $sockname Connection: Keep-Alive

    sockwrite -n $sockname $crlf

  }

 

on *:sockread:city*: {

  var %/ | sockread %/

  if <meta name="description" content="Location: isin %/ {

    echo -as Bağlantı türü:2 $gettok($gettok(%/,2,58),15-,32)

    echo -as Bilgi: 13IP:2 %halat 13Sehir:2 $gettok($gettok(%/,2,58),1,32) 13Yer:2 $gettok($gettok(%/,2,58),2,32)

  }

}

alias cit {

  sockopen city whatismyipaddress.com 80

}

raw 378:*: { set %halat $remove($3,@,*) | cit $remove($3,@,*) | haltdef } 

alias city { 

  if ($1 == on) { set %city on | echo -ea Giris-City Sistem Open! }

  if ($1 == off) { set %city off | echo -ea Giris-City Sistem Deopen! }

}

Bu kodu bir arkadaşın operini kullanarak düzenledim umarım sende çalışır ben whois çekince istemiş olduğun verileri veriyor

Kimimben

05 Mayıs 2012 23:12

Cevap: şehir takip

Kodu bende remoteme koydum ve denedim calisiyor ama bazende calismiyor statude sunu veriyor

* /sockopen: 'city' Soket Kullaniliyor (Satir 20, script19.ini)

bazende cvp veriyor bazende cvp vermiyor yukaridaki yaziyi yaziyor

Gulsum

05 Mayıs 2012 23:27

Cevap: şehir takip

> IRC.sunucu.com WHOIS isterim
<- :IRC.sunucu.com 311 Gulsum isterim sohbet DAE5C9D6.A5BC5758.11010F01.IP * :« [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] »
<- :IRC.sunucu.com 379 Gulsum isterim :is using modes +iwx
<- :IRC.sunucu.com 378 Gulsum isterim :is connecting from *@78.173.62.252 78.173.62.252
<- :IRC.sunucu.com 319 Gulsum isterim :#sohbet
<- :IRC.sunucu.com 312 Gulsum isterim IRC.sunucu.com : - irc network !
<- :IRC.sunucu.com 317 Gulsum isterim 33 1336276879 :seconds idle, signon time
<- :IRC.sunucu.com 318 Gulsum isterim :End of /WHOIS list.

muratt_aziz

06 Mayıs 2012 07:28

Cevap: şehir takip

Alıntı:

KiMiiMBeN Nickli Üyeden Alıntı (Mesaj 1041110956)

Soket Kullaniliyor
Demiş bu durum sizin web hızınız veya verilerin alındığı sitenin yogunluk,saldırıya maruz kalma gibi etkenlerden kaynaklanır kısaca ya site yavaştır yada sizin bağlantınız

gülsüm hanım kod calışmıyormu halen cvp vermemişsiniz

Gulsum

06 Mayıs 2012 13:11

Cevap: şehir takip

çalışmadı raw komutlarınıda o yüzden yolladım

muratt_aziz

06 Mayıs 2012 15:12

Cevap: şehir takip

raw 378:*: { echo -a İP ADRESİ $3 }
bu kodu mırcınin remote bölümüne yapıştır ve cık remote bölümünden ardından birine whois cek İP ADRESİ yazısının önünde ip görünüyormu bak

Gulsum

06 Mayıs 2012 16:53

Cevap: şehir takip

ip adresi bunu eklemeden öncede gösteriyodu ama şehir göstermiyo

Bilgi: daisyboy IP: 94.235.133.84 Sehir: Yer:

yukarda verdiğini rometeye ekledim dediğin gibi gene aynı sonucu verdi . olmıcak bu anlaşılan kacgündür uğraşıyorsun sanada zahmet verdim ilgilendiğin için tşkler . pes ediyorum artık:)

Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 05:36.