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

elhale · 13 Ocak 2016, 15:53

hepinize merhaba

This is my first topic here on IF and yeah... I need help.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

I stumbled on this old code but it doesn't work for me...

What I wan't to do is to be able to click on the realName and use an alias to execute a command...

So, when user joins #channel, i want the code to exempt some users, and scan (who) others... if it matches i want to show me the "Real Name" near his nick. Be able to click it to select and execute a command... for example ban (real name).

I hope you guys will help... the code is this, but it doesn't work for me.

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

on *:input:*:real $1- on ^*:text:*:*:real $1- on ^*:action:*:*:real $1- on ^*:notice:*:*:real $1- on *:join:#:who $iif($nick = $me,#,$v1) on !^*:part:#:{ set $+(%,real,$nick) $nick echo $color(part) # * Parts: $nick $ial($nick).mark @ $+ $site haltdef } on !^*:quit:{ var %- 1 | while $comchan($nick,%-) { echo $color(quit) $v1 * Quits: $nick $ial($nick).mark @ $+ $site haltdef inc %- } } raw 352:*:.ialmark $6 ( $+ $9- $+ ) | halt raw 315:*:{ if $($+(%,real,$2),2) { var %c 1 | while $comchan($me,%c) { echo $color(join) -a * $2 $ial($2).mark has joined $v1 unset $+(%,real,$2) | halt | inc %c } } } on *:ping:var %ial 1 | while $comchan($me,%ial) { who $v1 | inc %ial } alias -l pnickschan { return $iif($event = text,$+(<,$iif($left($nick(#,$nick).pnick,1) isin $prefix,$v1),$nick),$& $iif($event = action,$+(*,$chr(32),$iif($left($nick(#,$nick).pnick,1) isin $prefix,$v1),$nick),$& $iif($event = notice,$+(-,$iif($left($nick(#,$nick).pnick,1) isin $prefix,$v1),$nick,-)))) } alias -l pnickspm { return $iif($event = text,$+(<,$nick),$iif($event = action,$+(*,$chr(32),$nick),$iif($event = notice,$+(-,$nick,-)))) } alias -l real { if (!$inpaste) && ((!$istok(/ $readini($mircini,text,commandchar),$left($1,1),32)) || ($ctrlenter)) { var %realnick $ial(*,0) | while %realnick { if $regex($iif($event = input,$1-,$nick),/(^|\s)\Q $+ $replacecs($ial(*,%realnick).nick,\E,\E\\E\Q) $+ \E(\s|$)/iS) { $iif($event = input,say,echo -bcfilmrt $iif($event = text,normal,$event) $iif(#,#,$iif($query($nick),$& $nick,$iif($active ischan,$v1,$target)))) $replace($iif($event = input,$strip($1-),$& $iif(#,$pnickschan($nick),$pnickspm($nick))),$ial(*,%realnick).nick,$& $iif($event = text,$ial(*,%realnick).nick $+ >,$ial(*,%realnick).nick) $ial(*,%realnick).mark) $& $iif($istok(text action notice,$event,32),$1-) | haltdef } dec %realnick } } } #real end menu nicklist,channel { Turn Real-Name-Revealer $iif($group(#real) = on,OFF,ON) { if ($group(#real) != on) .enable #real | else disable #real else ($group(# if $group(#real) = on { who # } | else { ialclear | who # } echo 4 -ag * Real Name Revealer has been turned $upper($group(#real).status) } }

teşekkür ederim

eyup20 · 13 Ocak 2016, 17:28

on *:text:*:#:{
if ($1 == !add) {
if !$2 { msg # Please chose fullname | return }
if $read(fullname.txt,w,$strip($2-)) { msg # already add. | return }
.write fullname.txt $strip($2-)
msg # [ $strip($2-) ] Added Fullname.
}
if ($1 == !del) {
if !$2 { msg # Please chose deleting fullname. | return }
if $read(fullname.txt,w,$strip($2-)) { .write $+(-dl,$readn) fullname.txt | msg # [ $strip($2-) ] Fullname deleted. | return }
else { msg # Belirttiginiz fullname listem'de bulunmamaktadır. | return }
}
if ($1 == !listfullname) {
if $lines(fullname.txt) == 0 { msg # Fullname list is empty. | return }
var %t = 1 | while %t <= $lines(fullname.txt) {
msg # 4 $+(%t,.) $read(fullname.txt,%t)
inc %t
}
}
}
raw 352:*:{ var %:comchan = 1 | while %:comchan <= $comchan($6,0) { if $me isop $comchan($6,%:comchan) || $me ishop $comchan($6,%:comchan { ban -k $comchan($6,%:comchan) $6 - Forbidden fullname. } | inc %:comchan } }

hi @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
pls create fullname.txt on mirc directory or just !add one.
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] created this remote code. Thanks to @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] .

elhale · 13 Ocak 2016, 17:59

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

on *:text:*:#:{
if ($1 == !add) {
if !$2 { msg # Please chose fullname | return }
if $read(fullname.txt,w,$strip($2-)) { msg # already add. | return }
.write fullname.txt $strip($2-)
msg # [ $strip($2-) ] Added Fullname.
}
if ($1 == !del) {
if !$2 { msg # Please chose deleting fullname. | return }
if $read(fullname.txt,w,$strip($2-)) { .write $+(-dl,$readn) fullname.txt | msg # [ $strip($2-) ] Fullname deleted. | return }
else { msg # Belirttiginiz fullname listem'de bulunmamaktadır. | return }
}
if ($1 == !listfullname) {
if $lines(fullname.txt) == 0 { msg # Fullname list is empty. | return }
var %t = 1 | while %t <= $lines(fullname.txt) {
msg # 4 $+(%t,.) $read(fullname.txt,%t)
inc %t
}
}
}
raw 352:*:{ var %:comchan = 1 | while %:comchan <= $comchan($6,0) { if $me isop $comchan($6,%:comchan) || $me ishop $comchan($6,%:comchan { ban -k $comchan($6,%:comchan) $6 - Forbidden fullname. } | inc %:comchan } }

hi @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
pls create fullname.txt on mirc directory or just !add one.
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] created this remote code. Thanks to @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] .

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

However I want to add them automatically not manually... on, on *:join:*:#:, or for hub

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

grab the fullname and show it near the nick, click on it, and execute command
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

for example...

[04:47:52pm] * Robin H d572b9a7@109.169.29.95 :0 c-98b872d5.304696492-0-646f63736973.cust.bredbands
[04:47:52pm] Robin End of /WHO list.

[04:49:24pm] * Mobile_09 H 5f9b1081@109.169.29.95 :2 95.155.16.129
[04:49:24pm] Mobile_09 End of /WHO list.

so, if users connect from @109.169.29.95

i want to show like this, when they join channel

[04:49:00pm] ******************* J | Robin (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
) joined #channel from (server)
[04:49:00pm] ******************** | Robin (c-98b872d5.304696492-0-646f63736973.cust.bredbands) entered the stream.
[04:49:26pm] ******************* J | Mobile_09 (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
) joined #channel from (server)
[04:49:26pm] ******************** | Mobile_09 (95.155.16.129) entered the stream.

KuL · 13 Ocak 2016, 20:05

I think this should help you.

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

#IPGoster off
on *:snotice:*: {
  if (Client connecting isin $1-) {
    if (!$hget(Giris)) { hmake giris 100 }
    hadd Giris $9 $10
  }
  if (Client exiting isin $1-) {
    if !$hget(Giris,$6) { hadd Giris $6 $7 }
  }
}
on ^*!:Join:#: {
  haltdef
  if ($hget(Giris,$nick)) { echo $chan $+($chr(3),$color(join)) $timestamp *** Giriş: $nick $hget(Giris,$nick) }
  elseif (!$hget(Giris,$nick)) { set -u3 %gnick $nick | set -u3 %gchan $chan | giris | .timer 1 1 .userip $nick }
}
on ^*:quit: {
  haltdef
  var %i = 1, %t = $comchan($nick,0)
  while (%i <= %t) {
    echo $comchan($nick,%i) $+($chr(3),$color(quit)) $timestamp *** IRC’den Çıktı: $nick $hget(Giris,$nick)
    inc %i
  }
  hdel Giris $nick
}
raw 340:*: {
  haltdef
  hadd Giris $gettok($2,1,61) $+($chr(40),$gettok($2,2,43),$chr(41))
}
on ^*!:Part:#: {
  haltdef
  if ($hget(Giris,$nick)) { echo $chan $+($chr(3),$color(part)) $timestamp *** Ayrıldı: $nick $hget(Giris,$nick) }
  elseif (!$hget(Giris,$nick)) { set -u5 %pnick $nick | set -u %pchan $chan | cikis | .timer 1 1 .userip $nick }
}
alias giris { echo %gchan %gnick $hget(Giris,%gnick) }
alias cikis { echo %pchan %pnick $hget(Giris,%pnick) }
#IPGoster End
on *:Exit: { .disable #IPGoster }
raw 381:*: { .enable #IPGoster }

If I remember correctly, cesuryurek wrote this snippet code.

After you wrote your oper/admin pass and get the rights of an administrator to see the ip address you must write /enable #IPGoster to actvate the code.

And than you should see the normal join, but instead of the fake ip you should see the right ip of the user.

XcLusive · 13 Ocak 2016, 22:34

real name kısmında olan ip adresi kullanıcının gerçek adresi sanırım.
109.169.29.95 adresinden bağlananların, gerçek ip adresini kanala giren kullanıcılarda görmek istiyor
nick@ip şeklinde ve mouse ile üzerine geldiğinde komut çalıştırmak istediğini belirtmiş.

Mobile_09 adlı kullanıcının kanala giriş şekli:
[04:49:26pm] ******************* J | Mobile_09 (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
) joined #channel from (server)

who çekince aldığı cevap:
[04:49:24pm] * Mobile_09 H 5f9b1081@109.169.29.95 :2 95.155.16.129
[04:49:24pm] Mobile_09 End of /WHO list.

görmek istediği şekil:
[04:49:26pm] ******************** | Mobile_09 (95.155.16.129) entered the stream.

ve son olarak mouseyi üzerine getirince komut çalıştırmak.

zamanınız varsa güzel bir kod yazılabilir arkadaşa
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

KuL · 14 Ocak 2016, 01:27

Hasan Abinin (L4roXyL) bir Kodu vardi bunun icin, giris cikislari yansitma acisindan yani.

Kücük eklentilerlede ipe tiklanabilinilir duruma getirebilinilir. Ben Konuyu yanlis anlamissim.

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,64)
  if ($hget(%n,0).item >= 2) { var %2 = $v1,%1 = 1 | while (%1 <= %2) { echo $color(join) -t $hget(%n,%1).item ******************** |  %n $+($chr(40),%id,$chr(41)) entered the stream. | inc %1 } | hfree %n }
}

on ^1:HOTLINK:*.*.*:*:{ if ($active != #) { halt } | else { return } }
on *:HOTLINK:*.*.*:*:{ if ($active != #) { halt } | else { echo -a This is only a ECHO. Her is the IP -> $remove($gettok($hotline,6,32),$chr(40),$chr(41)) } }

Sonuc:

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

[00:22:50 14/01/2016] ******************** | kadir606 (88.246.245.26) entered the stream.
[00:22:53 14/01/2016] <@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]_> neyse az yokum
This is only a ECHO. Her is the IP -> 88.246.245.26

IP Adresine tiklayincada, Echo veriyor. Kullaniciya kalmis gerisi o IP le ne yapmak istedigi.

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] now I hope that this code will help you
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

You must only change the last event.

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

 echo -a This is only a ECHO. Her is the IP -> $remove($gettok($hotline,6,32),$chr(40),$chr(41)) } }

I wrote an echo to see if it works. And you can change it, to whatever you want.

elhale · 14 Ocak 2016, 02:34

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

Hasan Abinin (L4roXyL) bir Kodu vardi bunun icin, giris cikislari yansitma acisindan yani.

Kücük eklentilerlede ipe tiklanabilinilir duruma getirebilinilir. Ben Konuyu yanlis anlamissim.

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,64)
  if ($hget(%n,0).item >= 2) { var %2 = $v1,%1 = 1 | while (%1 <= %2) { echo $color(join) -t $hget(%n,%1).item ******************** |  %n $+($chr(40),%id,$chr(41)) entered the stream. | inc %1 } | hfree %n }
}

on ^1:HOTLINK:*.*.*:*:{ if ($active != #) { halt } | else { return } }
on *:HOTLINK:*.*.*:*:{ if ($active != #) { halt } | else { echo -a This is only a ECHO. Her is the IP -> $remove($gettok($hotline,6,32),$chr(40),$chr(41)) } }

Sonuc:

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

[00:22:50 14/01/2016] ******************** | kadir606 (88.246.245.26) entered the stream.
[00:22:53 14/01/2016] <@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]_> neyse az yokum
This is only a ECHO. Her is the IP -> 88.246.245.26

IP Adresine tiklayincada, Echo veriyor. Kullaniciya kalmis gerisi o IP le ne yapmak istedigi.

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] now I hope that this code will help you
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

You must only change the last event.

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

 echo -a This is only a ECHO. Her is the IP -> $remove($gettok($hotline,6,32),$chr(40),$chr(41)) } }

I wrote an echo to see if it works. And you can change it, to whatever you want.

Thankyou for taking the time to help @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] but it is not working for me...

I put it in remote and nothing happens...

KuL · 14 Ocak 2016, 02:44

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

Thankyou for taking the time to help @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] but it is not working for me...

I put it in remote and nothing happens...

After you put it on a new remote page, how does the logins look like?

Can you show me a part of the channel logins.

Normaly it should look like this:

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

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

elhale · 14 Ocak 2016, 08:44

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

After you put it on a new remote page, how does the logins look like?

Can you show me a part of the channel logins.

Normaly it should look like this:

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

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

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] When i put it on a new remote, the logins don't show at all, just quits and users talking in channel.

elhale · 14 Ocak 2016, 19:11

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

[FONT="Tahoma"][COLOR="Black"]
Can you show me a part of the channel logins.

I removed some addons, maybe they interfered and now I see the logins but no echo of the ip-s

Also I see that hash tables are created for every user that joins.

I also made screenshots...

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

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

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 1 Üye okuyor. (0 Kayıtlı üye ve 1 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.