Rev 1688 | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
1686 | mario79 | 1 | ;********************************************************************* |
2 | unpack: |
||
1713 | mario79 | 3 | call displogo_and_readfile |
1686 | mario79 | 4 | jnz infileerr |
5 | |||
6 | mov ecx,[insize] |
||
7 | test ecx,ecx |
||
8 | jz infileerr |
||
9 | |||
10 | mcall 68,12 |
||
11 | |||
12 | mov [infile],eax |
||
13 | |||
14 | mov ebx,fn70block |
||
15 | mov [ebx],byte 0 |
||
16 | mov [ebx+16],eax |
||
17 | mov eax,[insize] |
||
18 | mov [ebx+12],eax |
||
19 | |||
20 | mcall 70 |
||
21 | test eax,eax |
||
22 | jnz infileerr |
||
23 | |||
24 | mov eax,[infile] |
||
25 | cmp [eax],dword 'KPCK' |
||
26 | jz @f |
||
27 | ;-------------------------------------- |
||
28 | unpack_err: |
||
29 | call return_memory |
||
30 | mov esi,notpacked_str |
||
31 | push notpacked_len |
||
32 | pop ecx |
||
33 | jmp write_string |
||
34 | ;--------------------------------------------------------------------- |
||
35 | @@: |
||
36 | mov ecx,[eax+4] |
||
37 | add ecx,[insize] |
||
38 | |||
39 | mcall 68,20,,[infile] |
||
40 | |||
41 | mov [infile],eax |
||
42 | add eax,[insize] |
||
43 | mov [outfile],eax |
||
44 | mov [outfilebest],eax |
||
45 | |||
46 | |||
47 | mov esi,[infile] |
||
48 | mov eax,[esi+8] |
||
49 | push eax |
||
50 | and al,0C0h |
||
51 | cmp al,0C0h |
||
52 | pop eax |
||
53 | jz unpack_err |
||
54 | |||
55 | and al,not 0C0h |
||
56 | dec eax |
||
57 | jnz unpack_err |
||
58 | |||
59 | mov eax,[esi+4] |
||
60 | mov [outsize],eax |
||
61 | push eax |
||
62 | push [outfile] |
||
63 | add esi,11 |
||
64 | push esi |
||
65 | mov eax,[esi+1] |
||
66 | xchg al,ah |
||
67 | ror eax,16 |
||
68 | xchg al,ah |
||
69 | mov [esi+1],eax |
||
70 | call lzma_decompress |
||
71 | mov esi,[infile] |
||
72 | test [esi+8],byte 80h |
||
73 | jnz uctr1 |
||
74 | |||
75 | test [esi+8],byte 40h |
||
76 | jz udone |
||
77 | |||
78 | add esi,[insize] |
||
79 | sub esi,5 |
||
80 | lodsd |
||
81 | mov ecx,eax |
||
82 | jecxz udone |
||
83 | |||
84 | mov dl,[esi] |
||
85 | mov esi,[outfile] |
||
86 | ;-------------------------------------- |
||
87 | uc1: |
||
88 | lodsb |
||
89 | sub al,0E8h |
||
90 | cmp al,1 |
||
91 | ja uc1 |
||
92 | |||
93 | cmp [esi],dl |
||
94 | jnz uc1 |
||
95 | |||
96 | lodsd |
||
97 | shr ax,8 |
||
98 | ror eax,16 |
||
99 | xchg al,ah |
||
100 | sub eax,esi |
||
101 | add eax,[outfile] |
||
102 | mov [esi-4],eax |
||
103 | loop uc1 |
||
104 | jmp udone |
||
105 | ;--------------------------------------------------------------------- |
||
106 | uctr1: |
||
107 | add esi,[insize] |
||
108 | sub esi,5 |
||
109 | lodsd |
||
110 | mov ecx,eax |
||
111 | jecxz udone |
||
112 | |||
113 | mov dl,[esi] |
||
114 | mov esi,[outfile] |
||
115 | ;-------------------------------------- |
||
116 | uc2: |
||
117 | lodsb |
||
118 | ;-------------------------------------- |
||
119 | @@: |
||
120 | cmp al,15 |
||
121 | jnz uf |
||
122 | |||
123 | lodsb |
||
124 | cmp al,80h |
||
125 | jb @b |
||
126 | |||
127 | cmp al,90h |
||
128 | jb @f |
||
129 | ;-------------------------------------- |
||
130 | uf: |
||
131 | sub al,0E8h |
||
132 | cmp al,1 |
||
133 | ja uc2 |
||
134 | ;-------------------------------------- |
||
135 | @@: |
||
136 | cmp [esi],dl |
||
137 | jnz uc2 |
||
138 | |||
139 | lodsd |
||
140 | shr ax,8 |
||
141 | ror eax,16 |
||
142 | xchg al,ah |
||
143 | sub eax,esi |
||
144 | add eax,[outfile] |
||
145 | mov [esi-4],eax |
||
146 | loop uc2 |
||
147 | ;-------------------------------------- |
||
148 | udone: |
||
149 | mov esi,unpacked_ok |
||
150 | push unpacked_len |
||
151 | pop ecx |
||
152 | call write_string |
||
153 | jmp saveout |
||
154 | ;********************************************************************* |
||
155 | return_memory: |
||
156 | mov ecx,[infile] |
||
157 | test ecx,ecx |
||
158 | jz @f |
||
159 | mcall 68,13, |
||
160 | xor eax,eax |
||
161 | mov [infile],eax |
||
162 | @@: |
||
163 | ret |
||
1713 | mario79 | 164 | ;********************************************************************* |
165 | displogo_and_readfile: |
||
166 | call clear_mess_and_displogo |
||
167 | ; load input file |
||
168 | mov esi,inname |
||
169 | call get_full_name |
||
170 | mov ebx,fn70block |
||
171 | mov [ebx],dword 5 |
||
172 | and [ebx+4],dword 0 |
||
173 | and [ebx+8],dword 0 |
||
174 | and [ebx+12],dword 0 |
||
175 | mov [ebx+16],dword file_attr |
||
176 | mcall 70 |
||
177 | test eax,eax |
||
178 | ret |
||
1686 | mario79 | 179 | ;********************************************************************* |