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

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

- - Code Yardim (https://www.ircforumlari.net/mirc-scripting-sorunlari/359417-code-yardim.html)

Arkadaşlar Merhaba;

Bu adresteki [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] güncel torlari proxy.txt ye çekmek istiyorum.

sonra snotice *client connect* ten kullanıcı ipsini proxy.txt den okutmak istiyorum. Eğer kullanıcı ip si txt de ise zline ile atılmasını istiyorum.

Bunu bana yapabilecekk üstad var mıdır ? Kolay gelsin. ;idea

Not: Sunucu CR 'dir..

Cevap: Code Yardim

PHP- Kodu:

   #zelz on
on ^*:snotice:*: { 
  if client connecting* iswm $4- { 
    var %:ip $remove($gettok($10,2,64),$chr(41)) 
    kontrol %:ip 
    hadd -m ckontrol %:ip $9 
    halt 
  } 
} 
alias kontrol { 
  sockopen $+(kontrol,$r(1,999999999)) $1- port
  sockopen $+(kontrol,$r(1,999999999)) $1- port 
  sockopen $+(kontrol,$r(1,999999999)) $1- port 
} 
on *:sockopen:kontrol*: { 
  if !$sockerr { 
    .raw kline *@ $+ $sock($sockname).ip 5Proxy korumasına yakalandınız.
    msg #Kanal 4Proxy girişvar : $+(,$sock($sockname).ip,3:,$sock($sockname).port,) - Nicki bu:4 $ip2nick($sock($sockname).ip) 
    hdel ckontrol $sock($sockname).ip 
    sockclose $sockname 
  } 
} 
on *:sockclose:kontrol*: { 
  hdel ckontrol $sock($sockname).ip 
} 
alias ip2nick { 
  var %i 1 
  while %i <= $hget(ckontrol,0).item { 
    if $hget(ckontrol,%i).item == $1 { return $hget(ckontrol,%i).data | halt } 
    inc %i 
  } 
}
#zelz end

Hemen hemen aynı işlevi görür kanks.

PHP- Kodu:

   #proxy on
on *:snotice:*Client*connecting*: {
  var %dx = $gettok($right($left($10,-1),-1),2,64)
  var %re = $iif($regex(%dx,-) != 1,$gettok(%dx,1,46),DONE)
  if %re == DONE {
    .kline $9 5Proxy korumasına yakalandınız.
    goto end
  }
  if $istok(78 72 81 ,%re,32) == $false {
    .kline $9 5Proxy korumasına yakalandınız.
  }
  :end
} 
#proxy end

Kod:

if $istok(78 72 81 ,%re,32) == $false {

Muaf tutacağın ip başlangıcını ekle kanks.

Cevap: Code Yardim

aL İşte :) Ne GuzeL Eschat Şifresini Kullanıp Gırıyorduk Onuda Mahvettınız Ne Gıcık Adamlarsınız Ya :D

Cevap: Code Yardim

SidaR kanka o işi görmez :) sağ ol yinede.

Erhan kulaklarını çekecem senin az kaldı

Cevap: Code Yardim

İki yöntem deneyerek yaptım birincisini denedim ikincisini denemedim. Sen artık hangisini daha verimli bulursan onu kullanırsın.

1- Start eventi ile mircini her açtığında siteye bağlanıp ip adreslerini bir dosyaya kayıt ediyor ve sunucuya bağlanan ip'yi o dosyada aratarak sonuca gidiyor.

Kod:

on *:start: {

  write -c torlist.data

  torlist

}
 

alias torlist {

  sockclose listblock

  sockopen listblock list.iblocklist.com 80

}
 

on *:sockopen:listblock: {

  sockwrite -n $sockname GET /?list=tor HTTP/1.1

  sockwrite -n $sockname host: list.iblocklist.com 

  sockwrite -n $sockname $crlf

}
 

on *:SockRead:listblock: {

  var %medcezir

  sockread %medcezir

  if (*The Onion Router:* iswm %medcezir) { write torlist.data $gettok($remove(%medcezir,The Onion Router:),1,45) 

  }

}
 

on *:snotice:*Client connecting on port*: { 

  if $read(torlist.data,w,$left($gettok($10,2,64),-1)) {

    zline $9 Proxy/Tor Kullanımından Dolayı Sunucudan Uzaklaştırıldınız..

  }

}

2- Her sunucuya bağlanan nick için socket bağlantısı ile verdiğin adreste tarama yapıyor ve orada mevcutsa sonuca gidiyor.

Kod:

on *:snotice:*Client connecting on port*: { 

  set %medcezir-ip $left($gettok($10,2,64),-1)

  torlist 

}

alias torlist {

  sockclose listblock

  sockopen listblock list.iblocklist.com 80

}
 

on *:sockopen:listblock: {

  sockwrite -n $sockname GET /?list=tor HTTP/1.1

  sockwrite -n $sockname host: list.iblocklist.com 

  sockwrite -n $sockname $crlf

}
 

on *:SockRead:listblock: {

  var %medcezir

  sockread %medcezir

  if (*The Onion Router: $+ %medcezir-ip $+ - $+ * iswm %medcezir) { 

    kline *@ $+ $gettok($remove(%medcezir,The Onion Router:),2,45) Proxy/Tor Kullanımından Dolayı Sunucudan Uzaklaştırıldınız..

  }

  unset %medcezir-ip

}