[resolved] Reversing url_encode type effect in perl?

beaver6813 · 05-05-2007, 08:27 AM

Hey,

There is an upload script i'm using, it locks the files and only chmods them to 600, making them virtually impossible to access in php, i've managed to deconstruct how it works but to get perl to chmod the file i need to know the file name... but it only has it in url encoded form:

Code:

$tmp_filename =~ s/([^a-zA-Z0-9_\-.])/uc sprintf("%%%02x",ord($1))/eg;

Anyone know how to reverse this so i can have the url in plain form in perl?

Resolved. Some guy over at devshed gave the code to reverse :-) For future reference the opposite would be:

Code:

$tmp_filename =~ s{%([a-fA-F0-9][a-fA-F0-9])}{pack("C", hex($1))}eg;

05-05-2007, 08:27 AM	#1 (permalink)
beaver6813 NamePros Regular Join Date: May 2005 Location: England Posts: 349 65.50 NP$ (Donate)	Reversing url_encode type effect in perl? Hey, There is an upload script i'm using, it locks the files and only chmods them to 600, making them virtually impossible to access in php, i've managed to deconstruct how it works but to get perl to chmod the file i need to know the file name... but it only has it in url encoded form: Code: $tmp_filename =~ s/([^a-zA-Z0-9_\-.])/uc sprintf("%%%02x",ord($1))/eg; Anyone know how to reverse this so i can have the url in plain form in perl? Resolved. Some guy over at devshed gave the code to reverse :-) For future reference the opposite would be: Code: $tmp_filename =~ s{%([a-fA-F0-9][a-fA-F0-9])}{pack("C", hex($1))}eg; __________________ -Beaver6813.com V5 Soon!

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)