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