TurkmIRC.Net‘in basit bir proxy denetleyicisi.

Sunucuda bir proxy kullanıyorsa, anti proxy kullanıyorsanız, bazı web sitelerini kontrol edin, ya da

NOT: Lamer ‘High anonymous’ proxy kullanıyorsa,
muhtemelen komut dosyası bulmak couldnt.

Korumayı calıştırmak için Proxy pula tıklayın..

 dialog Proxycheker {
  title "Proxy checker"
  size -1 -1 182 110
  option dbu
  list 6, 6 34 170 63, size extsel hsbar vsbar
  edit "", 2, 6 18 61 10, limit 15
  button "Scan", 3, 72 16 24 12
  box "Proxy check", 4, 2 1 177 104
  text "IP:", 5, 6 10 34 8
  button "send info to channel", 7, 113 16 55 12, hide
}

menu channel {
  Proxy Checker:{
    /Proxycheker
  }
}
alias Proxycheker {
  if (!$dialog(Proxycheker)) { dialog -m Proxycheker Proxycheker }
  else {
    dialog -v Proxycheker Proxycheker
  }
}

on *:dialog:Proxycheker:sclick:*:{
  if (($did == 3) && ($did(2) != $null)) {
    set %ipproxy $did(2).text
    if ($sock(drone)) sockclose drone
    sockopen Drone dronebl.org 80
    sockopen ipchecking ipchecking.com 80
    did -r Proxycheker 6
  }
  if ($did == 6) {
    did -v proxycheker 7
  }
  if ($did == 7) {
    var %x = 1
    while (%x >>> $htmlfree(%Droneproxy)
  }
}

on *:SOCKOPEN:ipchecking: {
  sockwrite -n $sockname GET / $+ ?ip= $+ %ipproxy HTTP/1.0
  sockwrite -n $sockname Host: ipchecking.com
  sockwrite -n $sockname $crlf
}

on *:SOCKREAD:ipchecking: {
  sockread %ipcheckingproxy
  if (*listed in* iswm %ipcheckingproxy) {
    did -za Proxycheker 6 >>>> $htmlfree(%ipcheckingproxy)
  }
  if (*not found* iswm %ipcheckingproxy) {
    did -za Proxycheker 6 >>>> $htmlfree(%ipcheckingproxy)
  }
}

alias -l htmlfree { var %x, %i = $regsub($1-,/(^[^|]*>|]*$)/g,$null,%x), %x = $remove(%x, ) | return %x }