Girişte Nickin Ülke/Şehir/ISP Gösterme

28.10.16

Girişte Nickin Ülke/Şehir/ISP Gösterme

Sunucuya giren kişilerin bilgilerini ülke şehir ve ip adreslerini görmek için remote bölümünüze ekleyiniz.

Remote bölümünü açmak için mircinizde Alt + R kombinasyonunu uygulayın karşınıza açılan bölüme ekleyin.
Karşınıza açılan kısmı karıştırmak istemiyorsanız Alt + R ile remote bölümünü açtıktan sonra sol üstten Dosya/Yeni yolunu izleyerek yeni sayfa açın ve içine yapıştırıp tamam deyin.
#Kanal yerine yazdırmak istediğini kanalı yazmanız yeterli.

Örnek:

Kod:

        Nick: SCaBieS - IP: 00.00.00.000 - Ulke: Turkey - Sehir: Konya - ISP: Turk Telekom
Nick: Misafir536390 - IP: 00.00.00.000 - Ulke: Turkey - Sehir: Izmir - ISP: Turk Telekom
Nick: SCaBieS - IP: 00.00.00.000 - Ulke: Turkey - Sehir: Konya - ISP: Turk Telekom
Nick: Cenk - IP: 00.00.00.000 - Ulke: Turkey - Sehir: Izmir - ISP: Turkcell
Nick: murat - IP: 00.00.00.000 - Ulke: Turkey - Sehir: Ankara - ISP: Turksat Uydu-Net Internet

KOD:

PHP- Kodu:



#giriste on
on *:snotice:*Client connecting*:who +I $token($token($7-,1,40),-1,32)
raw 352:*:var %:r $r(1000,99999) | sockopen $+(pro,%:r) www.ipaddresslocation.org 80 | sockmark $+(pro,%:r) $+($4,¿,$6)
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } 
on *:sockopen:pro*:{ 
  sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,1,191)) HTTP/1.1 
  sockwrite -nt $sockname Host: www.ipaddresslocation.org 
  sockwrite -nt $sockname Connection: keep-alive
  sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
  sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36
  sockwrite -nt $sockname $crlf
}
on *:sockread:pro*:{  
  if ($sockerr) { .sockclose $sockname | return }
  var %:pro | sockread -f %:pro
  if (IP Country: isin %:pro) { .hadd -ms $token($sock($sockname).mark,2,191) Ülke $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) }
  if (IP City: isin %:pro) { .hadd -ms $token($sock($sockname).mark,2,191) Sehir $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) }
  if (ISP Provider: isin %:pro) { 
    var %:isp $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58))
    var %:n $token($sock($sockname).mark,2,191), %ip $token($sock($sockname).mark,1,191), %ülke $hget(%:n,Ülke), %sehir $hget(%:n,Sehir)
    msg #Kanal Nick:2 %:n 1- IP:2 %ip 1- Ulke:2 %ülke 1- Sehir:2 %sehir 1- ISP:2 %:isp 
    .hfree -sw %:n
    sockclose $sockname
  }
}
#giriste end
menu menubar {
  +> IP GIRIS
  ..Aç:!if $group(#giriste).status = on { echo 4 -tgae IP NERDEN Zaten AÇIK } | else { /.enable #giriste | echo 4 -tgae IP NERDEN AÇILDI | set %giriste on  }
  ..Kapat:!if $group(#giriste).status = off { echo 4 -tgae IP NERDEN Zaten KAPALI } | else { /.disable #giriste | echo 4 -tgae IP NERDEN KAPATILDI | set %giriste off  }
  ..Durum < $replace($group(#giriste).status, off, Kapal1, on, Aç1k) >:.
}

28.10.16	#1
Kullanıcı Profili YC Guest	Girişte Nickin Ülke/Şehir/ISP Gösterme Girişte Nickin Ülke/Şehir/ISP Gösterme Sunucuya giren kişilerin bilgilerini ülke şehir ve ip adreslerini görmek için remote bölümünüze ekleyiniz. Remote bölümünü açmak için mircinizde Alt + R kombinasyonunu uygulayın karşınıza açılan bölüme ekleyin. Karşınıza açılan kısmı karıştırmak istemiyorsanız Alt + R ile remote bölümünü açtıktan sonra sol üstten Dosya/Yeni yolunu izleyerek yeni sayfa açın ve içine yapıştırıp tamam deyin. #Kanal yerine yazdırmak istediğini kanalı yazmanız yeterli. Örnek: Kod: Nick: SCaBieS - IP: 00.00.00.000 - Ulke: Turkey - Sehir: Konya - ISP: Turk Telekom Nick: Misafir536390 - IP: 00.00.00.000 - Ulke: Turkey - Sehir: Izmir - ISP: Turk Telekom Nick: SCaBieS - IP: 00.00.00.000 - Ulke: Turkey - Sehir: Konya - ISP: Turk Telekom Nick: Cenk - IP: 00.00.00.000 - Ulke: Turkey - Sehir: Izmir - ISP: Turkcell Nick: murat - IP: 00.00.00.000 - Ulke: Turkey - Sehir: Ankara - ISP: Turksat Uydu-Net Internet KOD: PHP- Kodu: #giriste on on :snotice:Client connecting:who +I $token($token($7-,1,40),-1,32) raw 352::var %:r $r(1000,99999) \| sockopen $+(pro,%:r) www.ipaddresslocation.org 80 \| sockmark $+(pro,%:r) $+($4,¿,$6) alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]>\|<[^>]>\|<[^>]$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) \| return %x } } on :sockopen:pro:{ sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,1,191)) HTTP/1.1 sockwrite -nt $sockname Host: www.ipaddresslocation.org sockwrite -nt $sockname Connection: keep-alive sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,/;q=0.8 sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36 sockwrite -nt $sockname $crlf } on :sockread:pro*:{ if ($sockerr) { .sockclose $sockname \| return } var %:pro \| sockread -f %:pro if (IP Country: isin %:pro) { .hadd -ms $token($sock($sockname).mark,2,191) Ülke $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) } if (IP City: isin %:pro) { .hadd -ms $token($sock($sockname).mark,2,191) Sehir $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) } if (ISP Provider: isin %:pro) { var %:isp $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) var %:n $token($sock($sockname).mark,2,191), %ip $token($sock($sockname).mark,1,191), %ülke $hget(%:n,Ülke), %sehir $hget(%:n,Sehir) msg #Kanal Nick:2 %:n 1- IP:2 %ip 1- Ulke:2 %ülke 1- Sehir:2 %sehir 1- ISP:2 %:isp .hfree -sw %:n sockclose $sockname } } #giriste end menu menubar { +> IP GIRIS ..Aç:!if $group(#giriste).status = on { echo 4 -tgae IP NERDEN Zaten AÇIK } \| else { /.enable #giriste \| echo 4 -tgae IP NERDEN AÇILDI \| set %giriste on } ..Kapat:!if $group(#giriste).status = off { echo 4 -tgae IP NERDEN Zaten KAPALI } \| else { /.disable #giriste \| echo 4 -tgae IP NERDEN KAPATILDI \| set %giriste off } ..Durum < $replace($group(#giriste).status, off, Kapal1, on, Aç1k) >:. } Benzer Konular Sunucuya girişte version/finger sorgusu yapan kod... İp Adresinden Şehir Belirleme Remotesi... En çok altına sahip 20 ülke... Dağ başına mı Şehir İçine mi?... Ülke... 0
İşlemler