1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
|
#!/usr/bin/perl
sub decrypt {
my $data = shift;
my $len = shift;
my $outdata;
my $chr;
for (my $i = 0; $i < $len; $i++) {
$chr = ord(substr($data, $i, 1));
if ($chr) {
$outdata .= chr($chr ^ 0xff);
}
}
return $outdata;
}
sub print_binstr {
my $chr;
my $data = shift;
my $len = shift;
for(my $i = 0; $i < $len; $i++) {
printf("0x%02x,", ord(substr($data, $i, 1)));
if ($i && !(($i + 1) % 8)) {
print "\n";
}
}
}
undef $/;
$ucode = <>;
while (1) {
($flags, $offset, $len) = unpack('vVV', $ucode);
$len *= 2;
printf("Flags: 0x%x\n", $flags);
printf("Offset: 0x%x\n", $offset);
printf("Len: 0x%x\n", $len);
$data = substr($ucode, 10, $len);
if (!$flags) { last; }
if ($flags & 0x200) {
$data = decrypt($data, $len);
print "Name: $data\n";
}
if (($flags & 0xf00) == 0) {
print_binstr($data, $len);
}
print "\n";
$ucode = substr($ucode, 10 + $len);
}
|
