HexToAsc Problem

Anon

Hey,

I have made a small script to convert Hex to Ascii, but for some reason I get the following error when I run it:

Fatal error: Maximum execution time of 30 seconds exceeded in /usr/local/apache/htdocs/asctohex.php on line 5

Here is my script:

<?php

function Val($string) {
for ($i = 0; $i <= strlen($string); $i++) {
if (is_numeric($string{$i})) {
$tstring .= $string{$i};
}
}
return $tstring;
}

function HexToAsc($hstr) {
for ($n = 1; $n <= strlen($hstr); $n + 2) {
$nstr = $nstr + chr(Val("&H" . substr($hstr, $n, 2)));
}
return $nstr;
}

print HexToAsc("6666666666666");
?>

Thanks in advance.

Anon

Why make a script to convert Hex to Ascii when there is already a function built into php to do the job. Check the moanual!

Anon

$n + 2

should be

$n += 2

otherwise $n will always be 1 and you've got an infinite loop.

Diego

Anon

Thanks for that.

I don't get an error anymore, it just does nothing 🙁

Hmm

Anon

What is the function Val() supposed to do? I can't seem to figure it out...

Diego

Anon

Looks to me all it does is strip out non-digits.

What is the ASCII of 6666666666666 supposed to be?

There is definitely a much more concise approach than this.

Anon

Looks to me all it does is strip out non-digits.

Yeah, I know that, but you don't need such function to convert from hex to asc...Plus, he's appending "&H" before calling the Val() function, so why append "&H" at all if they get stripped anyway? That's why i asked...

Diego

Anon

I'm not really sure why I did it like that. I was trying to convert a Visual Basic function to PHP.

Anon

Is there another way you can convert Hex to Asc?

Anon

$a=explode(':',chunk_split($string,2,':'));
foreach($a as $k=>$v) $a[$k]=chr(hexdec($v));
$s=join('',$a);

Is the first thing I thought of.

Anon

Wow, it works. Thanks very much.

Anon

I shudder to think what the VB version looked like...

Anon

Public Function HexToAsc(hstr As String)
On Error Resume Next
For X = 1 To Len(hstr) Step 2
nstr = nstr & Chr(Val("&H" & Mid$(hstr, X, 2)))
Next
HexToAsc = nstr
End Function

Haha.