Array pack:
<?php
function pack_array($v,$a) {
return call_user_func_array(pack,array_merge(array($v),(array)$a));
}
?>
pack
(PHP 4, PHP 5)
pack — Packt Daten in eine Binär-Zeichenkette
Beschreibung
Packt die angegebenen Argumente unter Beachtung von Format in eine Binär-Zeichenkette.
Die Idee für diese Funktion entstammt Perl. Alle Formatierungs-Anweisungen funktionieren genau wie dort, allerdings fehlen in PHP einige Format-Codes von Perl (z.B. "u").
Beachten sie, dass der Unterschied zwischen vorzeichenlosen und vorzeichenbehafteten Werten nur Einfluss auf die Funktion unpack() hat, wogegen die Funktion pack() bei vorzeichenlosen und vorzeichenbehafteten Format-Codes dasselbe Ergebnis liefert.
Beachten sie auch, dass PHP Ganzzahlwerte intern als vorzeichenbehaftete Werte speichert, deren Größe vom Maschinentyp abhängig ist. Wenn Sie PHP einen vorzeichenlosen Ganzzahlwert geben, der für diese Art der Speicherung zu groß ist, wird er in eine Gleitkommazahl umgewandelt, was oft zu unerwünschten Ergebnissen führt.
Parameter-Liste
- Format
-
Die Zeichenkette Format besteht aus Format-Codes, gefolgt von einem optionalen Wiederholungs-Argument. Dieses Argument kann ein ganzzahliger Wert sein oder ein * für Wiederholung bis ans Ende der Daten. Bei den Format-Codes a, A, h und H gibt das Wiederholungs-Argument an, wie viele gleiche Zeichen folgen. Im Zusammenhang mit "@" gibt das Wiederholungs-Argument die absolute Position an, ab der das nächste Zeichen steht. Bei allen anderen steht der Wiederholungs-Zähler für die Anzahl der benutzten Daten-Argumente, die in die sich ergebende Binär-Zeichenkette gepackt werden sollen.
Zurzeit sind folgende Formate implementiert:
pack() Formatzeichen Code Beschreibung a mit NUL gefüllte Zeichenkette A mit Leerzeichen gefüllte Zeichenkette h Hex-Zeichenkette, unterer Halbwert zuerst H Hex-Zeichenkette, oberer Halbwert zuerst c vorzeichenbehaftetes Zeichen C vorzeichenloses Zeichen s vorzeichenbehafteter Short-Typ (immer 16 Bit, Byte-Folge maschinenabhängig) S vorzeichenloser Short-Typ (immer 16 Bit, Byte-Folge maschinenabhängig) n vorzeichenloser Short-Typ (immer 16 Bit, Byte-Folge Big Endian) v vorzeichenloser Short-Typ (immer 16 Bit, Byte-Folge Little Endian) i vorzeichenbehaftete Ganzzahl (Größe und Byte-Folge maschinenabhängig) I vorzeichenlose Ganzzahl (Größe und Byte-Folge maschinenabhängig) l vorzeichenbehafteter Long-Typ (immer 32 Bit, Byte-Folge maschinenabhängig) L vorzeichenloser Long-Typ (immer 32 Bit, Byte-Folge maschinenabhängig) N vorzeichenloser Long-Typ (immer 32 Bit, Byte-Folge Big Endian) V vorzeichenloser Long-Typ (immer 32 Bit, Byte-Folge Little Endian) f Gleitkommazahl (maschinenabhängige Größe und Wiedergabe) d Double-Typ (maschinenabhängige Größe und Wiedergabe) x NUL Byte X geht in der Zeichenkette ein Byte rückwärts @ NUL-Auffüllung bis zur absoluten Position - Argumente
-
Rückgabewerte
Gibt die Daten als Binär-Zeichenkette zurück.
Beispiele
Beispiel #1 pack() Beispiel
<?php
$binaerdaten = pack("nvc*", 0x1234, 0x5678, 65, 66);
?>
Die sich daraus ergebende Binär-Zeichenkette ist sechs Bytes lang und enthält die Byte-Folge 0x12, 0x34, 0x78, 0x56, 0x41, 0x42.
pack
05-Jul-2008 04:17
08-May-2008 07:26
Be aware of format code H always padding the 0 for byte-alignment to the right (for odd count of nibbles).
So pack("H", "7") results in 0x70 (ASCII character 'p') and not in 0x07 (BELL character)
as well as pack("H*", "347") results in 0x34 ('4') and 0x70 ('p') and not 0x03 and 0x47.
25-Jan-2008 06:45
<?PHP
function ntohs($port) {
$b=pack("N", $port);
return substr($b,2,2);
}
?>
I've spent a number of hours (n>=2) finding how to do this,
it works like the c function 'ntohs', used for eg the socks5 proxy protocol.
05-Sep-2007 04:00
This is how I used pack to convert base2 to base64 since base_convert doesn't support base64
The base conversions don't work for long strings, which is why I convert 1 byte at a time
Hope this helps someone
function base2to64($base2) {
if ($remainbits = strlen($base2)%8) $base2 .= str_repeat('0',8-$remainbits);
$base64 = NULL;
for ($i=0;$i<strlen($base2);$i+=8) $base16 .= sprintf('%02x',bindec(sprintf('%08d',substr($base2,$i,8))));
return base64_encode(pack('H*',$base16));
}
function base64to2($base64) {
list($base16) = unpack('H*0',base64_decode($base64));
$base2 = NULL;
for ($i=0;$i<strlen($base16);$i++) $base2 .= sprintf('%04d',base_convert(substr($base16,$i,1),16,2));
return $base2;
}
15-Feb-2007 04:21
This is how you can produce a code that is in fact a picture.
(This code is a complete tool, copy it to a file, call it 'somehow.php' and produce your pictures as hexcode).
<!--// ***Begin of File*** //-->
<form method="post" action="<?php echo $_SERVER['PHP_SELF'];?>" enctype="multipart/form-data">
<input type="file" name="thefile"><input type="submit">
</form>
<?php
$rh = fopen ($_FILES['thefile']['tmp_name'], "r");
$pb = fread($rh, 8192);
fclose($rh);
$pc = bin2hex($pb);
$pd = wordwrap($pc, 76, "\".<br /> \n \"", 1);
echo "<TT>\$hexpic=\""."$pd"."\"\n</TT>;";
?>
<!--// ***End of File*** //-->
Copy the result in your site code somewhere. For to show the code as a picture you can use something like what dirk (at) camindo de wrote ...
<?php
$hexpic=".......................
.....................";
$data = pack("H" . strlen($hexpic), $hexpic);
header("Content-Type: image/png");
// maybe your is jpeg / gif / png
header("Last-Modified: " . date("r", filectime($_SERVER['SCRIPT_FILENAME'])));
header("Content-Length: " . strlen($data));
echo $data;
?>
have fun!
19-Jan-2007 03:22
Work around newsletter tracking:
include a transparent gif (1x1 pixel) with url = track.php and parameters.
track.php has to write the parameters e.g. into a database and provides the gif - using following code:
header("Content-Type: image/gif");
header("Content-Length: 49");
echo pack('H*',
'47494638396101000100910000000000ffffffff'
.'ffff00000021f90405140002002c000000000100'
.'01000002025401003b'
);
22-Mar-2006 04:25
When trying to create a ZIP file using the pack function - I experienced trouble with the "a" code - It converted all chars correct from the std. ASCII charset but not more language specific like ÆøÅ.
It seems that ZIP files do not use the same HEX for these as everything else does.
The fix was a quick workaround but you'll probably get the picture:
function UniHex($str) {
// æ ø å Æ Ø Å
//These are simply one HEX code being replaced by another to correct the issue
$except = array("E6"=>"91","F8"=>"9B","E5"=>"86","C6"=>"92","D8"=>"9D", "C5"=>"8F");
for($i = 0; $i < strlen($str); $i++) {
$hex = bin2hex(substr($str, $i, 1));
if ($except[strtoupper($hex)])
$hex = $except[strtoupper($hex)];
$return .= $hex;
}
return $return;
}
And then i replaced an "a100" code with "H".strlen(uniHex($mystring))
This is like i said a quick workaround, but if you find the real reason for this i'd be happy to see it
13-Mar-2006 08:57
/* Convert float from HostOrder to Network Order */
function FToN( $val )
{
$a = unpack("I",pack( "f",$val ));
return pack("N",$a[1] );
}
/* Convert float from Network Order to HostOrder */
function NToF($val )
{
$a = unpack("N",$val);
$b = unpack("f",pack( "I",$a[1]));
return $b[1];
}
11-Oct-2005 10:42
You will get the same effect with
<?php
function _readInt($fp)
{
return unpack('V', fread($fp, 4));
}
?>
or unpack('N', ...) for big-endianness.
I needed to convert binary values from a file to integers.
Maybe there is something simpler, but the snippets i saw above seemed a little convoluted:
function bin2asc ($binary)
{
$val = 0;
for ($i = strlen($binary) - 1; $i >= 0; $i--) {
$ch = substr($binary, $i, 1);
$val = ($val << 8) | ord($ch);
}
return $val;
}
This was called like the following from a binary file:
function _readInt($fp)
{
return bin2asc(fread($fp, 4));
}
Note that the for loop should be reversed for network byte order instead of intel byte order. Also the conversion will work with any number of bytes, but will happily overflow.
01-Sep-2004 11:12
a cool function to converrt numbers to Persian numbers(utf-8)
origin: http://www.farsiweb.info/jalali/jalali.phps
function farsinum($str)
{
$ret = "";
for ($i = 0; $i < strlen($str); ++$i) {
$c = $str[$i];
if( $c >= '0' && $c <= '9' )
$out .= pack("C*", 0xDB, 0xB0 + $c);
else
$ret .= $c;
}
return $ret;
}
02-Oct-2003 11:39
take note: if you produce binary files using PHP on multiple platforms, that you use one of the machine-independent pack options.
This means 's' 'S' 'i' 'I' 'd' and 'f' are _EVIL_ :) Took me some time to figure out what my Excel-generator what futzing about :) Turned out the production machine was a Sun Sparc. I develop on my own x86 Linux server.
Hope this helps anyone...
c-ya,
Jurgen
10-Jul-2001 09:53
If you are trying to do ascii <--> binary conversions like me;
you probably found that unlike the perl pack functions, these wont help too much. Attached are two functions I wrote to accomplish this task.
<br>
function bin2asc ($binary)
{
$i = 0;
while ( strlen($binary) > 3 )
{
$byte[$i] = substr($binary, 0, 8);
$byte[$i] = base_convert($byte[$i], 2, 10);
$byte[$i] = chr($byte[$i]);
$binary = substr($binary, 8);
$ascii = "$ascii$byte[$i]";
}
return $ascii;
}
<br>
function asc2bin ($ascii)
{
while ( strlen($ascii) > 0 )
{
$byte = ""; $i = 0;
$byte = substr($ascii, 0, 1);
while ( $byte != chr($i) ) { $i++; }
$byte = base_convert($i, 10, 2);
$byte = str_repeat("0", (8 - strlen($byte)) ) . $byte; # This is an endian (architexture) specific line, you may need to alter it.
$ascii = substr($ascii, 1);
$binary = "$binary$byte";
}
return $binary;
}
<br>
Im not sure these are the most efficient functions, but surely alot faster than loading up a perl interpreter for every binary conversion =)
10-Aug-2000 04:14
Note that the the upper command in perl looks like this:<br>
$binarydata = pack ("n v c*", 0x1234, 0x5678, 65, 66);<br>
In PHP it seems that no whitespaces are allowed in the first parameter. So if you want to convert your pack command from perl -> PHP, don't forget to remove the whitespaces!
