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

14Beğeni(ler)

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 21 Haziran 2019, 18:16   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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
}

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Yazgulu Sohbet
Alt 21 Haziran 2019, 18:26   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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...]

__________________
Güneşin ilk ışıklarına vererek umutlarımı
Masal Dünyamın açıp kapılarını
Girdim insan Kalabalığına
 
Alıntı ile Cevapla

Alt 21 Haziran 2019, 18:52   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)



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

 
Alıntı ile Cevapla

Alt 21 Haziran 2019, 18:55   #4
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (1)
IF Ticaret Yüzdesi:(%)
Cevap: IP tabanlı yapabilirmiyiz




SenatoR-SuVaRi Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 
Alıntı ile Cevapla

Alt 21 Haziran 2019, 18:58   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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ü

 
Alıntı ile Cevapla

Alt 22 Haziran 2019, 06:04   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: IP tabanlı yapabilirmiyiz




SenatoR-SuVaRi Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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

__________________
Güneşin ilk ışıklarına vererek umutlarımı
Masal Dünyamın açıp kapılarını
Girdim insan Kalabalığına
 
Alıntı ile Cevapla

Alt 22 Haziran 2019, 11:35   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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

 
Alıntı ile Cevapla

Alt 22 Haziran 2019, 12:19   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: IP tabanlı yapabilirmiyiz




SenatoR-SuVaRi Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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:   Kodu kopyalamak için üzerine çift tıklayın!
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

__________________
Güneşin ilk ışıklarına vererek umutlarımı
Masal Dünyamın açıp kapılarını
Girdim insan Kalabalığına
 
Alıntı ile Cevapla

Alt 22 Haziran 2019, 13:23   #9
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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
SenatoR-SuVaRi Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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

 
Alıntı ile Cevapla

Alt 22 Haziran 2019, 14:13   #10
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: IP tabanlı yapabilirmiyiz




SenatoR-SuVaRi Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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.

__________________
Güneşin ilk ışıklarına vererek umutlarımı
Masal Dünyamın açıp kapılarını
Girdim insan Kalabalığına
 
Alıntı ile Cevapla

Cevapla

Etiketler
host takip, ip takip. kullandığı nickler, mirc kodları


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

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
Selamün Aleyküm Amelia İslamiyet 2 02 Haziran 2023 13:46
Selamın aleyküm. Janissary06 Hey Sen! Beni Tanıyor Musun? 6 30 Haziran 2013 13:44
Selamün Aleyküm Mehmet Hey Sen! Beni Tanıyor Musun? 20 07 Eylül 2011 17:08
Selamın Aleyküm Ruhadam Hey Sen! Beni Tanıyor Musun? 6 06 Ocak 2010 23:12
Selamün Aleyküm Survivor Hey Sen! Beni Tanıyor Musun? 12 29 Mayıs 2009 11:07