这有一个批处理程序，麻烦给我简单的解释下代码含义：

冥界3大法王

[Asm] 纯文本查看 复制代码

AutoPatch.cmd:

@echo off
@color 1F

setlocal enabledelayedexpansion

TITLE AutoPatch for EurekaLog v7.10.2.0 (D7/Tokyo/Rio/Sydney/Alexandria)

net session >nul 2>&1
if NOT %errorLevel% == 0 (
    echo INFO: Administrative permissions required.
    echo.
    echo       Run AutoPatch.cmd as ADMIN:
    echo.
    echo.      * Right-click file "AutoPatch.cmd" in explorer and
    echo.      * Choose "Run as administrator"
    echo.
    pause
    exit /b
)

%~d0
cd %~p0

dir "%~dp0EurekaLogCore*.bpl" /s /b 1>NUL 2>NUL
if errorlevel 1 (  
     echo INFO: Current directory is not installdir
     echo.
     echo       Run AutoPatch.cmd in installdir ...
     echo.
     pause
     exit /b      
)

set "DelphiIDE="

dir "%~dp0EurekaLogCore280.bpl" /s /b 1>NUL 2>NUL
if not errorlevel 1 (
   set "DelphiIDE=Delphi 11 Alexandria"
)

dir "%~dp0EurekaLogCore270.bpl" /s /b 1>NUL 2>NUL
if not errorlevel 1 (
   set "DelphiIDE=!DelphiIDE!   Delphi 10.4 Sydney"
)

dir "%~dp0EurekaLogCore260.bpl" /s /b 1>NUL 2>NUL
if not errorlevel 1 (
   set "DelphiIDE=!DelphiIDE!   DX10.3 Rio"
)

dir "%~dp0EurekaLogCore250.bpl" /s /b 1>NUL 2>NUL
if not errorlevel 1 (
   set "DelphiIDE=!DelphiIDE!   DX10.2 Tokyo"
)

dir "%~dp0EurekaLogCore70.bpl" /s /b 1>NUL 2>NUL
if not errorlevel 1 (
   set "DelphiIDE=!DelphiIDE!   Delphi 7"
)

if "%DelphiIDE%"=="" (  
     echo INFO: No supported version of EurekaLog found.
     echo.
     echo       AutoPatch.cmd will be terminated now ...
     echo.
     pause
     exit /b      
)

echo ******************************************************************
echo AutoPatch for EurekaLog v7.10.2.0 (D7/Tokyo/Rio/Sydney/Alexandria)
echo ******************************************************************
echo.

set starttime=%time%

set "INSTDIR=%~dp0"
set INSTDIR=%INSTDIR:~0,-1%

set "SYSDIR=C:\Windows\System32"

set "WOW64="
if exist "!PROGRAMFILES(X86)!" (
   set "SYSDIR=C:\Windows\SysWOW64"
   set "WOW64=WOW6432Node\"
)

echo Please wait a few seconds ...
echo.
echo Step 1/2: Patching EurekaLog for %DelphiIDE%
echo.

sfk189.exe rep -bin /75033B04245A5874/75033B04245A58EB/  -quiet -dir . -yes -file EurekaLogExpert*.bpl
sfk189.exe rep -bin /558BECB9080000006A006A004975F9515333C055/C38BECB9080000006A006A004975F9515333C055/  -quiet -dir . -yes -file EModules.dcu
sfk189.exe rep -bin /558BECB9090000006A006A004975F9535633C055/C38BECB9090000006A006A004975F9535633C055/  -quiet -dir . -yes -file EModules.dcu
sfk189.exe rep -bin /55534881ECC8000000488BEC48C7452800000000/C3534881ECC8000000488BEC48C7452800000000/  -quiet -dir . -yes -file EModules.dcu
sfk189.exe rep -bin /55534881EC28010000488BEC48C7453800000000/C3534881EC28010000488BEC48C7453800000000/  -quiet -dir . -yes -file EModules.dcu 
sfk189.exe rep -bin /0300008B4068BAFF000000/0300008B4068BA0099FF00/ -quiet -dir . -yes -file EurekaLogExpert70.bpl
sfk189.exe rep -bin /0400008B4074BAFF000000/0400008B4074BA0099FF00/ -quiet -dir . -yes -file EurekaLogExpert250.bpl EurekaLogExpert260.bpl EurekaLogExpert270.bpl EurekaLogExpert280.bpl                       
sfk189.exe rep -bin /00E88474FFFFB2018B86680300/00E88474FFFFB2008B86680300/  -quiet -dir . -yes -file EurekaLogExpert70.bpl
sfk189.exe rep -bin /8B8040040000B201E8FA53FFFF/8B8040040000B200E8FA53FFFF/  -quiet -dir . -yes -file EurekaLogExpert250.bpl
sfk189.exe rep -bin /8B8040040000B201E88653FFFF/8B8040040000B200E88653FFFF/  -quiet -dir . -yes -file EurekaLogExpert260.bpl
sfk189.exe rep -bin /8B8650040000B201E8DE4FFFFF/8B8650040000B200E8DE4FFFFF/  -quiet -dir . -yes -file EurekaLogExpert270.bpl
sfk189.exe rep -bin /8B8658040000B201E8D64FFFFF/8B8658040000B200E8D64FFFFF/  -quiet -dir . -yes -file EurekaLogExpert280.bpl  
sfk189.exe rep -bin /8B8094080000B201/8B8094080000B200/  -quiet -dir . -yes -file EurekaLogExpert70.bpl
sfk189.exe rep -bin /8B806C090000B201/8B806C090000B200/  -quiet -dir . -yes -file EurekaLogExpert250.bpl EurekaLogExpert260.bpl
sfk189.exe rep -bin /8B807C090000B201/8B807C090000B200/  -quiet -dir . -yes -file EurekaLogExpert270.bpl
sfk189.exe rep -bin /8B8084090000B201/8B8084090000B200/  -quiet -dir . -yes -file EurekaLogExpert280.bpl               
sfk189.exe rep -bin /E89BF1FFFF598B45085068AC/B89BF1FFFF598B45085068AC/  -quiet -dir . -yes -file EurekaLogExpert70.bpl
sfk189.exe rep -bin /E8AFECFFFF5933C05568BA3D/B8AFECFFFF5933C05568BA3D/  -quiet -dir . -yes -file EurekaLogExpert250.bpl
sfk189.exe rep -bin /E867ECFFFF5933C05568CA41/B867ECFFFF5933C05568CA41/  -quiet -dir . -yes -file EurekaLogExpert260.bpl
sfk189.exe rep -bin /E8DEECFFFF598D5584A108F7/B8DEECFFFF598D5584A108F7/  -quiet -dir . -yes -file EurekaLogExpert270.bpl
sfk189.exe rep -bin /E8AEE3FFFF598D5584A110F7/B8AEE3FFFF598D5584A110F7/  -quiet -dir . -yes -file EurekaLogExpert280.bpl
sfk189.exe rep -bin /54007200690061006C000000B0040200FFFFFFFF0E0000004C00610074006500730074002000760065007200730069006F006E/460075006C006C0020000000B0040200FFFFFFFF0E0000004C00610074006500730074002000760065007200730069006F006E/  -quiet -dir . -yes -file EOption.dcu EurekaLogExpert*.bpl
sfk189.exe rep -bin /54007200690061006C0000/460075006C006C00200000/  -quiet -dir . -yes -file EOption.dcu EurekaLogExpert*.bpl
sfk189.exe rep -bin /55004E004C004900430045004E00530045004400/4C004900430045004E0053004500440020002000/  -quiet -dir . -yes -file EOption.dcu EurekaLogExpert*.bpl
sfk189.exe rep -bin /55004E005200450047004900530054004500520045004400/520045004700490053005400450052004500440020002000/  -quiet -dir "!INSTDIR!" "C:\Windows\System32" "!SYSDIR!" -yes -file EOption.dcu EurekaLogCore*.bpl EurekaLogExpert*.bpl
sfk189.exe rep -bin /547269616C000000FFFFFFFF0E0000004C61746573742076657273696F6E/46756C6C20000000FFFFFFFF0E0000004C61746573742076657273696F6E/  -quiet -dir . -yes -file EOption.dcu EurekaLogExpert*.bpl                            
sfk189.exe rep -bin /547269616C/46756C6C20/  -quiet -dir . -yes -file EOption.dcu EurekaLogExpert*.bpl
sfk189.exe rep -bin /554E4C4943454E534544/4C4943454E5345442020/  -quiet -dir . -yes -file EOption.dcu EurekaLogExpert*.bpl
sfk189.exe rep -bin /554E52454749535445524544/524547495354455245442020/  -quiet -dir . -yes -file EOption.dcu EurekaLogExpert*.bpl          
sfk189.exe rep -bin /4E004F005400200052004500470049005300540045005200450044002000560045005200530049004F004E/2000200052004500470049005300540045005200450044002000560045005200530049004F004E00200020/  -quiet -dir . -yes -file  *.dcu EurekaLogExpert*.bpl
sfk189.exe rep -bin /4E4F5420524547495354455245442056455253494F4E/2020524547495354455245442056455253494F4E2020/  -quiet -dir . -yes -file  *.dcu EurekaLogExpert*.bpl
sfk189.exe rep -bin /450076006500720079002000700072006F006A00650063007400200063006F006D00700069006C006500640020007700690074006800200045007500720065006B0061004C006F006700200054007200690061006C000D000A006500780070006900720065007300200061006600740065007200200033003000200064006100790073002E/20002000200020002000200020002000200020002000200020002000200020002000200020002000200020002000200020002000200020002000200020002000200020002000200020002000200020002000200020002000200020002000200020002000200020002000200020002000200020002000200020002000200020002000200020/  -quiet -dir . -yes -file *.dcu EurekaLogExpert*.bpl
sfk189.exe rep -bin /54007200690061006C000000558BEC53/460055004C004C0020000000558BEC53/  -quiet -dir "!INSTDIR!" "C:\Windows\System32" "!SYSDIR!" -yes -file EurekaLogCore*.bpl
sfk189.exe rep -bin /547269616C000000558BEC53/46554C4C20000000558BEC53/  -quiet -dir "!INSTDIR!" "C:\Windows\System32" "!SYSDIR!" -yes -file EurekaLogCore*.bpl
sfk189.exe rep -bin /54007200690061006C000000B0040200FFFFFFFF03000000540052004C/200020002000200020000000B0040200FFFFFFFF03000000540052004C/  -quiet -dir "!INSTDIR!" "C:\Windows\System32" "!SYSDIR!" -yes -file EurekaLogCore*.bpl
sfk189.exe rep -bin /547269616C000000FFFFFFFF0300000054524C/2020202020000000FFFFFFFF0300000054524C/  -quiet -dir "!INSTDIR!" "C:\Windows\System32" "!SYSDIR!" -yes -file EurekaLogCore*.bpl
sfk189.exe rep -bin /4500760065007200790020006100700070006C00690063006100740069006F006E00200063006F006D00700069006C006500640020007700690074006800200045007500720065006B0061004C006F006700200054007200690061006C000D000A006500780070006900720065007300200061006600740065007200200033003000200064006100790073002E/200020002000200020002000200020002000200020002000200020002000200020002000200020002000200020002000200020002000200020002000200052006500670069007300740065007200650064002000200020002000200020002000200020002000200020002000200020002000200020002000200020002000200020002000200020002000200020/  -quiet -dir . -yes -file EurekaLogExpert*.bpl

echo Step 2/2: Writing license data to registry
echo.
REG ADD HKLM\SOFTWARE\!WOW64!EurekaLab\EurekaLog\7.0 /v AppName /d "EurekaLog 7.10.2.0 Professional" /F 1>NUL 2>NUL
REG ADD HKLM\SOFTWARE\!WOW64!EurekaLab\EurekaLog\7.0 /v AppDir  /d "!INSTDIR!" /F 1>NUL 2>NUL
REG ADD HKLM\SOFTWARE\!WOW64!EurekaLab\EurekaLog\7.0 /v AppType /d "Professional" /F 1>NUL 2>NUL
REG ADD HKLM\SOFTWARE\!WOW64!EurekaLab\EurekaLog\7.0 /v AppDate /d "none" /F 1>NUL 2>NUL
REG ADD HKCU\SOFTWARE\EurekaLab\EurekaLog\7.0 /v AppName /d "EurekaLog 7.10.2.0 Professional" /F 1>NUL 2>NUL
REG ADD HKCU\SOFTWARE\EurekaLab\EurekaLog\7.0 /v AppType /d "Professional" /F 1>NUL 2>NUL
REG ADD HKCU\SOFTWARE\EurekaLab\EurekaLog\7.0\License /v Edition /d "Professional" /F 1>NUL 2>NUL
REG ADD HKCU\SOFTWARE\EurekaLab\EurekaLog\7.0\License /v UserName /d "EurekaLog" /F 1>NUL 2>NUL
REG ADD HKCU\SOFTWARE\EurekaLab\EurekaLog\7.0\License /v UID /d "{20e8e8c4-6789-4a49-8e78-c02d739e6d5e}" /F 1>NUL 2>NUL
REG ADD HKCU\SOFTWARE\EurekaLab\EurekaLog\7.0\License /v ID  /d "{20e8e8c4-6789-4a49-8e78-c02d739e6d5f}" /F 1>NUL 2>NUL

set endtime=%time%
echo Started  at: %starttime%
echo Finished at: %endtime%

echo.
echo Patching finished ...
echo.

pause

exit


How To:
1. Install EurekaLog v7.10.2.0 (2685)
2. Run AutoPatch.cmd in installdir as ADMIN

*** NO Reg-file required ! ***

Note:
AutoPatch requires command line tool "sfk189.exe" in installdir or C:\Windows
Download (1.8 MB):

[url]https://sourceforge.net/projects/swissfileknife/files/1-swissfileknife/1.8.9.2/sfk189.exe/download[/url]


 

smileat2000

不知道啊

unmask

利用sfk189.exe对特殊版本(D7/Tokyo/Rio/Sydney/Alexandria)的EurekaLog v7.10.2.0做一个patch，具体做啥patch，我也不清楚。

wkdxz

大概看了下，可能是使用管理员身份在EurekaLog安装目录运行脚本，用来破解Delphi IDE的专业版。

第一步，是使用sfk189.exe来破解，关键指定后缀的文件，以及其他操作。

第二步，是往注册表内写入专业版注册信息。

大概就这么回事

冥界3大法王

wkdxz 发表于 2022-9-30 20:51
大概看了下，可能是使用管理员身份在EurekaLog安装目录运行脚本，用来破解Delphi IDE的专业版。

第一步 ...

是Delphi 的一款控件。

semiuel

判断文件是否存在这一段感觉怪怪的
为什么不用if exist "%~dp0EurekaLogCore280.bpl" set "DelphiIDE=Delphi 11 Alexandria"