BBS in a Box 15

home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Prog / M / MacPerl 4.13 source.sit / Perl Source ƒ / MacPerl / lib / GUSI.ph < prev next >
MacBinary | 1993-10-23 | 3.5 KB | [TEXT/MPS ]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).

You can browse this item here: GUSI.ph
Confidence	Program	Detection	Match Type	Support
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Sat Oct 23 01:18:55 1993, modified Sat Oct 23 01:18:55 1993, creator 'MPS ', type ASCII, 2827 bytes "GUSI.ph" , at 0xb8b 428 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[MPS ]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 07 47 55 53 49 2e 70 | 68 00 00 00 00 00 00 00 |..GUSI.p|h.......|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 01 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 0b 0b 00 | 00 01 ac a8 ee 6f 3f a8 |........|.....o?.|
|00000060| ee 6f 3f 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.o?.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 41 04 00 00 |........|....A...|
|00000080| 23 20 50 65 72 6c 20 69 | 6e 74 65 72 66 61 63 65 |# Perl i|nterface|
|00000090| 20 74 6f 20 47 55 53 49 | 2c 20 4d 2e 20 4e 65 65 | to GUSI|, M. Nee|
|000000a0| 72 61 63 68 65 72 20 32 | 38 4e 6f 76 39 32 0d 0d |racher 2|8Nov92..|
|000000b0| 70 61 63 6b 61 67 65 20 | 47 55 53 49 3b 0d 0d 23 |package |GUSI;..#|
|000000c0| 20 41 64 64 72 65 73 73 | 20 66 61 6d 69 6c 69 65 | Address| familie|
|000000d0| 73 0d 0d 73 75 62 20 41 | 46 5f 55 4e 53 50 45 43 |s..sub A|F_UNSPEC|
|000000e0| 09 09 7b 20 30 3b 09 7d | 0d 73 75 62 20 41 46 5f |..{ 0;.}|.sub AF_|
|000000f0| 55 4e 49 58 09 09 09 7b | 20 31 3b 09 7d 0d 73 75 |UNIX...{| 1;.}.su|
|00000100| 62 20 41 46 5f 49 4e 45 | 54 09 09 09 7b 20 32 3b |b AF_INE|T...{ 2;|
|00000110| 09 7d 0d 73 75 62 20 41 | 46 5f 43 54 42 20 09 09 |.}.sub A|F_CTB ..|
|00000120| 09 7b 20 33 3b 09 7d 0d | 73 75 62 20 41 46 5f 46 |.{ 3;.}.|sub AF_F|
|00000130| 49 4c 45 20 09 09 7b 20 | 34 3b 09 7d 0d 73 75 62 |ILE ..{ |4;.}.sub|
|00000140| 20 41 46 5f 50 50 43 20 | 09 09 09 7b 20 35 3b 09 | AF_PPC |...{ 5;.|
|00000150| 7d 0d 73 75 62 20 41 46 | 5f 41 50 50 4c 45 54 41 |}.sub AF|_APPLETA|
|00000160| 4c 4b 09 7b 20 31 36 3b | 09 7d 0d 73 75 62 20 41 |LK.{ 16;|.}.sub A|
|00000170| 54 41 4c 4b 5f 53 59 4d | 41 44 44 52 09 7b 20 32 |TALK_SYM|ADDR.{ 2|
|00000180| 37 32 3b 7d 0d 0d 23 20 | 53 6f 63 6b 65 74 20 74 |72;}..# |Socket t|
|00000190| 79 70 65 73 0d 0d 73 75 | 62 20 53 4f 43 4b 5f 53 |ypes..su|b SOCK_S|
|000001a0| 54 52 45 41 4d 20 09 7b | 20 31 3b 09 7d 0d 73 75 |TREAM .{| 1;.}.su|
|000001b0| 62 20 53 4f 43 4b 5f 44 | 47 52 41 4d 20 09 7b 20 |b SOCK_D|GRAM .{ |
|000001c0| 32 3b 09 7d 0d 0d 23 20 | 41 64 64 72 65 73 73 20 |2;.}..# |Address |
|000001d0| 66 6f 72 6d 61 74 73 0d | 0d 73 75 62 20 70 61 63 |formats.|.sub pac|
|000001e0| 6b 5f 73 6f 63 6b 61 64 | 64 72 5f 69 6e 09 7b 0d |k_sockad|dr_in.{.|
|000001f0| 09 6c 6f 63 61 6c 28 24 | 66 61 6d 69 6c 79 2c 20 |.local($|family, |
|00000200| 24 61 64 64 72 2c 20 24 | 70 6f 72 74 29 20 3d 20 |$addr, $|port) = |
|00000210| 40 5f 3b 0d 0d 09 69 66 | 20 28 24 61 64 64 72 20 |@_;...if| ($addr |
|00000220| 3d 7e 20 2f 5e 28 5c 64 | 2b 29 2b 5c 2e 28 5c 64 |=~ /^(\d|+)+\.(\d|
|00000230| 2b 29 5c 2e 28 5c 64 2b | 29 5c 2e 28 5c 64 2b 29 |+)\.(\d+|)\.(\d+)|
|00000240| 2f 29 20 7b 0d 09 09 24 | 61 64 64 72 20 3d 20 70 |/) {...$|addr = p|
|00000250| 61 63 6b 28 27 43 34 27 | 2c 20 24 31 2c 20 24 32 |ack('C4'|, $1, $2|
|00000260| 2c 20 24 33 2c 20 24 34 | 29 3b 0d 09 7d 20 65 6c |, $3, $4|);..} el|
|00000270| 73 65 20 7b 0d 09 09 6c | 6f 63 61 6c 28 40 78 29 |se {...l|ocal(@x)|
|00000280| 20 3d 20 67 65 74 68 6f | 73 74 62 79 6e 61 6d 65 | = getho|stbyname|
|00000290| 28 24 61 64 64 72 29 3b | 0d 09 09 72 65 74 75 72 |($addr);|...retur|
|000002a0| 6e 20 75 6e 64 65 66 20 | 75 6e 6c 65 73 73 20 40 |n undef |unless @|
|000002b0| 78 3b 0d 09 09 24 61 64 | 64 72 20 3d 20 24 78 5b |x;...$ad|dr = $x[|
|000002c0| 34 5d 3b 0d 09 7d 0d 09 | 0d 09 70 61 63 6b 28 22 |4];..}..|..pack("|
|000002d0| 73 20 53 20 61 34 20 78 | 38 22 2c 20 24 66 61 6d |s S a4 x|8", $fam|
|000002e0| 69 6c 79 2c 20 24 70 6f | 72 74 2c 20 24 61 64 64 |ily, $po|rt, $add|
|000002f0| 72 29 3b 0d 7d 0d 0d 73 | 75 62 20 75 6e 70 61 63 |r);.}..s|ub unpac|
|00000300| 6b 5f 73 6f 63 6b 61 64 | 64 72 5f 69 6e 20 7b 0d |k_sockad|dr_in {.|
|00000310| 09 6c 6f 63 61 6c 28 24 | 61 64 64 72 29 20 3d 20 |.local($|addr) = |
|00000320| 40 5f 3b 0d 09 6c 6f 63 | 61 6c 28 24 66 61 6d 69 |@_;..loc|al($fami|
|00000330| 6c 79 2c 20 24 70 6f 72 | 74 2c 20 24 61 31 2c 20 |ly, $por|t, $a1, |
|00000340| 24 61 32 2c 20 24 61 33 | 2c 20 24 61 34 29 20 3d |$a2, $a3|, $a4) =|
|00000350| 20 75 6e 70 61 63 6b 28 | 22 73 20 53 20 43 34 20 | unpack(|"s S C4 |
|00000360| 78 38 22 2c 20 24 61 64 | 64 72 29 3b 0d 09 0d 09 |x8", $ad|dr);....|
|00000370| 28 24 66 61 6d 69 6c 79 | 2c 20 22 24 61 31 2e 24 |($family|, "$a1.$|
|00000380| 61 32 2e 24 61 33 2e 24 | 61 34 22 2c 20 24 70 6f |a2.$a3.$|a4", $po|
|00000390| 72 74 29 3b 0d 7d 0d 0d | 73 75 62 20 70 61 63 6b |rt);.}..|sub pack|
|000003a0| 5f 73 6f 63 6b 61 64 64 | 72 5f 75 6e 09 7b 0d 09 |_sockadd|r_un.{..|
|000003b0| 6c 6f 63 61 6c 28 24 66 | 61 6d 69 6c 79 2c 20 24 |local($f|amily, $|
|000003c0| 70 61 74 68 29 20 3d 20 | 40 5f 3b 0d 09 0d 09 70 |path) = |@_;....p|
|000003d0| 61 63 6b 28 22 73 20 61 | 31 30 38 22 2c 20 24 66 |ack("s a|108", $f|
|000003e0| 61 6d 69 6c 79 2c 20 24 | 70 61 74 68 29 3b 0d 7d |amily, $|path);.}|
|000003f0| 0d 0d 73 75 62 20 75 6e | 70 61 63 6b 5f 73 6f 63 |..sub un|pack_soc|
|00000400| 6b 61 64 64 72 5f 75 6e | 20 7b 0d 09 6c 6f 63 61 |kaddr_un| {..loca|
|00000410| 6c 28 24 61 64 64 72 29 | 20 3d 20 40 5f 3b 0d 09 |l($addr)| = @_;..|
|00000420| 0d 09 72 65 74 75 72 6e | 20 75 6e 70 61 63 6b 28 |..return| unpack(|
|00000430| 22 73 20 61 31 30 38 22 | 2c 20 24 61 64 64 72 29 |"s a108"|, $addr)|
|00000440| 3b 0d 7d 0d 0d 73 75 62 | 20 70 61 63 6b 5f 73 6f |;.}..sub| pack_so|
|00000450| 63 6b 61 64 64 72 5f 61 | 74 6c 6b 09 7b 0d 09 6c |ckaddr_a|tlk.{..l|
|00000460| 6f 63 61 6c 28 24 66 61 | 6d 69 6c 79 2c 20 24 6e |ocal($fa|mily, $n|
|00000470| 65 74 2c 20 24 6e 6f 64 | 65 2c 20 24 73 6f 63 6b |et, $nod|e, $sock|
|00000480| 65 74 29 20 3d 20 40 5f | 3b 0d 09 0d 09 70 61 63 |et) = @_|;....pac|
|00000490| 6b 28 22 73 20 73 20 43 | 20 43 22 2c 20 24 66 61 |k("s s C| C", $fa|
|000004a0| 6d 69 6c 79 2c 20 24 6e | 65 74 2c 20 24 6e 6f 64 |mily, $n|et, $nod|
|000004b0| 65 2c 20 24 73 6f 63 6b | 65 74 29 3b 0d 7d 0d 0d |e, $sock|et);.}..|
|000004c0| 73 75 62 20 75 6e 70 61 | 63 6b 5f 73 6f 63 6b 61 |sub unpa|ck_socka|
|000004d0| 64 64 72 5f 61 74 6c 6b | 20 7b 0d 09 6c 6f 63 61 |ddr_atlk| {..loca|
|000004e0| 6c 28 24 61 64 64 72 29 | 20 3d 20 40 5f 3b 0d 09 |l($addr)| = @_;..|
|000004f0| 0d 09 75 6e 70 61 63 6b | 28 22 73 20 73 20 43 20 |..unpack|("s s C |
|00000500| 43 22 2c 20 24 61 64 64 | 72 29 3b 0d 7d 0d 0d 73 |C", $add|r);.}..s|
|00000510| 75 62 20 70 61 63 6b 5f | 73 6f 63 6b 61 64 64 72 |ub pack_|sockaddr|
|00000520| 5f 61 74 6c 6b 5f 73 79 | 6d 09 7b 0d 09 6c 6f 63 |_atlk_sy|m.{..loc|
|00000530| 61 6c 28 24 66 61 6d 69 | 6c 79 2c 20 24 6f 62 6a |al($fami|ly, $obj|
|00000540| 2c 20 24 74 79 70 65 2c | 20 24 7a 6f 6e 65 29 20 |, $type,| $zone) |
|00000550| 3d 20 40 5f 3b 0d 09 6c | 6f 63 61 6c 28 24 66 6d |= @_;..l|ocal($fm|
|00000560| 74 29 3b 0d 09 0d 09 24 | 66 6d 74 09 3d 09 22 73 |t);....$|fmt.=."s|
|00000570| 20 43 20 61 22 20 2e 20 | 28 28 6c 65 6e 67 74 68 | C a" . |((length|
|00000580| 28 24 6f 62 6a 29 20 26 | 20 7e 31 29 20 2b 20 31 |($obj) &| ~1) + 1|
|00000590| 29 3b 0d 09 24 66 6d 74 | 09 2e 3d 09 22 43 20 61 |);..$fmt|..=."C a|
|000005a0| 22 20 2e 20 28 28 6c 65 | 6e 67 74 68 28 24 74 79 |" . ((le|ngth($ty|
|000005b0| 70 65 29 20 26 20 7e 31 | 29 20 2b 20 31 29 3b 0d |pe) & ~1|) + 1);.|
|000005c0| 09 24 66 6d 74 09 2e 3d | 09 22 43 20 61 22 20 2e |.$fmt..=|."C a" .|
|000005d0| 20 28 28 6c 65 6e 67 74 | 68 28 24 7a 6f 6e 65 29 | ((lengt|h($zone)|
|000005e0| 20 26 20 7e 31 29 20 2b | 20 31 29 3b 0d 09 0d 09 | & ~1) +| 1);....|
|000005f0| 70 61 63 6b 28 24 66 6d | 74 2c 20 24 66 61 6d 69 |pack($fm|t, $fami|
|00000600| 6c 79 2c 20 6c 65 6e 67 | 74 68 28 24 6f 62 6a 29 |ly, leng|th($obj)|
|00000610| 2c 20 24 6f 62 6a 2c 20 | 6c 65 6e 67 74 68 28 24 |, $obj, |length($|
|00000620| 74 79 70 65 29 2c 20 24 | 74 79 70 65 2c 20 6c 65 |type), $|type, le|
|00000630| 6e 67 74 68 28 24 7a 6f | 6e 65 29 2c 20 24 7a 6f |ngth($zo|ne), $zo|
|00000640| 6e 65 29 3b 0d 7d 0d 0d | 73 75 62 20 75 6e 70 61 |ne);.}..|sub unpa|
|00000650| 63 6b 5f 73 6f 63 6b 61 | 64 64 72 5f 61 74 6c 6b |ck_socka|ddr_atlk|
|00000660| 5f 73 79 6d 20 7b 0d 09 | 6c 6f 63 61 6c 28 24 61 |_sym {..|local($a|
|00000670| 64 64 72 29 20 3d 20 40 | 5f 3b 0d 09 6c 6f 63 61 |ddr) = @|_;..loca|
|00000680| 6c 28 24 6c 65 6e 2c 20 | 24 6f 62 6a 2c 20 24 74 |l($len, |$obj, $t|
|00000690| 79 70 65 2c 20 24 7a 6f | 6e 65 29 3b 0d 09 0d 09 |ype, $zo|ne);....|
|000006a0| 28 24 6c 65 6e 2c 20 24 | 61 64 64 72 29 20 3d 20 |($len, $|addr) = |
|000006b0| 75 6e 70 61 63 6b 28 22 | 78 32 20 43 20 61 2a 22 |unpack("|x2 C a*"|
|000006c0| 2c 20 24 61 64 64 72 29 | 3b 0d 09 28 24 6f 62 6a |, $addr)|;..($obj|
|000006d0| 2c 20 24 61 64 64 72 29 | 20 3d 20 75 6e 70 61 63 |, $addr)| = unpac|
|000006e0| 6b 28 22 61 24 6c 65 6e | 20 22 20 2e 20 28 24 6c |k("a$len| " . ($l|
|000006f0| 65 6e 20 26 20 31 20 3f | 20 22 22 20 3a 20 22 78 |en & 1 ?| "" : "x|
|00000700| 20 22 29 20 2e 20 22 61 | 2a 22 2c 20 24 61 64 64 | ") . "a|*", $add|
|00000710| 72 29 3b 0d 09 28 24 6c | 65 6e 2c 20 24 61 64 64 |r);..($l|en, $add|
|00000720| 72 29 20 3d 20 75 6e 70 | 61 63 6b 28 22 78 32 20 |r) = unp|ack("x2 |
|00000730| 43 20 61 2a 22 2c 20 24 | 61 64 64 72 29 3b 0d 09 |C a*", $|addr);..|
|00000740| 28 24 74 79 70 65 2c 20 | 24 61 64 64 72 29 20 3d |($type, |$addr) =|
|00000750| 20 75 6e 70 61 63 6b 28 | 22 61 24 6c 65 6e 20 22 | unpack(|"a$len "|
|00000760| 20 2e 20 28 24 6c 65 6e | 20 26 20 31 20 3f 20 22 | . ($len| & 1 ? "|
|00000770| 22 20 3a 20 22 78 20 22 | 29 20 2e 20 22 61 2a 22 |" : "x "|) . "a*"|
|00000780| 2c 20 24 61 64 64 72 29 | 3b 0d 09 28 24 6c 65 6e |, $addr)|;..($len|
|00000790| 2c 20 24 61 64 64 72 29 | 20 3d 20 75 6e 70 61 63 |, $addr)| = unpac|
|000007a0| 6b 28 22 78 32 20 43 20 | 61 2a 22 2c 20 24 61 64 |k("x2 C |a*", $ad|
|000007b0| 64 72 29 3b 0d 09 28 24 | 7a 6f 6e 65 2c 20 24 61 |dr);..($|zone, $a|
|000007c0| 64 64 72 29 20 3d 20 75 | 6e 70 61 63 6b 28 22 61 |ddr) = u|npack("a|
|000007d0| 24 6c 65 6e 20 22 20 2e | 20 28 24 6c 65 6e 20 26 |$len " .| ($len &|
|000007e0| 20 31 20 3f 20 22 22 20 | 3a 20 22 78 20 22 29 20 | 1 ? "" |: "x ") |
|000007f0| 2e 20 22 61 2a 22 2c 20 | 24 61 64 64 72 29 3b 0d |. "a*", |$addr);.|
|00000800| 09 0d 09 28 24 66 61 6d | 69 6c 79 2c 20 24 6f 62 |...($fam|ily, $ob|
|00000810| 6a 2c 20 24 74 79 70 65 | 2c 20 24 7a 6f 6e 65 29 |j, $type|, $zone)|
|00000820| 3b 0d 7d 0d 0d 73 75 62 | 20 70 61 63 6b 5f 73 6f |;.}..sub| pack_so|
|00000830| 63 6b 61 64 64 72 5f 70 | 70 63 09 7b 0d 09 6c 6f |ckaddr_p|pc.{..lo|
|00000840| 63 61 6c 28 24 66 61 6d | 69 6c 79 2c 20 24 74 79 |cal($fam|ily, $ty|
|00000850| 70 65 2c 20 24 6e 61 6d | 65 2c 20 24 70 6f 72 74 |pe, $nam|e, $port|
|00000860| 74 79 70 65 29 20 3d 20 | 40 5f 3b 0d 09 6c 6f 63 |type) = |@_;..loc|
|00000870| 61 6c 28 24 70 70 63 4e | 42 50 54 79 70 65 4c 6f |al($ppcN|BPTypeLo|
|00000880| 63 61 74 69 6f 6e 2c 20 | 24 73 6d 52 6f 6d 61 6e |cation, |$smRoman|
|00000890| 2c 20 24 70 70 63 42 79 | 53 74 72 69 6e 67 29 09 |, $ppcBy|String).|
|000008a0| 3d 20 28 32 2c 30 2c 32 | 29 3b 0d 09 0d 09 70 61 |= (2,0,2|);....pa|
|000008b0| 63 6b 28 22 73 20 73 20 | 43 20 61 31 30 31 20 73 |ck("s s |C a101 s|
|000008c0| 20 43 20 61 33 32 20 78 | 20 73 20 43 20 61 33 32 | C a32 x| s C a32|
|000008d0| 22 2c 20 0d 09 09 24 66 | 61 6d 69 6c 79 2c 20 0d |", ...$f|amily, .|
|000008e0| 09 09 24 70 70 63 4e 42 | 50 54 79 70 65 4c 6f 63 |..$ppcNB|PTypeLoc|
|000008f0| 61 74 69 6f 6e 2c 20 6c | 65 6e 67 74 68 28 24 74 |ation, l|ength($t|
|00000900| 79 70 65 29 2c 20 24 74 | 79 70 65 2c 0d 09 09 24 |ype), $t|ype,...$|
|00000910| 73 6d 52 6f 6d 61 6e 2c | 20 6c 65 6e 67 74 68 28 |smRoman,| length(|
|00000920| 24 6e 61 6d 65 29 2c 20 | 24 6e 61 6d 65 2c 20 24 |$name), |$name, $|
|00000930| 70 70 63 42 79 53 74 72 | 69 6e 67 2c 20 6c 65 6e |ppcByStr|ing, len|
|00000940| 67 74 68 28 24 70 6f 72 | 74 74 79 70 65 29 2c 20 |gth($por|ttype), |
|00000950| 24 70 6f 72 74 74 79 70 | 65 29 3b 0d 7d 0d 0d 73 |$porttyp|e);.}..s|
|00000960| 75 62 20 70 61 63 6b 5f | 73 61 5f 63 6f 6e 73 74 |ub pack_|sa_const|
|00000970| 72 5f 66 69 6c 65 09 7b | 0d 09 6c 6f 63 61 6c 28 |r_file.{|..local(|
|00000980| 24 63 6f 75 6e 74 2c 20 | 24 63 6f 6e 73 74 72 2c |$count, |$constr,|
|00000990| 20 24 63 75 72 29 20 3d | 20 28 30 2c 20 22 22 29 | $cur) =| (0, "")|
|000009a0| 3b 0d 09 0d 09 77 68 69 | 6c 65 20 28 24 63 75 72 |;....whi|le ($cur|
|000009b0| 20 3d 20 73 68 69 66 74 | 29 20 7b 0d 09 09 2b 2b | = shift|) {...++|
|000009c0| 24 63 6f 75 6e 74 3b 0d | 09 09 24 63 6f 6e 73 74 |$count;.|..$const|
|000009d0| 72 20 2e 3d 20 70 61 63 | 6b 28 22 41 34 22 2c 20 |r .= pac|k("A4", |
|000009e0| 24 63 75 72 29 3b 0d 09 | 7d 0d 09 0d 09 70 61 63 |$cur);..|}....pac|
|000009f0| 6b 28 22 73 22 2c 20 24 | 63 6f 75 6e 74 29 20 2e |k("s", $|count) .|
|00000a00| 20 24 63 6f 6e 73 74 72 | 3b 0d 7d 0d 0d 73 75 62 | $constr|;.}..sub|
|00000a10| 20 70 61 63 6b 5f 73 61 | 5f 63 6f 6e 73 74 72 5f | pack_sa|_constr_|
|00000a20| 61 74 6c 6b 09 7b 0d 09 | 6c 6f 63 61 6c 28 24 63 |atlk.{..|local($c|
|00000a30| 6f 75 6e 74 2c 20 24 63 | 6f 6e 73 74 72 2c 20 24 |ount, $c|onstr, $|
|00000a40| 63 75 72 29 20 3d 20 28 | 30 2c 20 22 22 29 3b 0d |cur) = (|0, "");.|
|00000a50| 09 0d 09 77 68 69 6c 65 | 20 28 24 63 75 72 20 3d |...while| ($cur =|
|00000a60| 20 73 68 69 66 74 29 20 | 7b 0d 09 09 2b 2b 24 63 | shift) |{...++$c|
|00000a70| 6f 75 6e 74 3b 0d 09 09 | 24 63 6f 6e 73 74 72 20 |ount;...|$constr |
|00000a80| 2e 3d 20 70 61 63 6b 28 | 22 78 34 20 43 20 61 33 |.= pack(|"x4 C a3|
|00000a90| 33 22 2c 20 6c 65 6e 67 | 74 68 28 24 63 75 72 29 |3", leng|th($cur)|
|00000aa0| 2c 20 24 63 75 72 29 3b | 0d 09 7d 0d 09 0d 09 70 |, $cur);|..}....p|
|00000ab0| 61 63 6b 28 22 73 22 2c | 20 24 63 6f 75 6e 74 29 |ack("s",| $count)|
|00000ac0| 20 2e 20 24 63 6f 6e 73 | 74 72 3b 0d 7d 0d 0d 73 | . $cons|tr;.}..s|
|00000ad0| 75 62 20 70 61 63 6b 5f | 73 61 5f 63 6f 6e 73 74 |ub pack_|sa_const|
|00000ae0| 72 5f 70 70 63 09 7b 0d | 09 6c 6f 63 61 6c 28 24 |r_ppc.{.|.local($|
|00000af0| 74 79 70 65 29 20 3d 20 | 40 5f 3b 0d 09 0d 09 70 |type) = |@_;....p|
|00000b00| 61 63 6b 28 22 43 20 61 | 33 33 22 2c 20 6c 65 6e |ack("C a|33", len|
|00000b10| 67 74 68 28 24 74 79 70 | 65 29 2c 20 24 74 79 70 |gth($typ|e), $typ|
|00000b20| 65 29 3b 0d 7d 0d 0d 23 | 20 46 6c 61 67 73 20 66 |e);.}..#| Flags f|
|00000b30| 6f 72 20 63 68 6f 6f 73 | 65 28 29 0d 0d 73 75 62 |or choos|e()..sub|
|00000b40| 20 43 48 4f 4f 53 45 5f | 44 45 46 41 55 4c 54 09 | CHOOSE_|DEFAULT.|
|00000b50| 7b 09 31 3b 09 7d 0d 73 | 75 62 20 43 48 4f 4f 53 |{.1;.}.s|ub CHOOS|
|00000b60| 45 5f 4e 45 57 20 09 09 | 7b 09 32 3b 09 7d 0d 73 |E_NEW ..|{.2;.}.s|
|00000b70| 75 62 20 43 48 4f 4f 53 | 45 5f 44 49 52 20 09 09 |ub CHOOS|E_DIR ..|
|00000b80| 7b 09 34 3b 09 7d 0d 0d | 31 3b 0d 00 00 00 00 00 |{.4;.}..|1;......|
|00000b90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ba0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000bb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000bc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000bd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000be0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000bf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c00| 00 00 01 00 00 00 01 6e | 00 00 00 6e 00 00 00 3e |.......n|...n...>|
|00000c10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c20| 00 00 00 00 00 00 00 00 | 00 02 a7 ec 70 d7 00 00 |........|....p...|
|00000c30| 07 47 55 53 49 2e 70 68 | 02 00 00 00 54 45 58 54 |.GUSI.ph|....TEXT|
|00000c40| 4d 50 53 20 01 00 00 d0 | 00 50 00 00 00 00 04 36 |MPS ....|.P.....6|
|00000c50| 00 00 54 45 58 54 4d 50 | 53 20 01 00 00 d0 00 50 |..TEXTMP|S .....P|
|00000c60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c70| 00 00 a8 ee 28 ee 00 00 | 0b 0b 00 00 01 ac 64 61 |....(...|......da|
|00000c80| 6c 66 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |lf......|........|
|00000c90| 00 00 00 00 00 00 a8 b0 | 42 62 42 44 00 00 00 00 |........|BbBD....|
|00000ca0| 00 01 07 67 61 6e 64 61 | 6c 66 00 00 00 00 00 00 |...ganda|lf......|
|00000cb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000cc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000cd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ce0| 00 00 00 00 00 02 a8 b0 | 42 a1 00 00 00 00 00 00 |........|B.......|
|00000cf0| 00 00 ff ff ff ff 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d00| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 00 |...H..Mo|naco....|
|00000d10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d20| 00 00 00 00 00 00 00 06 | 00 03 00 50 00 20 01 dd |........|...P. ..|
|00000d30| 02 3d 00 50 00 20 01 dd | 02 3d a8 ee 28 ef 00 00 |.=.P. ..|.=..(...|
|00000d40| 00 00 00 00 00 00 00 00 | 00 a8 01 00 00 00 00 1e |........|........|
|00000d50| 00 50 00 20 01 dd 02 3d | 00 50 00 20 01 dd 02 3d |.P. ...=|.P. ...=|
|00000d60| 00 00 00 a8 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d70| 01 00 00 00 01 6e 00 00 | 00 6e 00 00 00 3e 00 2d |.....n..|.n...>.-|
|00000d80| f5 f4 15 4e 00 00 00 1c | 00 3e 00 00 4d 50 53 52 |...N....|.>..MPSR|
|00000d90| 00 01 00 0a 03 ed ff ff | 00 00 00 00 00 00 00 00 |........|........|
|00000da0| 03 f0 ff ff 00 00 00 4c | 00 30 4e 34 00 00 00 00 |.......L|.0N4....|
|00000db0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000dc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000dd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000de0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000df0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+