Artifact 4a1f472039c28674e1007ec6d03d5d9708208cf5:
0000: 0d 0a 23 69 6e 63 6c 75 64 65 20 22 73 74 64 61 ..#include "stda
0010: 66 78 2e 68 22 0d 0a 23 69 6e 63 6c 75 64 65 20 fx.h"..#include
0020: 22 4c 7a 68 54 6f 6f 6c 2e 68 22 0d 0a 23 69 6e "LzhTool.h"..#in
0030: 63 6c 75 64 65 20 22 4c 7a 68 44 65 63 6f 64 65 clude "LzhDecode
0040: 72 32 2e 68 22 0d 0a 23 69 6e 63 6c 75 64 65 20 r2.h"..#include
0050: 22 6b 69 75 74 69 6c 2e 68 22 0d 0a 23 69 6e 63 "kiutil.h"..#inc
0060: 6c 75 64 65 20 22 6b 69 6c 69 62 2f 6b 69 6c 69 lude "kilib/kili
0070: 62 2e 68 22 0d 0a 0d 0a 62 6f 6f 6c 20 43 4c 7a b.h"....bool CLz
0080: 68 54 6f 6f 6c 3a 3a 63 72 63 69 6e 69 74 3b 0d hTool::crcinit;.
0090: 0a 75 6e 73 69 67 6e 65 64 20 73 68 6f 72 74 20 .unsigned short
00a0: 43 4c 7a 68 54 6f 6f 6c 3a 3a 63 72 63 74 61 62 CLzhTool::crctab
00b0: 6c 65 5b 32 35 36 5d 3b 0d 0a 0d 0a 62 6f 6f 6c le[256];....bool
00c0: 20 43 4c 7a 68 54 6f 6f 6c 3a 3a 45 78 74 72 61 CLzhTool::Extra
00d0: 63 74 28 20 63 6f 6e 73 74 20 63 68 61 72 2a 20 ct( const char*
00e0: 61 6e 61 6d 65 2c 20 63 6f 6e 73 74 20 63 68 61 aname, const cha
00f0: 72 2a 20 64 6c 6c 2c 20 6b 69 50 61 74 68 26 20 r* dll, kiPath&
0100: 64 6c 6c 5f 72 65 6c 5f 70 61 74 68 20 29 0d 0a dll_rel_path )..
0110: 7b 0d 0a 09 2f 2f 20 90 e6 93 aa 82 cc 95 fb 82 {...// .........
0120: f0 93 c7 82 dd 8d 9e 82 dd 0d 0a 09 46 49 4c 45 ............FILE
0130: 2a 20 66 70 20 3d 20 66 6f 70 65 6e 28 20 61 6e * fp = fopen( an
0140: 61 6d 65 2c 22 72 62 22 20 29 3b 0d 0a 09 69 66 ame,"rb" );...if
0150: 28 20 21 66 70 20 29 0d 0a 09 09 72 65 74 75 72 ( !fp )....retur
0160: 6e 20 66 61 6c 73 65 3b 0d 0a 09 75 6e 73 69 67 n false;...unsig
0170: 6e 65 64 20 63 68 61 72 2a 20 62 75 66 66 20 3d ned char* buff =
0180: 20 6e 65 77 20 75 6e 73 69 67 6e 65 64 20 63 68 new unsigned ch
0190: 61 72 5b 36 35 35 33 36 5d 3b 0d 0a 09 44 57 4f ar[65536];...DWO
01a0: 52 44 20 73 69 7a 20 3d 20 66 72 65 61 64 28 20 RD siz = fread(
01b0: 62 75 66 66 2c 20 31 2c 20 36 35 35 33 36 2c 20 buff, 1, 65536,
01c0: 66 70 20 29 3b 0d 0a 09 66 63 6c 6f 73 65 28 20 fp );...fclose(
01d0: 66 70 20 29 3b 0d 0a 09 2f 2f 20 83 77 83 62 83 fp );...// .w.b.
01e0: 5f 82 f0 92 54 82 b7 0d 0a 09 69 6e 74 20 70 73 _...T.....int ps
01f0: 20 3d 20 46 69 6e 64 48 65 61 64 65 72 28 20 61 = FindHeader( a
0200: 6e 61 6d 65 2c 62 75 66 66 2c 73 69 7a 20 29 3b name,buff,siz );
0210: 0d 0a 09 2f 2f 20 8f 91 8c c9 82 f0 8a 4a 82 ad ...// .......J..
0220: 0d 0a 09 69 66 28 20 70 73 3d 3d 2d 31 20 7c 7c ...if( ps==-1 ||
0230: 20 21 28 6c 7a 68 20 3d 20 66 6f 70 65 6e 28 20 !(lzh = fopen(
0240: 61 6e 61 6d 65 2c 22 72 62 22 20 29 29 20 29 0d aname,"rb" )) ).
0250: 0a 09 7b 0d 0a 09 09 64 65 6c 65 74 65 20 5b 5d ..{....delete []
0260: 20 62 75 66 66 3b 0d 0a 09 09 72 65 74 75 72 6e buff;....return
0270: 20 66 61 6c 73 65 3b 0d 0a 09 7d 0d 0a 0d 0a 09 false;...}.....
0280: 66 73 65 65 6b 28 20 6c 7a 68 2c 70 73 2c 53 45 fseek( lzh,ps,SE
0290: 45 4b 5f 53 45 54 20 29 3b 0d 0a 0d 0a 09 2f 2f EK_SET );.....//
02a0: 20 8a 69 94 5b 83 74 83 40 83 43 83 8b 96 88 82 .i.[.t.@.C.....
02b0: c9 8f 88 97 9d 0d 0a 09 77 68 69 6c 65 28 20 52 ........while( R
02c0: 65 61 64 48 65 61 64 65 72 28 20 62 75 66 66 20 eadHeader( buff
02d0: 29 20 29 0d 0a 09 7b 0d 0a 09 09 6c 6f 6e 67 20 ) )...{....long
02e0: 62 61 73 65 20 3d 20 66 74 65 6c 6c 28 20 6c 7a base = ftell( lz
02f0: 68 20 29 3b 0d 0a 09 09 63 68 61 72 2a 20 6e 61 h );....char* na
0300: 6d 65 3b 0d 0a 0d 0a 09 09 69 66 28 20 68 5f 46 me;......if( h_F
0310: 69 6c 65 4e 61 6d 65 5b 30 5d 21 3d 27 21 27 20 ileName[0]!='!'
0320: 26 26 20 68 5f 46 69 6c 65 4e 61 6d 65 5b 30 5d && h_FileName[0]
0330: 21 3d 27 24 27 20 26 26 20 68 5f 46 69 6c 65 4e !='$' && h_FileN
0340: 61 6d 65 5b 30 5d 21 3d 27 25 27 20 29 0d 0a 09 ame[0]!='%' )...
0350: 09 09 69 66 28 20 6f 75 74 3d 66 6f 70 65 6e 28 ..if( out=fopen(
0360: 20 6e 61 6d 65 3d 6b 69 75 74 69 6c 3a 3a 70 61 name=kiutil::pa
0370: 74 68 4d 61 6b 65 28 68 5f 46 69 6c 65 4e 61 6d thMake(h_FileNam
0380: 65 29 2c 22 77 62 22 20 29 20 29 0d 0a 09 09 09 e),"wb" ) ).....
0390: 7b 0d 0a 09 09 09 09 69 66 28 20 30 3d 3d 73 74 {......if( 0==st
03a0: 72 63 6d 70 69 28 20 6b 69 50 61 74 68 3a 3a 6e rcmpi( kiPath::n
03b0: 61 6d 65 28 6e 61 6d 65 29 2c 20 64 6c 6c 20 29 ame(name), dll )
03c0: 20 29 20 2f 2f 20 44 4c 4c 82 cc 88 ca 92 75 82 ) // DLL.....u.
03d0: f0 8b 4c 89 af 0d 0a 09 09 09 09 09 64 6c 6c 5f ..L.........dll_
03e0: 72 65 6c 5f 70 61 74 68 20 3d 20 6e 61 6d 65 3b rel_path = name;
03f0: 0d 0a 0d 0a 09 09 09 09 2f 2f 20 83 66 83 52 81 ........// .f.R.
0400: 5b 83 68 0d 0a 09 09 09 09 43 4c 7a 68 44 65 63 [.h......CLzhDec
0410: 6f 64 65 72 32 20 64 65 63 3b 0d 0a 09 09 09 09 oder2 dec;......
0420: 6c 7a 68 5f 6d 65 74 68 6f 64 20 6d 68 64 20 3d lzh_method mhd =
0430: 20 55 4e 4b 4e 4f 57 4e 3b 0d 0a 09 09 09 09 09 UNKNOWN;.......
0440: 20 69 66 28 20 30 3d 3d 73 74 72 63 6d 70 28 68 if( 0==strcmp(h
0450: 5f 4d 65 74 68 6f 64 2c 22 2d 6c 68 30 2d 22 29 _Method,"-lh0-")
0460: 20 29 6d 68 64 3d 4c 48 30 3b 0d 0a 09 09 09 09 )mhd=LH0;......
0470: 65 6c 73 65 20 69 66 28 20 30 3d 3d 73 74 72 63 else if( 0==strc
0480: 6d 70 28 68 5f 4d 65 74 68 6f 64 2c 22 2d 6c 68 mp(h_Method,"-lh
0490: 35 2d 22 29 20 29 6d 68 64 3d 4c 48 35 3b 0d 0a 5-") )mhd=LH5;..
04a0: 09 09 09 09 65 6c 73 65 20 69 66 28 20 30 3d 3d ....else if( 0==
04b0: 73 74 72 63 6d 70 28 68 5f 4d 65 74 68 6f 64 2c strcmp(h_Method,
04c0: 22 2d 6c 68 36 2d 22 29 20 29 6d 68 64 3d 4c 48 "-lh6-") )mhd=LH
04d0: 36 3b 0d 0a 09 09 09 09 65 6c 73 65 20 69 66 28 6;......else if(
04e0: 20 30 3d 3d 73 74 72 63 6d 70 28 68 5f 4d 65 74 0==strcmp(h_Met
04f0: 68 6f 64 2c 22 2d 6c 68 37 2d 22 29 20 29 6d 68 hod,"-lh7-") )mh
0500: 64 3d 4c 48 37 3b 0d 0a 09 09 09 09 64 65 63 2e d=LH7;......dec.
0510: 44 65 63 6f 64 65 28 20 6d 68 64 2c 20 6c 7a 68 Decode( mhd, lzh
0520: 2c 20 68 5f 43 6f 6d 70 53 69 7a 65 2c 20 6f 75 , h_CompSize, ou
0530: 74 2c 20 68 5f 4f 72 69 67 53 69 7a 65 20 29 3b t, h_OrigSize );
0540: 0d 0a 0d 0a 09 09 09 09 2f 2f 20 91 ae 90 ab 82 ........// .....
0550: c8 82 c7 90 dd 92 e8 0d 0a 09 09 09 09 66 63 6c .............fcl
0560: 6f 73 65 28 20 6f 75 74 20 29 3b 0d 0a 0d 0a 09 ose( out );.....
0570: 09 09 09 53 65 74 46 69 6c 65 41 74 74 72 69 62 ...SetFileAttrib
0580: 75 74 65 73 28 20 6e 61 6d 65 2c 68 5f 41 74 74 utes( name,h_Att
0590: 72 69 62 20 29 3b 0d 0a 09 09 09 09 69 66 28 20 rib );......if(
05a0: 68 5f 4c 65 76 65 6c 3c 32 20 29 0d 0a 09 09 09 h_Level<2 ).....
05b0: 09 09 6b 69 75 74 69 6c 3a 3a 74 69 6d 65 53 65 ..kiutil::timeSe
05c0: 74 28 20 6e 61 6d 65 2c 20 28 57 4f 52 44 29 28 t( name, (WORD)(
05d0: 68 5f 55 70 64 61 74 65 3e 3e 31 36 29 2c 28 57 h_Update>>16),(W
05e0: 4f 52 44 29 68 5f 55 70 64 61 74 65 20 29 3b 0d ORD)h_Update );.
05f0: 0a 09 09 09 09 65 6c 73 65 0d 0a 09 09 09 09 09 .....else.......
0600: 6b 69 75 74 69 6c 3a 3a 74 69 6d 65 53 65 74 28 kiutil::timeSet(
0610: 20 6e 61 6d 65 2c 20 68 5f 55 70 64 61 74 65 20 name, h_Update
0620: 29 3b 0d 0a 09 09 09 7d 0d 0a 0d 0a 09 09 66 73 );.....}......fs
0630: 65 65 6b 28 20 6c 7a 68 2c 20 62 61 73 65 2b 68 eek( lzh, base+h
0640: 5f 43 6f 6d 70 53 69 7a 65 2c 20 53 45 45 4b 5f _CompSize, SEEK_
0650: 53 45 54 20 29 3b 0d 0a 09 7d 0d 0a 0d 0a 09 64 SET );...}.....d
0660: 65 6c 65 74 65 20 5b 5d 20 62 75 66 66 3b 0d 0a elete [] buff;..
0670: 20 20 20 20 66 63 6c 6f 73 65 28 20 6c 7a 68 20 fclose( lzh
0680: 29 3b 0d 0a 09 72 65 74 75 72 6e 20 74 72 75 65 );...return true
0690: 3b 0d 0a 7d 0d 0a 0d 0a 69 6e 74 20 43 4c 7a 68 ;..}....int CLzh
06a0: 54 6f 6f 6c 3a 3a 46 69 6e 64 48 65 61 64 65 72 Tool::FindHeader
06b0: 28 20 63 6f 6e 73 74 20 63 68 61 72 2a 20 66 6e ( const char* fn
06c0: 61 6d 65 2c 20 63 6f 6e 73 74 20 42 59 54 45 2a ame, const BYTE*
06d0: 20 68 64 72 2c 20 44 57 4f 52 44 20 73 69 7a 20 hdr, DWORD siz
06e0: 29 0d 0a 7b 0d 0a 09 62 6f 6f 6c 20 62 6f 70 65 )..{...bool bope
06f0: 6e 20 3d 20 66 61 6c 73 65 3b 0d 0a 09 42 59 54 n = false;...BYT
0700: 45 2a 20 74 65 6d 70 3b 0d 0a 09 69 6e 74 20 61 E* temp;...int a
0710: 6e 73 3d 2d 31 3b 0d 0a 0d 0a 09 66 6f 72 28 20 ns=-1;.....for(
0720: 44 57 4f 52 44 20 69 3d 30 3b 20 69 3c 73 69 7a DWORD i=0; i<siz
0730: 2d 32 30 3b 20 69 2b 2b 20 29 0d 0a 09 7b 0d 0a -20; i++ )...{..
0740: 09 09 69 66 28 20 68 64 72 5b 69 2b 32 5d 3d 3d ..if( hdr[i+2]==
0750: 27 2d 27 20 26 26 20 68 64 72 5b 69 2b 33 5d 3d '-' && hdr[i+3]=
0760: 3d 27 6c 27 20 26 26 0d 0a 09 09 20 20 20 28 68 ='l' &&.... (h
0770: 64 72 5b 69 2b 34 5d 3d 3d 27 68 27 20 7c 7c 20 dr[i+4]=='h' ||
0780: 68 64 72 5b 69 2b 34 5d 3d 3d 27 7a 27 29 20 29 hdr[i+4]=='z') )
0790: 0d 0a 09 09 7b 0d 0a 09 09 09 69 66 28 20 21 62 ....{.....if( !b
07a0: 6f 70 65 6e 20 29 0d 0a 09 09 09 09 69 66 28 20 open )......if(
07b0: 21 28 6c 7a 68 3d 66 6f 70 65 6e 28 20 66 6e 61 !(lzh=fopen( fna
07c0: 6d 65 2c 22 72 62 22 20 29 29 20 29 0d 0a 09 09 me,"rb" )) )....
07d0: 09 09 09 72 65 74 75 72 6e 20 2d 31 3b 0d 0a 09 ...return -1;...
07e0: 09 09 09 65 6c 73 65 0d 0a 09 09 09 09 09 62 6f ...else.......bo
07f0: 70 65 6e 3d 74 72 75 65 2c 20 74 65 6d 70 20 3d pen=true, temp =
0800: 20 6e 65 77 20 42 59 54 45 5b 36 35 35 33 36 5d new BYTE[65536]
0810: 3b 0d 0a 0d 0a 09 09 09 66 73 65 65 6b 28 20 6c ;.......fseek( l
0820: 7a 68 2c 69 2c 53 45 45 4b 5f 53 45 54 20 29 3b zh,i,SEEK_SET );
0830: 0d 0a 09 09 09 69 66 28 20 52 65 61 64 48 65 61 .....if( ReadHea
0840: 64 65 72 28 74 65 6d 70 29 20 29 0d 0a 09 09 09 der(temp) ).....
0850: 09 7b 61 6e 73 3d 28 73 69 67 6e 65 64 29 69 3b .{ans=(signed)i;
0860: 62 72 65 61 6b 3b 7d 0d 0a 09 09 7d 0d 0a 09 7d break;}....}...}
0870: 0d 0a 0d 0a 09 69 66 28 20 62 6f 70 65 6e 20 29 .....if( bopen )
0880: 0d 0a 09 09 7b 64 65 6c 65 74 65 20 5b 5d 20 74 ....{delete [] t
0890: 65 6d 70 3b 66 63 6c 6f 73 65 28 20 6c 7a 68 20 emp;fclose( lzh
08a0: 29 3b 7d 0d 0a 09 72 65 74 75 72 6e 20 61 6e 73 );}...return ans
08b0: 3b 0d 0a 7d 0d 0a 0d 0a 62 6f 6f 6c 20 43 4c 7a ;..}....bool CLz
08c0: 68 54 6f 6f 6c 3a 3a 52 65 61 64 48 65 61 64 65 hTool::ReadHeade
08d0: 72 28 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 r( unsigned char
08e0: 2a 20 62 75 66 20 29 0d 0a 7b 0d 0a 2f 2f 20 8f * buf )..{..// .
08f0: 89 8a fa 89 bb 0d 0a 09 2a 68 5f 46 69 6c 65 4e ........*h_FileN
0900: 61 6d 65 3d 30 3b 0d 0a 09 73 75 6d 3d 30 2c 63 ame=0;...sum=0,c
0910: 72 63 3d 30 3b 0d 0a 0d 0a 2f 2f 20 82 be 82 a2 rc=0;....// ....
0920: 82 bd 82 a2 8b a4 92 ca 82 c8 95 94 95 aa 0d 0a ................
0930: 2f 2f 0d 0a 2f 2f 20 20 30 2d 20 31 3a 20 5b 30 //..// 0- 1: [0
0940: 5d 3d 68 65 61 64 65 72 5f 73 69 7a 65 20 5b 31 ]=header_size [1
0950: 5d 3d 63 68 65 63 6b 5f 73 75 6d 20 28 68 30 29 ]=check_sum (h0)
0960: 0d 0a 2f 2f 20 20 20 20 20 20 20 20 5b 30 5d 3d ..// [0]=
0970: 62 61 73 5f 68 64 72 5f 73 69 7a 20 5b 31 5d 3d bas_hdr_siz [1]=
0980: 63 68 65 63 6b 5f 73 75 6d 20 28 68 31 29 0d 0a check_sum (h1)..
0990: 2f 2f 20 20 20 20 20 20 20 20 5b 57 4f 52 44 5d // [WORD]
09a0: 20 3d 20 61 6c 6c 5f 68 65 61 64 65 72 5f 73 69 = all_header_si
09b0: 7a 65 20 20 20 20 20 20 28 68 32 29 0d 0a 2f 2f ze (h2)..//
09c0: 0d 0a 2f 2f 20 20 32 2d 20 36 3a 20 6d 65 74 68 ..// 2- 6: meth
09d0: 6f 64 0d 0a 2f 2f 0d 0a 2f 2f 20 20 37 2d 31 30 od..//..// 7-10
09e0: 3a 20 5b 44 57 4f 52 44 5d 3d 63 6f 6d 70 72 65 : [DWORD]=compre
09f0: 73 73 65 64 5f 73 69 7a 65 20 28 68 30 2f 68 32 ssed_size (h0/h2
0a00: 29 0d 0a 2f 2f 20 20 20 20 20 20 20 20 5b 44 57 )..// [DW
0a10: 4f 52 44 5d 3d 6f 66 66 73 65 74 5f 74 6f 5f 6e ORD]=offset_to_n
0a20: 65 78 74 5f 68 64 72 20 28 68 31 29 0d 0a 2f 2f ext_hdr (h1)..//
0a30: 0d 0a 2f 2f 20 31 31 2d 31 34 3a 20 5b 44 57 4f ..// 11-14: [DWO
0a40: 52 44 5d 3d 6f 72 69 67 69 6e 61 6c 5f 73 69 7a RD]=original_siz
0a50: 65 0d 0a 2f 2f 0d 0a 2f 2f 20 31 35 2d 31 38 3a e..//..// 15-18:
0a60: 20 5b 66 74 69 6d 65 5d 3d 75 70 64 61 74 65 5f [ftime]=update_
0a70: 64 61 74 65 5f 74 69 6d 65 0d 0a 2f 2f 0d 0a 2f date_time..//../
0a80: 2f 20 20 20 20 31 39 3a 20 61 74 74 72 69 62 75 / 19: attribu
0a90: 74 65 20 28 68 30 29 0d 0a 2f 2f 20 20 20 20 20 te (h0)..//
0aa0: 20 20 20 30 78 32 30 20 20 20 20 20 20 28 68 31 0x20 (h1
0ab0: 2f 68 32 29 0d 0a 2f 2f 0d 0a 2f 2f 20 20 20 20 /h2)..//..//
0ac0: 32 30 3a 20 68 65 61 64 65 72 5f 6c 65 76 65 6c 20: header_level
0ad0: 0d 0a 2f 2f 0d 0a 09 69 66 28 20 32 31 21 3d 66 ..//...if( 21!=f
0ae0: 72 65 61 64 5f 63 72 63 28 62 75 66 2c 32 31 29 read_crc(buf,21)
0af0: 20 29 0d 0a 09 09 72 65 74 75 72 6e 20 66 61 6c )....return fal
0b00: 73 65 3b 0d 0a 09 73 75 6d 2d 3d 28 62 75 66 5b se;...sum-=(buf[
0b10: 30 5d 2b 62 75 66 5b 31 5d 29 3b 0d 0a 0d 0a 09 0]+buf[1]);.....
0b20: 69 66 28 20 28 68 5f 4c 65 76 65 6c 3d 62 75 66 if( (h_Level=buf
0b30: 5b 32 30 5d 29 3e 32 20 29 20 2f 2f 20 4c 56 33 [20])>2 ) // LV3
0b40: 88 c8 8f e3 96 a2 91 ce 89 9e 0d 0a 09 09 72 65 ..............re
0b50: 74 75 72 6e 20 66 61 6c 73 65 3b 0d 0a 0d 0a 09 turn false;.....
0b60: 42 59 54 45 20 62 73 68 64 72 20 3d 20 28 68 5f BYTE bshdr = (h_
0b70: 4c 65 76 65 6c 3d 3d 32 29 3f 32 36 3a 62 75 66 Level==2)?26:buf
0b80: 5b 30 5d 2b 32 3b 0d 0a 09 69 66 28 20 62 73 68 [0]+2;...if( bsh
0b90: 64 72 3c 32 31 20 7c 7c 20 62 75 66 5b 30 5d 3d dr<21 || buf[0]=
0ba0: 3d 30 20 29 0d 0a 09 09 72 65 74 75 72 6e 20 66 =0 )....return f
0bb0: 61 6c 73 65 3b 0d 0a 09 42 59 54 45 20 68 64 72 alse;...BYTE hdr
0bc0: 73 75 6d 3d 20 62 75 66 5b 31 5d 3b 0d 0a 09 66 sum= buf[1];...f
0bd0: 6f 72 28 20 69 6e 74 20 69 3d 30 3b 20 69 21 3d or( int i=0; i!=
0be0: 35 3b 20 69 2b 2b 20 29 0d 0a 09 09 68 5f 4d 65 5; i++ )....h_Me
0bf0: 74 68 6f 64 5b 69 5d 3d 28 63 68 61 72 29 62 75 thod[i]=(char)bu
0c00: 66 5b 32 2b 69 5d 3b 68 5f 4d 65 74 68 6f 64 5b f[2+i];h_Method[
0c10: 35 5d 3d 30 3b 0d 0a 09 68 5f 43 6f 6d 70 53 69 5]=0;...h_CompSi
0c20: 7a 65 20 3d 20 28 62 75 66 5b 20 37 5d 29 2b 28 ze = (buf[ 7])+(
0c30: 62 75 66 5b 20 38 5d 3c 3c 38 29 2b 28 62 75 66 buf[ 8]<<8)+(buf
0c40: 5b 20 39 5d 3c 3c 31 36 29 2b 28 62 75 66 5b 31 [ 9]<<16)+(buf[1
0c50: 30 5d 3c 3c 32 34 29 3b 0d 0a 09 68 5f 4f 72 69 0]<<24);...h_Ori
0c60: 67 53 69 7a 65 20 3d 20 28 62 75 66 5b 31 31 5d gSize = (buf[11]
0c70: 29 2b 28 62 75 66 5b 31 32 5d 3c 3c 38 29 2b 28 )+(buf[12]<<8)+(
0c80: 62 75 66 5b 31 33 5d 3c 3c 31 36 29 2b 28 62 75 buf[13]<<16)+(bu
0c90: 66 5b 31 34 5d 3c 3c 32 34 29 3b 0d 0a 09 68 5f f[14]<<24);...h_
0ca0: 55 70 64 61 74 65 20 20 20 3d 20 28 62 75 66 5b Update = (buf[
0cb0: 31 35 5d 29 2b 28 62 75 66 5b 31 36 5d 3c 3c 38 15])+(buf[16]<<8
0cc0: 29 2b 28 62 75 66 5b 31 37 5d 3c 3c 31 36 29 2b )+(buf[17]<<16)+
0cd0: 28 62 75 66 5b 31 38 5d 3c 3c 32 34 29 3b 0d 0a (buf[18]<<24);..
0ce0: 09 68 5f 41 74 74 72 69 62 20 20 20 3d 20 20 62 .h_Attrib = b
0cf0: 75 66 5b 31 39 5d 3b 0d 0a 09 69 66 28 20 68 5f uf[19];...if( h_
0d00: 4d 65 74 68 6f 64 5b 30 5d 21 3d 27 2d 27 20 7c Method[0]!='-' |
0d10: 7c 20 68 5f 4d 65 74 68 6f 64 5b 31 5d 21 3d 27 | h_Method[1]!='
0d20: 6c 27 20 29 0d 0a 09 09 72 65 74 75 72 6e 20 66 l' )....return f
0d30: 61 6c 73 65 3b 0d 0a 0d 0a 2f 2f 20 83 8c 83 78 alse;....// ...x
0d40: 83 8b 8b a4 92 ca 82 b6 82 e1 82 c8 82 a2 8a ee ................
0d50: 96 7b 83 77 83 62 83 5f 95 94 95 aa 0d 0a 2f 2f .{.w.b._......//
0d60: 20 3c 68 30 3e 0d 0a 2f 2f 20 20 20 20 20 32 31 <h0>..// 21
0d70: 3a 20 66 69 6c 65 5f 6e 61 6d 65 5f 6c 65 6e 67 : file_name_leng
0d80: 74 68 0d 0a 2f 2f 20 20 32 32 2d 20 6e 3a 20 66 th..// 22- n: f
0d90: 69 6c 65 5f 6e 61 6d 65 20 28 20 77 69 74 68 20 ile_name ( with
0da0: 70 61 74 68 20 69 6e 66 6f 20 29 0d 0a 2f 2f 20 path info )..//
0db0: 20 20 57 4f 52 44 3a 20 63 72 63 31 36 5f 6f 66 WORD: crc16_of
0dc0: 5f 66 69 6c 65 0d 0a 2f 2f 20 20 20 20 20 20 20 _file..//
0dd0: 3a 20 61 6e 64 20 73 6f 6d 65 20 65 78 74 65 6e : and some exten
0de0: 73 69 6f 6e 20 70 61 72 74 0d 0a 2f 2f 0d 0a 2f sion part..//../
0df0: 2f 20 3c 68 31 3e 0d 0a 2f 2f 20 20 20 20 20 32 / <h1>..// 2
0e00: 31 3a 20 66 69 6c 65 5f 6e 61 6d 65 5f 6c 65 6e 1: file_name_len
0e10: 67 74 68 0d 0a 2f 2f 20 20 32 32 2d 20 6e 3a 20 gth..// 22- n:
0e20: 66 69 6c 65 5f 6e 61 6d 65 20 28 20 77 69 74 68 file_name ( with
0e30: 20 6e 6f 20 70 61 74 68 20 69 6e 66 6f 20 29 0d no path info ).
0e40: 0a 2f 2f 20 20 20 57 4f 52 44 3a 20 63 72 63 31 .// WORD: crc1
0e50: 36 5f 6f 66 5f 66 69 6c 65 0d 0a 2f 2f 20 20 20 6_of_file..//
0e60: 42 59 54 45 3a 20 6f 73 5f 66 6c 61 67 0d 0a 2f BYTE: os_flag../
0e70: 2f 20 20 20 20 20 20 20 3a 20 61 6e 64 20 73 6f / : and so
0e80: 6d 65 20 65 78 74 65 6e 73 69 6f 6e 20 70 61 72 me extension par
0e90: 74 0d 0a 2f 2f 0d 0a 2f 2f 20 3c 68 32 3e 0d 0a t..//..// <h2>..
0ea0: 2f 2f 20 20 20 57 4f 52 44 3a 20 63 72 63 31 36 // WORD: crc16
0eb0: 5f 6f 66 5f 66 69 6c 65 0d 0a 2f 2f 20 20 20 42 _of_file..// B
0ec0: 59 54 45 3a 20 6f 73 5f 66 6c 61 67 0d 0a 2f 2f YTE: os_flag..//
0ed0: 0d 0a 2f 2f 0d 0a 09 69 66 28 20 28 62 73 68 64 ..//...if( (bshd
0ee0: 72 2d 32 31 29 21 3d 66 72 65 61 64 5f 63 72 63 r-21)!=fread_crc
0ef0: 28 62 75 66 2b 32 31 2c 28 62 73 68 64 72 2d 32 (buf+21,(bshdr-2
0f00: 31 29 29 20 29 0d 0a 09 09 72 65 74 75 72 6e 20 1)) )....return
0f10: 66 61 6c 73 65 3b 0d 0a 09 69 66 28 20 68 5f 4c false;...if( h_L
0f20: 65 76 65 6c 21 3d 32 20 29 0d 0a 09 7b 0d 0a 09 evel!=2 )...{...
0f30: 09 69 66 28 20 73 75 6d 21 3d 68 64 72 73 75 6d .if( sum!=hdrsum
0f40: 20 7c 7c 20 32 31 2b 31 2b 62 75 66 5b 32 31 5d || 21+1+buf[21]
0f50: 2b 32 3e 62 73 68 64 72 20 29 0d 0a 09 09 09 72 +2>bshdr ).....r
0f60: 65 74 75 72 6e 20 66 61 6c 73 65 3b 0d 0a 09 09 eturn false;....
0f70: 6d 65 6d 63 70 79 28 20 68 5f 46 69 6c 65 4e 61 memcpy( h_FileNa
0f80: 6d 65 2c 62 75 66 2b 32 32 2c 62 75 66 5b 32 31 me,buf+22,buf[21
0f90: 5d 20 29 3b 0d 0a 09 09 68 5f 46 69 6c 65 4e 61 ] );....h_FileNa
0fa0: 6d 65 5b 62 75 66 5b 32 31 5d 5d 3d 30 3b 0d 0a me[buf[21]]=0;..
0fb0: 09 7d 0d 0a 0d 0a 2f 2f 20 8a 67 92 a3 83 77 83 .}....// .g...w.
0fc0: 62 83 5f 28 20 68 31 2f 68 32 20 29 0d 0a 2f 2f b._( h1/h2 )..//
0fd0: 20 20 72 65 70 65 61 74 69 6e 67 20 6f 66 20 73 repeating of s
0fe0: 75 63 68 20 62 6c 6f 63 6b 73 2e 0d 0a 2f 2f 2d uch blocks...//-
0ff0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1000: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1010: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1020: 2d 2d 2d 2d 2d 0d 0a 2f 2f 20 20 57 4f 52 44 3a -----..// WORD:
1030: 20 73 69 7a 65 5f 6f 66 5f 74 68 69 73 5f 62 6c size_of_this_bl
1040: 6f 63 6b 20 28 20 69 66 20 30 20 74 68 65 6e 20 ock ( if 0 then
1050: 65 6e 64 5f 6f 66 5f 68 65 61 64 65 72 20 29 0d end_of_header ).
1060: 0a 2f 2f 20 20 42 59 54 45 3a 20 74 79 70 65 5f .// BYTE: type_
1070: 66 6c 61 67 0d 0a 2f 2f 20 20 20 20 20 20 3a 20 flag..// :
1080: 64 61 74 61 20 28 20 28 62 6c 6f 63 6b 73 69 7a data ( (blocksiz
1090: 65 2d 33 29 20 62 79 74 65 73 20 29 0d 0a 2f 2f e-3) bytes )..//
10a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
10b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
10c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
10d0: 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 09 63 68 61 72 20 ------.....char
10e0: 50 61 74 68 4e 61 6d 65 5b 4d 41 58 5f 50 41 54 PathName[MAX_PAT
10f0: 48 2a 32 5d 3d 7b 30 7d 3b 0d 0a 09 69 66 28 20 H*2]={0};...if(
1100: 68 5f 4c 65 76 65 6c 21 3d 30 20 29 0d 0a 09 7b h_Level!=0 )...{
1110: 0d 0a 09 09 44 57 4f 52 44 20 68 64 72 63 72 63 ....DWORD hdrcrc
1120: 3d 30 78 66 66 66 66 66 66 66 66 3b 0d 0a 09 09 =0xffffffff;....
1130: 57 4f 52 44 20 74 6d 70 63 72 63 3b 0d 0a 0d 0a WORD tmpcrc;....
1140: 09 09 2f 2f 20 82 b1 82 b1 82 c5 83 8b 81 5b 83 ..// .........[.
1150: 76 82 c1 82 c4 8a 67 92 a3 83 77 83 62 83 5f 93 v.....g...w.b._.
1160: c7 82 dd 8d 9e 82 dd 0d 0a 09 09 57 4f 52 44 20 ...........WORD
1170: 65 68 73 3b 0d 0a 09 09 65 68 73 20 3d 20 28 28 ehs;....ehs = ((
1180: 62 75 66 5b 62 73 68 64 72 2d 32 5d 29 7c 28 62 buf[bshdr-2])|(b
1190: 75 66 5b 62 73 68 64 72 2d 31 5d 3c 3c 38 29 29 uf[bshdr-1]<<8))
11a0: 3b 0d 0a 0d 0a 09 09 77 68 69 6c 65 28 20 65 68 ;......while( eh
11b0: 73 3e 32 20 29 0d 0a 09 09 7b 0d 0a 09 09 09 74 s>2 )....{.....t
11c0: 6d 70 63 72 63 3d 63 72 63 3b 2f 2f 43 52 43 8e mpcrc=crc;//CRC.
11d0: a9 90 67 82 f0 93 c7 82 dd 8d 9e 82 f1 82 be 82 ..g.............
11e0: c6 82 ab 82 c9 92 bc 82 b7 82 bd 82 df 0d 0a 09 ................
11f0: 09 09 69 66 28 20 65 68 73 21 3d 66 72 65 61 64 ..if( ehs!=fread
1200: 5f 63 72 63 28 62 75 66 2c 65 68 73 29 20 29 0d _crc(buf,ehs) ).
1210: 0a 09 09 09 09 72 65 74 75 72 6e 20 66 61 6c 73 .....return fals
1220: 65 3b 0d 0a 09 09 09 69 66 28 20 68 5f 4c 65 76 e;.....if( h_Lev
1230: 65 6c 3d 3d 31 20 29 0d 0a 09 09 09 09 68 5f 43 el==1 )......h_C
1240: 6f 6d 70 53 69 7a 65 2d 3d 65 68 73 3b 0d 0a 0d ompSize-=ehs;...
1250: 0a 09 09 09 73 77 69 74 63 68 28 20 2a 62 75 66 ....switch( *buf
1260: 20 29 0d 0a 09 09 09 7b 0d 0a 09 09 09 63 61 73 ).....{.....cas
1270: 65 20 30 78 30 30 3a 2f 2f 8b a4 92 ca 0d 0a 09 e 0x00://.......
1280: 09 09 09 69 66 28 20 65 68 73 3e 3d 35 20 26 26 ...if( ehs>=5 &&
1290: 20 68 64 72 63 72 63 3d 3d 30 78 66 66 66 66 66 hdrcrc==0xfffff
12a0: 66 66 66 20 29 0d 0a 09 09 09 09 7b 0d 0a 09 09 fff )......{....
12b0: 09 09 09 68 64 72 63 72 63 3d 28 28 62 75 66 5b ...hdrcrc=((buf[
12c0: 31 5d 29 7c 28 62 75 66 5b 32 5d 3c 3c 38 29 29 1])|(buf[2]<<8))
12d0: 3b 0d 0a 0d 0a 09 09 09 09 09 63 72 63 3d 74 6d ;.........crc=tm
12e0: 70 63 72 63 3b 0d 0a 09 09 09 09 09 62 75 66 5b pcrc;.......buf[
12f0: 31 5d 3d 62 75 66 5b 32 5d 3d 30 3b 0d 0a 09 09 1]=buf[2]=0;....
1300: 09 09 09 55 70 64 61 74 65 43 52 43 28 62 75 66 ...UpdateCRC(buf
1310: 2c 65 68 73 29 3b 0d 0a 09 09 09 09 7d 0d 0a 09 ,ehs);......}...
1320: 09 09 09 62 72 65 61 6b 3b 0d 0a 09 09 09 63 61 ...break;.....ca
1330: 73 65 20 30 78 30 31 3a 2f 2f 83 74 83 40 83 43 se 0x01://.t.@.C
1340: 83 8b 96 bc 0d 0a 09 09 09 09 6d 65 6d 63 70 79 ..........memcpy
1350: 28 68 5f 46 69 6c 65 4e 61 6d 65 2c 62 75 66 2b (h_FileName,buf+
1360: 31 2c 65 68 73 2d 33 3e 4d 41 58 5f 50 41 54 48 1,ehs-3>MAX_PATH
1370: 3f 4d 41 58 5f 50 41 54 48 3a 65 68 73 2d 33 29 ?MAX_PATH:ehs-3)
1380: 3b 0d 0a 09 09 09 09 68 5f 46 69 6c 65 4e 61 6d ;......h_FileNam
1390: 65 5b 65 68 73 2d 33 3e 4d 41 58 5f 50 41 54 48 e[ehs-3>MAX_PATH
13a0: 3f 4d 41 58 5f 50 41 54 48 3a 65 68 73 2d 33 5d ?MAX_PATH:ehs-3]
13b0: 3d 30 3b 0d 0a 09 09 09 09 62 72 65 61 6b 3b 0d =0;......break;.
13c0: 0a 09 09 09 63 61 73 65 20 30 78 30 32 3a 2f 2f ....case 0x02://
13d0: 83 70 83 58 96 bc 0d 0a 09 09 09 09 6d 65 6d 63 .p.X........memc
13e0: 70 79 28 50 61 74 68 4e 61 6d 65 2c 62 75 66 2b py(PathName,buf+
13f0: 31 2c 65 68 73 2d 33 3e 4d 41 58 5f 50 41 54 48 1,ehs-3>MAX_PATH
1400: 3f 4d 41 58 5f 50 41 54 48 3a 65 68 73 2d 33 29 ?MAX_PATH:ehs-3)
1410: 3b 0d 0a 09 09 09 09 50 61 74 68 4e 61 6d 65 5b ;......PathName[
1420: 65 68 73 2d 33 3e 4d 41 58 5f 50 41 54 48 3f 4d ehs-3>MAX_PATH?M
1430: 41 58 5f 50 41 54 48 3a 65 68 73 2d 33 5d 3d 30 AX_PATH:ehs-3]=0
1440: 3b 0d 0a 09 09 09 09 62 72 65 61 6b 3b 0d 0a 09 ;......break;...
1450: 09 09 63 61 73 65 20 30 78 66 66 3a 2f 2f 90 56 ..case 0xff://.V
1460: 91 ae 90 ab 0d 0a 09 09 09 09 62 72 65 61 6b 3b ..........break;
1470: 0d 0a 09 09 09 63 61 73 65 20 30 78 34 30 3a 2f .....case 0x40:/
1480: 2f 91 ae 90 ab 28 44 4f 53 88 cb 91 b6 29 0d 0a /....(DOS....)..
1490: 09 09 09 09 69 66 28 20 65 68 73 3e 3d 35 20 29 ....if( ehs>=5 )
14a0: 0d 0a 09 09 09 09 09 68 5f 41 74 74 72 69 62 3d .......h_Attrib=
14b0: 28 28 62 75 66 5b 31 5d 29 7c 28 62 75 66 5b 32 ((buf[1])|(buf[2
14c0: 5d 3c 3c 38 29 29 3b 0d 0a 09 09 09 09 62 72 65 ]<<8));......bre
14d0: 61 6b 3b 0d 0a 09 09 09 63 61 73 65 20 30 78 34 ak;.....case 0x4
14e0: 31 3a 2f 2f 83 5e 83 43 83 80 83 58 83 5e 83 93 1://.^.C...X.^..
14f0: 83 76 28 55 4e 4c 48 41 33 32 2e 44 4c 4c 29 0d .v(UNLHA32.DLL).
1500: 0a 09 09 09 09 2f 2f 82 cd 81 41 82 c8 82 f1 82 .....//...A.....
1510: be 82 a9 82 a4 82 dc 82 ad 82 a2 82 a9 82 c8 82 ................
1520: a2 82 cc 82 c5 96 b3 8e 8b 82 b7 82 e9 81 42 0d ..............B.
1530: 0a 09 09 09 09 62 72 65 61 6b 3b 0d 0a 09 09 09 .....break;.....
1540: 7d 0d 0a 0d 0a 09 09 09 65 68 73 20 3d 20 28 28 }.......ehs = ((
1550: 62 75 66 5b 65 68 73 2d 32 5d 29 7c 28 62 75 66 buf[ehs-2])|(buf
1560: 5b 65 68 73 2d 31 5d 3c 3c 38 29 29 3b 0d 0a 09 [ehs-1]<<8));...
1570: 09 7d 0d 0a 0d 0a 09 09 69 66 28 20 68 64 72 63 .}......if( hdrc
1580: 72 63 21 3d 30 78 66 66 66 66 66 66 66 66 20 26 rc!=0xffffffff &
1590: 26 20 63 72 63 21 3d 68 64 72 63 72 63 20 29 0d & crc!=hdrcrc ).
15a0: 0a 09 09 09 72 65 74 75 72 6e 20 66 61 6c 73 65 ....return false
15b0: 3b 0d 0a 09 7d 0d 0a 0d 0a 09 2f 2f 20 66 66 20 ;...}.....// ff
15c0: 2d 3e 20 5c 5c 20 95 cf 8a b7 0d 0a 09 63 68 61 -> \\ .......cha
15d0: 72 2a 20 78 3b 0d 0a 09 66 6f 72 28 20 78 3d 68 r* x;...for( x=h
15e0: 5f 46 69 6c 65 4e 61 6d 65 3b 20 2a 78 21 3d 30 _FileName; *x!=0
15f0: 3b 20 78 3d 43 68 61 72 4e 65 78 74 28 78 29 20 ; x=CharNext(x)
1600: 29 0d 0a 09 09 69 66 28 20 28 42 59 54 45 29 2a )....if( (BYTE)*
1610: 78 3d 3d 30 78 66 66 20 29 0d 0a 09 09 09 2a 78 x==0xff ).....*x
1620: 3d 27 5c 5c 27 3b 0d 0a 09 66 6f 72 28 20 78 3d ='\\';...for( x=
1630: 50 61 74 68 4e 61 6d 65 3b 20 2a 78 21 3d 30 3b PathName; *x!=0;
1640: 20 78 3d 43 68 61 72 4e 65 78 74 28 78 29 20 29 x=CharNext(x) )
1650: 0d 0a 09 09 69 66 28 20 28 42 59 54 45 29 2a 78 ....if( (BYTE)*x
1660: 3d 3d 30 78 66 66 20 29 0d 0a 09 09 09 2a 78 3d ==0xff ).....*x=
1670: 27 5c 5c 27 3b 0d 0a 09 73 74 72 63 61 74 28 20 '\\';...strcat(
1680: 50 61 74 68 4e 61 6d 65 2c 68 5f 46 69 6c 65 4e PathName,h_FileN
1690: 61 6d 65 20 29 3b 0d 0a 09 73 74 72 63 70 79 28 ame );...strcpy(
16a0: 20 68 5f 46 69 6c 65 4e 61 6d 65 2c 50 61 74 68 h_FileName,Path
16b0: 4e 61 6d 65 20 29 3b 0d 0a 09 72 65 74 75 72 6e Name );...return
16c0: 20 74 72 75 65 3b 0d 0a 0d 0a 2f 2f 20 6c 68 61 true;....// lha
16d0: 20 68 65 61 64 65 72 20 4d 45 4d 4f 0d 0a 2f 2f header MEMO..//
16e0: 20 28 68 30 2f 68 31 29 0d 0a 2f 2f 20 20 20 31 (h0/h1)..// 1
16f0: 20 62 79 74 65 20 96 da 82 cd 81 41 81 75 31 62 byte .....A.u1b
1700: 79 74 65 96 da 8e a9 90 67 82 f0 8f 9c 82 a2 82 yte.....g.......
1710: bd 8a ee 96 7b 83 77 83 62 83 5f 82 cc 83 54 83 ....{.w.b._...T.
1720: 43 83 59 81 76 0d 0a 2f 2f 20 20 20 83 60 83 46 C.Y.v..// .`.F
1730: 83 62 83 4e 83 54 83 80 82 cd 81 41 81 75 31 2c .b.N.T.....A.u1,
1740: 32 62 79 74 65 96 da 8e a9 90 67 82 f0 8f 9c 82 2byte.....g.....
1750: a2 82 bd 8a ee 96 7b 83 77 83 62 83 5f 82 cc 8d ......{.w.b._...
1760: 87 8c 76 81 76 0d 0a 2f 2f 20 28 68 31 29 0d 0a ..v.v..// (h1)..
1770: 2f 2f 20 20 20 6f 66 66 73 65 74 5f 74 6f 5f 6e // offset_to_n
1780: 65 78 74 5f 68 64 72 20 82 cd 81 41 8a ee 96 7b ext_hdr ...A...{
1790: 83 77 83 62 83 5f 96 96 92 5b 82 a9 82 e7 8e 9f .w.b._...[......
17a0: 82 cc 83 77 83 62 83 5f 82 d6 82 cc 8b 97 97 a3 ...w.b._........
17b0: 0d 0a 2f 2f 20 28 68 31 2f 68 32 29 0d 0a 2f 2f ..// (h1/h2)..//
17c0: 20 20 20 63 72 63 82 cd 8e a9 95 aa 8e a9 90 67 crc.........g
17d0: 82 cd 30 30 30 30 82 c6 82 b5 82 c4 91 bc 91 53 ..0000.........S
17e0: 95 94 82 a9 82 e7 8e 5a 8f 6f 0d 0a 7d 0d 0a .......Z.o..}..