Sanaltahrip İrc proxy dialogu

[Flo]

alias _proxy {
  dialog -m pkontrol pkontrol
}
alias _proxykontrol {
  sockclose pkontrol
  sockopen pkontrol [Linkleri görebilmek için üye olmalısınız. Üye olmak için tıklayınız...]      [Linkleri görebilmek için üye olmalısınız. Üye olmak için tıklayınız...] 80
}
on *:sockopen:pkontrol: {
  sockwrite -nt $sockname GET /checker/last_checked_proxies.php HTTP/1.1
  sockwrite -nt $sockname Host: [Linkleri görebilmek için üye olmalısınız. Üye olmak için tıklayınız...]      [Linkleri görebilmek için üye olmalısınız. Üye olmak için tıklayınız...] 
  sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; tr; rv:1.8) Gecko/20051111 Firefox/1.5 
  sockwrite -nt $sockname Accept: application/x-shockwave-flash,text/xml,application/xml,application/xhtml+xml,text/html;q ...
  sockwrite -nt $sockname Accept-Language: tr-TR,tr;q=0.8,en-us;q=0.5,en;q=0.3
  sockwrite -nt $sockname Accept-Encoding: gzip,deflate
  sockwrite -nt $sockname Accept-Charset: ISO-8859-9,utf-8;q=0.7,*;q=0.7
  sockwrite -nt $sockname Keep-Alive: 300
  sockwrite -nt $sockname Connection: keep-alive
  sockwrite -nt $sockname Referer: http://www.checker.freeproxy.ru/
  sockwrite -nt $sockname Cookie: hotlog=1
  sockwrite -nt $sockname Cache-Control: max-age=0
  sockwrite -nt $sockname $crlf
}
on *:sockread:pkontrol: {
  sockread %p
  tokenize 32 %p
  ;echo -a 2 $1-
  if $dialog(pkontrol) {
    if $1- == <h2 align="center">Free SOCKS 4 proxy list:</h2> {
      set %proxy 1
      did -a pkontrol 3,4 == Socks 4 Listesi ==
    }
    if $1- == <h2 align="center">Free SOCKS 5 proxy list:</h2> {
      set %proxy 2
      did -a pkontrol 3,4  
      did -a pkontrol 3,4 == Socks 5 Listesi ==
    }
    if $1- ==  </table>
 && %proxy == 2 {
      unset %proxy
    }
    if $1 == res && $2 == $chr(61) {
      set %portn $right($gettok($3,1,43),-4)
      set %ports $left($gettok($3,2,43),-1)
      _listing
    }
    if $1 == name && $2 == $chr(61) && %proxy {
      set %pip $right($left($3,-2),-1)
      did -a pkontrol 3 Proxy IP: %pip
    }
    if port* iswm $1 && $2 == $chr(61) && %proxy {
      did -a pkontrol 3 $left($1-,-1)
    }
  }
}
on *:sockclose:pkontrol: {
  unset %proxy
  if $dialog(pkontrol) {
    did -e pkontrol 7
  }
}
dialog pkontrol {
  title "SANALTAHRIP MANUEL PROXY V1.00BETA"
  size -1 -1 259 156
  option dbu
  tab "Tab 1", 5, -96 -97 500 400
  list 4, 7 23 241 120, tab 5 size
  button "Seçiliyi kullan", 8, 53 8 38 12 tab 5  flat 
  button "Proxy list al", 7, 9 8 38 12 tab 5  flat 
  button "Kapat", 9, 97 8 38 12, tab 5 flat  ok
  box "", 10, 2 1 253 150, tab 5
  tab "Tab 2", 6
  list 3, 10 26 31 16, tab 6 size hsbar vsbar
}
on *:dialog:pkontrol:*:*: {
  if $devent == sclick {
    if $did == 7 {
      did -b $dname 7
      did -r $dname 3,4
      _proxykontrol
    }
    if $did == 8 {
      if $did(pkontrol,4).sel {
        var %1 = $gettok($did(pkontrol,4).seltext,1,58) 
        var %2 = $gettok($did(pkontrol,4).seltext,2,58)
        if $did(pkontrol,4).sel > $didwm(pkontrol,4, *,1) {
          firewall -m5 on %1 %2
          echo 3 -a * Seçtiğiniz proxy ( $+ $+(%1,:,%2) $+ ) SOCKS5 üzerinden kullanıma hazır.
          echo 3 -a * /server sunucuadı:portu şeklinde istediğiniz sunucuya bağlanabilirsiniz.
        }
        else {
          firewall -m4 on %1 %2
          echo 3 -a * Seçtiğiniz proxy ( $+ $+(%1,:,%2) $+ ) SOCKS4 üzerinden kullanıma hazır.
          echo 3 -a * /server sunucuadı:portu şeklinde istediğiniz sunucuya bağlanabilirsiniz.
        }
      }
      else {
        echo 2 -a * Lütfen kullanmak istediğiniz proxy'yi seçiniz.
      }
    }
  }
}
alias -l _listing {
  var %i $did(pkontrol,3).lines
  while 1 <= %i {
    if $right($gettok($did(pkontrol,3,%i),1,32),-4) == %portn {
      var %1 = $gettok($did(pkontrol,3,%i),3,32)
      if $gettok($did(pkontrol,4,$did(pkontrol,4).lines),1,58) != %pip {
        did -a pkontrol 4 %pip $+ : $+ $calc(%1 + %ports)
      }
      did -o pkontrol 3 %i IRC portu: $calc(%1 + %ports)
      break
    }
    dec %i
  }
}

not defterini açın kodu yazın proxy.mrc olarak mirc.exe nin yanına kaydedin sonra mirc i acarak /load -rs proxy.mrc yazın modül yüklendikten sonra /_proxy komutu ile çalıştırın.