Marre de copier/coller les proxys ?

Télécharger le projet
Commenter

Description

Voila, si, comme moi vous allez chercher regulierement des proxys sur internet avant de verifier si ils sont compatibles avec l'IRC, je vous propose de vous simplifier la vie grace a ce simple code qui fait gagner beaucoup de temps !

Note: La majorité des proxys sont chagé depuis www.StayINVISIBLE.com

Alias de lancement : /Proxy_DL

Source / Exemple : 


;
;
;      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
}

Conclusion :


(Si vous trouvez que c'est un petit peu codé a l'arrache j'en suis désolé ;-) )
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (Under_Score)