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

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Çözüldü ip tarama (https://www.ircforumlari.net/mirc-scripting-sorunlari/319442-ip-tarama.html)

Elimde yabancı bir siteden bulduğum şöyle bir kod var. Bu kodla kanalda, ip numarasının bir kısmını girdiğimde aynı ip'ten başka giren varsa kanalda sıralıyor. Tabii kick, kickban özellikleri de var. Benim istediğim, acaba bunu kanalda değil de @Ip Tarama diye bir pencerede verdirebilir miyiz? Şimdiden teşekkürler.

alias ipscan {
.ial on | if (- !isin $2) || $3 == $null { halt }
if -k isin $2 && $me !isop $1 { halt }
if $chr(42) !isin $3 { set %ip $chr(42) $+ $3 $+ $chr(42) } | else { set %ip $3 }
if -k !isin $2 { echo -a ••• Reporting $1 ( %ip ) }
set %i 0 | set %tot 0
:loop | inc %i | if %i > $nick($1,0) { if -k isin $2 { halt }
if %tot == 0 { .echo -a ••• Reporting sorry , there`s no one with this adress/ip. | halt }
.echo -a ••• Reporting TOTAL ••• ( %tot match(es) found)° | halt
} | if %ip iswm $address($nick($1,%i),5) { inc %tot
if -k isin $2 && $me isop $1 {
if $address($me,3) == $address($nick($1,%i),3) { goto loop }
if $nick($1,%i) isop $1 { goto loop }
if $2 == -kb { mode $chan +b %ipchk }
kick $1 $nick($1,%i) %url FILTER KICK For:14 %ip $irc
goto loop
} | echo -a ••• Reporting Found ••• $address($nick($1,%i),5)
} | goto loop
}

menu channel {
® IP TARAMA
.Tara IP : set %ipchk *!*@ $+ $$input(Insert the IP ex: 213.447.215 / *aol.al,129,Scan Ip) $+ * | if (%ipchk != *!*@*) { .ipscan # - %ipchk }
.Kick : set %ipchk *!*@ $+ $$input(Insert the IP ex: 213.447.215 / *aol.al,129,Filter Kick) $+ * | if (%ipchk != *!*@*) { .ipscan # -k %ipchk }
.KickBan : set %ipchk *!*@ $+ $$input(Insert the IP ex: 213.447.215 / *aol.al,129,Filter Kick/Ban) $+ * | if (%ipchk != *!*@*) { .ipscan # -kb %ipchk }
.-
.about:echo -a Ip scan version 1.0 coded by X-FILE .
}
;End , X-FILE 2003

on *:load:{
if ($version > 6.0) { echo -a Ip scan v1.0 by X-FILE was successfully loaded. To access check menu channel. }
else { echo -a Sorry. This addon requires mIRC 6.0+. Please download the latest version from [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] | .unload -rs " $+ $script $+ " }
}

Cevap: ip tarama

Kod:

alias ipscan {

  if !$window(@ip) { window -ne @IP }

  .ial on | if (- !isin $2) || $3 == $null { halt } 

  if -k isin $2 && $me !isop $1 { halt }

  if $chr(42) !isin $3 { set %ip $chr(42) $+ $3 $+ $chr(42) } | else { set %ip $3 }

  if -k !isin $2 { echo @IP ••• Reporting $1 ( %ip ) }

  set %i 0 | set %tot 0 

  :loop | inc %i | if %i > $nick($1,0) { if -k isin $2 { halt }

    if %tot == 0 { .echo @IP ••• Reporting sorry , there`s no one with this adress/ip. | halt }

    .echo @IP ••• Reporting TOTAL ••• ( %tot match(es) found)° | halt

    } | if %ip iswm $address($nick($1,%i),5) { inc %tot

    if -k isin $2 && $me isop $1 {

      if $address($me,3) == $address($nick($1,%i),3) { goto loop }

      if $nick($1,%i) isop $1 { goto loop }

      if $2 == -kb { mode $chan +b %ipchk }

      kick $1 $nick($1,%i) %url FILTER KICK For:14 %ip $irc 

      goto loop

    } | echo @IP ••• Reporting Found ••• $address($nick($1,%i),5)

  } | goto loop

}

Re: Cevap: ip tarama

Alıntı:

XcLusive Nickli Üyeden Alıntı (Mesaj 1040337965)

Kod:

alias ipscan {

  if !$window(@ip) { window -ne @IP }

  .ial on | if (- !isin $2) || $3 == $null { halt } 

  if -k isin $2 && $me !isop $1 { halt }

  if $chr(42) !isin $3 { set %ip $chr(42) $+ $3 $+ $chr(42) } | else { set %ip $3 }

  if -k !isin $2 { echo @IP ••• Reporting $1 ( %ip ) }

  set %i 0 | set %tot 0 

  :loop | inc %i | if %i > $nick($1,0) { if -k isin $2 { halt }

    if %tot == 0 { .echo @IP ••• Reporting sorry , there`s no one with this adress/ip. | halt }

    .echo @IP ••• Reporting TOTAL ••• ( %tot match(es) found)° | halt

    } | if %ip iswm $address($nick($1,%i),5) { inc %tot

    if -k isin $2 && $me isop $1 {

      if $address($me,3) == $address($nick($1,%i),3) { goto loop }

      if $nick($1,%i) isop $1 { goto loop }

      if $2 == -kb { mode $chan +b %ipchk }

      kick $1 $nick($1,%i) %url FILTER KICK For:14 %ip $irc 

      goto loop

    } | echo @IP ••• Reporting Found ••• $address($nick($1,%i),5)

  } | goto loop

}

Kullanımı nasıl acaba calıstıramadım bir türlü.. yada elinde !ip 135.653.974 dedigimde en son kullandıgı niklerini gösteren bir remote varmı ..

Cevap: ip tarama

Alıntı:

XcLusive Nickli Üyeden Alıntı (Mesaj 1040337965)

Kod:

alias ipscan {

  if !$window(@ip) { window -ne @IP }

  .ial on | if (- !isin $2) || $3 == $null { halt } 

  if -k isin $2 && $me !isop $1 { halt }

  if $chr(42) !isin $3 { set %ip $chr(42) $+ $3 $+ $chr(42) } | else { set %ip $3 }

  if -k !isin $2 { echo @IP ••• Reporting $1 ( %ip ) }

  set %i 0 | set %tot 0 

  :loop | inc %i | if %i > $nick($1,0) { if -k isin $2 { halt }

    if %tot == 0 { .echo @IP ••• Reporting sorry , there`s no one with this adress/ip. | halt }

    .echo @IP ••• Reporting TOTAL ••• ( %tot match(es) found)° | halt

    } | if %ip iswm $address($nick($1,%i),5) { inc %tot

    if -k isin $2 && $me isop $1 {

      if $address($me,3) == $address($nick($1,%i),3) { goto loop }

      if $nick($1,%i) isop $1 { goto loop }

      if $2 == -kb { mode $chan +b %ipchk }

      kick $1 $nick($1,%i) %url FILTER KICK For:14 %ip $irc 

      goto loop

    } | echo @IP ••• Reporting Found ••• $address($nick($1,%i),5)

  } | goto loop

}

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] konuyu hortlatıcam ama çalışma mantığından bahsedebilir misin? Ekledim ama çalıştırmadım.

Cevap: ip tarama

Alıntı:

ByaSiL Nickli Üyeden Alıntı (Mesaj 1042990401)

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] konuyu hortlatıcam ama çalışma mantığından bahsedebilir misin? Ekledim ama çalıştırmadım.

IF'te konu hortlatma olmaz IF Türkiye'nin IRC/mIRC kaynak deposudur :kips:

Kod:

menu channel { 

  ® IP TARAMA 

  .Tara IP : set %ipchk *!*@ $+ $$input(Insert the IP ex: 213.447.215 /  *aol.al,129,Scan Ip) $+ * | if (%ipchk != *!*@*) { .ipscan # - %ipchk } 

  .Kick : set %ipchk *!*@ $+ $$input(Insert the IP ex: 213.447.215 /  *aol.al,129,Filter Kick) $+ * | if (%ipchk != *!*@*) { .ipscan # -k  %ipchk } 

  .KickBan : set %ipchk *!*@ $+ $$input(Insert the IP ex: 213.447.215 /  *aol.al,129,Filter Kick/Ban) $+ * | if (%ipchk != *!*@*) { .ipscan # -kb  %ipchk }

  .-

  .about:echo -a Ip scan version 1.0 coded by X-FILE . 

}

kanal menü kısmınıda ekledin mi?

Cevap: ip tarama

Alıntı:

XcLusive Nickli Üyeden Alıntı (Mesaj 1042990408)

IF'te konu hortlatma olmaz IF Türkiye'nin IRC/mIRC kaynak deposudur :kips:

Kod:

menu channel { 

  ® IP TARAMA 

  .Tara IP : set %ipchk *!*@ $+ $$input(Insert the IP ex: 213.447.215 /  *aol.al,129,Scan Ip) $+ * | if (%ipchk != *!*@*) { .ipscan # - %ipchk } 

  .Kick : set %ipchk *!*@ $+ $$input(Insert the IP ex: 213.447.215 /  *aol.al,129,Filter Kick) $+ * | if (%ipchk != *!*@*) { .ipscan # -k  %ipchk } 

  .KickBan : set %ipchk *!*@ $+ $$input(Insert the IP ex: 213.447.215 /  *aol.al,129,Filter Kick/Ban) $+ * | if (%ipchk != *!*@*) { .ipscan # -kb  %ipchk }

  .-

  .about:echo -a Ip scan version 1.0 coded by X-FILE . 

}

kanal menü kısmınıda ekledin mi?

Çok hızlı bir dönüştü sağolasın :D

® Unknown command
-
TARA Unknown command
-
IPSCAN Unknown command
-
IPSCAN Unknown command
-
KICKBAN Unknown command
-
IPSCAN Unknown command
-
- Unknown command
-
ABOUT:ECHO Unknown command
-

Menü bar ekledikten sonra calıstırdığımda ip giriyorum ama eksik parametre girdiniz uyarısı veriyor.
Statuste ise üstteki iletiler çıkıyor

Cevap: ip tarama

Toparladım.

Kod:

alias ipscan {

  if !$window(@ip) { window -ne @IP }

  .ial on 

  if (- !isin $2) || $3 == $null { halt } 

  if -k isin $2 && $me !isop $1 { halt }

  if $chr(42) !isin $3 { set %ip $chr(42) $+ $3 $+ $chr(42) } 

  else { set %ip $3 }

  if -k !isin $2 { echo @IP ••• Raporlanıyor $1 ( %ip ) }

  set %i 0 | set %tot 0 

  :loop 

  inc %i 

  if %i > $nick($1,0) {

    if -k isin $2 { halt }

    if %tot == 0 { .echo 4 @IP ••• IP Adresi ile eşleşen kişi yok. | halt }

    .echo 4 @IP ••• Rapor: ( %tot kişi bulundu )° | halt

  } 

  if %ip iswm $address($nick($1,%i),5) {

    inc %tot

    if -k isin $2 && $me isop $1 {

      if $address($me,3) == $address($nick($1,%i),3) { goto loop }

      if $nick($1,%i) isop $1 { goto loop }

      if $2 == -kb { mode $chan +b %ipchk }

      kick $1 $nick($1,%i) %url FILTER KICK For:14 %ip $irc 

      goto loop

    }

    echo 4 @IP ••• Bulundu ••• $address($nick($1,%i),5)

  }

  goto loop

}

menu channel { 

  ® IP TARAMA 

  .Tara IP : set %ipchk *!*@ $+ $$input(IP Adresi, Örnek: 213.447.215 /  *ircforumlari.net,IP Tarama,IP Girin) $+ * | if (%ipchk != *!*@*) { .ipscan # - %ipchk } 

  .Kick : set %ipchk *!*@ $+ $$input(IP Adresi, Örnek: 213.447.215 /  *ircforumlari.net,IP Tarama,Filter Kick) $+ * | if (%ipchk != *!*@*) { .ipscan # -k  %ipchk } 

  .KickBan : set %ipchk *!*@ $+ $$input(IP Adresi, Örnek: 213.447.215 /  *ircforumlari.net,IP Tarama,Filter Kick/Ban) $+ * | if (%ipchk != *!*@*) { .ipscan # -kb  %ipchk }

}

direk remotenin içine at kanalda menüsü çıkacaktır.