Real Name revealer - Sayfa 2 - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

KuL · 14 Ocak 2016, 19:26

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

what kind of a server is this and which mirc do you use?

I also tried it on my mirc, and for me it looks like this:

Alıntı:

[00:22:50 14/01/2016] ******************** | kadir606 (88.123.456.78) entered the stream.

elhale · 14 Ocak 2016, 19:35

KuL Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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

what kind of a server is this and which mirc do you use?

I also tried it on my mirc, and for me it looks like this:

UnrealIrcd, and I use mIRC 7.41

elhale · 15 Ocak 2016, 18:24

Ok... I found this code @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] and now it works...

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

on !^*:join:#:haltdef | inc $+(%,$nick,ip) 1 | hadd -m $nick # 1 | if ($regex($evalnext($+(%,$nick,ip)),^1$)) { userip $nick } | unset $+(%,$nick,ip)
raw 340:*: {
haltdef | var %& = $regsubex($2,/\+|\*|-/g,) | var %n = $token(%&,1,61),%id = $token(%&,2,61)
if ($hget(%n,0).item >= 1) { var %2 = $v1,%1 = 1 | while (%1 <= %2) { echo $color(join) -t $hget(%n,%1).item * Giriş: %n $+($chr(40),$chr(3),$chr(52),%id,$chr(41)) | inc %1 } | hfree $token($regsubex($2,/\+|\*|-/g,),1,61) }
}

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

here is the new screenshot:

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

but, for mibbit I want to echo fullname, not ip.

How to use if mibbit get fullname? How to echo $fullname?

XcLusive · 16 Ocak 2016, 22:42

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

#cort on
on !^*:join:#:{
  hadd -m $nick # 1
  who +g $nick
}
raw 352:*:{ 
  hadd -m fullnametable $6 $9-
  if $hget($6,0).item == 1 { echo $color(info) -t $hget($6,1).item * Login: $6 - FN: $9- | hfree $6 }
}
raw 315:*:haltdef
#cort end

here is simply fullname shower code but work only english characters not working on turkish
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
tested :p
if you want execute command on fullname you should make log window like @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] window.

for activate code type : /enable #cort
deactivate : /disable #cort
you can make it shortly with F keys.

like this : F5 $iif($group(#cort) == on,/disable #cort,/enable #cort)
put this code in Aliases, if its on turn off or on.

elhale · 17 Ocak 2016, 05:09

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] thankyou for helping...

however, what im trying to do is to do the "who command" only on users joining the channel from mibbit

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] has 4 ip-s and when they join the channel it looks like this:

[03:42:45am] *******************J | ELIOO (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
) joined #channel from (server)

now, i wanna do it that only when users using mibbit join the channel, i wanna echo their realname/fullname under the join
[03:42:45am] *******************J | ELIOO (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
) joined #channel from (server)
[03:42:45am] *******************J | ELIOO - FN: user-0cdfi76.cable.mindspring.com

Your code works, but I dont know why it does only with some users (echo in the channel) not with all... it does create the hash info in the fullname hash table but it echos some and other no.

however I came up with this code:

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

on *:JOIN:#:{
  if (*.mibbit.com iswm $ial($nick).host) {
    who $nick
  }
}
raw 352:*:{ 
echo -at 3 * J: $6 - FN: $9- }  
}

and, another problem is that I already do the who command with another script...

who +I $9
and
who +I $8

so for my above code to work, I need to exempt from the other script the 4 ip-s of mibbit

78.129.202.38
207.192.75.252
109.169.29.95
64.62.228.82

the code on the other script is like this:

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

;Connect
on *:snotice:*Client connecting on port*:{
  who +I $9 
}
;Hub connect
on *:snotice:*Client connecting at*:{
  who +I $8
}

I tried to do this:

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

on *:snotice:*Client*connecting on*:{
  var %ip $remove($gettok($10,2,64),$chr(41))
  if $regex(%ip,/^(78.129.202.38|207.192.75.252|109.169.29.95|64.62.228.82)/i) { halt } { 
    who +I $9 
  }
}
on *:snotice:*Client*connecting at*:{
  var %ip $remove($gettok($10,2,64),$chr(41))
  if $regex(%ip,/^(78.129.202.38|207.192.75.252|109.169.29.95|64.62.228.82)/i) { halt } { 
    who +I $8 
  }
}

but the exempt doesnt work, it does the who command to all users connecting.

I hope you'll understand what im trying to do. Thankyou again.

XcLusive · 17 Ocak 2016, 16:44

maybe hash table dont work correctly
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

i think problem is UTF-8 character set problem. (not sure)
here new code:

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

#cort on
on !*:join:#:{
  set % [ $+ [ $+(FN,$chr(46),$nick,$chr(46),$chan) ] ] 1
  who +g $nick
}
on !*:part:#:{ unset % [ $+ [ $+(FN,$chr(46),$nick,$chr(46),$chan) ] ] }
raw 352:*:{ fnshow $6 $9- | haltdef }
raw 315:*:haltdef
on *:exit:{ unset %FN* }
on ^*:snotice:*Client*exiting*: { unset % [ $+ [ $+(FN,$chr(46),$6,*) ] ] }
#cort end
alias -l fnshow {
  var %x = 1,%y = $comchan($1,0)
  while (%x <= %y) {
    if (% [ $+ [ $+(FN,$chr(46),$1,$chr(46),$comchan($1,%x)) ] ] == 1) { echo $color(info) -t $comchan($1,%x) * Login: $1 - FN: $2- | set % [ $+ [ $+(FN,$chr(46),$1,$chr(46),$comchan($1,%x)) ] ] 2 }
    inc %x
  }
  unset % [ $+ [ $+(FN,$chr(46),$1,$chr(46),*) ] ]
}

replace regex code :

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

on *:snotice:*Client*connecting on*:{
  var %ip $remove($gettok($10,2,64),$chr(41))
  if $regex(%ip,/(78.129.202.38|207.192.75.252|109.169.29.95|64.62.228.82)) { halt }
  who +I $9 
}
on *:snotice:*Client*connecting at*:{
  var %ip $remove($gettok($10,2,64),$chr(41))
  if $regex(%ip,/(78.129.202.38|207.192.75.252|109.169.29.95|64.62.228.82)) { halt }
  who +I $8 
}

i dont know who +I command result
you can show me, use who command "/who +I nickname" copy here result.
but first put this code in remote
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!

raw *:*:echo -s $numeric : $1-

elhale · 18 Ocak 2016, 02:48

XcLusive Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

maybe hash table dont work correctly
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

i think problem is UTF-8 character set problem. (not sure)
here new code:

No. now it doesn't work at all lol. No hashtable created, nothing...

Alıntı:

you can show me, use who command "/who +I nickname" copy here result.
but first put this code in remote
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!

raw *:*:echo -s $numeric : $1-

352 : elhale * c2e69fe6 207.192.75.252 Ballkani.Albnetwork.net Nertil_Swiss H 1 194.230.159.230
-
* Nertil_Swiss H c2e69fe6@207.192.75.252 :1 194.230.159.230
315 : elhale Nertil_Swiss End of /WHO list.
Nertil_Swiss End of /WHO list.

XcLusive · 18 Ocak 2016, 21:05

dont look hash tables i make it without hash
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

also i tested code is working?
post here all raw 352 need to parse it.

elhale · 19 Ocak 2016, 03:21

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] thx for answering, but maybe im not explaining myself well enough. :P

XcLusive Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

also i tested code is working?

No, the new code without hashtable is not working for me.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Alıntı:

post here all raw 352 need to parse it.

this is the result of a user connecting using 1 of mibbit ip-s... when they connect with mibbit the real ip is in place of real name

352 : elhale * c2e69fe6 207.192.75.252 Ballkani.Albnetwork.net Nertil_Swiss H 1 194.230.159.230

elhale (my nick)

207.192.75.252 (mibbit ip, * Dns resolving 207.192.75.252 * Dns resolved 207.192.75.252 to ircip1.mibbit.com)

c2e69fe6 (ident of user)

Ballkani.Albnetwork.net (server)

Nertil_Swiss (nick of user)

H 1 (1 hops, because it is a hub)

194.230.159.230 (realname of user, which it is the real ip aswell)

so, if I want to ban this user I use this command

/os sgline add +2d 194.230.159.230 :reason

I have created an alias like this:

F8 /os sgline add +15d $cb :Proxy/Floode

so, I select the "realname" and push f8.

That's why I wanna see the realname of users connecting with mibbit when they join the channel so I can see who is using proxy and select the ip (realname) fast.

KuL · 19 Ocak 2016, 05:15

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

I am sorry for the unusual time response.

If your code is working you can use the hotlink event to allow youre mouse to click on the fullname and execute automaticly a command (ex: sqline).

For your other problem, like this
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

elhale 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!

on *:snotice:*Client*connecting on*:{
  var %ip $remove($gettok($10,2,64),$chr(41))
  if $regex(%ip,/^(78.129.202.38|207.192.75.252|109.169.29.95|64.62.228.82)/i) { halt } { 
    who +I $9 
  }
}
on *:snotice:*Client*connecting at*:{
  var %ip $remove($gettok($10,2,64),$chr(41))
  if $regex(%ip,/^(78.129.202.38|207.192.75.252|109.169.29.95|64.62.228.82)/i) { halt } { 
    who +I $8 
  }
}

but the exempt doesnt work, it does the who command to all users connecting.

I hope you'll understand what im trying to do. Thankyou again.

I dont know if I am right or not, but why are you opening a bracket after IF again?

Example:

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

 if $regex(%ip,/^(78.129.202.38|207.192.75.252|109.169.29.95|64.62.228.82)/i) { halt }

The red one is the opening bracket for this IF and the blue one is the close bracket. Now the if command should finished with the last blue bracket ( } ). But you open a bracket again, for what?

Try this, I think it should help you
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!

on *:snotice:*Client*connecting on*:{
  var %ip $remove($gettok($10,2,64),$chr(41))
  if $regex(%ip,/^(78.129.202.38|207.192.75.252|109.169.29.95|64.62.228.82)/i) { halt }
  who +I $9 
}
on *:snotice:*Client*connecting at*:{
  var %ip $remove($gettok($10,2,64),$chr(41))
  if $regex(%ip,/^(78.129.202.38|207.192.75.252|109.169.29.95|64.62.228.82)/i) { halt }
  who +I $8 
}

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Euroleague Final Four \| Real Madrid 96-87 Fenerbahçe Ülker \| Real Madrid Final'de!	Kalemzede	Fenerbahçe	0	16 Mayıs 2015 00:12
Real Madrid 4-1 Real Sociedad	Seth	Haber Arşivi	0	31 Ocak 2015 21:00

Konuyu Toplam 2 Üye okuyor. (0 Kayıtlı üye ve 2 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

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.