usmanbsd
03-12-2005, 10:34 PM
how are you all
i am basically a system admin,new in perl/cgi world also mine first post on this forum.
these are my cookies based cgi scripts tell me if these are secure or not.
login.cgi
-----------------
#!/usr/bin/perl
use CGI qw(:all);
$q = new CGI;
$username=$q->param('name');
$password=$q->param('pass');
if ( length($username) < 2 || length($password) < 2 ) {
perror();
}
elsif( ($username eq "admin") && ($password eq "yahoo") ) {
$cookie1=cookie(-name => 'user', -value => $username);
print redirect(-uri => 'http://www.blah.com/main2.cgi',
-cookie => $cookie1);
}
elsif( ($username eq "everyone") && ($password eq "everyone") ) {
$cookie1=cookie(-name => 'user', -value => $username);
print redirect(-uri => 'http://www.blah.com/main.cgi',
-cookie => $cookie1);
}
else {
perror();
}
---------------------------------
now main2.cgi which is reserved for admins use. i am maintaing security on cookies like this.
#!/usr/bin/perl
use CGI qw(:all);
$q = new CGI;
if ( defined cookie('user') ) {
$username=cookie('user');
if ($username eq "admin") {
page();
}
else {
print $q->redirect('http://www.blah.com/index.html');
}
}
else {
print $q->redirect('http://www.blah.com/index.html');
}
------------------------------------
now please tell me,
1. is it possible to change http header by any one and set cookie value???
also please guide me on setting up secure cookies.
any links will be helpfull.
thanks a lot for reading.
regards
usman
i am basically a system admin,new in perl/cgi world also mine first post on this forum.
these are my cookies based cgi scripts tell me if these are secure or not.
login.cgi
-----------------
#!/usr/bin/perl
use CGI qw(:all);
$q = new CGI;
$username=$q->param('name');
$password=$q->param('pass');
if ( length($username) < 2 || length($password) < 2 ) {
perror();
}
elsif( ($username eq "admin") && ($password eq "yahoo") ) {
$cookie1=cookie(-name => 'user', -value => $username);
print redirect(-uri => 'http://www.blah.com/main2.cgi',
-cookie => $cookie1);
}
elsif( ($username eq "everyone") && ($password eq "everyone") ) {
$cookie1=cookie(-name => 'user', -value => $username);
print redirect(-uri => 'http://www.blah.com/main.cgi',
-cookie => $cookie1);
}
else {
perror();
}
---------------------------------
now main2.cgi which is reserved for admins use. i am maintaing security on cookies like this.
#!/usr/bin/perl
use CGI qw(:all);
$q = new CGI;
if ( defined cookie('user') ) {
$username=cookie('user');
if ($username eq "admin") {
page();
}
else {
print $q->redirect('http://www.blah.com/index.html');
}
}
else {
print $q->redirect('http://www.blah.com/index.html');
}
------------------------------------
now please tell me,
1. is it possible to change http header by any one and set cookie value???
also please guide me on setting up secure cookies.
any links will be helpfull.
thanks a lot for reading.
regards
usman