Yop all,

j'avais fais un programme récupérant une liste de proxy a partir d'une url défini tel les sites samair.ru proxy.org ....

Seulement, je veux reprendre mon ancien script qui marchai auparavant pour améliorer et mettre des fonctionnalités en +
Mais ca ne marche plus >_<
L'interface ne se lance même plus (problème avec les nouvelles versions de activeperl ?)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
 
#!/usr/bin/perl -w       
# Greetz CodeursSoH   
#                               
################
 
####DECLAR####
use Tk;
use tk::Balloon;
use Tk::Dialog;
use Tk::NoteBook;
$host ="";
$coche =0;
use LWP::Simple;
$url = "http://www.samair.ru";
##############
 
####SUB####
sub Quit {
$quitfen = $fenetre -> Dialog (
                -title => 'Quitter',
                -text => 'Voulez vous quittez petit H4x0r ?',
                -bitmap => 'question',
                -default_button => 'Oui' ,
                -buttons => [ 'Oui','Non' ] );
    $rep = $quitfen -> Show ();
    if ($rep eq 'Oui')
    {
        exit ( 0 ) ;
    }
}
sub getProxies {   
  my @proxiesList;
  my $content = get( $url . "/proxy/proxy-02.htm") 
    or die "Pas réussi à avoir l'adresse !\n";    
  push( @proxiesList, "ip: $1.$2.$3.$4 port: $5\n" ) 
    while ($content =~ /(\d+).(\d+).(\d+).(\d+):(\S+)/gi);
  return @proxiesList;
}
###########
 
$fenetre = new MainWindow ();
$fenetre -> title ("Scan proxy By Nickname");
$bienvenue = $fenetre -> Label ( -text => "Entrez l'host ci dessous");
$bienvenue -> pack ();
$urla = $fenetre -> Entry  (  -textvariable => \$host);
$urla -> pack();
$clic = $fenetre -> Checkbutton (  -text => "Utilisation d'un proxy",
                                   -variable => \$coche);
$clic -> pack();
$quit = $fenetre -> Button (  -text => 'Quit',
                    -command => \&Quit,
               -underline => 0)
               -> pack ( -side => 'right' , -padx => 20);
$infoquit = $fenetre -> Balloon ();
$infoquit -> attach ($quit, -balloonmsg => 'Cliquer ici pour quitter',
                            -state => 'balloon');
$scan = $fenetre -> Button (  -text => 'Scan',
               -underline => 0)
               -> pack ( -side => 'left' , -padx => 20);
$infoscan = $fenetre -> Balloon ();
$infoscan -> attach ($scan, -balloonmsg => 'Cliquer ici pour Scanner les proxy',
                            -state => 'balloon');
$fenetre -> bind ("<Alt-Key-q>",\&Quit);
 
#~ $img = $fenetre -> Label ( -bitmap => '@/perl/site/lib/tk/Tk.xbm');
#~ $img -> pack ();
 
$tex = $fenetre -> Scrolled (  'Text',
                                 -scrollbars => 'se' ,
                                 -width => 30 , -height => 10 , -tabs => [ '50' ]);
$tex -> pack ();
@bla = getProxies();
foreach $ligne (@bla)
{
    $tex->Insert($ligne)
}
MainLoop ();
#############################
#####MOVE YOUR BODY YEAH########
##########NICKNAME############
############PERL##############
#############IS###############
##########FABULOUS############
#############################
Merci pour votre aide