IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 1 Toplam 3 Sayfadan 1 23
Konuya ait 40 Mesajı başka Sayfada göster

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/)
-   -   Çözüldü IP tabanlı yapabilirmiyiz (https://www.ircforumlari.net/mirc-scripting-sorunlari/826299-ip-tabanli-yapabilirmiyiz.html)

SenatoR-SuVaRi 21 Haziran 2019 18:16
IP tabanlı yapabilirmiyiz
 
alias giris {
return giris
}

on ^*!:Join:#sohbet: { window -De @Giris
var %ip = $mask($fulladdress,2)
var %nfname = $mask($fulladdress,0)

; get the previous nicks
var %nicks = $readini(giris.txt, %ip, nicks)

; get the pervious full names
var %fname = $readini(giris.txt, %ip, fullname)

; add the new nick ($addtok will take care of duplicates)
var %nicks = $addtok(%nicks,$nick,32)

; add the new fname ($addtok will take care of duplicates)
var %fname = $addtok(%fname,$ial(%ip).user,32)

; update the nicks
writeini -n giris.txt %ip nicks %nicks

; update the seen time
writeini -n giris.txt %ip seentime $date

; update the fullname
writeini -n giris.txt %ip fullname %fname

msg #moos 4Bağlanan 5 $nick 4 IP Adresi 5 $address($nick,2) 4 Önceki KuLandığı Nickler: 12 $readini(giris.txt, %ip, nicks) 4 Fullname:5 $readini(giris.txt, %ip, fullname) 4 Son Görülen Zaman 5 $readini(giris.txt, %ip, seentime)
}

alias ntrack {
var %ip = $address($7,2)
var %nfname = $address($7,0)
; get the previous nicks
var %nicks = $readini(giris.txt, %ip, nicks)
; get the pervious full names
var %fname = $readini(giris.txt, %ip, fullname)
; add the new nick ($addtok will take care of duplicates)
var %nicks = $addtok(%nicks,$nick,32)
; add the new fname ($addtok will take care of duplicates)
var %fname = $addtok(%fname,$ial(%ip).user,32)
msg #moos 12 $1 on the ip %ip has used the nicks: $readini(giris.txt, %ip, nicks) and the full names: $readini(giris.txt, %ip, fullname) and was last seen on $readini(giris.txt, %ip, seentime)
}
menu nicklist {
NickTrack:ntrack $$1
}

alias giris.txt {
return giris.txt
}

on ^*!:nick: { window -De @giris
var %ip = $mask($fulladdress,2)
var %nfname = $mask($fulladdress,0)

; get the previous nicks
var %nicks = $readini(giris.txt, %ip, nicks)

; get the previous newnicks
var %newnicks = $readini(giris.txt, %ip, newnicks)

; get the pervious full names
var %fname = $readini(giris.txt, %ip, fullname)

; add the new nick ($addtok will take care of duplicates)
var %nicks = $addtok(%nicks,$newnick,32)

; add the new fname ($addtok will take care of duplicates)
var %fname = $addtok(%fname,$ial(%ip).user,32)

; update the nicks
writeini -n giris.txt %ip nicks %nicks

; update the seen time
writeini -n giris.txt %ip seentime $+($time,-,$date)

; update the fullname
writeini -n giris.txt %ip fullname %fname
}

YouMyCure 21 Haziran 2019 18:26
Cevap: IP tabanlı yapabilirmiyiz
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] keşke biraz forumu araştırsaydın,
sanırım istediğin şey bu
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

SenatoR-SuVaRi 21 Haziran 2019 18:52
sunucuya girdiği nick değiştirdiği tüm nickleride gösteriyormu

o bende var ben girişte göstermesini istiyorum ve senin linkini verdiğin kod dan tarama yapınca kanalda olan baskası sadece 11 adet görüyor diğer sonucları görmüyor sadece son 11 girişi görüyor

Toprak 21 Haziran 2019 18:55
Cevap: IP tabanlı yapabilirmiyiz
 
Alıntı:
SenatoR-SuVaRi Nickli Üyeden Alıntı (Mesaj 1042102711)
sunucuya girdiği nick değiştirdiği tüm nickleride gösteriyormu
Evet değiştirdiği nickleri, sunucuya giriş yaptığı nickleri, atılan banları kayıt eder.
Kodu ekledikten sonra sunucuya giriş yapanları kayıt eder öncelerini nasıl bulucak :)

SenatoR-SuVaRi 21 Haziran 2019 18:58
Cevap: IP tabanlı yapabilirmiyiz
 
benim istediğim şu örnek veriyorum
(18:38) <SuVaRi> Bağlanan ÇINAR IP Adresi *!*@5F.A.AD645DB2.IP Önceki KuLandığı Nickler: ÇINAR DJ-ÇINAR tEo ÇINAR2134062347 ÇINAR_ Fullname: WebUser NeseliChat Son Görülen
host olarak gösteriyor buda hata veriyor hostan gösterdiği için 178.241.55.67 kişi ile 178.241.55.113 olan ayrı kişilri aynı mkişi olarak gösteriyor bu yüzden bu host yerine gercek ip adresi yazsın istiyorum bu mümkünmü

YouMyCure 22 Haziran 2019 06:04
Cevap: IP tabanlı yapabilirmiyiz
 
Alıntı:
SenatoR-SuVaRi Nickli Üyeden Alıntı (Mesaj 1042102715)
benim istediğim şu örnek veriyorum
(18:38) <SuVaRi> Bağlanan ÇINAR IP Adresi *!*@5F.A.AD645DB2.IP Önceki KuLandığı Nickler: ÇINAR DJ-ÇINAR tEo ÇINAR2134062347 ÇINAR_ Fullname: WebUser NeseliChat Son Görülen
host olarak gösteriyor buda hata veriyor hostan gösterdiği için 178.241.55.67 kişi ile 178.241.55.113 olan ayrı kişilri aynı mkişi olarak gösteriyor bu yüzden bu host yerine gercek ip adresi yazsın istiyorum bu mümkünmü
Oper giriyormusun ip adresi gorme yetkin var mi ?
Oper girmiyorsan gercek ip adresini goremezsin

SenatoR-SuVaRi 22 Haziran 2019 11:35
Cevap: IP tabanlı yapabilirmiyiz
 
Var yetkim ama bu kodda göremiyorum ip adresini
Başka kodda görünüyor misal ülke şehir isp kodunda
[10:50] (~SuVaRi) ( GiRiS ) == Nick: bahar == IP: 194.230.155.168 == - Ulke: Switzerland == - Sehir: Zurich == - ISP: Sunrise Communications AG Son Girişi: 10:49:25-22/06/2019
BU konuda Yardımcı olabilecek kimse varmı ACABA

YouMyCure 22 Haziran 2019 12:19
Cevap: IP tabanlı yapabilirmiyiz
 
Alıntı:
SenatoR-SuVaRi Nickli Üyeden Alıntı (Mesaj 1042103182)
Var yetkim ama bu kodda göremiyorum ip adresini
Başka kodda görünüyor misal ülke şehir isp kodunda
[10:50] (~SuVaRi) ( GiRiS ) == Nick: bahar == IP: 194.230.155.168 == - Ulke: Switzerland == - Sehir: Zurich == - ISP: Sunrise Communications AG Son Girişi: 10:49:25-22/06/2019
BU konuda Yardımcı olabilecek kimse varmı ACABA
Kod:
alias tara {
  if !$1 { msg # Lütfen Nick/IP belirtiniz. Kullanımı:4 /tara [IP|NICK] }
  elseif $regex($1,/\d+\.\d+\.\d+\.\d+/Si) {
    if !$isfile($+(IP/,$strip($1),.txt)) { msg # $+(,$strip($1),) IP'ine ait kayıt bulunamadı. | return }
    echo -a  =====" 2Nick "=====" 2Ident "=====" 2Action "=====" 2Saat "===== " 2Tarih "=====
    echo -a  -
    var %:_ar = $lines($+(IP/,$strip($1),.txt)) | while %:_ar {
      var %:read = $read($+(IP/,$strip($1),.txt),%:_ar)
      echo -a  2-4 $token(%:read,2,32) - ID:2 $token(%:read,3,32) - Aksiyon:2 $token(%:read,4-,32) - Zaman:2 $token($token(%:read,1,32),2,191) -5 $iif($date == $token($token(%:read,1,32),1,191),Bugün,$token($token(%:read,1,32),1,191))
      dec %:_ar
    }
    echo -a  -
    echo -a  4* Bilgi: $+(2,$strip($1),) IP'sine ait $+(4,$lines($+(IP/,$strip($1),.txt)),) adet kayıt sıralanmıştır.
    echo -a  ===============================================================
    echo -a  -
    .hadd -ms Ns-list $strip($1) #
    ns list $+(*@,$strip($1))
  }
  else {
    if !$isfile($+(IP/,$strip($1),.txt)) { msg # $+(,$strip($1),) Nick'ine ait kayıt bulunamadı. | return }
    echo -a  =====" 2IP "=====" 2Ident "=====" 2Action "=====" 2Saat "===== " 2Tarih "=====
    echo -a  -
    var %:_ar = $lines($+(IP/,$strip($1),.txt)) | while %:_ar {
      var %:read = $read($+(IP/,$strip($1),.txt),%:_ar)
      echo -a  2-4 $token(%:read,2,32) - ID:2 $token(%:read,3,32) - Aksiyon:2 $token(%:read,4-,32) - Zaman:2 $token($token(%:read,1,32),2,191) -5 $iif($date == $token($token(%:read,1,32),1,191),Bugün,$token($token(%:read,1,32),1,191))
      dec %:_ar
    }
    echo -a  -
    echo -a  4* Bilgi: $+(2,$strip($1),) Nick'ine ait $+(4,$lines($+(IP/,$strip($1),.txt)),) adet kayıt sıralanmıştır.
    echo -a  ===============================================================
    echo -a  -
  }
}

on *:notice:*:?:{
  if ($nick == NickServ) {
    if $regex($1-,/uyan veriler:/Si) && $regex($1-,/(\d+\.\d+\.\d+\.\d+)/Si) { msg $hget(Ns-list,$regml(1))  $+(2,$regml(1),) IP'ine ait NickServ kayıtları. }
    elseif $regex($1-,/(\d+\.\d+\.\d+\.\d+)/Si) && $hget(Ns-list,$regml(1)) { msg # $hget(Ns-list,$regml(1)) Nick:4 $strip($1) }
    elseif $regex($1-,/liste sonu/Si) {
      $iif($4 == 0/0,msg $hget(NS-list,1).data NickServ de identify edilmiş nick bulunmamaktadır.)
      .hfree -sw Ns-list
    }
  }
}

on *:snotice:*:{
  if $regex($1-,/Client connecting (on port|at) (.+)\: (.+) \((.+)@(.+)\)/Si) {
    var %_port = $regml(2), %_nick $regml(3), %_ident $regml(4), %_ip $regml(5), %_hub $regml(1)
    var %_girs = $iif(%_hub == at,%_port HUB,$iif(%_port == 7005,Mobil,$iif(%_port == 1985,Web,IRC))) Girişi
    $iif(!$isdir(IP),.mkdir IP)
    .write $+(IP/,%_ip,.txt) $+($date,¿,$time) %_nick %_ident %_girs
    .write $+(IP/,%_nick,.txt) $+($date,¿,$time) %_ip %_ident %_girs
  }
  elseif $regex($1-,/his\/her nickname to/Si) {
    var %_nk = $token($1-,-1,32), %_it $token($token($1-,1,64),2,40), %_ips $token($token($1-,2,64),1,41)
    $iif(!$isdir(IP),.mkdir IP)
    .write $+(IP/,%_ips,.txt) $+($date,¿,$time) %_nk %_it Nick Değişimi
    .write $+(IP/,%_nk,.txt) $+($date,¿,$time) %_ips %_it Nick Değişimi
  }
  elseif $regex($1-,/Permanent (.+) added for .+@(.+) on.+from (.+)!.+/Si) { .hadd -msu15 IRC-Giris $regml(2) $regml(3) $regml(1) Uyguladı. }
  elseif $regex($1-,/Client exiting/Si) {
    if $regex($1-,/Client exiting\: (.+) \((.+)@(.+)\) .+/Si) { var %_cnk = $regml(1), %_cit $regml(2), %_cip $regml(3) }
    elseif $regex($1-,/Client exiting at .+: (.+)!(.+)@(.+)/Si) { var %_cnk = $regml(1), %_cit $regml(2), %_cip $token($regml(3),1,32) }
    var %:ban = $hget(IRC-Giris,%_cip)
    $iif(!$isdir(IP),.mkdir IP)
    .write $+(IP/,%_cip,.txt) $+($date,¿,$time) %_cnk %_cit $iif(%:ban,%:ban,Sunucudan Çıkış)
    .write $+(IP/,%_cnk,.txt) $+($date,¿,$time) %_cip %_cit $iif(%:ban,%:ban,Sunucudan Çıkış)
    $iif($hget(IRC-Giris,%_cip),.hdel -ms IRC-Giris %_cip)
  }
}
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

bu kodun düzenlenmiş hali

kullanımı : /tara nick/ip

SenatoR-SuVaRi 22 Haziran 2019 13:23
Cevap: IP tabanlı yapabilirmiyiz
 
Eline sağlık yorulmuşsun ama istediğin bu değil istediğim verdiğim mirc kodunun hosttan ipe çevrilmesi yani bu kodun
Alıntı:
SenatoR-SuVaRi Nickli Üyeden Alıntı (Mesaj 1042102694)
alias giris {
return giris
}

on ^*!:Join:#sohbet: { window -De @Giris
var %ip = $mask($fulladdress,2)
var %nfname = $mask($fulladdress,0)

; get the previous nicks
var %nicks = $readini(giris.txt, %ip, nicks)

; get the pervious full names
var %fname = $readini(giris.txt, %ip, fullname)

; add the new nick ($addtok will take care of duplicates)
var %nicks = $addtok(%nicks,$nick,32)

; add the new fname ($addtok will take care of duplicates)
var %fname = $addtok(%fname,$ial(%ip).user,32)

; update the nicks
writeini -n giris.txt %ip nicks %nicks

; update the seen time
writeini -n giris.txt %ip seentime $date

; update the fullname
writeini -n giris.txt %ip fullname %fname

msg #moos 4Bağlanan 5 $nick 4 IP Adresi 5 $address($nick,2) 4 Önceki KuLandığı Nickler: 12 $readini(giris.txt, %ip, nicks) 4 Fullname:5 $readini(giris.txt, %ip, fullname) 4 Son Görülen Zaman 5 $readini(giris.txt, %ip, seentime)
}

alias ntrack {
var %ip = $address($7,2)
var %nfname = $address($7,0)
; get the previous nicks
var %nicks = $readini(giris.txt, %ip, nicks)
; get the pervious full names
var %fname = $readini(giris.txt, %ip, fullname)
; add the new nick ($addtok will take care of duplicates)
var %nicks = $addtok(%nicks,$nick,32)
; add the new fname ($addtok will take care of duplicates)
var %fname = $addtok(%fname,$ial(%ip).user,32)
msg #moos 12 $1 on the ip %ip has used the nicks: $readini(giris.txt, %ip, nicks) and the full names: $readini(giris.txt, %ip, fullname) and was last seen on $readini(giris.txt, %ip, seentime)
}
menu nicklist {
NickTrack:ntrack $$1
}

alias giris.txt {
return giris.txt
}

on ^*!:nick: { window -De @giris
var %ip = $mask($fulladdress,2)
var %nfname = $mask($fulladdress,0)

; get the previous nicks
var %nicks = $readini(giris.txt, %ip, nicks)

; get the previous newnicks
var %newnicks = $readini(giris.txt, %ip, newnicks)

; get the pervious full names
var %fname = $readini(giris.txt, %ip, fullname)

; add the new nick ($addtok will take care of duplicates)
var %nicks = $addtok(%nicks,$newnick,32)

; add the new fname ($addtok will take care of duplicates)
var %fname = $addtok(%fname,$ial(%ip).user,32)

; update the nicks
writeini -n giris.txt %ip nicks %nicks

; update the seen time
writeini -n giris.txt %ip seentime $+($time,-,$date)

; update the fullname
writeini -n giris.txt %ip fullname %fname
}
Sizin gibi mirc profosyoneli insanlar ıçın bu zor olmasa gerek şimdiden tskler

YouMyCure 22 Haziran 2019 14:13
Cevap: IP tabanlı yapabilirmiyiz
 
Alıntı:
SenatoR-SuVaRi Nickli Üyeden Alıntı (Mesaj 1042103233)
Eline sağlık yorulmuşsun ama istediğin bu değil istediğim verdiğim mirc kodunun hosttan ipe çevrilmesi yani bu kodun


Sizin gibi mirc profosyoneli insanlar ıçın bu zor olmasa gerek şimdiden tskler
senin mevcutta bulunan kodun host adresini ip adresine çeviremez maalesef , veride gelen nicke who +I çektirip ip adresini alıp tekrardan kayıt yaptırabilirsin lakin kodun gereksiz uzar ve mircin gereksiz yorulur.

$address identiferi açıklaması : [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

verdiğim kod ile yani @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] nickli arkadaşın konusundaki kod ile ip adreslerini alıp kaydettirebilirsin.


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 08:24.
Sayfa 1 Toplam 3 Sayfadan 1 23
Konuya ait 40 Mesajı başka Sayfada göster

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net