alias po {
  return 3128 8080 22 1080 80 3124 6588 9090 80
}
alias to { return 10 }
alias tr {
  set %prx $ticks | .dns $1 
  set %ip  $1 | var %pi = 1
  while (%pi < $gettok($po,0,32)) {
    var %ki = $gettok($po,%pi,32) 
    var %pxn  $+(prx-, $left($md5($+($r(a,z),$r(1,999),$ticks,$r(A,Z))),$r(2,30) ),=,$1)
    sockopen %pxn %ip %ki  
    $+(.timer,%pxn) 1 $to .sockclose %pxn 
    inc %pi
  }
  ; echo 4Taranan portlar:3 $gettok($po,0,32) (Ad.) :2 $po
}
on *:sockopen:prx-*: {
  if ($sockerr) { sockclose $sockname | return }
  echo 2 $chr(32)4PORT: $sock($sockname).port 4TIP: $sock($sockname).type 4AÇIK\KAPALI: $portfree($sockerr) 4HATA\WS_Err: $sock($sockname).wserr 4MESAJ\WS_Msg: $sock($sockname).wsmsg 
  if ($portfree($sockerr)) && (o isincs $usermode) {

    ; gzline $+(*@,$sock($sockname).ip) 1D Proxy yasaktir.- $+ $left($sock($sockname).ip,-3) $+ ***: $+ $sock($sockname).port 

    return
  }
  .sockclose $sockname
}

on *:sockread:prx-*:{ 
  if ($sockerr > 0) { echo :HATA: $sock($sockname).wserr | return }
  echo 4 -s :---> $sock($sockname).ip $sock($sockname).port 
  sockclose  $sockname
}
on *:dns:{
  if (%prx) {
    var %di = $dns(0)
    while (%di > 0) {
      echo 2 $chr(32) 4DNS: $dns(%di) 4ADRES: $dns(%di).addr \ $dns(%di).ip
      dec %di
    }
    unset %prx | unset %ip
    halt
  }
  unset %prx | unset %ip
}