unzip.cmd

@Echo OFF
Call :unZip %*
Goto :EOF
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:unZip [/CRC] <archive> [file list]
:: Extracts files from an .ZIP archive.
:: From the desk of Frank P. Westlake, 2013-03-18
:: Compatibility identifier:           1
:: Requires :zip with same compatibility indicator.
:: Written on Windows 8.
:: Requires CERTUTIL.exe
:: Requires FSUTIL.exe write access.
:: Does not verify CRC unless switch /CRC is included.
SetLocal EnableExtensions EnableDelayedExpansion
For /F "tokens=1 delims==" %%a in ('Set "$" 2^>NUL:') Do Set "%%a="
:: DEFAULTS
Set "$checkCRC="
:: END DEFAULTS
Set "tm=%TIME: =%"
Set "$ME=%~n0"
Set "$MY=%TEMP%\%~n0.%tm::=%%RANDOM%"
MkDir "!$MY!"
For %%f in (%*) Do (
         If /I "%%~f" EQU "/CRC" (  Set "$checkCRC=true"
  ) Else If /I "%%~f" EQU "/-CRC" ( Set "$checkCRC="
  ) Else If NOT DEFINED $zip (      Set "$zip=%%~ff"
  ) Else (                          Set  $fileList=!$fileList! "%%~f"
  )
)
If NOT EXIST "!$zip!" (Echo Missing archive file. & Goto :EOF)>&2
CertUtil -f -encodeHex "%$zip%" "!$MY!\zip.hex" 4 >NUL:
Set "$self=0"
If "%~f0" EQU "%~f1" (
  For /F "delims=:" %%a  in ('FindStr /O /B /R "PK\>" "!$zip!"') Do (
    Set "$self=%%a"
    Goto :break
  )
)
:break
For %%a in ("%$zip%") Do Set /A "$zipSize=%%~za, $zipSize2=$zipSize*2"

Set /A "$tail=$zipSize-(22+0xFFFF), $tailLength=$zipSize-$tail"
If !$tail! LSS 0 Set /A "$tail=0, $tailLength=$zipSize"

Call :unZip.getHex "%$zip%" "!$MY!\rev" !$tail! !$tailLength! makeHex
Call :unZip.reverseFile "!$MY!\rev" "!$MY!\rev"

For /F "usebackq tokens=1*" %%a in ("!$MY!\rev") Do (
  Set "$line=%%b"
  Set "$longLine=!$line: =!!$longLine!"
  If "!$longLine:504b0506=!" NEQ "!$longLine!" (
    For /L %%i in (0,2,30) Do (
      If /I "!$longLine:~%%i,8!" EQU "504b0506" (
        Set "$bytes=!$longLine:~%%i!"
        Call :unZip.byteToInt $cdSize   24 8
        Call :unZip.byteToInt $cdOffset 32 8
        Set /A "$cdOffset+=$self"
        Set "$longLine=!$longLine:~0,%%i!"
        Goto :break
      )
    )
  )
)
:break
Call :unZip.getHex "%$zip%" "!$MY!\hex" !$cdOffset! !$cdSize! makeHex
CertUtil -f -decodeHex "!$MY!\hex" "!$MY!\bin" 4  >NUL:
CertUtil -f -encodeHex "!$MY!\bin" "!$MY!\hex" 12 >NUL:
ERASE "!$MY!\bin"
For /F "useBackQ" %%a in ("!$MY!\hex") Do Set "$bytes=%%a"

Call :unZip.504b0102
CertUtil -f -encodeHex "%$zip%" "!$MY!\hex" 12 >NUL:
Echo;!$offsetList! | SORT>"!$MY!\offsetList"
For /F "usebackq delims=" %%a in ("!$MY!\offsetList") Do Set "$offsetList=%%a"
REM ERASE "!$MY!\offsetList" 1>NUL: 2>NUL:
For %%o in (!$offsetList!) Do (
  For /F "tokens=1-6 delims=:" %%e in ("%%o") Do (
    Set /A "$fo=%%e+4, $xl=$zipSize2-$x, $dl=%%h, $nl=%%f, $storedCRC=%%i, $method=%%j"
    COPY /Y "!$MY!\hex" "!$MY!\%%g.work" >NUL:
    fsUtil file setZeroData offset=0     length=%%e   "!$MY!\%%g.work" >NUL:
    fsUtil file setZeroData offset=!$fo! length=!$xl! "!$MY!\%%g.work" >NUL:
    For /F %%z in ('MORE /E /S "!$MY!\%%g.work"') Do (
      Set "$=%%z"
      Set /A "$p=$fo+$nl+0x!$:~2,2!!$:~0,2!*2, $z=$p+$dl, $zl=$zipSize2-$z"
    )
    COPY /Y "!$MY!\hex" "!$MY!\%%g.work" >NUL:
    Echo;%%g >"!$MY!\t.hex"
    CertUtil -f -decodeHex "!$MY!\t.hex" "!$MY!\t" 12 >NUL: && (
      For /F usebackq^ delims^=^ EOL^= %%n in ("!$MY!\t") Do (
        Set /P "=Extracting %%n ... "<NUL:
        Call :unZip.trimFile "%$zip%" "!$MY!\%%n" !$p!/2 !$dl!/2 makeHex
        Set "$extracted="
        If DEFINED $fileList (
          For %%F in (!$fileList!) Do (
            If "%%~n" EQU "%%~F" (
              COPY "!$MY!\%%n" "%%n">NUL:
              If !$method! EQU 8 echo Expand "%%n"
              Expand "%%n" \w\APPNOTE.TXT
              Set "$extracted=true"
            )
            REM ERASE "!$MY!\%%n"
          )
        ) Else (
          MOVE "!$MY!\%%n" "%%n">NUL:
          Set "$extracted=true"
        )
        REM ERASE "!$MY!\%%g*" "!$MY!\t*"
        If DEFINED $extracted (
          If DEFINED $checkCRC (
            Call :unZip.getCRC32 $calculatedCRC "%%n"
            If !$calculatedCRC! EQU !$storedCRC! (
              Echo OK.
            ) Else (
              Echo bad CRC: !$storedCRC! should be !$calculatedCRC!.
            )
          ) Else (Echo;OK.)
        ) Else (Echo;skipped.)
      )
    )
  )
)
:end
RD /S /Q "!$MY!"
Goto :EOF

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:unZip.reverseFile <source> <destination>
SetLocal EnableExtensions EnableDelayedExpansion
Set "$pad=          "
Set /A "$lineNr=0"
TYPE NUL:>"!$MY!\reverseFile"
For /F "useBackQ delims=" %%a in ("%~1") Do (
  Set /A "$lineNr+=1"
  Set "$=!$pad!!$lineNr!"
  (Echo;!$:~-10! %%a)>>"!$MY!\reverseFile"
)
SORT /R "!$MY!\reverseFile" >"%~2"
ERASE "!$MY!\reverseFile"
Goto :EOF

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:unZip.trimFile <source> <destination> <offset> <length> [makeHex]
SetLocal EnableExtensions EnableDelayedExpansion
TYPE NUL:>"%~2"
Call :unZip.getHex %1 "!$MY!\getHex" %3 %4 %5
For %%F in ("!$MY!\getHex") Do (
  CertUtil -f -decodeHex "%%~fF" "%~f2" 4 >NUL:
  If "%~5" NEQ "" ERASE "%%~fF"
)
Goto :EOF

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:unZip.getHex <source> <destination> <offset> <length> [makeHex]
REM Echo;%0 %*
SetLocal EnableExtensions EnableDelayedExpansion
TYPE NUL:>"%~2"
  If "%~5" EQU "" ( COPY /-Y "%~f1" "!$MY!\trim"
) Else            ( CertUtil -f -encodeHex "%~f1" "!$MY!\trim" 4 >NUL:
)
For %%F in ("!$MY!\trim") Do (
  Set /A "n=(%~3),       length1=n/16*50+(n%%16)*3+((n>>3)&1)"
  Set /A "n=(%~3)+(%~4), offset2=n/16*50+(n%%16)*3+((n>>3)&1)"
  Set /A "               length2=%%~zF-offset2"
  fsUtil file setZeroData offset=0         length=!length1! "%%~fF" >NUL:
  fsUtil file setZeroData offset=!offset2! length=!length2! "%%~fF" >NUL:
  MORE /E /S "%%~fF" > "%~f2"
  If "%~5" NEQ "" ERASE "%%~fF*"
)
Goto :EOF

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:unZip.504b0102 CentralRecord
Call :unZip.byteToInt $gpFlag        16 4
Call :unZip.byteToInt $method        20 4
Call :unZip.byteToInt $storedCRC     32 8
Call :unZip.byteToInt $compressed    40 8
Call :unZip.byteToInt $nameLength    56 4
Call :unZip.byteToInt $extraLength   60 4
Call :unZip.byteToInt $commentLength 64 4
Call :unZip.byteToInt $offset        84 8
Set /A "$offset+=$self"
Set /A "$v=92"
If !$nameLength! GTR 0 (
  Set /A "$L=$nameLength*2"
  For /F "tokens=1,2" %%n in ("!$v! !$L!") Do (
    Set "$name=!$bytes:~%%n,%%o!"
  )
  Set /A "$v+=$L"
)
Set /A "$v+=$extraLength*2"
Set /A "$v+=$commentLength*2"
Set /A "$p=56+$offset*2, $dl=$compressed*2"
Set /A "$nl=$nameLength*2"
Set /A "$test=0"^
,      "$test&=$gpFlag&0xFFFF" % REM No flags permitted in this configuration.       %^
,      "$test&=$method&0xFFF7" % REM No compression permitted in this configuration. %
REM ,      "$test&=$method&0xFFFF" % REM No compression permitted in this configuration. %
If !$test! EQU 0 (
  Set /A "$p=56+$offset*2, $dl=$compressed*2"
  Set /A "$nl=$nameLength*2"
  Set "$offsetList=!$offsetList! !$p!:!$nl!:!$name!:!$dl!:!$storedCRC!:!$method!"
) Else (
  REM Echo;Skipping.
)

For %%v in (!$v!) Do Set "$bytes=!$bytes:~%%v!"
If DEFINED $bytes Goto :unZip.504b0102
Erase "!$MY!\t" "!$MY!\t.hex" >NUL: 2>&1
Goto :EOF

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:unZip.byteToInt <result variable> <offset> <length>
SetLocal EnableExtensions EnableDelayedExpansion
Set "%~1="
Set "$=!$bytes:~%~2,%~3!"
set "#="
Set /A "n=0"
For %%a in (0 1 2 3 4 5 6 7 8 9 A B C D E F) Do Set "$=!$:%%a= %%a!"
For %%a in (%$%) Do (
  If !n! EQU 0 (Set "@=%%a") Else (Set "#=!@!%%a!#!")
  Set /A "n=(n+1) %% 2"
)
Set /A "#=0x%#%"
EndLocal & Set "%~1=%#%"
Goto :EOF
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:unZip.setTable
:zip.setTable
Set /A "xor=0xEDB88320"
For /L %%n in (0, 1, 255) Do (
  Set /A "c=%%n"
  For /L %%k in (8, -1, 1) Do (
    Set /A "t=c&1, c=(c>>1)&0x7FFFFFFF"
    If !t! NEQ 0 Set /A "c=xor^c"
    Set /A "TABLE%%n=c"
  )
)
Set "TABLE=%~f0"
Goto :EOF

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:unZip.getCRC32 <var name> <name of hex file>
If "!TABLE!" NEQ "%~f0" Call :unZip.setTable
:zip.getCRC32 <var name> <name of hex file>
If "!TABLE!" NEQ "%~f0" Call :zip.setTable
CertUtil -f -encodeHex "%~2" "!$MY!\crc" 4 >NUL:
SetLocal EnableExtensions EnableDelayedExpansion
Set /A "crc=~0"
For /F "usebackq delims=" %%L in ("!$MY!\crc") Do (
  For %%B in (%%L) Do (
    Set /A "n=(crc^0x%%B)&0xFF"
    For %%i in (!n!) Do Set "n=!TABLE%%i!"
    Set /A "crc=n^((crc>>8)&0xFFFFFF)"
  )
)
Set /A "crc=~crc"
EndLocal & Set "%~1=%crc%"
Erase "!$MY!\crc"
Goto :EOF