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é ;-) )
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.