MARRE DE COPIER/COLLER LES PROXYS ?

;
;
;      Auto Proxy Downloader
;
;

alias proxy_dl {
  if (!$dialog(proxyD)) dialog -md proxyD proxyD
  else dialog -v proxyD
}
dialog proxyD {
  title "Auto-Proxy Downloader"
  size -1 -1 95 213
  option dbu
  edit "", 1, 3 9 87 145, multi return autohs autovs hsbar vsbar
  box "Liste de proxys", 2, 2 1 92 157
  button "DOWNLOADER !", 3, 2 160 91 12, flat
  button "Enregistrer", 4, 2 173 91 12, flat
  button "EFFACER", 5, 2 187 91 12, flat
  button "Fermer", 6, 25 202 42 10, flat ok
}
on *:dialog:proxyD:edit:1: did -ra proxyD 2 Liste de proxys ( $+ $did(proxyD,1).lines $+ )
on *:dialog:proxyD:sclick:* {
  if ( $did == 3 ) STI_DL_START
  if ( $did == 5 ) {
    did -ra proxyD 2 Liste de proxys (0)
    did -r proxyD 1
  }
  if ( $did == 4 ) {
    set %proxyD.ext.file $$?=="Nom du fichier de sortie ?"
    var %i 0
    while ( %i <  $did(proxyD,1).lines ) {
      if ( $did(proxyD,1,%i) ) .write %proxyD.ext.file $did(proxyD,1,%i)
      inc %i
    }
  }
}
alias STI_DL_START {
  did -b proxyD 3
  set %actupage -1
  set %current_web STI
  STI_DL |   STI_DL |  STI_DL |  STI_DL |  STI_DL |  STI_DL |  STI_DL |  STI_DL
}
alias STI_DL {
  if ( %current_web == STI ) {
    sockopen STI_DL $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9)   www.Stayinvisible.com 80
  }
  if ( %current_web == area ) {
    sockopen STI_AREA $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9)   www.steganos.com 80
  }
  if ( %current_web == p4f ) {
    sockopen STI_PROXY4FREE $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9)   www.proxy4free.com 80
  }
}

on *:sockopen:STI_DL*: {
  inc %actupage
  sockwrite -n $sockname  GET http://www.stayinvisible.com/index.pl/proxy_list?offset= $+ $calc( %actupage * 100 ) HTTP/1.0
  sockwrite -n $sockname  $CRLF $+ $CRLF
}
on *:sockopen:STI_AREA*: {
  inc %actupage
  sockwrite -n $sockname  GET http://www.steganos.com/?area=updateproxylist HTTP/1.0
  sockwrite -n $sockname  $CRLF $+ $CRLF
}
on *:sockopen:STI_PROXY4FREE*: {
  inc %actupage
  sockwrite -n $sockname  GET http://www.proxy4free.com/page $+ $calc( %actupage - 19 ) $+ .html HTTP/1.0
  sockwrite -n $sockname  $CRLF $+ $CRLF
}

on *:sockread:STI_DL*:{
  sockread %a
  var %td $eval(<td>,0)
  if ( %td isin %a ) && ( javascript !isin %a )  {
    var %current_line $remove(%a,<td>,</td>)
    var %current_remove $remove(%current_line,.)
    if ( $gettok(%current_line,0,46) == 4 ) set %current_ip %current_line
    if ( $remove(%current_remove,$CRLF,$chr(32),\n,\r) isnum ) {
      if ( $gettok(%current_line,0,46) == 1 ) {
        if ( %current_line )   did  -i  proxyD 1 1 %current_ip %current_line
        did -ra proxyD 2 Liste de proxys ( $+ $did(proxyD,1).lines $+ )
      }
    }
  }
  unset %a
}
on *:sockread:STI_PROXY4FREE*:{
  sockread %a
  var %td $eval(<td>,0)
  if ( %td isin %a ) && ( javascript !isin %a )  {
    var %current_line $remove(%a,<td>,</td>)
    var %current_remove $remove(%current_line,.)
    if ( $gettok(%current_line,0,46) == 4 ) set %current_ip %current_line
    if ( $remove(%current_remove,$CRLF,$chr(32),\n,\r) isnum ) {
      if ( $gettok(%current_line,0,46) == 1 ) {
        if ( %current_line )   did  -i  proxyD 1 1 %current_ip %current_line
        did -ra proxyD 2 Liste de proxys ( $+ $did(proxyD,1).lines $+ )
      }
    }
  }
  unset %a
}
on *:sockread:STI_AREA*: {
  sockread %a
  if ( $remove(%a,\r,\n,$CRLF,.,:) isnum) {
    did  -i  proxyD 1 1 $replace($remove(%a,\r,\n,$CRLF),:,$chr(32))
    did -ra proxyD 2 Liste de proxys ( $+ $did(proxyD,1).lines $+ )
  }
  unset %a
}
on *:sockclose:STI_DL*: {
  if ( %actupage <= 18 ) {
    STI_DL
  }
  if ( %actupage == 19 ) {
    set %current_web area
    STI_DL
  }
  if ( %current_web == p4f ) STI_DL
}
on *:sockclose:STI_AREA*: {
  set %current_web p4f
  STI_DL
}
on *:sockclose:STI_PROXY4FREE*: {
  if ( %actupage >= 29 )  did -e proxyD 3
  if ( %actupage < 29 ) STI_DL
}