-
Notifications
You must be signed in to change notification settings - Fork 1
/
qrpff-preobfuscation
executable file
·83 lines (64 loc) · 2.91 KB
/
qrpff-preobfuscation
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
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
#!/usr/bin/perl -w
@table = (0x33,0x73,0x3b,0x26,0x63,0x23,0x6b,0x76,0x3e,0x7e,0x36,0x2b,0x6e,0x2e,0x66,0x7b,
0xd3,0x93,0xdb,0x06,0x43,0x03,0x4b,0x96,0xde,0x9e,0xd6,0x0b,0x4e,0x0e,0x46,0x9b,
0x57,0x17,0x5f,0x82,0xc7,0x87,0xcf,0x12,0x5a,0x1a,0x52,0x8f,0xca,0x8a,0xc2,0x1f,
0xd9,0x99,0xd1,0x00,0x49,0x09,0x41,0x90,0xd8,0x98,0xd0,0x01,0x48,0x08,0x40,0x91,
0x3d,0x7d,0x35,0x24,0x6d,0x2d,0x65,0x74,0x3c,0x7c,0x34,0x25,0x6c,0x2c,0x64,0x75,
0xdd,0x9d,0xd5,0x04,0x4d,0x0d,0x45,0x94,0xdc,0x9c,0xd4,0x05,0x4c,0x0c,0x44,0x95,
0x59,0x19,0x51,0x80,0xc9,0x89,0xc1,0x10,0x58,0x18,0x50,0x81,0xc8,0x88,0xc0,0x11,
0xd7,0x97,0xdf,0x02,0x47,0x07,0x4f,0x92,0xda,0x9a,0xd2,0x0f,0x4a,0x0a,0x42,0x9f,
0x53,0x13,0x5b,0x86,0xc3,0x83,0xcb,0x16,0x5e,0x1e,0x56,0x8b,0xce,0x8e,0xc6,0x1b,
0xb3,0xf3,0xbb,0xa6,0xe3,0xa3,0xeb,0xf6,0xbe,0xfe,0xb6,0xab,0xee,0xae,0xe6,0xfb,
0x37,0x77,0x3f,0x22,0x67,0x27,0x6f,0x72,0x3a,0x7a,0x32,0x2f,0x6a,0x2a,0x62,0x7f,
0xb9,0xf9,0xb1,0xa0,0xe9,0xa9,0xe1,0xf0,0xb8,0xf8,0xb0,0xa1,0xe8,0xa8,0xe0,0xf1,
0x5d,0x1d,0x55,0x84,0xcd,0x8d,0xc5,0x14,0x5c,0x1c,0x54,0x85,0xcc,0x8c,0xc4,0x15,
0xbd,0xfd,0xb5,0xa4,0xed,0xad,0xe5,0xf4,0xbc,0xfc,0xb4,0xa5,0xec,0xac,0xe4,0xf5,
0x39,0x79,0x31,0x20,0x69,0x29,0x61,0x70,0x38,0x78,0x30,0x21,0x68,0x28,0x60,0x71,
0xb7,0xf7,0xbf,0xa2,0xe7,0xa7,0xef,0xf2,0xba,0xfa,0xb2,0xaf,0xea,0xaa,0xe2,0xff);
sub r { ord pack "B8", unpack "b8", chr shift }
sub cssdescramble {
my ($sector, $key) = @_;
my @salted;
my @sector = map { ord } split //, $sector;
my @key = map { ord } split //, $key;
my ($offset, $mark, $marc, $garry, $chris, $val);
$offset = ($sector[ 13 ] & 0x07) + 20;
return $sector if ( ($sector[ $offset ] & 0x30) != 0x10 );
print "Decrypting.\n";
$salted[ $_ ] = $key[ $_ ] ^ $sector[ 0x54 + $_ ] for (0 .. 4);
$mark = (($salted[4] << 17) | ($salted[3] << 9) | ($salted[2] << 1)) + 8 - ($salted[2] & 7);
$mark = (r($mark & 0xff)<<17) | (r(($mark >> 8) & 0xff) << 9)
| (r(($mark >> 16) & 0xff)<<1) | ($mark >> 24);
$marc = (r($salted[0]) << 9) | 0x100 | (r($salted[1]));
$val = 0;
for ( 128 .. 2047 ) {
$garry = ($mark >> 12) ^ ($mark >> 4) ^ ($mark >> 3) ^ $mark;
$chris = (($marc >> 14) & 7) ^ $marc;
$chris ^= ($chris << 3) ^ ($chris << 6);
$garry &= 255;
$chris &= 255;
$marc = ($marc >> 8) ^ ($chris << 9);
$mark = ($mark >> 8) ^ ($garry << 17);
$val += $garry + (~ $chris & 0xff);
$sector[ $_ ] = $table[ $sector[ $_ ] ] ^ ($val & 0xff);
$val >>= 8;
}
return join '', map { chr } @sector;
}
read STDIN, $input, 2048;
read STDIN, $key, 5;
read STDIN, $wanted_output, 2048;
$got_output = cssdescramble $input, $key;
@got = map { ord } split //, $got_output;
@wanted = map { ord } split //, $wanted_output;
for ( 0 .. 2047 ) {
if ( $got[ $_ ] != $wanted[ $_ ] ) {
print "$_ ";
}
}
print "\n";
if ( $wanted_output eq $got_output ) {
print "It works!\n";
} else {
print "Broken.\n";
}