120     function decodeBER($bin) {  argument
121         function my_unpack($format, &$bin, $length) {  argument
122             $res = unpack($format, $bin);
123             $bin = substr($bin, $length);
127         function readBER(&$bin) {  argument
128             if(!strlen($bin)) return FALSE;
130             $data = my_unpack("C1type/c1length", $bin, 2);
137                     $tmp = my_unpack("C1length", $bin, 1);
147                         $tmp = readBER($bin);
153                     $null = my_unpack("C1", $bin, 1);
154                     $data['value'] = readBER($bin);
157                     $data['value'] = readBER($bin);
162                         $tmp = my_unpack("C1data", $bin, 1);
169         return readBER($bin);