903 lines
30 KiB
Plaintext
903 lines
30 KiB
Plaintext
|
|
{*******************************************************}
|
|
{ }
|
|
{ RecoverService }
|
|
{ }
|
|
{ Copyright (C) 2022 kku }
|
|
{ }
|
|
{*******************************************************}
|
|
|
|
unit RecoverService;
|
|
|
|
interface
|
|
|
|
uses
|
|
System.SysUtils, System.Classes,System.JSON,System.IOUtils,System.Hash,
|
|
Vcl.Graphics, Tocsg.Thread, ManagerPattern, Tocsg.Files,
|
|
System.Generics.Collections;
|
|
|
|
const
|
|
KVBIN_FILES = 'afsr.dll|aiffsr.dll|asfsr.dll|assr.dll|awsr.dll|bentofio.dll|' +
|
|
'bkfsr.dll|bmpsr.dll|bzip2sr.dll|cabsr.dll|cbmap.map|chartbls.ux|' +
|
|
'csvsr.dll|dbxsr.dll|dcasr.dll|dcmsr.dll|difsr.dll|dmgsr.dll|' +
|
|
'dw4sr.dll|dxlsr.dll|emlsr.dll|emxsr.dll|encasesr.dll|entsr.dll|' +
|
|
'epubsr.dll|filter.exe|FilterDotNet.dll|filterfordotnet.dll|' +
|
|
'FilterTestDotNet.exe|foliosr.dll|formats.ini|gifsr.dll|' +
|
|
'hl7sr.dll|htmsr.dll|hwposr.dll|hwpsr.dll|ichatsr.dll|isosr.dll|' +
|
|
'iwsssr.dll|iwwpsr.dll|jpgsr.dll|jtdsr.dll|KeyViewFilter.dll|' +
|
|
'kpagrdr.dll|kpcatrdr.dll|kpdwgrdr.dll|kpdxfrdr.dll|kpemfrdr.dll|' +
|
|
'kpgflrdr.dll|kpgifrdr.dll|kpifcnvt.dll|kpifutil.dll|kpiwpgrdr.dll|' +
|
|
'kpmsordr.dll|kpodfrdr.dll|kpp40rdr.dll|kpp95rdr.dll|kpp97rdr.dll|' +
|
|
'kppctrdr.dll|kppicrdr.dll|kppng.dll|kpppxrdr.dll|kpprerdr.dll|' +
|
|
'kpprzrdr.dll|kpsdwrdr.dll|kpshwrdr.dll|kpwg2rdr.dll|kpwmfrdr.dll|' +
|
|
'kpwpgrdr.dll|kpxfdlrdr.dll|kv.lic|kvdecrypt.dll|kvfilter.dll|' +
|
|
'kvgzsr.dll|kvhqxsr.dll|kvhvp.dll|kvlangdetect.dll|kvolefio.dll|' +
|
|
'kvoop.exe|kvutil.dll|kvxconfig.ini|kvxpgsa.dll|kvxsssa.dll|' +
|
|
'kvxtract.dll|kvxwpsa.dll|kvzeesr.dll|kvzip.dll|kwad.dll|l123sr.dll|' +
|
|
'langdetectext.dll|lasr.dll|libpff.dll|license.ini|lzhsr.dll|' +
|
|
'macbinsr.dll|mbsr.dll|mbxsr.dll|mdbsr.dll|mhtsr.dll|Microsoft.VC80.CRT.manifest|' +
|
|
'mifsr.dll|misr.dll|mp3sr.dll|mpeg4sr.dll|mppsr.dll|msgsr.dll|' +
|
|
'msvcm80.dll|msvcp80.dll|msvcr80.dll|msw6sr.dll|mswsr.dll|mw6sr.dll|' +
|
|
'mw8sr.dll|mwsr.dll|mwssr.dll|mwxsr.dll|oa2sr.dll|odfsssr.dll|' +
|
|
'odfwpsr.dll|olesr.dll|onmsr.dll|oo3sr.dll|pdfsr.dll|pffsr.dll|' +
|
|
'pngsr.dll|pstnsr.dll|qpssr.dll|qpwsr.dll|rarsr.dll|riffsr.dll|' +
|
|
'rtfsr.dll|skypesr.dll|sosr.dll|sunadsr.dll|swfsr.dll|tarsr.dll|' +
|
|
'tifsr.dll|tnefsr.dll|tstxtract.exe|txtcnv.dll|unisr.dll|unzip.dll|' +
|
|
'utf8sr.dll|uudsr.dll|vsdsr.dll|wkssr.dll|wosr.dll|wp6sr.dll|' +
|
|
'wpmap.dll|wpmsr.dll|xlsbsr.dll|xlssr.dll|xlsxsr.dll|xmlsh.dll|' +
|
|
'xmlsr.dll|xpssr.dll|xywsr.dll|yimsr.dll|z7zsr.dll|langdetect.dat|' +
|
|
'TB_arabic_mac_ucs2.txt|TB_arabic_ucs2.txt|TB_ascii_ibm_ucs2.txt|' +
|
|
'TB_ascii_ucs2.txt|TB_chsimplified_ucs2.txt|TB_chtraditional_chsimplified.txt|' +
|
|
'TB_chtraditional_ucs2.txt|TB_cyrillicdos_ucs2.txt|TB_cyrillickoi8_ucs2.txt|' +
|
|
'TB_cyrillic_ucs2.txt|TB_easterneuropean_ucs2.txt|TB_greek_ucs2.txt|' +
|
|
'TB_hebrew_ucs2.txt|TB_iso8859.txt|TB_korean_ucs2.txt|TB_latin3_ucs2.txt|' +
|
|
'TB_latin5_ucs2.txt|TB_latin6_ucs2.txt|TB_latin7_ucs2.txt|TB_latin9_ucs2.txt|' +
|
|
'TB_northerneuropean_ucs2.txt|TB_shiftjis_ucs2.txt|TB_thai_ucs2.txt|' +
|
|
'TB_turkish_ucs2.txt|TB_ucs2chsimp_ucs2chtrad.txt|TB_ucs2chtrad_ucs2chsimp.txt|' +
|
|
'TB_unicode_entities.txt|TB_vietnamese_ucs2.txt|TB_westerneuropean_ucs2.txt|' +
|
|
'text_arabic_iso.txt|text_arabic_ucs2.txt|text_arabic_utf8.txt|' +
|
|
'text_arabic_win.txt|text_ascii.txt|text_ascii_ucs2.txt|text_ascii_utf8.txt|' +
|
|
'text_chsimplified.txt|text_chsimplified_ucs2.txt|text_chsimplified_utf8.txt|' +
|
|
'text_chtraditional.txt|text_chtraditional_chsimplified.keyview.txt|' +
|
|
'text_chtraditional_inv.txt|text_chtraditional_ucs2.keyview.txt|' +
|
|
'text_chtraditional_ucs2.txt|text_chtraditional_utf8.keyview.txt|' +
|
|
'text_chtraditional_utf8.txt|text_cyrillic_dos.txt|text_cyrillic_iso.txt|' +
|
|
'text_cyrillic_koi8.txt|text_cyrillic_ucs2.txt|text_cyrillic_utf8.txt|' +
|
|
'text_cyrillic_win.txt|text_easterneuropean_iso.txt|text_easterneuropean_ucs2.txt|' +
|
|
'text_easterneuropean_utf8.txt|text_easterneuropean_win.txt|text_euc.txt|' +
|
|
'text_greek_iso.txt|text_greek_ucs2.txt|text_greek_utf8.txt|text_greek_win.txt|' +
|
|
'text_hebrew_iso.txt|text_hebrew_ucs2.txt|text_hebrew_utf8.txt|' +
|
|
'text_hebrew_win.txt|text_jis.txt|text_jis_1.txt|text_katakana_shiftjis.txt|' +
|
|
'text_katakana_ucs2.txt|text_katakana_utf8.txt|text_korean.txt|text_korean_ucs2.txt|' +
|
|
'text_korean_utf8.txt|text_maori.ne.txt|text_maori.txt|text_maori_ucs2.txt|' +
|
|
'text_maori_utf8.txt|text_northerneuropean_iso.txt|text_northerneuropean_ucs2.txt|' +
|
|
'text_northerneuropean_utf8.txt|text_northerneuropean_win.txt|text_shiftjis.txt|' +
|
|
'text_shiftjis_ucs2.txt|text_shiftjis_utf8.txt|text_thai.txt|text_thai_ucs2.txt|' +
|
|
'text_thai_utf8.txt|text_turkish.txt|text_turkish_ucs2.txt|text_turkish_utf8.txt|' +
|
|
'text_utf8_1.keyview.txt|text_utf8_1.txt|text_utf8_1_to_jis.keyview.txt|' +
|
|
'text_utf8_1_to_jis.txt|text_vietnamese_ucs2.txt|text_vietnamese_utf8.txt|' +
|
|
'text_vietnamese_win.txt|text_westerneuropean.txt|text_westerneuropean_utf8.txt|';
|
|
CONF_FILES = 'eCrmHeHelper.dll|eCrmHeHelper.exe|eCrmHeHelper32.dll|eCrmInterCaller.exe|' +
|
|
'BSWmcr.exe|Bs1out.dll|Bs1out64.dll|Bs1shl.dll|Bs1uef.dat|Bs1tri.dat';
|
|
HEBIN_FILES = 'eCrmHomeEdition.exe|ielib64.dll|KvCttSch.exe|KvCttSchw.exe|libeay32.dll|' +
|
|
'libkm64.dll|ptnsch.dat|ssleay32.dll|bs1flt_x64.sys|bs1fltctrl.dll|bsonex32.sys|bsonex64.sys';
|
|
LANG_FILES = 'eCrmHomeEdition.409.dat|eCrmHomeEdition.412.dat|eCrmHomeEdition.411.dat|' +
|
|
'eCrmHomeEdition.804.dat|eCrmHomeEdition.404.dat';
|
|
SLCORE_FILES = 'slcore.exe';
|
|
SLCORE_DATA_FILES = 'SLT@|sltgd.dat';
|
|
|
|
DATA_FILES = 'pdmsa.prop|admsa.prop|cdmsa.prop|csmsa.pro'; // cfmsa.prop 사용하지 않음
|
|
|
|
DIR_NAMES = 'bin|conf|Data|Language|Resource';
|
|
|
|
type
|
|
TRecoverService = class(TTgDirWatchBase)
|
|
private
|
|
DataFiles_,
|
|
DirNames_,
|
|
KvBinFiles_,
|
|
HeBinFiles_,
|
|
ConfFiles_,
|
|
LangFiles_,
|
|
SLCoreDatas_,
|
|
SLCoreFiles_: TStringList;
|
|
|
|
LockFiles_: TList<TFileStream>;
|
|
|
|
bIsWorking_: Boolean;
|
|
|
|
bBlockRename_: Boolean;
|
|
sBlkFRename_,
|
|
sIgrBlkFRename_: String;
|
|
bRecovering_: Boolean;
|
|
|
|
referenceData_: TDictionary<string, string>;
|
|
|
|
procedure OnLockFileNotify(Sender: TObject; const Item: TFileStream; Action: TCollectionNotification);
|
|
procedure ProcessDirWatchEnt(Sender: TObject; pInfo: PDirWatchEnt); override;
|
|
procedure LockFiles;
|
|
procedure UnlockFiles;
|
|
procedure RecoverAll;
|
|
procedure RecoverData;
|
|
procedure LoadReferenceJson(const JsonPath: string);
|
|
function CheckFileIntegrity(const FilePath, ExpectedHash: string;
|
|
out ActualHash, Reason: string): Boolean;
|
|
procedure CheckAndRecover(sResPath, sPath: String);
|
|
function DoRecoverFile(const sTargetFilePath: string): string;
|
|
public
|
|
Constructor Create;
|
|
Destructor Destroy; override;
|
|
|
|
procedure StartService;
|
|
procedure StopService;
|
|
|
|
property IsWorking: Boolean read bIsWorking_;
|
|
procedure PerformInitialAudit;
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses
|
|
Tocsg.Safe, Tocsg.Strings, Tocsg.Path, Tocsg.Encrypt, superobject, Tocsg.Exception,
|
|
Winapi.Windows, GlobalDefine, AbUnzper, AbArcTyp, ManagerService,
|
|
ManagerModel, Condition, Tocsg.Packet;
|
|
|
|
{ TRecoverService }
|
|
|
|
Constructor TRecoverService.Create;
|
|
begin
|
|
Inherited Create(true, false);
|
|
bIsWorking_ := false;
|
|
bRecovering_ := false;
|
|
|
|
sBlkFRename_ := '';
|
|
sIgrBlkFRename_ := '';
|
|
bBlockRename_ := false;
|
|
KvBinFiles_ := TStringList.Create;
|
|
KvBinFiles_.CaseSensitive := false;
|
|
SplitString(KVBIN_FILES, '|', KvBinFiles_);
|
|
HeBinFiles_ := TStringList.Create;
|
|
HeBinFiles_.CaseSensitive := false;
|
|
SplitString(HEBIN_FILES, '|', HeBinFiles_);
|
|
ConfFiles_ := TStringList.Create;
|
|
ConfFiles_.CaseSensitive := false;
|
|
SplitString(CONF_FILES, '|', ConfFiles_);
|
|
ConfFiles_.Add(EXE_SPL);
|
|
LangFiles_ := TStringList.Create;
|
|
LangFiles_.CaseSensitive := false;
|
|
SplitString(LANG_FILES, '|', LangFiles_);
|
|
SLCoreFiles_ := TStringList.Create;
|
|
SLCoreFiles_.CaseSensitive := false;
|
|
SplitString(SLCORE_FILES, '|', SLCoreFiles_);
|
|
SLCoreDatas_ := TStringList.Create;
|
|
SplitString(SLCORE_DATA_FILES, '|', SLCoreDatas_);
|
|
DirNames_ := TStringList.Create;
|
|
DirNames_.CaseSensitive := false;
|
|
SplitString(DIR_NAMES, '|', DirNames_);
|
|
DataFiles_ := TStringList.Create;
|
|
DataFiles_.CaseSensitive := false;
|
|
SplitString(DATA_FILES, '|', DataFiles_);
|
|
|
|
LockFiles_ := TList<TFileStream>.Create;
|
|
LockFiles_.OnNotify := OnLockFileNotify;
|
|
LockFiles;
|
|
|
|
referenceData_ := TDictionary<string, string>.Create;
|
|
|
|
LoadReferenceJson(GetRunExePathDir + '' + 'Resource\rst.00');
|
|
|
|
// RecoverAll;
|
|
PerformInitialAudit;
|
|
|
|
SetFilter(FILE_NOTIFY_CHANGE_FILE_NAME or FILE_NOTIFY_CHANGE_DIR_NAME or
|
|
FILE_NOTIFY_CHANGE_SIZE or FILE_NOTIFY_CHANGE_LAST_WRITE);
|
|
end;
|
|
|
|
Destructor TRecoverService.Destroy;
|
|
begin
|
|
StopService;
|
|
Inherited;
|
|
FreeAndNil(LockFiles_);
|
|
FreeAndNil(DataFiles_);
|
|
FreeandNil(DirNames_);
|
|
FreeAndNil(SLCoreDatas_);
|
|
FreeAndNil(SLCoreFiles_);
|
|
FreeAndNil(LangFiles_);
|
|
FreeAndNil(ConfFiles_);
|
|
FreeAndNil(HeBinFiles_);
|
|
FreeAndNil(KvBinFiles_);
|
|
FreeAndNil(referenceData_);
|
|
end;
|
|
|
|
procedure TRecoverService.LoadReferenceJson(const JsonPath: string);
|
|
var
|
|
Path, Hash: string;
|
|
ss: TStringStream;
|
|
O, ItemObj: ISuperObject;
|
|
ListObj: TSuperArray;
|
|
i: Integer;
|
|
|
|
begin
|
|
referenceData_.Clear;
|
|
if not FileExists(JsonPath)
|
|
then Exit;
|
|
|
|
try
|
|
Guard(ss, TStringStream.Create('', TEncoding.UTF8));
|
|
ss.LoadFromFile(JsonPath);
|
|
|
|
// O := SO(ss.DataString);
|
|
O := SO(DecBinStrToStr(ekAes256cbc, PASS_MODEL, ss.DataString));
|
|
if O <> nil then
|
|
begin
|
|
ListObj := O.A['List'];
|
|
|
|
if ListObj <> nil then
|
|
begin
|
|
for i := 0 to ListObj.Length - 1 do
|
|
begin
|
|
ItemObj := ListObj.O[i];
|
|
|
|
// 비교를 위한 대소문자 정규화 (경로는 소문자, 해시는 대문자)
|
|
Path := LowerCase(ItemObj.S['P']);
|
|
Hash := UpperCase(ItemObj.S['H']);
|
|
|
|
// _Trace('[MGKIM] LoadReferenceJson.. P: %s, H: %s', [Path, Hash]);
|
|
referenceData_.AddOrSetValue(Path, Hash);
|
|
end;
|
|
end;
|
|
|
|
end;
|
|
except
|
|
on E: Exception do
|
|
ETgException.TraceException(Self, E, 'Fail .. LoadReferenceJson()');
|
|
end;
|
|
end;
|
|
|
|
|
|
procedure TRecoverService.OnLockFileNotify(Sender: TObject; const Item: TFileStream; Action: TCollectionNotification);
|
|
begin
|
|
if Action = cnRemoved then
|
|
Item.Free;
|
|
end;
|
|
|
|
procedure TRecoverService.LockFiles;
|
|
|
|
function DoLockFile(sPath: String): TFileStream;
|
|
begin
|
|
Result := nil;
|
|
|
|
if not FileExists(sPath) then
|
|
exit;
|
|
|
|
try
|
|
Result := TFileStream.Create(sPath, fmOpenRead or fmShareDenyWrite);
|
|
except
|
|
on E: Exception do
|
|
ETgException.TraceException(E, Format('Fail .. DoLockFile() .. Path="%s"', [sPath]));
|
|
end;
|
|
end;
|
|
|
|
var
|
|
sCurDir,
|
|
sResDir: String;
|
|
fs: TFileStream;
|
|
i: Integer;
|
|
begin
|
|
sCurDir := GetRunExePathDir;
|
|
sResDir := sCurDir + 'Resource\';
|
|
for i := 1 to 5 do
|
|
begin
|
|
fs := DoLockFile(sResDir + Format('rst.%.2d', [i]));
|
|
if fs <> nil then
|
|
LockFiles_.Add(fs);
|
|
end;
|
|
|
|
fs := DoLockFile(sCurDir + 'bin\datafiles\unicodetables\text_kjdump.txt');
|
|
if fs <> nil then
|
|
LockFiles_.Add(fs);
|
|
end;
|
|
|
|
procedure TRecoverService.UnlockFiles;
|
|
begin
|
|
LockFiles_.Clear;
|
|
end;
|
|
|
|
// 단일 파일 무결성 검사 (해시 비교)
|
|
function TRecoverService.CheckFileIntegrity(const FilePath, ExpectedHash: string; out ActualHash, Reason: string): Boolean;
|
|
begin
|
|
Result := False;
|
|
ActualHash := '';
|
|
Reason := '';
|
|
|
|
if not TFile.Exists(FilePath) then
|
|
begin
|
|
Reason := 'File Not Found';
|
|
Exit;
|
|
end;
|
|
|
|
try
|
|
ActualHash := UpperCase(THashSHA2.GetHashStringFromFile(FilePath, THashSHA2.TSHA2Version.SHA256));
|
|
if ActualHash = ExpectedHash then
|
|
Result := True
|
|
else
|
|
Reason := 'Hash Different';
|
|
except
|
|
on E: Exception do
|
|
Reason := 'Access Denied or Read Error';
|
|
end;
|
|
end;
|
|
|
|
function TRecoverService.DoRecoverFile(const sTargetFilePath: string): string;
|
|
var
|
|
zip: TAbUnZipper;
|
|
sCurDir, sResDir, sResPath, sExtrDir: String;
|
|
sFName, sFNameLower, sResFile: String;
|
|
nIdx: Integer;
|
|
begin
|
|
bRecovering_ := True;
|
|
try
|
|
try
|
|
sCurDir := GetRunExePathDir;
|
|
sResDir := sCurDir + 'Resource\';
|
|
sResPath := sCurDir + 'prfwork.dat';
|
|
|
|
sFName := ExtractFileName(sTargetFilePath);
|
|
sFNameLower := LowerCase(sFName);
|
|
sExtrDir := ExtractFilePath(sTargetFilePath);
|
|
|
|
// 손상된 파일 이름에 맞춰 원본 백업 리소스(rst.XX) 매핑
|
|
if sFNameLower = 'slcore.exe' then
|
|
sResFile := 'rst.05'
|
|
else if (sFNameLower = 'ssleay32.dll') or (sFNameLower = 'ptnsch.dat') or //conf
|
|
(sFNameLower = 'libkm64.dll') or (sFNameLower = 'libeay32.dll') or
|
|
(sFNameLower = 'kvcttschw.exe') or (sFNameLower = 'kvcttsch.exe') or
|
|
(sFNameLower = '7z.dll') or (sFNameLower = 'bs1flt_x64.sys') or
|
|
(sFNameLower = 'bs1fltctrl.dll') or (sFNameLower = 'bs1ugcp.dll') or
|
|
(sFNameLower = 'bsonex32.sys') or (sFNameLower = 'bsonex64.sys') or
|
|
(sFNameLower = 'ecrmhomeedition') or
|
|
(sFNameLower = 'ielib64.dll') or (sFNameLower = 'ecrmheserviced.dll') then
|
|
sResFile := 'rst.01'
|
|
else if (sFNameLower = 'ecrmintercaller.exe') or (sFNameLower = 'ecrmhehelper.dll') or // root
|
|
(sFNameLower = 'ecrmhehelper32.dll') or (sFNameLower = 'ecrmhehelperf.dll') or
|
|
(sFNameLower = 'ecrmhehelper32f.dll') or (sFNameLower = 'ecrmhehelper.exe') or
|
|
(sFNameLower = 'bswmcr.exe') or (sFNameLower = 'bs1out.dll') or
|
|
(sFNameLower = 'bs1tri.exe') or (sFNameLower = 'bs1shl.dll') or
|
|
(sFNameLower = 'Bs1ovi.dll') or (sFNameLower = 'Bs1ovm.dll') or
|
|
(sFNameLower = 'Bs1out.dll') or (sFNameLower = 'bs1out64.dll') then
|
|
sResFile := 'rst.03'
|
|
else if (Pos('ecrmhomeedition.4', sFNameLower) > 0) or (sFNameLower = 'eCrmHomeEdition.804.dat') then // 언어팩 dat 파일들
|
|
sResFile := 'rst.04'
|
|
else if Pos('\bin\', LowerCase(sExtrDir)) > 0 then // bin 폴더 하위 파일들
|
|
sResFile := 'rst.02'
|
|
else if sFNameLower = LowerCase(EXE_SPL) then // EXE_SPL 상수가 정의되어 있다면 주석 해제
|
|
sResFile := 'rst.06'
|
|
else
|
|
begin
|
|
Result:= 'Recover file fail, Resource file not define';
|
|
Exit;
|
|
end;
|
|
|
|
// 리소스 파일 존재 여부 확인
|
|
if not FileExists(sResDir + sResFile) then
|
|
begin
|
|
Result:= 'Recover file fail, Resource file not exist';
|
|
Exit;
|
|
end;
|
|
|
|
|
|
// 파일 복구 실행 (기존 CheckAndRecover + prfwork 로직)
|
|
try
|
|
// 원본 코드와 동일하게 prfwork.dat 에 파일 복사 시도
|
|
CopyFile(PChar(sResDir + sResFile), PChar(sResPath), False);
|
|
|
|
_Trace('[MGKIM] 파일 변경/삭제 복구 시도됨', 2);
|
|
_Trace('[MGKIM] DoRecover .. Path="%s" From="%s"', [sTargetFilePath, sResFile]);
|
|
|
|
// rst.06은 압축이 아닌 단일 파일이므로 바로 복사
|
|
if sResFile = 'rst.06' then
|
|
begin
|
|
CopyFile(PChar(sResDir + sResFile), PChar(sTargetFilePath), False);
|
|
end
|
|
else
|
|
begin
|
|
try
|
|
// 나머지는 Abbrevia를 통해 특정 파일(sFName)만 압축 해제
|
|
Guard(zip, TAbUnzipper.Create(nil));
|
|
zip.FileName := sResDir + sResFile; // 기존 CheckAndRecover처럼 원본 파일에서 직접 Read
|
|
nIdx := zip.FindFile(sFName);
|
|
|
|
if nIdx <> -1 then
|
|
begin
|
|
if ForceDirectories(sExtrDir) then
|
|
begin
|
|
zip.ExtractOptions := [eoCreateDirs, eoRestorePath];
|
|
zip.BaseDirectory := sExtrDir;
|
|
zip.ExtractFiles(sFName); // 손상된 단일 파일만 추출하여 덮어쓰기
|
|
_Trace('[MGKIM] 파일 변경/삭제 복구 성공', 2);
|
|
Result:= 'Recover file success';
|
|
end;
|
|
end
|
|
else
|
|
begin
|
|
Result:= 'Recover file fail, file not exist';
|
|
end;
|
|
except
|
|
on E: Exception do
|
|
begin
|
|
ETgException.TraceException(E, Format('[MGKIM] Fail .. CheckAndRecover(), sExtrDir=%s , Path="%s"', [sExtrDir, sFName]));
|
|
Result:= 'Recover file fail, exception : ' + E.ToString;
|
|
end;
|
|
end;
|
|
end;
|
|
finally
|
|
if FileExists(sResPath) then
|
|
DeleteFile(PChar(sResPath));
|
|
end;
|
|
except
|
|
on E: Exception do
|
|
ETgException.TraceException(E, Format('Fail .. DoRecoverFile(), Path="%s"', [sTargetFilePath]));
|
|
end;
|
|
finally
|
|
bRecovering_ := False;
|
|
Processor_.Clear;
|
|
end;
|
|
end;
|
|
|
|
procedure TRecoverService.PerformInitialAudit;
|
|
var
|
|
KeyPath, ExpectedHash, ActualHash, Reason: string;
|
|
Root, FileObj, SuccessArray, FailArray: ISuperObject;
|
|
JsonLog: string;
|
|
IsSuccess: Boolean;
|
|
begin
|
|
try
|
|
Root := SO();
|
|
SuccessArray := SA([]);
|
|
FailArray := SA([]);
|
|
|
|
for KeyPath in referenceData_.Keys do
|
|
begin
|
|
ExpectedHash := referenceData_[KeyPath];
|
|
IsSuccess := CheckFileIntegrity(KeyPath, ExpectedHash, ActualHash, Reason);
|
|
|
|
FileObj := SO();
|
|
FileObj.S['filePath'] := KeyPath;
|
|
|
|
if TFile.Exists(KeyPath) then
|
|
begin
|
|
FileObj.S['lastModifiedTime'] := FormatDateTime('yyyy-mm-dd hh:nn:ss.zzz', TFile.GetLastWriteTime(KeyPath));
|
|
FileObj.I['size'] := TFile.GetSize(KeyPath);
|
|
end
|
|
else
|
|
begin
|
|
FileObj.S['lastModifiedTime'] := '';
|
|
FileObj.I['size'] := 0;
|
|
end;
|
|
|
|
if IsSuccess then
|
|
begin
|
|
// 성공한 경우: reason 필드 없이 들어갑니다.
|
|
SuccessArray.AsArray.Add(FileObj);
|
|
end
|
|
else
|
|
begin
|
|
var RecoveResult: string;
|
|
RecoveResult:= DoRecoverFile(KeyPath);
|
|
|
|
FileObj.S['reason'] := Reason + ' RecoveResult: ' + RecoveResult; // "Hash Different", "Unknown File" 등
|
|
FailArray.AsArray.Add(FileObj);
|
|
|
|
end;
|
|
end;
|
|
|
|
Root.O['fail'] := FailArray;
|
|
Root.O['success'] := SuccessArray;
|
|
|
|
JsonLog := Root.AsJSon(True);
|
|
|
|
_Trace('[MGKIM] 생성된 JSON: %s', [JsonLog]);
|
|
|
|
gMgSvc.SendAuditLog(JsonLog);
|
|
except
|
|
on E: Exception do
|
|
ETgException.TraceException(Self, E, 'Fail .. SendAuditLog()');
|
|
end;
|
|
end;
|
|
|
|
procedure TRecoverService.CheckAndRecover(sResPath, sPath: String);
|
|
var
|
|
zip: TAbUnZipper;
|
|
nIdx: Integer;
|
|
sDir,
|
|
sFName: String;
|
|
begin
|
|
try
|
|
sFName := ExtractFileName(sPath);
|
|
Guard(zip, TAbUnzipper.Create(nil));
|
|
zip.FileName := sResPath;
|
|
nIdx := zip.FindFile(sFName);
|
|
|
|
if (nIdx <> -1) and (not FileExists(sPath) or (GetFileSize_path(sPath) <> zip.Items[nIdx].UncompressedSize)) then
|
|
begin
|
|
_Trace('파일 변경/삭제 감지됨', 2);
|
|
_Trace('DoRecover .. Path="%s"', [sPath]);
|
|
try
|
|
sDir := ExtractFilePath(sPath);
|
|
|
|
if ForceDirectories(sDir) then
|
|
begin
|
|
zip.ExtractOptions := [eoCreateDirs, eoRestorePath];
|
|
zip.BaseDirectory := sDir;
|
|
// zip.OnArchiveProgress := ;
|
|
// zip.OnNeedPassword := ;
|
|
|
|
// zip.ExtractAt(nIdx, sFName);
|
|
zip.ExtractFiles(sFName);
|
|
end;
|
|
except
|
|
on E: Exception do
|
|
ETgException.TraceException(E, Format('Fail .. CheckAndRecover(), Path="%s"', [sPath]));
|
|
end;
|
|
end;
|
|
except
|
|
on E: Exception do
|
|
ETgException.TraceException(E, 'Fail .. CheckAndRecover()');
|
|
end;
|
|
end;
|
|
|
|
procedure TRecoverService.RecoverAll;
|
|
|
|
procedure ExtrZip(sResPath, sDestDir: String; bIgrErr: Boolean = false);
|
|
var
|
|
zip: TAbUnZipper;
|
|
begin
|
|
if not ForceDirectories(sDestDir) then
|
|
exit;
|
|
|
|
try
|
|
Guard(zip, TAbUnzipper.Create(nil));
|
|
zip.FileName := sResPath;
|
|
zip.ExtractOptions := [eoCreateDirs, eoRestorePath];
|
|
zip.BaseDirectory := sDestDir;
|
|
// zip.OnArchiveProgress := ;
|
|
// zip.OnNeedPassword := ;
|
|
|
|
zip.ExtractFiles('*.*');
|
|
except
|
|
on E: Exception do
|
|
ETgException.TraceException(E, Format('Fail .. ExtrZip(), ExtrDir="%s"', [sDestDir]));
|
|
end;
|
|
end;
|
|
|
|
var
|
|
sResDir,
|
|
sCurDir,
|
|
sResPath,
|
|
sDestPath: String;
|
|
bDoRecover: Boolean;
|
|
i: Integer;
|
|
begin
|
|
bRecovering_ := true;
|
|
try
|
|
sCurDir := GetRunExePathDir;
|
|
sResDir := sCurDir + 'Resource\';
|
|
if not DirectoryExists(sResDir) then
|
|
exit;
|
|
|
|
bDoRecover := false;
|
|
sDestPath := sCurDir + 'bin\';
|
|
if DirectoryExists(sDestPath) then
|
|
begin
|
|
var dwDirCnt: DWORD := 0;
|
|
var dwFileCnt: DWORD := 0;
|
|
var llTotalSize: LONGLONG := 0;
|
|
GetDirInfo(sDestPath, dwDirCnt, dwFileCnt, llTotalSize, true);
|
|
if (dwDirCnt <> 2) or (dwFileCnt <> 260) or (llTotalSize <> 47648118) then
|
|
bDoRecover := true;
|
|
end else
|
|
bDoRecover := true;
|
|
|
|
if bDoRecover then
|
|
begin
|
|
_Trace('파일 변경/삭제 감지됨', 2);
|
|
_Trace('DoRecover .. Path="%s"', [sDestPath]);
|
|
ExtrZip(sResDir + 'rst.02', sDestPath);
|
|
bDoRecover := false;
|
|
end;
|
|
|
|
sResPath := sCurDir + 'prfwork.dat';
|
|
if FileExists(sResDir + 'rst.01') then
|
|
begin
|
|
// hebin
|
|
CopyFile(PChar(sResDir + 'rst.01'), PChar(sResPath), false);
|
|
|
|
sDestPath := sCurDir;
|
|
CheckAndRecover(sResDir + 'rst.01', sDestPath + 'ssleay32.dll');
|
|
CheckAndRecover(sResDir + 'rst.01', sDestPath + 'ptnsch.dat');
|
|
CheckAndRecover(sResDir + 'rst.01', sDestPath + 'libkm64.dll');
|
|
CheckAndRecover(sResDir + 'rst.01', sDestPath + 'libeay32.dll');
|
|
CheckAndRecover(sResDir + 'rst.01', sDestPath + 'KvCttSchw.exe');
|
|
CheckAndRecover(sResDir + 'rst.01', sDestPath + 'KvCttSch.exe');
|
|
CheckAndRecover(sResDir + 'rst.01', sDestPath + 'ielib64.dll');
|
|
|
|
CheckAndRecover(sResDir + 'rst.01', GetSystemDir + 'eCrmHeServiced.dll');
|
|
end;
|
|
|
|
if FileExists(sResDir + 'rst.03') then
|
|
begin
|
|
// conf
|
|
CopyFile(PChar(sResDir + 'rst.03'), PChar(sResPath), false);
|
|
|
|
sDestPath := sCurDir + 'conf\';
|
|
CheckAndRecover(sResDir + 'rst.03', sDestPath + 'eCrmInterCaller.exe');
|
|
CheckAndRecover(sResDir + 'rst.03', sDestPath + 'eCrmHeHelper.dll');
|
|
CheckAndRecover(sResDir + 'rst.03', sDestPath + 'eCrmHeHelper32.dll');
|
|
CheckAndRecover(sResDir + 'rst.03', sDestPath + 'eCrmHeHelperf.dll');
|
|
CheckAndRecover(sResDir + 'rst.03', sDestPath + 'eCrmHeHelper32f.dll');
|
|
CheckAndRecover(sResDir + 'rst.03', sDestPath + 'eCrmHeHelper.exe');
|
|
CheckAndRecover(sResDir + 'rst.03', sDestPath + 'BSWmcr.exe');
|
|
CheckAndRecover(sResDir + 'rst.03', sDestPath + 'Bs1out.dll');
|
|
CheckAndRecover(sResDir + 'rst.03', sDestPath + 'Bs1out64.dll');
|
|
end;
|
|
|
|
if FileExists(sResDir + 'rst.04') then
|
|
begin
|
|
CopyFile(PChar(sResDir + 'rst.04'), PChar(sResPath), false);
|
|
|
|
sDestPath := sCurDir + 'Language\';
|
|
CheckAndRecover(sResDir + 'rst.04', sDestPath + 'eCrmHomeEdition.412.dat');
|
|
CheckAndRecover(sResDir + 'rst.04', sDestPath + 'eCrmHomeEdition.409.dat');
|
|
end;
|
|
|
|
if FileExists(sResDir + 'rst.05') then
|
|
begin
|
|
CopyFile(PChar(sResDir + 'rst.05'), PChar(sResPath), false);
|
|
sDestPath := sCurDir;
|
|
CheckAndRecover(sResDir + 'rst.05', sDestPath + 'slcore.exe');
|
|
end;
|
|
|
|
if FileExists(sResDir + 'rst.06') and not FileExists(sCurDir + DIR_CONF + EXE_SPL) then
|
|
begin
|
|
CopyFile(PChar(sResDir + 'rst.06'), PChar(sCurDir + DIR_CONF + EXE_SPL), false);
|
|
_Trace('파일 변경/삭제 감지됨', 2);
|
|
_Trace('DoRecover .. Path="%s"', [sCurDir + DIR_CONF + EXE_SPL]);
|
|
end;
|
|
finally
|
|
if FileExists(sResPath) then
|
|
DeleteFile(PChar(sResPath));
|
|
|
|
bRecovering_ := false;
|
|
Processor_.Clear;
|
|
end;
|
|
end;
|
|
|
|
procedure TRecoverService.RecoverData;
|
|
var
|
|
sConfDir: String;
|
|
CompModel: TCompanyModel;
|
|
begin
|
|
try
|
|
sConfDir := GetRunExePathDir + 'conf\';
|
|
if ForceDirectories(sConfDir) then
|
|
begin
|
|
if not FileExists(sConfDir + DAT_COMPANY) then
|
|
begin
|
|
Guard(CompModel, TCompanyModel.Create);
|
|
CompModel.CustomerType := CUSTOMER_TYPE;
|
|
CompModel.CustomerSubType := CUSTOMER_SUB_TYPE;
|
|
CompModel.SvrDestList.AddStrings(gMgSvc.ServerUrlList);
|
|
CompModel.Save(sConfDir + DAT_COMPANY);
|
|
end;
|
|
|
|
if not FileExists(sConfDir + DAT_AGENT) then
|
|
begin
|
|
_Trace('DoRecoverData .. File="%s"', [DAT_AGENT]);
|
|
gMgSvc.AgentModel.Save;
|
|
end;
|
|
|
|
if gMgSvc.IsNewApi then
|
|
begin
|
|
// todo : 정책 데이터 복구 추가 23_0810 08:40:35 kku
|
|
if gMgSvc.PrefModel.Loaded then
|
|
gMgSvc.PrefModel.Save;
|
|
|
|
if gMgSvc.SleepPolicy.Loaded then
|
|
gMgSvc.SleepPolicy.Save;
|
|
|
|
if gMgSvc.VulPolicy.Loaded then
|
|
gMgSvc.VulPolicy.Save;
|
|
|
|
if gMgSvc.OffPolicy.Loaded then
|
|
gMgSvc.OffPolicy.Save;
|
|
|
|
if gMgSvc.ExpPolicy.Loaded then
|
|
gMgSvc.ExpPolicy.Save;
|
|
end
|
|
else
|
|
begin
|
|
if not FileExists(sConfDir + DAT_PREF) then
|
|
begin
|
|
_Trace('DoRecoverData .. File="%s"', [DAT_PREF]);
|
|
gMgSvc.PrefModel.Save;
|
|
end;
|
|
if not FileExists(sConfDir + DAT_CTTSCH) then
|
|
begin
|
|
_Trace('DoRecoverData .. File="%s"', [DAT_CTTSCH]);
|
|
gMgSvc.MgCttSch.Save;
|
|
end;
|
|
end;
|
|
end;
|
|
except
|
|
on E: Exception do
|
|
ETgException.TraceException(Self, E, 'Fail .. RecoverData()');
|
|
end;
|
|
end;
|
|
|
|
procedure TRecoverService.StartService;
|
|
var
|
|
dwLogicalDrv: DWORD;
|
|
i: Integer;
|
|
sDrive: String;
|
|
begin
|
|
if not bIsWorking_ then
|
|
begin
|
|
AddDirWatch(GetRunExePathDir);
|
|
// AddDirWatch(GetProgramFilesDir + DIR_HE);
|
|
bIsWorking_ := true;
|
|
Processor_.StartThread;
|
|
end;
|
|
end;
|
|
|
|
procedure TRecoverService.StopService;
|
|
begin
|
|
if bIsWorking_ then
|
|
begin
|
|
bIsWorking_ := false;
|
|
Processor_.Clear;
|
|
Processor_.PauseThread;
|
|
try
|
|
ClearDirWatch;
|
|
except
|
|
on E: Exception do
|
|
ETgException.TraceException(Self, E, 'Fail .. StopService()');
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
procedure TRecoverService.ProcessDirWatchEnt(Sender: TObject; pInfo: PDirWatchEnt);
|
|
|
|
procedure RecoverFile(sPath: String);
|
|
var
|
|
sCurDir,
|
|
sResName: String;
|
|
zip: TAbUnZipper;
|
|
begin
|
|
try
|
|
sCurDir := GetRunExePathDir;
|
|
sPath := StringReplace(sPath, sCurDir, '', [rfReplaceAll, rfIgnoreCase]);
|
|
sResName := GetRunExePathDir + 'Resource\' + sResName;
|
|
if not FileExists(sResName) then
|
|
exit;
|
|
|
|
Guard(zip, TAbUnZipper.Create(nil));
|
|
zip.FileName := sResName;
|
|
zip.ExtractOptions := [eoCreateDirs, eoRestorePath];
|
|
// zip.BaseDirectory := sDestDir;
|
|
except
|
|
on E: Exception do
|
|
ETgException.TraceException(Self, E, 'Fail .. RecoverFile()');
|
|
end;
|
|
end;
|
|
|
|
var
|
|
sExt,
|
|
sDir,
|
|
sFName,
|
|
sIgCheck,
|
|
sDestPath: String;
|
|
i: Integer;
|
|
begin
|
|
try
|
|
if bRecovering_ then
|
|
exit;
|
|
|
|
sDir := ExtractFilePath(pInfo.sPath);
|
|
sFName := ExtractFileName(pInfo.sPath);
|
|
sExt := GetFileExt(sFName);
|
|
|
|
case pInfo.dwAction of
|
|
1 : ; // Add
|
|
2 : ;// Delete
|
|
3 : ;
|
|
4 : ;
|
|
5 :
|
|
begin
|
|
if (KvBinFiles_.IndexOf(sFName) <> -1) or
|
|
(HeBinFiles_.IndexOf(sFName) <> -1) or
|
|
(ConfFiles_.IndexOf(sFName) <> -1) or
|
|
(LangFiles_.IndexOf(sFName) <> -1) or
|
|
(SLCoreFiles_.IndexOf(sFName) <> -1) or
|
|
(DirNames_.IndexOf(sFName) <> -1) then
|
|
begin
|
|
// ExpectedHash := referenceData_[KeyPath];
|
|
// RecoverAll;
|
|
PerformInitialAudit;
|
|
end;
|
|
|
|
if DataFiles_.IndexOf(sFName) <> -1 then
|
|
RecoverData;
|
|
|
|
// if (gClient <> nil) and gClient.Connected then
|
|
// begin
|
|
// for i := 0 to SLCoreDatas_.Count - 1 do
|
|
// begin
|
|
// if Pos(SLCoreDatas_[i], sFName) = 1 then
|
|
// begin
|
|
// gClient.SendPacket(TTgPacket.Create(SLC_REQUEST_SAVEDATA));
|
|
// break;
|
|
// end;
|
|
// end;
|
|
// end;
|
|
end;
|
|
// 3 : // Modify
|
|
// begin
|
|
// if (KvBinFiles_.IndexOf(sFName) <> -1) or
|
|
// (HeBinFiles_.IndexOf(sFName) <> -1) or
|
|
// (ConfFiles_.IndexOf(sFName) <> -1) or
|
|
// (LangFiles_.IndexOf(sFName) <> -1) or
|
|
// (SLCoreFiles_.IndexOf(sFName) <> -1) or
|
|
// (DirNames_.IndexOf(sFName) <> -1) then
|
|
// begin
|
|
//// RecoverAll;
|
|
// PerformInitialAudit;
|
|
// end;
|
|
// end;
|
|
// 4 : // Rename
|
|
// begin
|
|
// if sIgrBlkFRename_ = sFName then
|
|
// begin
|
|
// sIgrBlkFRename_ := '';
|
|
// exit;
|
|
// end;
|
|
//
|
|
// if (KvBinFiles_.IndexOf(sFName) <> -1) or
|
|
// (HeBinFiles_.IndexOf(sFName) <> -1) or
|
|
// (ConfFiles_.IndexOf(sFName) <> -1) or
|
|
// (LangFiles_.IndexOf(sFName) <> -1) or
|
|
// (SLCoreFiles_.IndexOf(sFName) <> -1) or
|
|
// (DirNames_.IndexOf(sFName) <> -1) then
|
|
// begin
|
|
// sBlkFRename_ := sFName;
|
|
// bBlockRename_ := true;
|
|
// end;
|
|
// end;
|
|
// 5 :
|
|
// begin
|
|
// // 이름 변경 복구 체크
|
|
// if sBlkFRename_ <> '' then
|
|
// begin
|
|
// if bBlockRename_ then
|
|
// begin
|
|
// sIgrBlkFRename_ := sFName;
|
|
// bBlockRename_ := false;
|
|
// if MoveFile_wait(pInfo.sPath, sDir + sBlkFRename_, 5) then
|
|
// begin
|
|
// sFName := sBlkFRename_;
|
|
// pInfo.sPath := sDir + sFName;
|
|
// end;
|
|
// end;
|
|
//
|
|
// sBlkFRename_ := '';
|
|
// end;
|
|
// end;
|
|
// else exit;
|
|
end;
|
|
except
|
|
on E: Exception do
|
|
ETgException.TraceException(Self, E, 'Fail .. ProcessDirWatchEntry()')
|
|
end;
|
|
end;
|
|
|
|
end.
|