Convert Perl Code in PHP | Newbie | | Join Date: Jun 2008
Posts: 1
| |
Hi Every one,
I have a perl script which uses the following code to decode the username saved in a cookie. I want to parse that cookie in php for adding some more features in the application. The source application in perl but I don't know any thing about perl. Here is the code ... -
@table = (('A' .. 'Z'), ('a' .. 'z'), ('0' .. '9'), '+', '/', '|');
-
for ($_ = 0; $_ <= $#table; $_++) {
-
$decode_table[ord($table[$_])] = $_;
-
}
-
local $_ = $_[0];
-
s/./unpack('B6', chr($decode_table[ord($&)] << 2))/eg;
-
pack('B' . (int(length($_) / 8) * 8), $_);
-
Can any one help me to convert this code in PHP?
Thanks in advance
|  | Site Moderator | | Join Date: May 2007 Location: New Hampshire
Posts: 2,565
| | | re: Convert Perl Code in PHP
Sure, if this were the PHP forum . Unfortunately, it is not and I know that I do not know any PHP. What I can do though, is move this to the PHP forum where hopefully they can help you.
Please know that you might have to specify what your requirements are for the script to do and also write code (these are learning forums).
On the other hand, if you are looking for someone to write this for you, then you can certainly post this to the Jobs forum and offer to pay someone. The choice is up to you.
Regards,
Jeff
|  | Site Moderator | | Join Date: Apr 2007 Location: Texas
Posts: 5,435
| | | re: Convert Perl Code in PHP
Heya, aliusman.
I'm no Perl guru, but I dabble from time to time in the dark arts. Let's see if we can run through this and generate a suitable translation.
And if I happen to get anything wrong, perhaps numberwhun would be wiling to step in and assist... *AHEM*.
Anyway. - @table = (('A' .. 'Z'), ('a' .. 'z'), ('0' .. '9'), '+', '/', '|');
This line creates a big 'ol table with all the letters and numbers, and a few symbols to boot. - for ($_ = 0; $_ <= $#table; $_++) {
-
$decode_table[ord($table[$_])] = $_;
-
}
Now we're looping through the table array that we created and generating a new hash called #decode_table (in Perl, hashes start with the '#' character, but you reference individual elements in the hash using '$'). The keys of this table are the ordinal values of @table and the values start with 0 and increase by 1 each time.
This creates a local variable $_ and sets it equal to the first index in the special $_ variable (rough equivalent in PHP is probably $_GET or $_COOKIE). -
s/./unpack('B6', chr($decode_table[ord($&)] << 2))/eg;
-
pack('B' . (int(length($_) / 8) * 8), $_);
Got no idea here. Perhaps numberwhun could be of some assistance as to the purpose of these lines. *AHEM*
|  | Moderator | | Join Date: Jun 2007 Location: York, England, with wolves.
Posts: 4,936
| | | re: Convert Perl Code in PHP
Sounds like you need some cough medicine, Josh.
| | Site Moderator | | Join Date: Apr 2007 Location: Texas
Posts: 5,435
| | | re: Convert Perl Code in PHP
Ooh, cherry-flavored.
Alrightey. After further consultation with our Perl forum leader, we (well, he) determined that the code you provided is not adequate to determine what's going on.
He checked it out, and here are the errors it generates: - Useless use of pack in void context at C:/coding/Eclipse_Workspace/Perl_Testing_Area/test4.pl line 15.
-
Use of uninitialized value $_ in substitution (s///) at C:/coding/Eclipse_Workspace/Perl_Testing_Area/test4.pl line 13.
-
Use of uninitialized value $_ in length at C:/coding/Eclipse_Workspace/Perl_Testing_Area/test4.pl line 15.
-
Use of uninitialized value $_ in pack at C:/coding/Eclipse_Workspace/Perl_Testing_Area/test4.pl line 15.
If you can, please post the rest of the code. If that's all you have, we'll need some more info on where the code came from.
| | Lives Here | | Join Date: Sep 2006
Posts: 12,070
| | | re: Convert Perl Code in PHP
Quote:
Originally Posted by pbmods ...
-
s/./unpack('B6', chr($decode_table[ord($&)] << 2))/eg;
-
pack('B' . (int(length($_) / 8) * 8), $_);
Got no idea here. Perhaps numberwhun could be of some assistance as to the purpose of these lines. *AHEM* That's probably intended to be the encoding/decoding part.
The pack converts a string into some machine level representation and the unpack does the opposite. The OP might just want to explain what their algorithm is for the decode and then we could suggest the php equivalence of that.
| | Site Moderator | | Join Date: Apr 2007 Location: Texas
Posts: 5,435
| | | re: Convert Perl Code in PHP
Unfortunately, PHP's pack() function takes a slightly different syntax than Perl's ( http://php.net/pack), so I'm afraid that this is beyond my ken.
I will go ahead and move this thread back to the Perl forum so that the OP might be able to get a better idea of what's going on. Once we have that, then we can tackle how to translate it.
|  | Expert | | Join Date: Jan 2007 Location: Southern California USA
Posts: 4,091
| | | re: Convert Perl Code in PHP
it would be nice to see what the value of $_ is from this line of the code:
local $_ = $_[0];
without knowing what the input is trying to figure out the correct output is going to be useless. But I have a feeling this thread has been abandoned anyway.
| | Newbie | | Join Date: Mar 2009
Posts: 1
| | | re: Convert Perl Code in PHP
$decoded_string = base64_decode($thestring);
echo $decoded_string;
;)
| | Site Moderator | | Join Date: May 2007 Location: New Hampshire
Posts: 2,565
| | | re: Convert Perl Code in PHP
Quote:
Originally Posted by slattman  $decoded_string = base64_decode($thestring);
echo $decoded_string;
;) This thread has not been posted to for about 8 months. It is quite possible that the OP has either forgotten about this issue, solved i t or moved on.
While it is commendable to provide answers, please keep these things in mind in the future.
Regards,
Jeff
|  |
| | |  /bytes/about
We are a network of experts and professionals in IT and software development that help one another with answers to tough questions and share insights.
Get the best answers to your questions from over 226,223 network members.
|
