/*mod.obbfuscated.c#obbeA@@=<*/char *msg = /*2*/"This C source " /**/"code file is a " /*8*/"Protracker " /*@*/"module.\n" /*(B@@*/"This Protracker "/**/"module is a " /*11*/"C source code " /* , */"file which " /* */"implements a\n" /*(*/"pattern data " /*( */"scrambler."; /*( Cheers to everyone atGERP 2015@ M.K.  /  + [ :0S] Ż-Q ^ 6^]A@G   x x5+}Xxx xIx   X  0G+T]@ }E   T-9ST+ @TG] D  TG@:]'@G  47.^  W  G     ]DppG  a7+ x+@]BGTx   S^M07 $7   "  07+T S]P xB8  UpG+T S] + T ]T+] TC:}kmf  X'  E  X'  9@T T  +})+T S]T+ S  }@p6 SE8T cT+T S]E ThM17/[SMaG[hMbpG.+-c T;.]/  + [ :0S]@@/@GxS+T ]"  3 5 <M\  %  8 @G  7  4  b +]W ST 7 Y x, x2 &G YGx 4 x x`TrM`p7+ }H +^]G V  xR7 G T:@}]E@ TM2pYxx  SR @ @VM7  X 8T\;h]P]0:@ST S  Y ʚ$     P@+ ]1 }T]@@Y+S\02 @+]5 STMX xx% ]'h@p7 S3XMSx  +^0x  R S=8@P.; @M$   :@G-T  % xb G xa pG xxc  B:]:@ST  0pY S8 Q' x8 8 .T:0S]    S 3xx@+ G@7    G  x(p89 xa S F0  @]B0ST C:T:@}]E  Y @ ] T  %G  28.^  @ ^0x]( T  Rkh9.ff ! SB8ֻT ST:]4@p7  @}F]:@ST   6  ) TsG x0xS7x xF :T:0}]5  SGx   7  T  G xG X  I - 1p7T:@L-/[SMaG[hMbG  cT;.]  b@]#@@Y+ 8 @pG+T ]+ ]Q T+ T ]!  0  C7 T 2T  R] GT+ F@7 x (xSE  YpX+T ]( 0S)  G8 D0   T PT+^0x  @Y+T ]U  TM7 ]2@SP  H ]Q@p7SF 1G S\M\0@T:MDTG]VMT x, x1}hm".ff  pG/  5/  TM#7 (7TsM57 Q7 M'+T ]  @7^0x' x1x. T:0S]H @a T RT  W  ! +T S]#}DʫT $ST 0]S}@ ʫ T T xb G xa G  c  + S@7 4ST:MT-TST xS ʜ3  U S   Y  R %0 M", +] }T+ @]8GT G  C  x"  &  pG ^7   :]@@p6 :@ 8 T:0}]  :@   P@]GS@G  Y: 0@X: %0]):0ST 3SSS. 8\0֮]&ST ]9@p7+  V2 G'   +SM  `]5:@STT S]  !  RT 5TT 0ST 9ʫT ST (@T   x  `0  L H  A 0[ :0}]T 2ST  PT 8ST  3 T S]W]a.G]b.pG T@8S]A  SG  G XSTSM  9  DT ST .Y@T AT  H  Hx L    p7 F BG@]PST+ @G  x3T:@}]%: `:0: T:@}] T:0}] }+ "@8TM87]T ( `7+ } SCʜ 0 ] }T P @ c x  ֻ T ST  :@     A7   .9]ST]pG x`x+]9 }TQ+ T ]#  @T FT S$G x@x  C D: :0  5G WT T 6    xI  :@ + ]" T x bG x apG.+-c  ! +T ]@ @@p8ʮ[0.]H  })  G TMpG]6@p6 SbG  Y :M @T 6Tx X](}@8 G + B@p7 9   Mk hf\bf]EG  YY 7x 4 . V\0S  Q  &G  T:@}]Vxx  S4  Ů :0  ) x H 0  QpG Hx @MV, ]Uh@7  FX@Gxx  4  7 G 6G@]:@ST  X @T]S ]bX@G+ 'pGxx  D7ֻT:QST x xWS: 0@  F+T]B   x]b.G]a.G xxc   7x (    bGʫ T bST+]S@G ]h@7+ :0+ }7+@TG](+ ]@ T@VMG  AG[@S]+ T@]Y   9 P  5 ScG@]( TT:@}]E T ]@  ]@G+ ] T+::@ H  @]R0TֻT UST]Y@p7 # x2x]5@8]G@7  9 +40 ] @X x x  A}@8@T ]1 xx3]D@p7TsM'7 G  5  D ]G 40Tx2STs:]S@pG    b,  \0  G  G x x  :@  x8  ]!:0STx]b.G]a.G  c -.    ]D:@STx x@+ @G}k@m&f x xB P ^ ^T ST XT QT]@8ST x"xx G x  M4:]}@  Cp7T8S])  ]'@7 ^3G@  ]@@X   0:M G x3 x # ] T SSSS  x"p7  #G A x ^$Gx 0@T]'x C 4G Wʫ T T  :@ RT:@}]"x T T UT )  :M2   ` + T@8S]B  S $  (  !xx6x .:@- MVxxAxxL P+ b@p7hk.om& c   0S]C}@ xxY    @@ T 8T@ T ]' S8G G@]7:0ST @9 4\0 8 4} -`x G !7ʜ   T8S] ^^  M%  x S 8  C \ P &  x)8+ @p7  x( 8  P  77^%G+T ]%+@T]]70STx H @6  '  7 xT xxֻ]ISTʚ ISk mUf:[:0S]9]@7+ S@7  '   I   :Mx E +S\0E    H T@8S]  $  bTsVG ]ST]H@GTx  ` T@8S]I+  E ^ ]! M9  $s M%ST1Tkhf.f+ T@8S]! -T\;h]#  A+T S]9. -4+r}cG+}G G B xR+]C }T  (]HT a  }[}3P\ a@Y M'x @G `  G G  X   } DY   P D+ pG   8 x"x S8]I@GT A   @'T]U @6ʫ T T]}@8 TrSMp7 S8 T  V TSM3G W:@ x x ]a:@ST]7@'@ ]@@G  :@Y 9  E  0  2 X  G #  $ +T ]  E / }G]V T  7X]h@p7.x @Gx  G xP S8 ]a@' " xT ISTRYxx!  @ ]@@G Gxx  [ ]T@G]ʚ9  F   x"x  7  X  p7 [ ]T]B @   x x 0  4+]"0.T T}G x@T  x U  ( R+ }4 x`]:@ST  7 7  C @ @+T S]Y AG  Q -U+0F 3    Bx xT (T@VXM` Ts GT !ST G+ 0X@GXdr MQ   UX     &  SPG T 6T  x1 ^ ]# S+]V@p6 F7x x`  WX]FGT}$+ 80@ Y  1: Q:0T ]8 T:0S]W+ T@8S]c]):@STʫ @T AT G+ }7  ]G}@'x   xDx+T S]+SM]&Tx 3 P 9G]W@}P^M8G SG8  6  T  $T RST  1  B7+ 0@]Y@8ST  + #@7 xx2 x , x  A6  3:[:0S]]1ST $pX  Qp7 V7 0' ^Hp7]7Gֻ ]2ST: T0x F +T S]%+ ]X@pX    X  xAS}S xxGx X )7  6Y=1p}P 6GC G7 T0  EX@G IG xW8 . &\0֮+^]3 ^ MX #   I +@T]6+ )@p7 :@ % 0G]Fh@7  ! @T YT V' ^ MVGx XM,       xW ʫ @T 6TS+80S T IT  G}$T S] XY  A 4 C =I@ + C@'ʚ  +T@8S]3ʜ  #+  @X 3ֻT:8ST@ ]&0T xVT:@}]1  &   ` P @  c MH   U@]0T 9  SS+I0S @5+ T@8S]xx@ ]90T (7  VXE ^#p7  S]B@7@3 XM1@S   W]0ST   xxU @T+S='S@Px x`]@Y  SPG x"x  CG x Vx RG])S@7 0(k@mT f:T:0}]ֻT STS}8S  $}@6 xFx xx% @ T ] }T TsM`7+T ]V+] T  Y  FG+]T0.T  + T@]9+]BS@SP  H   $  6SG     R  XL]I0ST (   P+T@8S]1  U ^2G  7 T ]9 S`8]@p' V SW hMG7 x@Z   &  ]@G T ]" $Y@ ]@Y+r:M#G SDGT@G]c@S XMXS    'x a     xx  @@ ^   x7  ]@:0ST+ }% E8 ^#7  SHpG    ]h@7    4p7+ }@Y+ ]T}@6  x xxU]@' $X ]! ST})   xx  &7]D@8    S % x3p7 $ ] @G(  + T:@GThM7 TMAX @&  ]@@X @  Y    @ ]@pX]c T  QG 0  &42ST 0[ :0}]EʫT QSTSG] 0STʫT 2ST. '\0S :@ ]:0ST 0  c   &@}! M5 TMG+ 7@7  7  0  !  S5 }I @5 x, x@ ]'@8 U]1X@pG xI  ^MG  Yx  TsM)G]!@7   TG] + @pY ]Y@p7+T S]  W  #8    7  Gx x'Ů :00) 1B  B c %  7  ]F ST+ 4@' Q 37 T aTTxSSTsx x#x:  S ]'@pGxxC G  Y  )p'^M7+:@Y::]Q:@ST+ ):0  R x}  "   R WG  76  xW]:0ST  3  D  T:0S]a  }@8  SX@G]5@p7 Dx x4  @x x0]}@p' x5 @Ax   GSXMESS  "@ TrM7) Cx P  +h]@p7  U ^6p7 ^^  S!pGT S] & ]IT  x x ](Gx 6 +\@Mp8  2x xUx  S(G % }@::0 + ) x ʮ[0.]0 SG¿)1,6GIHPNQMOUSVY\_bcefhijkkjhYB;)Ǻ &**&4YUEėG_h $* ߀߻0/,:|?mg`7hH+@DP ͨ (`#C?VSUh-{PHK8xmPmHw~0oD?+((򰲲Ԁꀁ7 3P+$;7\ ?x@U(7}Pmh1W `.H_gD,(ЀҪЀۀȊ舳̀ ԜX+ GJE+h?`_ed`=@dJ5D;V oa(87n&; ؀&ր䀀耧 /(70P>k+}lS_H{|~U`/Ov0~*4$0@-ɀנؙ̘ď⨟ л(3аk3]"tKHGD*(<+?oxP ?,د ?߸اݜ @O@G 2-#/ [ P4?) BH MP. =(4  N ?T2og)?8%81Kul)H&dlLy\-x5vԄ1֢U@ލ7ږ,xnlLajOgv3{27 O L ''O GC6#ăߩjb}=9 b_X=s#*:6t%Ae7}ڣazSSr1~(ۏG 1g݉Nvm.>U=kDT'3 vwF3u?i'%1\>gE>ॽdwzZ*g8ࠫ܁qE)&nMb'p'k5k_s[u!6( ߁ŲFrȶaw-&eM:MoD8?j%L *²]_Q}d^)u7 NwժwJTD( Gh)B +eғU#M)aOW$1v2 I;AÁ@FՅ=Yj5&"{EDU@NF#vfIg W#{n)X;J;OFU6yYfϐ WsPkԎBwo1;w!ݰ},"ȍd*ܧz 35WѴ܉(]@&LYvp{ BjύͼMGHPLs[+2, 4rwG x+s(~DٓI %,ȱK[6$l X\F z|=UByTԡl8U[&$MK cAO"ϫfċzఓ}ꯨ@}%jB--mMv))0kpBy6/|SS:fG'?V#*f*m2qdZe5%'[h\Js!Ekz}z-m,x@d_lҡ|pahSS]-u1Y4ܖ HCSd!EhT<|V7F{S+5sHܲKt_ZUV|-&>&**W/BR\MHSPՇꊡ˂;6zMy07fEXja:x<: cJΰ*wbJa٢'c"2d'Ij/JgK`}]@l;z/dm?ݭ$l o9eǯJX*)+8|u5xvQưF`BZftFm{@d :?,hJF=jc}LEŏ\<>X l_ a,Rsx3lX 5d5U;!!X 2cxl f_>~-@R-a WK@uBBL#X+^J!2>umMy؋eo'K}ֹ_xO F|@p/73Vt xCǔ]Dͧ߯SS2NJELX7#Ma%\nYsG%RtXx7A%1ʬ\7Ig\b}o(l4e4҈$v9Sx){^ z $e,zixBv˽6yPh6{{V3 exHŬkn;Nr3;l}]OVO gӱq_ùIֆW}c13m# 3H 戔EPxBƑQ/JٵvtO/gP~ E/=kg 6  Sn'_:݊sr- It#+#AD½д16IPQOSY_cfikjY; &*RTEIIPURQNNUWUYceB%)  뻟SdPMcUC^i-<{|``||t|jYrfHmo*QX Զ΀SdPMcUC^i-<{|``||t|jYrfHmo*QX Զ΀SdPMcUC^i-<{|``||t|jYrfHmo*QX Զ΀*/ /* This is mod.obbfuscated.c. Compile with a C99 compiler. */ #include #include #include #include #ifdef DEBUG #define dprintf printf("%s():%d ", __func__, __LINE__); printf #else #define dprintf if(0) printf #endif static const uint8_t CMD_JUMP = 0x7; static const long O_MK = 1080; static const long O_SONGLEN = 950; static const long O_SONGPOS = 952; static const long O_PATTERNDATA = 1084; static const int POSLEN = 128; static const int LLEN = 4*4; static const int PLEN = 0x40*4*4; /* Module state */ static struct { /* Each source line has a "next" line where the linear succession is copied. */ int *nextline; /* Allocation state */ int *linepool; /* Source pattern data, destination pattern data */ uint8_t *srcp, *dstp; uint8_t songlen; /* 1..64 (128) (number of positions) */ uint8_t hipattern; /* 0..63 */ } p = {NULL, NULL, NULL, NULL, 0, 0}; /* Source file, destination file */ FILE *sf = NULL, *df = NULL; void init(void) { fseek(sf, O_SONGLEN, SEEK_SET); p.songlen = fgetc(sf); /* Truncate because PT supports only 64 patterns. */ p.songlen = 64 < p.songlen ? 64 : p.songlen; p.srcp = malloc(p.songlen*PLEN); p.dstp = malloc(p.songlen*PLEN); /* Make a linear copy of file pattern data to p.srcp */ for (int i = 0; i < p.songlen; i++) { fseek(sf, O_SONGPOS+i, SEEK_SET); int j = fgetc(sf); fseek(sf, O_PATTERNDATA+j*PLEN, SEEK_SET); fread(p.srcp+i*PLEN, 1, PLEN, sf); } fseek(sf, O_SONGPOS, SEEK_SET); for (int i = 0; i < POSLEN; i++) { int j = fgetc(sf); p.hipattern = j > p.hipattern ? j : p.hipattern; } p.linepool = malloc(p.songlen*0x40*sizeof(int)); p.nextline = malloc(p.songlen*0x40*sizeof(int)); for (int i = 0; i < p.songlen*0x40; i++) { p.linepool[i] = i; p.nextline[i] = -1; } } /* Allocate a line having number n in any pattern, or nothing. */ int lines_allocmod(int n) { n%=0x40; while (n < p.songlen*0x40) { if (-1 != p.linepool[n]) { p.linepool[n] = -1; return n; } n+=0x40; } return -1; } /* Allocate any line. */ int lines_allocany(void) { for(int i = 0; i < p.songlen*0x40; i++) { int n = p.linepool[i]; if (-1 != n) { p.linepool[i] = -1; return n; } } return -1; } static const int JUMP_NONE = -2; static const int JUMP_ANY = -1; int jumptype(int l) { int absval, abs=0, any=0; uint8_t *entry = &p.srcp[l*4*4]; for (int i = 0; i < 4; i++) { if (0 == ((entry[2] & 0xf) | entry[3])) { any++; } else if (CMD_JUMP == (entry[2] & 0xf)) { abs=1; absval=entry[3] % 0x40; } entry+=4; } if (abs && any) { return absval; } else if (1 < any) { return JUMP_ANY; } else { return JUMP_NONE; } } /* Find and allocate absolute line allocations. */ void pass1(void) { int i, jt, n=0; lines_allocmod(0); for (i = 0; i < p.songlen*0x40-1; i++) { /* Get preference */ jt = jumptype(i); if (0 <= jt) { /* Absolute allocation */ n = lines_allocmod(jt); if (-1 == n) { printf("ABS: i=0x%04x, n=0x%04x, jt=0x%04x: allocation: FAIL\n", i, n, jt); } else { dprintf("ABS: i=0x%04x, n=0x%04x, jt=0x%04x: allocation: PASS\n", i, n, jt); p.nextline[i] = n; } } else if (JUMP_ANY == jt) { /* This is an ANY allocation: processed in next pass. */ } else { printf("NONE: i=0x%04x, n=0x%04x, jt=0x%04x: allocation: FAIL\n", i, n, jt); } } /* Force jump from last line to first. */ p.nextline[i] = 0; } /* Arrange the n elements of array in random order. */ void shuffle(int *array, int n) { for (int i = 0; i < n-1; i++) { int j = i + rand() / (RAND_MAX / (n - i) + 1); int t = array[j]; array[j] = array[i]; array[i] = t; } } void pass2(void) { /* First randomize the remaining lines */ shuffle(p.linepool, p.songlen*64); for (int i = 0; i < p.songlen*0x40; i++) { /* Get preference */ int jt = jumptype(i); int n = p.nextline[i]; if (JUMP_NONE != jt) { /* Absolute or any allocation */ if (-1 == n) { /* Not already allocated (could also be unresolved absolute jumps. */ int a; a = lines_allocany(); dprintf("ANY: i=0x%04x, a=0x%04x: allocation: PASS\n", i, a); p.nextline[i] = a; } } else { printf("NONE: i=0x%04x, n=0x%04x, jt=0x%04x: allocation: FAIL\n", i, n, jt); } } { int a; while (-1 != (a = lines_allocany())) { printf("Unallocated line: a=0x%04x: FAIL\n", a); } } /* Verify */ for (int i = 0; i < p.songlen*0x40; i++) { /* Get preference */ int m = p.nextline[i]; if (m == -1) { printf("i=0x%04x has no next line installed: FAIL\n", i); } for (int j = 0; j < p.songlen*0x40; j++) { int n = p.nextline[j]; if ((m == n) && (i != j)) { printf("Loop detected: i=0x%02x, j=0x%02x, n=0x%02x: FAIL\n", i, j, n); } } } } void setjump(uint8_t *entry, int jt, int dline) { uint8_t pos = dline/64; uint8_t row = dline%64; /* B command must be BEFORE D command */ if (JUMP_NONE == jt) { /* do nothing */ } else if (JUMP_ANY == jt) { int found = 0; for (int i = 0; i < 4; i++) { if (0 == ((entry[2] & 0x0f) | entry[3])) { if (0 == found) { entry[2] |= 0x0b; entry[3] = pos; } else if (1 == found) { entry[2] |= 0x0d; /* Next position of the song and the row row. */ /* Silly decimal representation! */ entry[3] = (row/10)*16 | (row%10); } found++; } entry+=4; } } else { /* JUMP_ABS */ int bdone = 0; for (int i = 0; i < 4; i++) { uint8_t cmd = entry[2] & 0x0f; if (CMD_JUMP == cmd) { entry[2] &= 0xf0; entry[3] = 0x00; } if ((0 == (cmd | entry[3])) || (CMD_JUMP == cmd)) { if (0 == bdone) { entry[2] |= 0x0b; entry[3] = pos; } else if (1 == bdone) { entry[2] |= 0x0d; entry[3] = (row/10)*16 | (row%10); } bdone++; } entry+=4; } } } /* Copy each source line to destination. */ void pass3(void) { int dl; dl = 0; for (int sl = 0; sl < p.songlen*64; sl++) { memcpy(&p.dstp[dl*LLEN], &p.srcp[sl*LLEN], LLEN); int next = p.nextline[sl]; int jt = jumptype(sl); setjump(&p.dstp[dl*LLEN], jt, next); dl = next; } } void dump(void) { char c; int i; fseek(sf, 0, SEEK_SET); for(i = 0; i < O_SONGLEN; i++) { c = fgetc(sf); fputc(c, df); } fputc(p.songlen, df); fputc(127, df); for (i = 0; i < p.songlen; i++) { fputc(i, df); } for (;i < POSLEN; i++) { fputc(0, df); } fwrite("M.K.", 1, 4, df); fwrite(p.dstp, PLEN, p.songlen, df); fseek(sf, O_PATTERNDATA+(p.hipattern+1)*PLEN, SEEK_SET); while ( EOF != (i = fgetc(sf))) { fputc(i, df); } } void tryopen(int argc, char *argv[]) { if (argc < 3) { printf("%s SOURCE DEST\n", argv[0]); exit(EXIT_FAILURE); } if (NULL == (sf = fopen(argv[1], "r"))) { printf("%s: open failed\n", argv[1]); exit(EXIT_FAILURE); } if (NULL == (df = fopen(argv[2], "wb"))) { printf("%s: open failed\n", argv[2]); exit(EXIT_FAILURE); } fseek(sf, O_MK, SEEK_SET); char buf[4]; fread(buf, 1, 4, sf); if (strncmp(buf, "M.K.", 4)) { puts("No Protracker magic string"); exit(EXIT_FAILURE); } } int main(int argc, char *argv[]) { puts(msg); tryopen(argc, argv); init(); pass1(); pass2(); pass3(); dump(); return EXIT_SUCCESS; }