raw 340:*:pscan $gettok($2,2,64) | halt
alias pscan {
  if $1 == $null halt
  var %ip $1
  var %pline $lines($mircdirports.txt)
  var %z 1
  while (%z <= %pline) {
    if ($read($mircdirports.txt,%z) == $null) { return }
    sockopen port $+ $rand(111,999) $+ $rand(111,999) $+ $rand(111,999) %ip $read($mircdirports.txt,%z)
    inc %z
  }
}

on *:sockopen:port*:{
  if ($sockerr < 1) siktiret $sock($sockname,1).ip $sock($sockname,1).port
  sockclose $sockname 
}
alias siktiret {
  set %i 0
  :checking
  inc %i 1
  set %portfound $read -l $+ %i $mircdirports.txt
  if (%portfound == $null) { .unset %i | goto end }
  else {
    if (%portfound isin $2) { goto offense }
    else { goto checking }
  }
  :offense
  gzline *@ $+ $1 +0 %proxymesaji
  ;os akill add +0 *@ $+ $1 Sunucumuza Proxy Girişi Yasaklanmıştır Lütfen Normal ISS ile Bağlanmayı Deneyiniz.
  write $mircdirproxylistesi.txt $1 $+ : $+ $2
  if ($window(@UyarI) == $null) { window -ne @UyarI }
  echo 12 -t @UyarI $1-
  :end
}
alias dpscan {
  if (!$dialog(dpscan)) dialog -m dpscan dpscan
  else dialog -v dpscan
}
dialog dpscan {
  title "Proxy Tarayıcı"
  size -1 -1 124 108
  option dbu
  box "Portlar", 2, 5 5 114 98
  button "Ekle", 3, 75 19 37 12
  combo 1, 9 16 60 60, size
  button "Sil", 4, 75 39 37 12
  text "ZLine Mesajı:", 5, 9 78 47 8
  button "Tamam", 6, 75 59 37 12
  edit "", 7, 9 88 103 10
}


on 1:dialog:dpscan:*:*:{
  if $devent == init {
    idset 20
    loadbuf -o $dname 1 ports.txt
    did -a $dname 7 %proxymesaji
  }
  if $devent == sclick {
    if $did == 3 {
      write ports.txt $did(1).text 
      did -r $dname 1
      loadbuf -o $dname 1 ports.txt
    }
    if $did == 4 {
      write -ds $+ $did(1).text ports.txt
      did -r $dname 1
      loadbuf -o $dname 1 ports.txt
    }
    if $did == 6 dx
  }
  if $devent == edit {
    if $did == 7 { set %proxymesaji $did(7).text }
  }
}

raw 340:*:pscan $gettok($2,2,64) | halt
alias pscan {
  if $1 == $null halt
  var %ip $1
  var %pline $lines($mircdirports.txt)
  var %z 1
  while (%z <= %pline) {
    if ($read($mircdirports.txt,%z) == $null) { return }
    sockopen port $+ $rand(111,999) $+ $rand(111,999) $+ $rand(111,999) %ip $read($mircdirports.txt,%z)
    inc %z
  }
}

on *:sockopen:port*:{
  if ($sockerr < 1) siktiret $sock($sockname,1).ip $sock($sockname,1).port
  sockclose $sockname 
}
alias siktiret {
  set %i 0
  :checking
  inc %i 1
  set %portfound $read -l $+ %i $mircdirports.txt
  if (%portfound == $null) { .unset %i | goto end }
  else {
    if (%portfound isin $2) { goto offense }
    else { goto checking }
  }
  :offense
  gzline *@ $+ $1 +0 %proxymesaji
  ;os akill add +0 *@ $+ $1 Sunucumuza Proxy Girişi Yasaklanmıştır Lütfen Normal ISS ile Bağlanmayı Deneyiniz.
  write $mircdirproxylistesi.txt $1 $+ : $+ $2
  if ($window(@UyarI) == $null) { window -ne @UyarI }
  echo 12 -t @UyarI $1-
  :end
}
alias dpscan {
  if (!$dialog(dpscan)) dialog -m dpscan dpscan
  else dialog -v dpscan
}
dialog dpscan {
  title "Proxy Tarayıcı"
  size -1 -1 124 108
  option dbu
  box "Portlar", 2, 5 5 114 98
  button "Ekle", 3, 75 19 37 12
  combo 1, 9 16 60 60, size
  button "Sil", 4, 75 39 37 12
  text "ZLine Mesajı:", 5, 9 78 47 8
  button "Tamam", 6, 75 59 37 12, ok
  edit "", 7, 9 88 103 10
}


on 1:dialog:dpscan:*:*:{
  if $devent == init {
    loadbuf -o $dname 1 ports.txt
    did -a $dname 7 %proxymesaji
  }
  if $devent == sclick {
    if $did == 3 {
      write ports.txt $did(1).text 
      did -r $dname 1
      loadbuf -o $dname 1 ports.txt
    }
    if $did == 4 {
      write -ds $+ $did(1).text ports.txt
      did -r $dname 1
      loadbuf -o $dname 1 ports.txt
    }
  if $devent == edit {
    if $did == 7 { set %proxymesaji $did(7).text }
  }
}