martinag
asked on
Send user name and pw to server
Hello,
I'm writing a perl script that should save an EE question to my hard disk (for practice. not sure I'll ever use it...). Now, I'm opening sockets and downloading and everything. The problem is that I must supply user name and password.
This is what I've tried:
print SOCKET "GET $page 1.0\nAuthorization: martinag password\n\n";
(no, that isn't my real password...:-))
I've tried a few solutions like this but I can't find the format to use when supplying user name and password.
Could you help me?
And by the way, is this secure? Is it just as secure as when I enter the information in my browser or should I do something (like using crypt) to get it more secure?
Martin
I'm writing a perl script that should save an EE question to my hard disk (for practice. not sure I'll ever use it...). Now, I'm opening sockets and downloading and everything. The problem is that I must supply user name and password.
This is what I've tried:
print SOCKET "GET $page 1.0\nAuthorization: martinag password\n\n";
(no, that isn't my real password...:-))
I've tried a few solutions like this but I can't find the format to use when supplying user name and password.
Could you help me?
And by the way, is this secure? Is it just as secure as when I enter the information in my browser or should I do something (like using crypt) to get it more secure?
Martin
ASKER
Ok, think I've understood a bit now...
I think I should
print SOCKET "GET $page 1.0\nAuthorization: Basic $info\n\n";
where $info is "martinag:password", base64 encoded.
But how do I base64 encode?
Martin
I think I should
print SOCKET "GET $page 1.0\nAuthorization: Basic $info\n\n";
where $info is "martinag:password", base64 encoded.
But how do I base64 encode?
Martin
Hi, in order to do that you must
do the following:
fprintf (socket, "POST /your/page HTTP/1.0\n");
sprintf (tmp,"Authorization: Basic %s\n\n",base64_encode("use rname:pass word"));
fprintf (socket, tmp);
do the following:
fprintf (socket, "POST /your/page HTTP/1.0\n");
sprintf (tmp,"Authorization: Basic %s\n\n",base64_encode("use
fprintf (socket, tmp);
ASKER
Where do I find base64_encode?
Martin
Martin
ASKER
Your code seems like C. Is it? I'm using Perl...
Anyone know about a base 64 function for Perl?
Martin
Anyone know about a base 64 function for Perl?
Martin
perldoc MIME::Base64
(part of the LWP package, I think)
(part of the LWP package, I think)
Yes it is b2pi, its part of LWP :)
ASKER
Ok, I visited www.perl.com and looked up LWP but I didn't find any MIME (not even Base64). Anyone got a URL?
Martin
Martin
ASKER
I'll give the points to b2pi.
Great url you gave me. I've always wondered where to download all those modules.
BTW, it was http://perl.com/cgi-bin/cpan_mod?module=MIME::Base64 :-)
Martin
Great url you gave me. I've always wondered where to download all those modules.
BTW, it was http://perl.com/cgi-bin/cpan_mod?module=MIME::Base64 :-)
Martin
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
Thanks!
Martin
Martin
ASKER
Martin