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

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

- - /nerden ip farklı bi soru ? (https://www.ircforumlari.net/mirc-scripting-sorunlari/532435-nerden-ip-farkli-bi-soru.html)

/nerden ip farklı bi soru ?

S.a arkadaşlar
Şöyle bişeyi nasıl yapabiliriz..

!nerden ip yaptıgım zaman bi ipin bilgileri cıkıyor.. ükle şehir v.s

örnegin

[01:46] <xx> Host: e178088121.adsl.alicedsl.de
[01:46] <xx> Ulke: Germany
[01:46] <xx> Ulke Kodu: DEU
[01:46] <xx> Kita: Europe
[01:46] <xx> Bolge: Berlin
[01:46] <xx> Sehir: Berlin
[01:46] <xx> Organizasyon: Telefonica Germany
[01:46] <xx> Servis Saglayici: Alice DSL

Şimdi yapmak istedigim şu aşagıdaki code ye açma kapama ekleyip
!takipet ip yazdıgım zaman koruma acılcak ve

Sehir:Berlin yazan bütün ipleri gzline ile uzaklaştırıcak. yani berlin yazıyosa şehrinde. böyle bişeyi nasıl yapabiliriz.

Kod:

alias nerden { 

  if $sock(yerbul) {

    sockclose yerbul

  }

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

}
 

on *:input:#: {

  if $regex($regsubex($1-,/[[:cntrl:]]/g,return halt),/^((!|.)nerden\40\S+)$/i) {

    if $regex($2,^\d) { 

      .set -e %nrd $2 | set -e %c_n $chan

      .nerden 

    }

    else { 

      .userip $2

      .enable #nrdn

      set -e %c_n $chan

    }

  }

}

on *:sockopen:yerbul:{  

  sockwrite -n $sockname GET /ip-address-locator.php?lookup= $+ %nrd HTTP/1.1

  sockwrite -n $sockname host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -n $sockname $crlf  

}
 

on *:sockread:yerbul: {  

  if ($sockerr) { /msg %c_n Bağlantı Hatası Oluştu! | halt } 

  var %yerbul

  sockread %yerbul

  if $regex(hst,%yerbul,/(</\142><\142\162\40/><\151>\110\S{7}\72</\151>\40<\142>(.+)</\142><\142\162\40/>)$/i) { /msg %c_n 2Host:4 $regml(hst,2) }

  if $regex(cnt,%yerbul,/^(<\151>\111\120\40\S{7}\72</\151>\40<\142>(\S+)</\142>)$/i) { /msg %c_n 2Ulke:4 $regml(cnt,2)  }

  if $regex(cod,%yerbul,/^(<\151>\111\120\40\S{7}\40\S{4}\72</\151>\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { /msg %c_n 2Ulke Kodu:4 $regml(cod,2) }

  if $regex(kta,%yerbul,/^(<\151>\111\120\40\103\S{8}\72</\151>\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { /msg %c_n 2Kita:4 $regml(kta,2) }

  if $regex(rgn,%yerbul,/^(<\151>\111\120\40\122\S{5}\72</\151>\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { /msg %c_n 2Bolge:4 $regml(rgn,2) }

  if $regex(cty,%yerbul,/^(<\151>\111\120\40\103\S{3}\72\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { /msg %c_n 2Sehir:4 $regml(cty,2) }

  if $regex(org,%yerbul,/^(<\151>\117\S{11}\72</\151>\40<\142>(.+)</\142><\142\162\40\/>)$/i) { /msg %c_n 2Organizasyon:4 $regml(org,2) }

  if $regex(iss,%yerbul,/^(<\151>\111\123\120\40\S{8}\72</\151>\40<\142>(.+)</\142><\142\162\40\/><\142\162\40\/>)$/i) { /msg %c_n 2Servis Saglayici:4 $regml(iss,2) }

}
 

#nrdn off

raw 340:*: {

  if (!$2) { /msg %c_n Sorgulanan Nick Sunucuda bulunmuyor. | goto down }

  set -e %nrd $regsubex($2,/.+\100(\d+\56\d+\56\d+\56\d+)$/g,\1) 

  .nerden

  :down  

  .disable #nrdn

  .halt

}

#nrdn end

Cevap: /nerden ip farklı bi soru ?

Kod:

alias nerden { 

  var %rand $rand(0,999999)

  sockopen $+(yerbul,%rand) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80  

  sockmark $+(yerbul,%rand) $1

}
 

on *:sockopen:yerbul*:{  

  sockwrite -n $sockname GET /ip-address-locator.php?lookup= $+ $sock($sockname).mark HTTP/1.1

  sockwrite -n $sockname host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -n $sockname $crlf  

}
 

on *:sockread:yerbul*: {  

  var %yerbul

  sockread %yerbul

  if $regex(%yerbul,/IP.City\:/i) {

    var %sehir $token($token(%yerbul,3,62),1,60)

    if $istok(Berlin Berlin2 Berlin3 Sehir4 Sanliurfa,%sehir,32) { echo -a IP: $sock($sockname).mark Yakalanan Sehir: %sehir | return }

  }

}

/nerden 95.15.60.58

ne demek istedigini anlamadım ama bu isini görür bence. demo olarak veriyorum gerisi sana kalmıs.

Cevap: /nerden ip farklı bi soru ?

Alıntı:

Set Nickli Üyeden Alıntı (Mesaj 1041304803)

Kod:

alias nerden { 

  var %rand $rand(0,999999)

  sockopen $+(yerbul,%rand) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80  

  sockmark $+(yerbul,%rand) $1

}
 

on *:sockopen:yerbul*:{  

  sockwrite -n $sockname GET /ip-address-locator.php?lookup= $+ $sock($sockname).mark HTTP/1.1

  sockwrite -n $sockname host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -n $sockname $crlf  

}
 

on *:sockread:yerbul*: {  

  var %yerbul

  sockread %yerbul

  if $regex(%yerbul,/IP.City\:/i) {

    var %sehir $token($token(%yerbul,3,62),1,60)

    if $istok(Berlin Berlin2 Berlin3 Sehir4 Sanliurfa,%sehir,32) { echo -a IP: $sock($sockname).mark Yakalanan Sehir: %sehir | return }

  }

}

/nerden 95.15.60.58

ne demek istedigini anlamadım ama bu isini görür bence. demo olarak veriyorum gerisi sana kalmıs.

Teşekkür ederim Set. yapmak istedigimi farklı bi şekilde yaptım
yapmak istedigim şuydu.
mesela bu modem resetleyip saldırı yapan lamerler var.
bu lamerleri önlemek için şöyle bişey düşünmüştüm.
bu yukardaki !nerden nick komutunda yazılan nickin şehrini gösteriyor.
bende burdan yola cıkarak mesela adam adana şehrinden baglanıyorsa 1 saatligine adana şehrinden girenleri banlamak... gbi bi düşünceydi.

Kod:

alias htmlfree {  

  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)

  return %x  

}

alias nerden { sockopen yerbul 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80  }  

on *:sockopen:yerbul:{  

  sockwrite -n $sockname GET /ip-address-locator.php?lookup= $+ %nrd HTTP/1.1

  sockwrite -n $sockname host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -n $sockname $crlf  

}  

on *:sockread:yerbul: {  

  var %yerbul

  sockread %yerbul

  if (<i>*</i> <b>* iswm %yerbul) || (<i>*<b>*</b><br />* iswm %yerbul) { msg %aktif 4 $+ $replacecs($gettok($htmlfree(%yerbul),1,58),IP Country,Ulke,IP Country Code,Ulke Kodu,IP Continent,Kita,IP Region,B?lge,IP City,Sehir,IP Latitude,Enlem,IP Longitude,Boylam,Organization,Sirket,ISP Provider,Servis Saglayici) $+ : $+ 2 $+ $gettok($htmlfree(%yerbul),2,58) }

}

on *:input:*: {

  if ($1 == !nerden) || ($1 == .nerden) && ($2) {

    if ($left($2,1) isnum) { 

      .set -e %nrd $2 | set -e %aktif $active

      .nerden $2

      .timer 1 2 .sockclose nerden  

    }

    else { 

      .userip $2

      .enable #nerdenbul

      set -e %aktif $active

      .nerden $2

      .timer 1 2 .sockclose nerden
 

    }

  }

}

#nerdenbul off

raw 340:*: {

  set %nrd $gettok($2,2,64)

  .disable #nerdenbul

}

#nerdenbul end
 

#takiple on

alias takiple { 

  if ($1) { 

    inc %xx

    sockopen $+(tkpet*,%xx) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80

    sockmark $+(tkpet*,%xx) $1 

  }

}

on *:sockopen:tkpet*:{

  var %s sockwrite -n $sockname

  %s GET /ip-address-locator.php?lookup= $+ $sock($sockname).mark HTTP/1.1

  %s Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
on *:sockread:tkpet*:{

  var %x [ $+ [ $sockname ] ]

  sockread %x [ $+ [ $sockname ] ]

  if (* $+ %sehirle $+ * iswm %x [ $+ [ $sockname ] ]) {

    gzline $+(*@,$sock($sockname).mark) : 1Lütfen 4Sohbet 1Kurallarina Uyunuz.. $date $time 5 $me   

    sockclose $sockname   

  }

}

raw 352:*:{ takiple $4 } 

on *:snotice:*Client connecting*: { .who +I $9 }

#takiple end
 

alias takipet {

  enable #takiple

  set %sehirle $1-

  echo -a 0,4 $1- Sehri Takibe Alindi.. $1- Sehrinde Girenlere Gzline atilcak.. Kapatmak icin /takipkapa yaziniz.

}

alias takipkapa {

  disable #takiple

  set %sehirle takipetme

  echo -a 0,1 Takip Korumasi Kapandi.. Tekrar Kullanmak icin /takipet Sehir yaziniz.

}

Şu Şekilde yaptım. Belki işine yarayan arkadaşlar olur..
ilk önce Aktif Ekranda !nerden nick yazıyosunuz
Sonra
/takipet şehir

Kapatmak için;
/takipkapa
şeklinde kullanabilirsiniz..

Cevap: /nerden ip farklı bi soru ?

Normal'de güzel bir düşünce, ama modem bilgileri genelde net olarak göstermiyordur bazen ne kadar net göstersede sitenin saglamlıgı tartısılır sonucta, neyse genede eline saglık, Hayırlı IF'ler.

Kod:

on *:snotice:*connecting: {

  if (%takip) { who +I $9 }

}

raw 352:*: {

  takipkntrl $4

}

alias takipkntrl { 

  var %rand $rand(0,999999)

  sockopen $+(yerbul,%rand) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80  

  sockmark $+(yerbul,%rand) $1

}
 

on *:sockopen:yerbul*:{  

  sockwrite -n $sockname GET /ip-address-locator.php?lookup= $+ $sock($sockname).mark HTTP/1.1

  sockwrite -n $sockname host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -n $sockname $crlf  

}
 

on *:sockread:yerbul*: {  

  var %yerbul

  sockread %yerbul

  if $regex(%yerbul,/IP.City\:/i) {

    var %sehir $token($token(%yerbul,3,62),1,60)

    if $hget(takip,%sehir) { echo -a IP: $sock($sockname).mark Yakalanan Sehir: %sehir | return }

  }

}
 

alias takipzaman { return $duration($calc($ctime - $1)) }

alias takipekle {

  if $hget(takip,$1) { echo -a Zaten $qt($1) listede bulunmaktadir. | return }

  hadd $iif($2,$+(-mu,$2),-m) takip $1 $ctime

  echo -ea - $qt($1) sehri takip listesine $iif($2,$qt($duration($v1)) zamanı ile) eklenmistir.

  if (!%takip) { echo -a Takip komutu zaten deaktif durumda oldugundan islem yapmayacaktir. | return }

}

alias takipsil {

  if !$hget(takip,$1) { echo -ae Zaten $qt($1) listede bulunmamaktadir. | return }

  echo -ea $qt($1) sehri takip listesinden $qt($takipzaman($hget(takip,$1))) zamandir ekli olup listeden silinmistir.

  hdel -m takip $1

} 

alias takip {

  if ($1 == on) {

    if (%takip) { echo -a Takip komutu zaten aktif. | return }

    set %takip on

  }

  if ($1 == off) {

    if (!%takip) { echo -a Takip komutu zaten deaktif. | return }

    unset %takip

  }

}

Komutlar:
- /takipekle Sehir "Zaman"
-- Zaman suresini eklemek isteyenler zaman'da ekleyebilir "/takipekle Urfa 1000" gibi saniye cinsinden ekleyebilirler, istemeyenlerde sadece /takipekle Sehir yazabilirler-
- /takipsil sehir
- /takip on/off

Cevap: /nerden ip farklı bi soru ?

Guzel sistem buna o şehirden saldiri yapan ipleri yazarak girşini ip glizne yapamayizmi @78.190.*
@85.104.*
@78.168*

birde nick muaf veye ip muaf ident muaf yapa bilrmiyiz bu konuda yardimci olrsaniz sevinirim ustalar tşkler
diyelim zonguldak tum zonguldakı yasaklamaktansa bu ip girşine izin vermese

Cevap: /nerden ip farklı bi soru ?

Öyle sistem olmaz Bir İP'nin Zonguldaktan bağlandığını görmek o İP adresinin %100 Zonguldaktan bağlandığı anlamına gelmez zaten çevre illerden gelebilir.

Bahsettiğin sistem OAScript'de var mIRC Tanıtımları bölümünden indirip kullanabilirsin.

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

Cevap: /nerden ip farklı bi soru ?

&SwaT-Bot> !nerden 78.190.3.57
&SwaT-Bot> Ulke: Turkey
&SwaT-Bot> Ulke Code: TUR
&SwaT-Bot> Kita: Asia
&SwaT-Bot> B?lge: Zonguldak
&SwaT-Bot> Sehir: Zonguldak
&SwaT-Bot> Enlem: 41.4514
&SwaT-Bot> Boylam: 31.7931
&SwaT-Bot> Sirket: Turk Telekom
&SwaT-Bot> Servis Saglayici: Turk Telekom
&SwaT-Bot> !nerden 95.14.44.196
&SwaT-Bot> Ulke: Turkey
&SwaT-Bot> Ulke Code: TUR
&SwaT-Bot> Kita: Asia
&SwaT-Bot> B?lge: Zonguldak
&SwaT-Bot> Sehir: Zonguldak
&SwaT-Bot> Enlem: 41.4514
[&SwaT-Bot> Boylam: 31.7931
&SwaT-Bot> Sirket: Turk Telekom
&SwaT-Bot> Servis Saglayici: Turk Telekom
Grup(lar) Aktif
Zonguldak Sehri Takibe Alindi.. Zonguldak Sehrinde Girenlere Gzline atilcak.. Kapatmak icin /takipkapa yaziniz.

OperServ- 232 *@95.14.* [SwaT-Bot] Yasak_Giris
OperServ- 233 *@85.104.* [SwaT-Bot] Yasak
OperServ- 234 *@88.224.1.* [SwaT-Bot] Yasak_Giris
OperServ- 235 *@78.190.* [SwaT-Bot] Yasak_Giris

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 13:35 -->-> Daha önceki mesaj 13:33 --

proxy korumasi deil zadece sehir korumasi ip takıp sistemi ufuk

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 13:37 -->-> Daha önceki mesaj 13:35 --

bunu mirc ugun sekılde getirp zogunldaktan bu ipten gelene kişiyi aticak guzel olurdu boyle bir sistem ilgin icin tşkur ederim.

Cevap: /nerden ip farklı bi soru ?

Benim verdiğim kod senin sisteminden bağımsız çalışıyor yani oradakileri zline atmasını engellemez sen muaf ip aralıgı istiyorsan hash tablo ile mevcut koduna ekleyeceksin.

Cevap: /nerden ip farklı bi soru ?

arkdşların Vermış olugu kot guzel hani buna mirc de kualnıcı bolumune ip eklesek demin basetigim gibi
*@78.190.* kulanıcı bolumune Sadece zogundaktan takıp ediyor zaten o ip aticak :)

Cevap: /nerden ip farklı bi soru ?

Alıntı:

badword Nickli Üyeden Alıntı (Mesaj 1041344149)

arkdşların Vermış olugu kot guzel hani buna mirc de kualnıcı bolumune ip eklesek demin basetigim gibi
*@78.190.* kulanıcı bolumune Sadece zogundaktan takıp ediyor zaten o ip aticak :)

Zonguldak'dan giriş oldumu zlinemi atacak?