selfExtractingZip.cmd

:: BEGIN SCRIPT :::::::::::::::::::::::::::::::::::::::::::::::::::::
:: selfExtractingZip.cmd
:: From the desk of Frank P. Westlake, 2013-03-14
:: Written on Windows 8.
:: Requires CERTUTIL.exe
:: Requires FSUTIL.exe write access.
@Goto :main
This is the minimum script necessary for a self-extracting ZIP script.

INSTRUCTIONS
 - Add commands to this script to accomplish your task. To extract files
from the appended archive into the current directory call the :unZip
subroutine with the archive file name -- which in the case of a self
extracting script is the script file name -- and with the list of files to
extract, or with no list to extract all files. It is vital that the script
end with a blank line so that the appended archive will start a new line.
To extract:

     CALL :unZip "%~f0" cowInterrogation.txt

 - Create a ZIP archive of files which are stored uncompressed, then append
that archive to the script. The following example assumes that the archive is
named "zipFile.zip" and that the script is named "script.cmd":

     TYPE zipFile.zip >> script.cmd

:main
@Echo OFF
SetLocal EnableExtensions EnableDelayedExpansion

Call :unzip "%~f0"

Goto :EOF

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:unZip [/CRC] <archive> [file list]
:: :unZip
:: Extracts files from an .ZIP archive.
:: From the desk of Frank P. Westlake, 2013-03-17
:: 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="
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 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-5 delims=:" %%e in ("%%o") Do (
    Set /A "$fo=%%e+4, $xl=$zipSize2-$x, $dl=%%h, $nl=%%f, $storedCRC=%%i"
    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:
              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&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!"
) 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
:: END SCRIPT ::::::::::::::::::::::::::::::::::::::::::::::::::::