kjkim
/
BSOne.SFC
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Tocsg.Module

This commit is contained in:
mgkim 2025-12-30 16:08:54 +09:00
parent 7c31171391
commit 58a4e1d98d
839 changed files with 312040 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
Tocsg.Module/AipMdHelper/AipMdHelper.dpr Normal file
View File

@ -0,0 +1,17 @@
program AipMdHelper;
uses
Vcl.Forms,
DAmhMain in 'DAmhMain.pas' {DlgAmhMain},
ThdAipMdHelper in 'ThdAipMdHelper.pas';
{$R *.res}
begin
ReportMemoryLeaksOnShutdown := DebugHook <> 0;
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(TDlgAmhMain, DlgAmhMain);
Application.Run;
end.

972
Tocsg.Module/AipMdHelper/AipMdHelper.dproj Normal file
View File

@ -0,0 +1,972 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{A35CE934-9D50-4FF3-AA8C-5314F018D28E}</ProjectGuid>
<ProjectVersion>19.5</ProjectVersion>
<FrameworkType>VCL</FrameworkType>
<Base>True</Base>
<Config Condition="'$(Config)'==''">Debug</Config>
<Platform Condition="'$(Platform)'==''">Win32</Platform>
<TargetedPlatforms>1</TargetedPlatforms>
<AppType>Application</AppType>
<MainSource>AipMdHelper.dpr</MainSource>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
<Base_Win32>true</Base_Win32>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
<Base_Win64>true</Base_Win64>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_1)'!=''">
<Cfg_1>true</Cfg_1>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win32)'!=''">
<Cfg_1_Win32>true</Cfg_1_Win32>
<CfgParent>Cfg_1</CfgParent>
<Cfg_1>true</Cfg_1>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_2)'!=''">
<Cfg_2>true</Cfg_2>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
<Cfg_2_Win32>true</Cfg_2_Win32>
<CfgParent>Cfg_2</CfgParent>
<Cfg_2>true</Cfg_2>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Base)'!=''">
<DCC_DcuOutput>.\_OUT_Object\$(Platform)\$(Config)</DCC_DcuOutput>
<DCC_ExeOutput>.\OUT_$(Config) - $(Platform)</DCC_ExeOutput>
<DCC_E>false</DCC_E>
<DCC_N>false</DCC_N>
<DCC_S>false</DCC_S>
<DCC_F>false</DCC_F>
<DCC_K>false</DCC_K>
<DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace)</DCC_Namespace>
<Icon_MainIcon>$(BDS)\bin\delphi_PROJECTICON.ico</Icon_MainIcon>
<UWP_DelphiLogo44>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png</UWP_DelphiLogo44>
<UWP_DelphiLogo150>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png</UWP_DelphiLogo150>
<SanitizedProjectName>AipMdHelper</SanitizedProjectName>
<VerInfo_Locale>1042</VerInfo_Locale>
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Win32)'!=''">
<DCC_UsePackage>vclwinx;DataSnapServer;fmx;emshosting;vclie;DbxCommonDriver;bindengine;IndyIPCommon;VCLRESTComponents;DBXMSSQLDriver;FireDACCommonODBC;emsclient;FireDACCommonDriver;FFmpegRtl_DXT4;appanalytics;IndyProtocols;vclx;adxBuildD28;IndyIPClient;dbxcds;vcledge;bindcompvclwinx;FmxTeeUI;FFmpegVcl_DXT4;emsedge;bindcompfmx;hclcore_xe104;DBXFirebirdDriver;htmlreports_xe104;inetdb;ibmonitor;FireDACSqliteDriver;DbxClientDriver;PKIECtrl24;FireDACASADriver;Tee;soapmidas;vclactnband;TeeUI;fmxFireDAC;dbexpress;FireDACInfxDriver;PowerPDFDR;DBXMySQLDriver;VclSmp;inet;DataSnapCommon;vcltouch;fmxase;DBXOdbcDriver;dbrtl;FireDACDBXDriver;FireDACOracleDriver;fmxdae;TeeDB;FireDACMSAccDriver;CustomIPTransport;FireDACMSSQLDriver;AbbreviaVCLD;DataSnapIndy10ServerTransport;DataSnapConnectors;vcldsnap;DBXInterBaseDriver;htmlcomp_xe104;FireDACMongoDBDriver;IndySystem;PngComponentsD;FireDACTDataDriver;vcldb;ibxbindings;VirtualTreesR;vclFireDAC;bindcomp;FireDACCommon;DataSnapServerMidas;FireDACODBCDriver;emsserverresource;htmledit_xe104;IndyCore;RESTBackendComponents;bindcompdbx;rtl;FireDACMySQLDriver;FireDACADSDriver;htmleditcore_xe104;RESTComponents;DBXSqliteDriver;vcl;IndyIPServer;dsnapxml;dsnapcon;DataSnapClient;DataSnapProviderClient;adortl;DBXSybaseASEDriver;DBXDb2Driver;vclimg;DataSnapFireDAC;emsclientfiredac;FireDACPgDriver;FireDAC;FireDACDSDriver;inetdbxpress;xmlrtl;tethering;ibxpress;bindcompvcl;dsnap;CloudService;DBXSybaseASADriver;DBXOracleDriver;FireDACDb2Driver;DBXInformixDriver;adxolBuildD28;vclib;fmxobj;bindcompvclsmp;FMXTee;DataSnapNativeClient;DatasnapConnectorsFreePascal;soaprtl;soapserver;FireDACIBDriver;$(DCC_UsePackage)</DCC_UsePackage>
<DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
<BT_BuildType>Debug</BT_BuildType>
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
<VerInfo_Locale>1033</VerInfo_Locale>
<Manifest_File>..\kkuProject.manifest</Manifest_File>
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
<AppDPIAwarenessMode>none</AppDPIAwarenessMode>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Win64)'!=''">
<DCC_UsePackage>vclwinx;DataSnapServer;fmx;emshosting;vclie;DbxCommonDriver;bindengine;IndyIPCommon;VCLRESTComponents;DBXMSSQLDriver;FireDACCommonODBC;emsclient;FireDACCommonDriver;FFmpegRtl_DXT4;appanalytics;IndyProtocols;vclx;adxBuildD28;IndyIPClient;dbxcds;vcledge;bindcompvclwinx;FmxTeeUI;FFmpegVcl_DXT4;emsedge;bindcompfmx;DBXFirebirdDriver;inetdb;ibmonitor;FireDACSqliteDriver;DbxClientDriver;PKIECtrl24;FireDACASADriver;Tee;soapmidas;vclactnband;TeeUI;fmxFireDAC;dbexpress;FireDACInfxDriver;PowerPDFDR;DBXMySQLDriver;VclSmp;inet;DataSnapCommon;vcltouch;fmxase;DBXOdbcDriver;dbrtl;FireDACDBXDriver;FireDACOracleDriver;fmxdae;TeeDB;FireDACMSAccDriver;CustomIPTransport;FireDACMSSQLDriver;AbbreviaVCLD;DataSnapIndy10ServerTransport;DataSnapConnectors;vcldsnap;DBXInterBaseDriver;FireDACMongoDBDriver;IndySystem;PngComponentsD;FireDACTDataDriver;vcldb;ibxbindings;VirtualTreesR;vclFireDAC;bindcomp;FireDACCommon;DataSnapServerMidas;FireDACODBCDriver;emsserverresource;IndyCore;RESTBackendComponents;bindcompdbx;rtl;FireDACMySQLDriver;FireDACADSDriver;RESTComponents;DBXSqliteDriver;vcl;IndyIPServer;dsnapxml;dsnapcon;DataSnapClient;DataSnapProviderClient;adortl;DBXSybaseASEDriver;DBXDb2Driver;vclimg;DataSnapFireDAC;emsclientfiredac;FireDACPgDriver;FireDAC;FireDACDSDriver;inetdbxpress;xmlrtl;tethering;ibxpress;bindcompvcl;dsnap;CloudService;DBXSybaseASADriver;DBXOracleDriver;FireDACDb2Driver;DBXInformixDriver;adxolBuildD28;vclib;fmxobj;bindcompvclsmp;FMXTee;DataSnapNativeClient;DatasnapConnectorsFreePascal;soaprtl;soapserver;FireDACIBDriver;$(DCC_UsePackage)</DCC_UsePackage>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_1)'!=''">
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
<DCC_DebugDCUs>true</DCC_DebugDCUs>
<DCC_Optimize>false</DCC_Optimize>
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
<DCC_DebugInfoInExe>true</DCC_DebugInfoInExe>
<DCC_RemoteDebug>true</DCC_RemoteDebug>
<DCC_IntegerOverflowCheck>true</DCC_IntegerOverflowCheck>
<DCC_RangeChecking>true</DCC_RangeChecking>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
<DCC_RemoteDebug>false</DCC_RemoteDebug>
<AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
<VerInfo_Locale>1033</VerInfo_Locale>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2)'!=''">
<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_DebugInformation>0</DCC_DebugInformation>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
<AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
</PropertyGroup>
<ItemGroup>
<DelphiCompile Include="$(MainSource)">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="DAmhMain.pas">
<Form>DlgAmhMain</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="ThdAipMdHelper.pas"/>
<BuildConfiguration Include="Base">
<Key>Base</Key>
</BuildConfiguration>
<BuildConfiguration Include="Debug">
<Key>Cfg_1</Key>
<CfgParent>Base</CfgParent>
</BuildConfiguration>
<BuildConfiguration Include="Release">
<Key>Cfg_2</Key>
<CfgParent>Base</CfgParent>
</BuildConfiguration>
</ItemGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
<Borland.ProjectType>Application</Borland.ProjectType>
<BorlandProject>
<Delphi.Personality>
<Source>
<Source Name="MainSource">AipMdHelper.dpr</Source>
</Source>
<Excluded_Packages>
<Excluded_Packages Name="$(BDSBIN)\dcloffice2k280.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
<Excluded_Packages Name="$(BDSBIN)\dclofficexp280.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
</Excluded_Packages>
</Delphi.Personality>
<Deployment Version="4">
<DeployFile LocalName="OUT_Debug - Win32\AipMdHelper.exe" Configuration="Debug" Class="ProjectOutput"/>
<DeployClass Name="AdditionalDebugSymbols">
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
<Platform Name="OSX32">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidClasses">
<Platform Name="Android">
<RemoteDir>classes</RemoteDir>
<Operation>64</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>classes</RemoteDir>
<Operation>64</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidFileProvider">
<Platform Name="Android">
<RemoteDir>res\xml</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\xml</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidGDBServer">
<Platform Name="Android">
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidLibnativeArmeabiFile">
<Platform Name="Android">
<RemoteDir>library\lib\armeabi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>library\lib\armeabi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidLibnativeArmeabiv7aFile">
<Platform Name="Android64">
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidLibnativeMipsFile">
<Platform Name="Android">
<RemoteDir>library\lib\mips</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>library\lib\mips</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidServiceOutput">
<Platform Name="Android">
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>library\lib\arm64-v8a</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidServiceOutput_Android32">
<Platform Name="Android64">
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidSplashImageDef">
<Platform Name="Android">
<RemoteDir>res\drawable</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidSplashStyles">
<Platform Name="Android">
<RemoteDir>res\values</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\values</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidSplashStylesV21">
<Platform Name="Android">
<RemoteDir>res\values-v21</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\values-v21</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_Colors">
<Platform Name="Android">
<RemoteDir>res\values</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\values</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_DefaultAppIcon">
<Platform Name="Android">
<RemoteDir>res\drawable</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_LauncherIcon144">
<Platform Name="Android">
<RemoteDir>res\drawable-xxhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-xxhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_LauncherIcon192">
<Platform Name="Android">
<RemoteDir>res\drawable-xxxhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-xxxhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_LauncherIcon36">
<Platform Name="Android">
<RemoteDir>res\drawable-ldpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-ldpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_LauncherIcon48">
<Platform Name="Android">
<RemoteDir>res\drawable-mdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-mdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_LauncherIcon72">
<Platform Name="Android">
<RemoteDir>res\drawable-hdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-hdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_LauncherIcon96">
<Platform Name="Android">
<RemoteDir>res\drawable-xhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-xhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_NotificationIcon24">
<Platform Name="Android">
<RemoteDir>res\drawable-mdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-mdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_NotificationIcon36">
<Platform Name="Android">
<RemoteDir>res\drawable-hdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-hdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_NotificationIcon48">
<Platform Name="Android">
<RemoteDir>res\drawable-xhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-xhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_NotificationIcon72">
<Platform Name="Android">
<RemoteDir>res\drawable-xxhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-xxhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_NotificationIcon96">
<Platform Name="Android">
<RemoteDir>res\drawable-xxxhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-xxxhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_SplashImage426">
<Platform Name="Android">
<RemoteDir>res\drawable-small</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-small</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_SplashImage470">
<Platform Name="Android">
<RemoteDir>res\drawable-normal</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-normal</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_SplashImage640">
<Platform Name="Android">
<RemoteDir>res\drawable-large</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-large</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_SplashImage960">
<Platform Name="Android">
<RemoteDir>res\drawable-xlarge</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-xlarge</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_Strings">
<Platform Name="Android">
<RemoteDir>res\values</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\values</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="DebugSymbols">
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
<Platform Name="OSX32">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
</Platform>
</DeployClass>
<DeployClass Name="DependencyFramework">
<Platform Name="OSX32">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
<Extensions>.framework</Extensions>
</Platform>
<Platform Name="OSX64">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
<Extensions>.framework</Extensions>
</Platform>
<Platform Name="OSXARM64">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
<Extensions>.framework</Extensions>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
</Platform>
</DeployClass>
<DeployClass Name="DependencyModule">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="iOSSimARM64">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="OSX32">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="OSX64">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="OSXARM64">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
<Extensions>.dll;.bpl</Extensions>
</Platform>
</DeployClass>
<DeployClass Required="true" Name="DependencyPackage">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="iOSSimARM64">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="OSX32">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="OSX64">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="OSXARM64">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
<Extensions>.bpl</Extensions>
</Platform>
</DeployClass>
<DeployClass Name="File">
<Platform Name="Android">
<Operation>0</Operation>
</Platform>
<Platform Name="Android64">
<Operation>0</Operation>
</Platform>
<Platform Name="iOSDevice32">
<Operation>0</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>0</Operation>
</Platform>
<Platform Name="iOSSimARM64">
<Operation>0</Operation>
</Platform>
<Platform Name="OSX32">
<RemoteDir>Contents\Resources\StartUp\</RemoteDir>
<Operation>0</Operation>
</Platform>
<Platform Name="OSX64">
<RemoteDir>Contents\Resources\StartUp\</RemoteDir>
<Operation>0</Operation>
</Platform>
<Platform Name="OSXARM64">
<RemoteDir>Contents\Resources\StartUp\</RemoteDir>
<Operation>0</Operation>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iOS_AppStore1024">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimARM64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_AppIcon152">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimARM64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_AppIcon167">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimARM64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_Launch2x">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimARM64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_LaunchDark2x">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimARM64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_Notification40">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimARM64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_Setting58">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimARM64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_SpotLight80">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimARM64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_AppIcon120">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimARM64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_AppIcon180">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimARM64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Launch2x">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimARM64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Launch3x">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimARM64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_LaunchDark2x">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimARM64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_LaunchDark3x">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimARM64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Notification40">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimARM64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Notification60">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimARM64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Setting58">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimARM64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Setting87">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimARM64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Spotlight120">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimARM64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Spotlight80">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimARM64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectAndroidManifest">
<Platform Name="Android">
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectiOSDeviceDebug">
<Platform Name="iOSDevice32">
<RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimARM64">
<RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectiOSEntitlements">
<Platform Name="iOSDevice32">
<RemoteDir>..\</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<RemoteDir>..\</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimARM64">
<RemoteDir>..\</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectiOSInfoPList">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimARM64">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectiOSLaunchScreen">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen</RemoteDir>
<Operation>64</Operation>
</Platform>
<Platform Name="iOSSimARM64">
<RemoteDir>..\$(PROJECTNAME).launchscreen</RemoteDir>
<Operation>64</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectiOSResource">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimARM64">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectOSXDebug">
<Platform Name="OSX64">
<RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="OSXARM64">
<RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectOSXEntitlements">
<Platform Name="OSX32">
<RemoteDir>..\</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="OSX64">
<RemoteDir>..\</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="OSXARM64">
<RemoteDir>..\</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectOSXInfoPList">
<Platform Name="OSX32">
<RemoteDir>Contents</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="OSX64">
<RemoteDir>Contents</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="OSXARM64">
<RemoteDir>Contents</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectOSXResource">
<Platform Name="OSX32">
<RemoteDir>Contents\Resources</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="OSX64">
<RemoteDir>Contents\Resources</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="OSXARM64">
<RemoteDir>Contents\Resources</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Required="true" Name="ProjectOutput">
<Platform Name="Android">
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>library\lib\arm64-v8a</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimARM64">
<Operation>1</Operation>
</Platform>
<Platform Name="Linux64">
<Operation>1</Operation>
</Platform>
<Platform Name="OSX32">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="OSX64">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="OSXARM64">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectOutput_Android32">
<Platform Name="Android64">
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectUWPManifest">
<Platform Name="Win32">
<Operation>1</Operation>
</Platform>
<Platform Name="Win64">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="UWP_DelphiLogo150">
<Platform Name="Win32">
<RemoteDir>Assets</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Win64">
<RemoteDir>Assets</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="UWP_DelphiLogo44">
<Platform Name="Win32">
<RemoteDir>Assets</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Win64">
<RemoteDir>Assets</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<ProjectRoot Platform="Android" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="Android64" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="iOSDevice32" Name="$(PROJECTNAME).app"/>
<ProjectRoot Platform="iOSDevice64" Name="$(PROJECTNAME).app"/>
<ProjectRoot Platform="iOSSimARM64" Name="$(PROJECTNAME).app"/>
<ProjectRoot Platform="iOSSimulator" Name="$(PROJECTNAME).app"/>
<ProjectRoot Platform="Linux64" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="OSX32" Name="$(PROJECTNAME).app"/>
<ProjectRoot Platform="OSX64" Name="$(PROJECTNAME).app"/>
<ProjectRoot Platform="OSXARM64" Name="$(PROJECTNAME).app"/>
<ProjectRoot Platform="Win32" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="Win64" Name="$(PROJECTNAME)"/>
</Deployment>
<Platforms>
<Platform value="Win32">True</Platform>
<Platform value="Win64">False</Platform>
</Platforms>
</BorlandProject>
<ProjectFileVersion>12</ProjectFileVersion>
</ProjectExtensions>
<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
<Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
<Import Project="$(MSBuildProjectName).deployproj" Condition="Exists('$(MSBuildProjectName).deployproj')"/>
</Project>

118
Tocsg.Module/AipMdHelper/DAmhMain.dfm Normal file
View File

@ -0,0 +1,118 @@
object DlgAmhMain: TDlgAmhMain
Left = 0
Top = 0
Caption = 'AipMdHelper'
ClientHeight = 272
ClientWidth = 498
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Segoe UI'
Font.Style = []
Position = poScreenCenter
TextHeight = 15
object pnTop: TPanel
Left = 0
Top = 0
Width = 498
Height = 137
Align = alTop
BevelOuter = bvNone
TabOrder = 0
object Label1: TLabel
Left = 16
Top = 24
Width = 78
Height = 15
Caption = 'AIP '#47784#46280' '#44221#47196' :'
end
object Label2: TLabel
Left = 16
Top = 61
Width = 57
Height = 15
Caption = #45824#49345' '#54260#45908' :'
end
object edAipPath: TEdit
Left = 100
Top = 21
Width = 277
Height = 23
TabOrder = 0
Text =
'C:\taskToCSG\Tocsg.Module\BSOne-AIP-Decrypt\bin\x64\Release\BSOn' +
'e-AIP-Decrypt.exe'
end
object edTargetDir: TEdit
Left = 100
Top = 58
Width = 277
Height = 23
TabOrder = 1
Text = 'C:\Users\kkuzil\Desktop\'#44060#51064#51221#48372' '#53580#49828#53944' '#54028#51068' - ENC\'
end
object btnEnc: TButton
Left = 48
Top = 96
Width = 75
Height = 25
Caption = #50516#54840#54868
TabOrder = 2
OnClick = btnEncClick
end
object btnDec: TButton
Left = 129
Top = 96
Width = 75
Height = 25
Caption = #48373#54840#54868
TabOrder = 3
OnClick = btnDecClick
end
object btnEncCnt: TButton
Left = 224
Top = 98
Width = 97
Height = 25
Caption = #50516#54840#54868' '#52852#50868#53944
TabOrder = 4
OnClick = btnEncCntClick
end
object btnExtrLabel: TButton
Left = 400
Top = 74
Width = 75
Height = 25
Caption = #47112#51060#48660' '#52628#52636
TabOrder = 5
OnClick = btnExtrLabelClick
end
object btnSetLabel: TButton
Left = 400
Top = 104
Width = 75
Height = 25
Caption = #47112#51060#48660' '#52628#44032
TabOrder = 6
OnClick = btnSetLabelClick
end
object btnLabelChk: TButton
Left = 400
Top = 24
Width = 75
Height = 25
Caption = #47112#51060#48660' '#54869#51064
TabOrder = 7
OnClick = btnLabelChkClick
end
end
object mmLog: TMemo
Left = 0
Top = 137
Width = 498
Height = 135
Align = alClient
TabOrder = 1
end
end

497
Tocsg.Module/AipMdHelper/DAmhMain.pas Normal file
View File

@ -0,0 +1,497 @@
unit DAmhMain;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;
type
TDlgAmhMain = class(TForm)
pnTop: TPanel;
Label1: TLabel;
Label2: TLabel;
edAipPath: TEdit;
edTargetDir: TEdit;
mmLog: TMemo;
btnEnc: TButton;
btnDec: TButton;
btnEncCnt: TButton;
btnExtrLabel: TButton;
btnSetLabel: TButton;
btnLabelChk: TButton;
procedure btnEncClick(Sender: TObject);
procedure btnDecClick(Sender: TObject);
procedure btnEncCntClick(Sender: TObject);
procedure btnExtrLabelClick(Sender: TObject);
procedure btnSetLabelClick(Sender: TObject);
procedure btnLabelChkClick(Sender: TObject);
private
{ Private declarations }
function FindAipMdWnd: HWND;
function SendData(h: HWND; dwCmd: DWORD; const sData: String): LONGLONG;
public
{ Public declarations }
end;
var
DlgAmhMain: TDlgAmhMain;
implementation
uses
Tocsg.Files, Tocsg.Safe, Tocsg.Path, Tocsg.Shell, Tocsg.Process,
Tocsg.DateTime, Tocsg.WndUtil, superobject, Tocsg.Registry;
{$R *.dfm}
procedure TDlgAmhMain.btnEncClick(Sender: TObject);
var
FileList: TStringList;
i, nCnt, n: Integer;
sTaskDir,
sMdPath, sSrcPath, sDestPath: String;
dtBegin: TDateTime;
O: ISuperObject;
begin
edAipPath.Text := Trim(edAipPath.Text);
edTargetDir.Text := Trim(edTargetDir.Text);
if edAipPath.Text = '' then
begin
MessageBox(Handle, PChar('AIP 모듈 경로를 입력해 주십시오.'), PChar(Caption), MB_ICONWARNING or MB_OK);
edAipPath.SetFocus;
exit;
end;
sMdPath := edAipPath.Text;
if not FileExists(sMdPath) then
begin
MessageBox(Handle, PChar('AIP 모듈이 존재하지 않습니다.'), PChar(Caption), MB_ICONWARNING or MB_OK);
edAipPath.SetFocus;
exit;
end;
if edTargetDir.Text = '' then
begin
MessageBox(Handle, PChar('대상 폴더를 입력해 주십시오.'), PChar(Caption), MB_ICONWARNING or MB_OK);
edTargetDir.SetFocus;
exit;
end;
sTaskDir := GetRunExePathDir + 'Task\';
if not ForceDirectories(sTaskDir) then
begin
MessageBox(Handle, PChar('작업 폴더를 생성하는 중 오류가 발생했습니다.'), PChar(Caption), MB_ICONWARNING or MB_OK);
exit;
end;
Guard(FileList, TStringList.Create);
ExtrFilesPathFromDir(edTargetDir.Text, FileList);
var h: HWND := FindAipMdWnd;
dtBegin := Now;
nCnt := 0;
for i := 0 to FileList.Count - 1 do
begin
sSrcPath := FileList[i];
if not FileExists(sSrcPath) then
continue;
sDestPath := sTaskDir + ExtractFileName(sSrcPath);
O := SO;
O.S['src'] := sSrcPath;
O.S['dst'] := sDestPath;
if h <> 0 then
begin
n := SendData(h, 1, O.AsString);
if (n = 10) and FileExists(sDestPath) then
begin
DeleteFile(sSrcPath);
MoveFile_wait(sDestPath, sSrcPath);
Inc(nCnt);
end;
end;
// ExecuteAppWaitUntilTerminate(sMdPath, Format('-e "%s" "%s"', [sSrcPath, sDestPath]), SW_HIDE, 30000);
// if FileExists(sDestPath) then
// begin
// DeleteFile(sSrcPath);
// MoveFile_wait(sDestPath, sSrcPath);
// Inc(nCnt);
// end;
end;
ShowMessage(Format('성공 : %d, 소요시간 : %s', [nCnt, ConvSecBetweenToProgTime(dtBegin, Now)]));
end;
procedure TDlgAmhMain.btnEncCntClick(Sender: TObject);
var
FileList: TStringList;
i, nCnt, n: Integer;
sTaskDir,
sMdPath, sSrcPath, sDestPath: String;
dtBegin: TDateTime;
O: ISuperObject;
begin
edAipPath.Text := Trim(edAipPath.Text);
edTargetDir.Text := Trim(edTargetDir.Text);
if edAipPath.Text = '' then
begin
MessageBox(Handle, PChar('AIP 모듈 경로를 입력해 주십시오.'), PChar(Caption), MB_ICONWARNING or MB_OK);
edAipPath.SetFocus;
exit;
end;
sMdPath := edAipPath.Text;
if not FileExists(sMdPath) then
begin
MessageBox(Handle, PChar('AIP 모듈이 존재하지 않습니다.'), PChar(Caption), MB_ICONWARNING or MB_OK);
edAipPath.SetFocus;
exit;
end;
if edTargetDir.Text = '' then
begin
MessageBox(Handle, PChar('대상 폴더를 입력해 주십시오.'), PChar(Caption), MB_ICONWARNING or MB_OK);
edTargetDir.SetFocus;
exit;
end;
sTaskDir := GetRunExePathDir + 'Task\';
if not ForceDirectories(sTaskDir) then
begin
MessageBox(Handle, PChar('작업 폴더를 생성하는 중 오류가 발생했습니다.'), PChar(Caption), MB_ICONWARNING or MB_OK);
exit;
end;
Guard(FileList, TStringList.Create);
ExtrFilesPathFromDir(edTargetDir.Text, FileList);
var h: HWND := FindAipMdWnd;
dtBegin := Now;
nCnt := 0;
for i := 0 to FileList.Count - 1 do
begin
sSrcPath := FileList[i];
if not FileExists(sSrcPath) then
continue;
sDestPath := sTaskDir + ExtractFileName(sSrcPath);
O := SO;
O.S['src'] := sSrcPath;
O.S['dst'] := sDestPath;
if h <> 0 then
begin
n := SendData(h, 3, O.AsString);
if n = 10 then
Inc(nCnt);
end;
// ExecuteAppWaitUntilTerminate(sMdPath, Format('"%s" "%s"', [sSrcPath, sDestPath]), SW_HIDE, 30000);
// if FileExists(sDestPath) then
// begin
// DeleteFile(sSrcPath);
// MoveFile_wait(sDestPath, sSrcPath);
// Inc(nCnt);
// end;
end;
ShowMessage(Format('성공 : %d, 소요시간 : %s', [nCnt, ConvSecBetweenToProgTime(dtBegin, Now)]));
end;
procedure TDlgAmhMain.btnExtrLabelClick(Sender: TObject);
var
dtBegin: TDateTime;
O: ISuperObject;
sPath,
sTaskDir: String;
n: Integer;
begin
sTaskDir := GetRunExePathDir + 'Task\';
if not ForceDirectories(sTaskDir) then
begin
MessageBox(Handle, PChar('작업 폴더를 생성하는 중 오류가 발생했습니다.'), PChar(Caption), MB_ICONWARNING or MB_OK);
exit;
end;
var h: HWND := FindAipMdWnd;
dtBegin := Now;
if h <> 0 then
begin
O := SO;
sPath := sTaskDir + 'LabelList.txt';
O.S['src'] := sPath;
O.S['dst'] := sPath + '.tmp';
n := SendData(h, 0, O.AsString);
if (n = 10) and FileExists(sPath) then
begin
mmLog.Lines.LoadFromFile(sPath, TEncoding.UTF8);
DeleteFile(sPath);
end;
end;
ShowMessage(Format('소요시간 : %s', [ConvSecBetweenToProgTime(dtBegin, Now)]));
end;
procedure TDlgAmhMain.btnLabelChkClick(Sender: TObject);
const
REG_TEST = 'SOFTWARE\eCrmHomeEdition';
var
dtBegin: TDateTime;
O: ISuperObject;
sTaskDir: String;
n: Integer;
begin
// sTaskDir := GetRunExePathDir + 'Task\';
// if not ForceDirectories(sTaskDir) then
// begin
// MessageBox(Handle, PChar('작업 폴더를 생성하는 중 오류가 발생했습니다.'), PChar(Caption), MB_ICONWARNING or MB_OK);
// exit;
// end;
// SetRegValueString(HKEY_LOCAL_MACHINE, REG_TEST, 'TEST', 'TEST', true);
// mmLog.Lines.Add(GetRegValueAsString(HKEY_LOCAL_MACHINE, 'SOFTWARE\eCrmHomeEdition', 'TEST', true));
// exit;
edTargetDir.Text := Trim(edTargetDir.Text);
var h: HWND := FindWindow(nil, 'BSOne-AIP-T140713');
dtBegin := Now;
if h <> 0 then
begin
O := SO;
O.S['src'] := edTargetDir.Text;
O.S['dst'] := edTargetDir.Text + '.tmp';
O.S['ssid'] := GetRegRecentUserSid;
n := SendData(h, 4, O.AsString);
if n = 10 then
begin
mmLog.Lines.Add(GetRegValueAsString(HKEY_CURRENT_USER, 'SOFTWARE\eCrmHomeEdition', 'ALabel'));
// DelRegValue(HKEY_CURRENT_USER, 'SOFTWARE\eCrmHomeEdition', 'ALabel');
end else
mmLog.Lines.Add('실패');
end else
mmLog.Lines.Add('실패2');
ShowMessage(Format('소요시간 : %s', [ConvSecBetweenToProgTime(dtBegin, Now)]));
end;
procedure TDlgAmhMain.btnSetLabelClick(Sender: TObject);
var
FileList: TStringList;
i, nCnt, n: Integer;
sTaskDir,
sMdPath, sSrcPath, sDestPath: String;
dtBegin: TDateTime;
O: ISuperObject;
begin
edAipPath.Text := Trim(edAipPath.Text);
edTargetDir.Text := Trim(edTargetDir.Text);
if edAipPath.Text = '' then
begin
MessageBox(Handle, PChar('AIP 모듈 경로를 입력해 주십시오.'), PChar(Caption), MB_ICONWARNING or MB_OK);
edAipPath.SetFocus;
exit;
end;
sMdPath := edAipPath.Text;
if not FileExists(sMdPath) then
begin
MessageBox(Handle, PChar('AIP 모듈이 존재하지 않습니다.'), PChar(Caption), MB_ICONWARNING or MB_OK);
edAipPath.SetFocus;
exit;
end;
if edTargetDir.Text = '' then
begin
MessageBox(Handle, PChar('대상 폴더를 입력해 주십시오.'), PChar(Caption), MB_ICONWARNING or MB_OK);
edTargetDir.SetFocus;
exit;
end;
sTaskDir := GetRunExePathDir + 'Task\';
if not ForceDirectories(sTaskDir) then
begin
MessageBox(Handle, PChar('작업 폴더를 생성하는 중 오류가 발생했습니다.'), PChar(Caption), MB_ICONWARNING or MB_OK);
exit;
end;
Guard(FileList, TStringList.Create);
ExtrFilesPathFromDir(edTargetDir.Text, FileList);
var h: HWND := FindAipMdWnd;
dtBegin := Now;
nCnt := 0;
for i := 0 to FileList.Count - 1 do
begin
sSrcPath := FileList[i];
if not FileExists(sSrcPath) then
continue;
sDestPath := sTaskDir + ExtractFileName(sSrcPath);
O := SO;
O.S['src'] := sSrcPath;
O.S['dst'] := sDestPath;
O.S['lid'] := '9877e059-3e04-4eba-ad87-888eb0c7e9ba';
if h <> 0 then
begin
n := SendData(h, 5, O.AsString);
if (n = 10) and FileExists(sDestPath) then
begin
DeleteFile(sSrcPath);
MoveFile_wait(sDestPath, sSrcPath);
Inc(nCnt);
end;
end;
// ExecuteAppWaitUntilTerminate(sMdPath, Format('"%s" "%s"', [sSrcPath, sDestPath]), SW_HIDE, 30000);
// if FileExists(sDestPath) then
// begin
// DeleteFile(sSrcPath);
// MoveFile_wait(sDestPath, sSrcPath);
// Inc(nCnt);
// end;
end;
ShowMessage(Format('성공 : %d, 소요시간 : %s', [nCnt, ConvSecBetweenToProgTime(dtBegin, Now)]));
end;
function TDlgAmhMain.FindAipMdWnd: HWND;
var
nTO: Integer;
sPName: String;
begin
nTO := 0;
Result := FindWindow(nil, 'BSOne-AIP-T140713');
if Result = 0 then
begin
sPName := ExtractFileName(edAipPath.Text);
while Result = 0 do
begin
if nTO > 300 then
exit;
if GetProcessPidByName(sPName) = 0 then
begin
if not FileExists(edAipPath.Text) then
exit;
ExecutePath_hide(edAipPath.Text, '-r');
Sleep(500);
end;
Result := FindWindow(nil, 'BSOne-AIP-T140713');
Sleep(200);
end;
if Result = 0 then
TerminateProcessByName(sPName);
end;
end;
function TDlgAmhMain.SendData(h: HWND; dwCmd: DWORD; const sData: String): LONGLONG;
var
CopyData: TCopyDataStruct;
begin
CopyData.dwData := dwCmd;
CopyData.cbData := (Length(sData) + 1) * 2;
CopyData.lpData := PChar(sData);
Result := SendMessage(h, WM_COPYDATA, 0, NativeInt(@CopyData));
end;
procedure TDlgAmhMain.btnDecClick(Sender: TObject);
var
FileList: TStringList;
i, nCnt, n: Integer;
sTaskDir,
sMdPath, sSrcPath, sDestPath: String;
dtBegin: TDateTime;
O: ISuperObject;
begin
edAipPath.Text := Trim(edAipPath.Text);
edTargetDir.Text := Trim(edTargetDir.Text);
if edAipPath.Text = '' then
begin
MessageBox(Handle, PChar('AIP 모듈 경로를 입력해 주십시오.'), PChar(Caption), MB_ICONWARNING or MB_OK);
edAipPath.SetFocus;
exit;
end;
sMdPath := edAipPath.Text;
if not FileExists(sMdPath) then
begin
MessageBox(Handle, PChar('AIP 모듈이 존재하지 않습니다.'), PChar(Caption), MB_ICONWARNING or MB_OK);
edAipPath.SetFocus;
exit;
end;
if edTargetDir.Text = '' then
begin
MessageBox(Handle, PChar('대상 폴더를 입력해 주십시오.'), PChar(Caption), MB_ICONWARNING or MB_OK);
edTargetDir.SetFocus;
exit;
end;
sTaskDir := GetRunExePathDir + 'Task\';
if not ForceDirectories(sTaskDir) then
begin
MessageBox(Handle, PChar('작업 폴더를 생성하는 중 오류가 발생했습니다.'), PChar(Caption), MB_ICONWARNING or MB_OK);
exit;
end;
Guard(FileList, TStringList.Create);
ExtrFilesPathFromDir(edTargetDir.Text, FileList);
var h: HWND := FindAipMdWnd;
dtBegin := Now;
nCnt := 0;
for i := 0 to FileList.Count - 1 do
begin
sSrcPath := FileList[i];
if not FileExists(sSrcPath) then
continue;
sDestPath := sTaskDir + ExtractFileName(sSrcPath);
O := SO;
O.S['src'] := sSrcPath;
O.S['dst'] := sDestPath;
if h <> 0 then
begin
n := SendData(h, 2, O.AsString);
if (n = 10) and FileExists(sDestPath) then
begin
DeleteFile(sSrcPath);
MoveFile_wait(sDestPath, sSrcPath);
Inc(nCnt);
end;
end;
// ExecuteAppWaitUntilTerminate(sMdPath, Format('"%s" "%s"', [sSrcPath, sDestPath]), SW_HIDE, 30000);
// if FileExists(sDestPath) then
// begin
// DeleteFile(sSrcPath);
// MoveFile_wait(sDestPath, sSrcPath);
// Inc(nCnt);
// end;
end;
ShowMessage(Format('성공 : %d, 소요시간 : %s', [nCnt, ConvSecBetweenToProgTime(dtBegin, Now)]));
end;
end.

44
Tocsg.Module/AipMdHelper/ThdAipMdHelper.pas Normal file
View File

@ -0,0 +1,44 @@
{*******************************************************}
{ }
{ ThdAipMdHelper }
{ }
{ Copyright (C) 2023 kku }
{ }
{*******************************************************}
unit ThdAipMdHelper;
interface
uses
Tocsg.Thread, System.SysUtils, System.Classes, Winapi.Windows;
type
TThdAipMdHelper = class(TTgThread)
protected
procedure Execute; override;
public
Constructor Create;
Destructor Destroy; override;
end;
implementation
{ TThdAipMdHelper }
Constructor TThdAipMdHelper.Create;
begin
Inherited Create;
end;
Destructor TThdAipMdHelper.Destroy;
begin
Inherited;
end;
procedure TThdAipMdHelper.Execute;
begin
end;
end.

2151
Tocsg.Module/AppCtrl/DLL_AppCtrl/ApiHookDraw.pas Normal file
View File

File diff suppressed because it is too large Load Diff

144
Tocsg.Module/AppCtrl/DLL_AppCtrl/ApiHookEtc.pas Normal file
View File

@ -0,0 +1,144 @@
{*******************************************************}
{ }
{ ApiHookEtc }
{ }
{ Copyright (C) 2023 kku }
{ }
{*******************************************************}
unit ApiHookEtc;
interface
uses
Winapi.Windows, Winapi.ShellAPI;
type
TFun_DragQueryFileA = function(Drop: HDROP; FileIndex: UINT; FileName: LPSTR; cb: UINT): UINT; stdcall;
TFun_DragQueryFileW = function(Drop: HDROP; FileIndex: UINT; FileName: LPWSTR; cb: UINT): UINT; stdcall;
TFun_DragQueryPoint = function(Drop: HDROP; var Point: TPoint): BOOL; stdcall;
function DragQueryFileAHook(Drop: HDROP; FileIndex: UINT; FileName: LPSTR; cb: UINT): UINT; stdcall;
function DragQueryFileWHook(Drop: HDROP; FileIndex: UINT; FileName: LPWSTR; cb: UINT): UINT; stdcall;
function DragQueryPointHook(Drop: HDROP; var Point: TPoint): BOOL; stdcall;
var
ozDragQueryFileA: TFun_DragQueryFileA = nil;
ozDragQueryFileW: TFun_DragQueryFileW = nil;
ozDragQueryPoint: TFun_DragQueryPoint = nil;
implementation
function DragQueryFileAHook(Drop: HDROP; FileIndex: UINT; FileName: LPSTR; cb: UINT): UINT; stdcall;
begin
{
if (_AppHook <> nil) and _AppHook.Active then
begin
// _AppHook.Log('DragQueryFileAHook()');
// 차단
if (_AppHook.RcvWnd <> 0) and
(FileIndex = DWORD(-1)) then
// (FileIndex <> DWORD(-1)) and (FileName <> nil) then
begin
Result := 0; //ozDragQueryFileA(Drop, FileIndex, FileName, cb);
var i, nCnt, nLen: Integer;
nCnt := ozDragQueryFileA(Drop, DWORD(-1), nil, 0);
if nCnt > 0 then
begin
var FList: TStringList;
Guard(FList, TStringList.Create);
FList.Add(_AppHook.ModuleName);
if _AppHook.hProcWnd_ <> 0 then
FList.Add(GetWindowCaption(_AppHook.hProcWnd_))
else
FList.Add('');
var sPath: AnsiString;
for i := 0 to nCnt - 1 do
begin
nLen := ozDragQueryFileA(Drop, i, nil, 0) + 1;
SetLength(sPath, nLen);
ozDragQueryFileA(Drop, i, PAnsiChar(sPath), nLen);
// if FileExists(sPath) then
begin
SetLength(sPath, nLen - 1); // 끝에 #0 제거
FList.Add(sPath);
end;
end;
if FList.Count > 1 then
begin
FList.SaveToFile(ExtractFilePath(_AppHook.sLogPath_) + TXT_DROPINFO, TEncoding.UTF8);
PostMessage(_AppHook.RcvWnd, WM_CATCH_DROPFILES, 0, 0);
end;
end;
end;
// Result := 0;
end else
}
Result := ozDragQueryFileA(Drop, FileIndex, FileName, cb);
end;
function DragQueryFileWHook(Drop: HDROP; FileIndex: UINT; FileName: LPWSTR; cb: UINT): UINT; stdcall;
begin
{
if (_AppHook <> nil) and _AppHook.Active then
begin
// _AppHook.Log('DragQueryFileAHook()');
// 차단
if (_AppHook.RcvWnd <> 0) and
(FileIndex = DWORD(-1)) then
// (FileIndex <> DWORD(-1)) and (FileName <> nil) then
begin
Result := 0; //ozDragQueryFileA(Drop, FileIndex, FileName, cb);
var i, nCnt, nLen: Integer;
nCnt := ozDragQueryFileW(Drop, DWORD(-1), nil, 0);
if nCnt > 0 then
begin
var FList: TStringList;
Guard(FList, TStringList.Create);
FList.Add(_AppHook.ModuleName);
if _AppHook.hProcWnd_ <> 0 then
FList.Add(GetWindowCaption(_AppHook.hProcWnd_))
else
FList.Add('');
var sPath: String;
for i := 0 to nCnt - 1 do
begin
nLen := ozDragQueryFileW(Drop, i, nil, 0) + 1;
SetLength(sPath, nLen);
ozDragQueryFileW(Drop, i, PChar(sPath), nLen);
// if FileExists(sPath) then
begin
SetLength(sPath, nLen - 1); // 끝에 #0 제거
FList.Add(sPath);
end;
end;
if FList.Count > 1 then
begin
FList.SaveToFile(ExtractFilePath(_AppHook.sLogPath_) + '$DrpFle.txt', TEncoding.UTF8);
PostMessage(_AppHook.RcvWnd, WM_CATCH_DROPFILES, 0, 0);
end;
end;
end;
end else
}
Result := ozDragQueryFileW(Drop, FileIndex, FileName, cb);
end;
function DragQueryPointHook(Drop: HDROP; var Point: TPoint): BOOL; stdcall;
begin
{
if (_AppHook <> nil) and _AppHook.Active then
Result := FALSE
else
}
ozDragQueryPoint(Drop, Point);
end;
end.

437
Tocsg.Module/AppCtrl/DLL_AppCtrl/ApiHookExplorer.pas Normal file
View File

@ -0,0 +1,437 @@
{*******************************************************}
{ }
{ ApiHookExplorer }
{ }
{ Copyright (C) 2025 kku }
{ }
{*******************************************************}
unit ApiHookExplorer;
interface
uses
Winapi.Windows, System.SysUtils, Winapi.ActiveX, Tocsg.Thread, Winapi.ShlObj;
type
TFileOpProgressSink = class(TInterfacedObject, IFileOperationProgressSink)
public
function StartOperations: HRESULT; stdcall;
function FinishOperations(hrResult: HRESULT): HRESULT; stdcall;
function PreRenameItem(dwFlags: DWORD; const psiItem: IShellItem; pszNewName: LPCWSTR): HResult; stdcall;
function PostRenameItem(dwFlags: DWORD; const psiItem: IShellItem;
pszNewName: LPCWSTR; hrRename: HResult; const psiNewlyCreated: IShellItem): HResult; stdcall;
function PreMoveItem(dwFlags: DWORD; const psiItem: IShellItem;
const psiDestinationFolder: IShellItem; pszNewName: LPCWSTR): HResult; stdcall;
function PostMoveItem(dwFlags: DWORD; const psiItem: IShellItem;
const psiDestinationFolder: IShellItem; pszNewName: LPCWSTR; hrMove: HResult; const psiNewlyCreated: IShellItem): HResult; stdcall;
function PreCopyItem(dwFlags: DWORD; const psiItem: IShellItem;
const psiDestinationFolder: IShellItem; pszNewName: LPCWSTR): HResult; stdcall;
function PostCopyItem(dwFlags: DWORD; const psiItem: IShellItem;
const psiDestinationFolder: IShellItem; pszNewName: LPCWSTR;
hrCopy: HResult; const psiNewlyCreated: IShellItem): HResult; stdcall;
function PreDeleteItem(dwFlags: DWORD; const psiItem: IShellItem): HResult; stdcall;
function PostDeleteItem(dwFlags: DWORD; const psiItem: IShellItem; hrDelete: HResult;
const psiNewlyCreated: IShellItem): HResult; stdcall;
function PreNewItem(dwFlags: DWORD; const psiDestinationFolder: IShellItem;
pszNewName: LPCWSTR): HResult; stdcall;
function PostNewItem(dwFlags: DWORD; const psiDestinationFolder: IShellItem;
pszNewName: LPCWSTR; pszTemplateName: LPCWSTR; dwFileAttributes: DWORD;
hrNew: HResult; const psiNewItem: IShellItem): HResult; stdcall;
function UpdateProgress(iWorkTotal, iWorkSoFar: UINT): HRESULT; stdcall;
function ResetTimer: HRESULT; stdcall;
function PauseTimer: HRESULT; stdcall;
function ResumeTimer: HRESULT; stdcall;
end;
TPerformOperations = function(iFO: IFileOperation): HRESULT; stdcall;
TThdFoHookInit = class(TTgThread)
protected
procedure Execute; override;
public
Constructor Create;
end;
function PerformOperationsHook(iFO: IFileOperation): HRESULT; stdcall;
procedure InstallFileOperationHooks;
procedure UninstallFileOperationHooks;
implementation
uses
{$IFDEF _BS1HP_}
BS1Hook, DefineHelper, superobject,
{$ELSE}
AppHook,
{$ENDIF}
DDetours;
type
TEvtType = (etCreate, etCopy, etMove, etDelete, etRename);
var
_ozCoCreateInstance: Pointer = nil;
_FndPerformOperations: TPerformOperations = nil;
_OzPerformOperations: TPerformOperations = nil;
procedure InstallFileOperationHooks;
begin
if @_OzPerformOperations = nil then
TThdFoHookInit.Create;
end;
procedure UninstallFileOperationHooks;
begin
if @_OzPerformOperations <> nil then
begin
InterceptRemove(@_OzPerformOperations);
@_OzPerformOperations := nil;
end;
end;
procedure Dbg(sLog: String);
begin
if gAppHook <> nil then
gAppHook.Log(sLog);
end;
function PerformOperationsHook(iFO: IFileOperation): HRESULT; stdcall;
var
FoSink: IFileOperationProgressSink;
dwCookie: DWORD;
hr: HRESULT;
bAdviseOk: Boolean;
begin
if (@_OzPerformOperations = nil) then
begin
Result := E_POINTER;
exit;
end;
bAdviseOk := false;
FoSink := TFileOpProgressSink.Create as IFileOperationProgressSink;
if FoSink <> nil then
begin
dwCookie := 0;
hr := iFO.Advise(FoSink, dwCookie);
bAdviseOk := SUCCEEDED(hr);
if not bAdviseOk then
dwCookie := 0;
try
Result := _OzPerformOperations(iFO);
finally
if bAdviseOk and (dwCookie <> 0) then
begin
try
iFO.Unadvise(dwCookie);
except
//
end;
end;
FoSink := nil;
end;
end else
Result := _OzPerformOperations(iFO);
end;
{ TThdFoHookInit }
Constructor TThdFoHookInit.Create;
begin
Inherited Create;
FreeOnTerminate := true;
StartThread;
end;
function GetInterfaceMethod(Intf: Pointer; dwMethodIdx: Cardinal): Pointer;
var
pp: PPointer;
begin
pp := PPointer(Intf)^;
Result := PPointer(NativeUInt(pp) + dwMethodIdx * SizeOf(Pointer))^;
end;
procedure TThdFoHookInit.Execute;
var
hr: HRESULT;
iFO: IFileOperation;
begin
hr := CoInitializeEx(nil, COINIT_APARTMENTTHREADED or COINIT_DISABLE_OLE1DDE);
if FAILED(hr) then
begin
Dbg('Fail .. CoInitializeEx() .. 초기화 실패');
exit;
end;
try
while not Terminated and not GetWorkStop do
begin
Sleep(1000);
iFO := nil;
hr := CoCreateInstance(CLSID_FileOperation, nil, CLSCTX_ALL, IID_IFileOperation, iFO);
if FAILED(hr) then
begin
Dbg('Fail .. CoCreateInstance() .. IFileOperation 객체 생성 실패');
exit;
end;
Dbg('CoCreateInstance() .. OK');
if (iFO <> nil) and (@_FndPerformOperations = nil) then
begin
var hTx: THandle := BeginTransaction;
try
@_FndPerformOperations := GetInterfaceMethod(iFO, 21);
if (@_FndPerformOperations <> nil) then
begin
@_OzPerformOperations := InterceptCreate(@_FndPerformOperations, @PerformOperationsHook);
if (@_OzPerformOperations <> nil) then
Dbg('PerformOperations() .. OK')
else
Dbg('PerformOperations() .. Fail');
end else
Dbg('FndPerformOperations() .. Fail');
finally
EndTransaction(hTx);
end;
break;
end;
end;
finally
CoUninitialize;
end;
end;
function ShellItemPath(psi: IUnknown): string;
var
si: IShellItem;
psz: LPWSTR;
hr: HRESULT;
begin
Result := '';
if (psi <> nil) and Supports(psi, IShellItem, si) then
begin
psz := nil;
hr := si.GetDisplayName(SIGDN_FILESYSPATH, psz);
if Succeeded(hr) and (psz <> nil) then
begin
Result := psz;
CoTaskMemFree(psz);
end;
end;
end;
function IsUNCPath(sPath: string): Boolean;
var
sChk: String;
begin
Result := false;
if Length(sPath) >= 2 then
begin
sChk := UpperCase(sPath);
if Pos('\APPDATA\ROAMING\MICROSOFT\WINDOWS\NETWORK SHORTCUTS\', sChk) > 0 then
begin
Result := true;
exit;
end;
if sChk[1] = 'C' then
exit;
if sChk[2] = ':' then
begin
// if gAppHook <> nil then
// begin
// Result := gAppHook.Helper.IsNetPath(sChk[1] + ':\');
// if Result then
// exit;
// end else
case GetDriveType(PChar(sChk[1] + ':\')) of
DRIVE_REMOTE,
DRIVE_NO_ROOT_DIR :
begin
Result := true;
exit;
end;
end;
end;
Result := (sChk[1] = '\') and (sChk[2] = '\');
end;
end;
function ProcMon(evt: TEvtType; const sSrcPath, sDstDir: String; sFName: String): HRESULT;
begin
Result := S_OK;
if (gAppHook <> nil) and (gAppHook.Helper.CtrlOpt.ShFileCrMon.nKind <> 0) then
begin
var sDstPath: String;
var bBlock: Boolean;
if sFName = '' then
sFName := ExtractFileName(sSrcPath);
sDstPath := IncludeTrailingPathDelimiter(sDstDir) + sFName;
if IsUNCPath(sDstPath) then
begin
bBlock := gAppHook.Helper.CtrlOpt.ShFileCrMon.nKind = 2;
if bBlock and (gAppHook.Helper.FoExpList.Count > 0) then
begin
var sChk: String := UpperCase(sDstPath);
var i: Integer;
for i := 0 to gAppHook.Helper.FoExpList.Count - 1 do
begin
if Pos(gAppHook.Helper.FoExpList[i], sChk) > 0 then
begin
bBlock := false;
break;
end;
end;
end;
{$IFDEF _BS1HP_}
var O: ISuperObject := SO;
O.S['S'] := sSrcPath;
O.S['D'] := sDstPath;
O.I['E'] := Integer(evt);
O.B['B'] := bBlock;
O.B['N'] := true; // 네트워크 파일?
SendCopyData(gAppHook.Helper.CtrlOpt.hRcvWnd, HPCMD_FILE_OPERATION_NOTI, O.AsJSon);
{$ENDIF}
if bBlock then
Result := E_ACCESSDENIED;
end;
end;
end;
{ IFileOperationProgressSink }
function TFileOpProgressSink.StartOperations: HRESULT; stdcall;
begin
Dbg('StartOperations');
Result := S_OK;
end;
function TFileOpProgressSink.FinishOperations(hrResult: HRESULT): HRESULT; stdcall;
begin
Dbg(Format('FinishOperations hr=0x%x', [hrResult]));
Result := S_OK;
end;
function TFileOpProgressSink.PreRenameItem(dwFlags: DWORD; const psiItem: IShellItem; pszNewName: LPCWSTR): HResult; stdcall;
var
sSrcPath: string;
begin
sSrcPath := ShellItemPath(psiItem);
Dbg(Format('PreRenameItem: %s -> %s', [sSrcPath, pszNewName]));
Result := S_OK;
end;
function TFileOpProgressSink.PostRenameItem(dwFlags: DWORD; const psiItem: IShellItem;
pszNewName: LPCWSTR; hrRename: HResult; const psiNewlyCreated: IShellItem): HResult; stdcall;
begin
Dbg(Format('PostRenameItem hr=0x%x', [hrRename]));
Result := S_OK;
end;
function TFileOpProgressSink.PreMoveItem(dwFlags: DWORD; const psiItem: IShellItem;
const psiDestinationFolder: IShellItem; pszNewName: LPCWSTR): HResult; stdcall;
var
sSrcPath, sDstDir: string;
begin
sSrcPath := ShellItemPath(psiItem);
sDstDir := ShellItemPath(psiDestinationFolder);
Dbg(Format('PreMoveItem: %s -> %s\%s', [sSrcPath, sDstDir, pszNewName]));
Result := ProcMon(etMove, sSrcPath, sDstDir, pszNewName);
end;
function TFileOpProgressSink.PostMoveItem(dwFlags: DWORD; const psiItem: IShellItem;
const psiDestinationFolder: IShellItem; pszNewName: LPCWSTR; hrMove: HResult; const psiNewlyCreated: IShellItem): HResult; stdcall;
begin
Dbg(Format('PostMoveItem hr=0x%x', [hrMove]));
Result := S_OK;
end;
function TFileOpProgressSink.PreCopyItem(dwFlags: DWORD; const psiItem: IShellItem;
const psiDestinationFolder: IShellItem; pszNewName: LPCWSTR): HResult; stdcall;
var
sSrcPath, sDstDir: string;
begin
sSrcPath := ShellItemPath(psiItem);
sDstDir := ShellItemPath(psiDestinationFolder);
Dbg(Format('PreCopyItem: %s -> %s\%s', [sSrcPath, sDstDir, pszNewName]));
Result := ProcMon(etCopy, sSrcPath, sDstDir, pszNewName);
end;
function TFileOpProgressSink.PostCopyItem(dwFlags: DWORD; const psiItem: IShellItem;
const psiDestinationFolder: IShellItem; pszNewName: LPCWSTR;
hrCopy: HResult; const psiNewlyCreated: IShellItem): HResult; stdcall;
begin
Dbg(Format('PostCopyItem hr=0x%x', [hrCopy]));
Result := S_OK;
end;
function TFileOpProgressSink.PreDeleteItem(dwFlags: DWORD; const psiItem: IShellItem): HResult; stdcall;
var
sSrcPath: String;
begin
sSrcPath := ShellItemPath(psiItem);
Dbg('PreDeleteItem: ' + sSrcPath);
Result := S_OK; // MaybeBlock(boDelete, sSrcPath, '', '');
end;
function TFileOpProgressSink.PostDeleteItem(dwFlags: DWORD; const psiItem: IShellItem; hrDelete: HResult;
const psiNewlyCreated: IShellItem): HResult; stdcall;
begin
Dbg(Format('PostDeleteItem hr=0x%x', [hrDelete]));
Result := S_OK;
end;
function TFileOpProgressSink.PreNewItem(dwFlags: DWORD; const psiDestinationFolder: IShellItem;
pszNewName: LPCWSTR): HResult; stdcall;
var
sDstDir: string;
begin
sDstDir := ShellItemPath(psiDestinationFolder);
Dbg(Format('PreNewItem: %s\%s', [sDstDir, pszNewName]));
Result := ProcMon(etCreate, '', sDstDir, pszNewName);
end;
function TFileOpProgressSink.PostNewItem(dwFlags: DWORD; const psiDestinationFolder: IShellItem;
pszNewName: LPCWSTR; pszTemplateName: LPCWSTR; dwFileAttributes: DWORD;
hrNew: HResult; const psiNewItem: IShellItem): HResult; stdcall;
begin
Dbg(Format('PostNewItem hr=0x%x', [hrNew]));
Result := S_OK;
end;
function TFileOpProgressSink.UpdateProgress(iWorkTotal, iWorkSoFar: UINT): HRESULT; stdcall;
begin
Result := S_OK;
end;
function TFileOpProgressSink.ResetTimer: HRESULT; stdcall;
begin
Result := S_OK;
end;
function TFileOpProgressSink.PauseTimer: HRESULT; stdcall;
begin
Result := S_OK;
end;
function TFileOpProgressSink.ResumeTimer: HRESULT; stdcall;
begin
Result := S_OK;
end;
end.

1944
Tocsg.Module/AppCtrl/DLL_AppCtrl/ApiHookFile.pas Normal file
View File

File diff suppressed because it is too large Load Diff

77
Tocsg.Module/AppCtrl/DLL_AppCtrl/ApiHookNet.pas Normal file
View File

@ -0,0 +1,77 @@
{*******************************************************}
{ }
{ ApiHookNet }
{ }
{ Copyright (C) 2023 kku }
{ }
{*******************************************************}
unit ApiHookNet;
interface
uses
Winapi.Windows, EM.Dnsapi, System.SysUtils;
const
DNS_ERROR_RCODE_YXDOMAIN = $232E;
type
TFun_DnsQuery_A = function(lpstrName: LPSTR; wType: WORD; fOptions: DWORD; aipServers: PDWORD;
var ppQueryResultsSet: PDWORD; pReserved:pdword): DWORD; stdcall;
TFun_DnsQuery_UTF8 = function(lpstrName: LPSTR; wType: WORD; fOptions: DWORD; aipServers: PDWORD;
var ppQueryResultsSet: PDWORD; pReserved:pdword): DWORD; stdcall;
TFun_DnsQuery_W = function(lpstrName: LPWSTR; wType: WORD; fOptions: DWORD; aipServers: PDWORD;
var ppQueryResultsSet: PDWORD; pReserved:pdword): DWORD; stdcall;
TFun_DnsQueryEx = function(pQueryRequest: PDnsQueryRequest; pQueryResults, pCancelHandle: Pointer): DWORD; stdcall;
var
ozDnsQuery_A: TFun_DnsQuery_A = nil;
ozDnsQuery_UTF8: TFun_DnsQuery_UTF8 = nil;
ozDnsQuery_W: TFun_DnsQuery_W = nil;
ozDnsQueryEx: TFun_DnsQueryEx = nil;
implementation
function CheckBlockDomain(sDomain: String): Boolean;
begin
// _AppHook.Log('CheckBlockDomain() ..');
Result := Pos('google', LowerCase(sDomain)) > 0;
end;
function DnsQuery_AHook(lpstrName: LPSTR; wType: WORD; fOptions: DWORD; aipServers: PDWORD;
var ppQueryResultsSet: PDWORD; pReserved:pdword): DWORD; stdcall;
begin
if CheckBlockDomain(StrPas(lpstrName)) then
Result := DNS_ERROR_RCODE_YXDOMAIN
else
Result := ozDnsQuery_A(lpstrName, wType, fOptions, aipServers, ppQueryResultsSet, pReserved);
end;
function DnsQuery_UTF8Hook(lpstrName: LPSTR; wType: WORD; fOptions: DWORD; aipServers: PDWORD;
var ppQueryResultsSet: PDWORD; pReserved:pdword): DWORD; stdcall;
begin
if CheckBlockDomain(StrPas(lpstrName)) then
Result := DNS_ERROR_RCODE_YXDOMAIN
else
Result := ozDnsQuery_UTF8(lpstrName, wType, fOptions, aipServers, ppQueryResultsSet, pReserved);
end;
function DnsQuery_WHook(lpstrName: LPWSTR; wType: WORD; fOptions: DWORD; aipServers: PDWORD;
var ppQueryResultsSet: PDWORD; pReserved:pdword): DWORD; stdcall;
begin
if CheckBlockDomain(StrPas(lpstrName)) then
Result := DNS_ERROR_RCODE_YXDOMAIN
else
Result := ozDnsQuery_W(lpstrName, wType, fOptions, aipServers, ppQueryResultsSet, pReserved);
end;
function DnsQueryExHook(pQueryRequest: PDnsQueryRequest; pQueryResults, pCancelHandle: Pointer): DWORD; stdcall;
begin
if CheckBlockDomain(StrPas(pQueryRequest.sQueryName)) then
Result := ERROR_INVALID_PARAMETER
else
Result := ozDnsQueryEx(pQueryRequest, pQueryResults, pCancelHandle);
end;
end.

1480
Tocsg.Module/AppCtrl/DLL_AppCtrl/ApiHookPrint.pas Normal file
View File

File diff suppressed because it is too large Load Diff

51
Tocsg.Module/AppCtrl/DLL_AppCtrl/AppCtrl.dpr Normal file
View File

@ -0,0 +1,51 @@
library AppCtrl;
uses
System.SysUtils,
Winapi.Windows,
System.Classes,
AppHook in 'AppHook.pas',
AppHookClient in 'AppHookClient.pas',
Define in 'Define.pas',
ApiHookFile in 'ApiHookFile.pas',
Tocsg.DRM.Encrypt in '..\..\TocsgDRM\LIB_Common\Tocsg.DRM.Encrypt.pas',
ApiHookEtc in 'ApiHookEtc.pas',
ApiHookNet in 'ApiHookNet.pas',
ApiHookDraw in 'ApiHookDraw.pas',
ApiHookPrint in 'ApiHookPrint.pas',
Condition in '..\..\..\eCrmHE\LIB_Common\Condition.pas',
GlobalDefine in '..\..\..\eCrmHE\LIB_Common\GlobalDefine.pas',
ProcessWM in 'ProcessWM.pas',
AppCtrlDefine in '..\LIB_Common\AppCtrlDefine.pas',
ApiHookExplorer in 'ApiHookExplorer.pas';
{$R *.res}
var
AppHook: TAppHook = nil;
procedure DLLEntryPoint(dwReason: DWORD);
begin
case dwReason of
DLL_PROCESS_ATTACH :
begin
AppHook := TAppHook.Create;
end;
DLL_PROCESS_DETACH :
begin
try
if Assigned(AppHook) then
FreeAndNil(AppHook);
except
//
end;
end;
end;
end;
begin
DllProc := @DLLEntryPoint;
DLLEntryPoint(DLL_PROCESS_ATTACH);
end.

1248
Tocsg.Module/AppCtrl/DLL_AppCtrl/AppCtrl.dproj Normal file
View File

File diff suppressed because it is too large Load Diff

626
Tocsg.Module/AppCtrl/DLL_AppCtrl/AppHook.pas Normal file
View File

@ -0,0 +1,626 @@
{*******************************************************}
{ }
{ AppHook }
{ }
{ Copyright (C) 2022 kku }
{ }
{*******************************************************}
unit AppHook;
interface
//{$DEFINE USE_BOXAPP}
uses
System.SysUtils, System.Classes, Tocsg.DllEntry, Tocsg.CommonData,
GlobalDefine, Winapi.Windows, Winapi.Messages, Tocsg.Trace,
WinAPI.Foundation.Collections, System.Generics.Collections,
AppHookClient, AppCtrlDefine, System.SyncObjs;
type
TAppHook = class(TTgDllEntry)
private
CS_: TCriticalSection;
hProcWnd_: HWND;
Trace_: TTgTrace;
dtCreate_: TDateTime;
Client_: TAppHookClient;
ProcList_: TList<PPointer>;
Helper_: TAppCtrlHelper;
RFileList_: TStringList;
// 프린트 마스킹
PrtMaskList_: TStringList;
procedure OnBeforeLog(Sender: TObject);
procedure OnAfterLog(Sender: TObject);
procedure AddInterceptAPI(var aProcDest: Pointer; aProcSrc, aProcHook: Pointer; sProcName: String);
procedure InitDrmProcess;
procedure Lock;
procedure Unlock;
public
// 전역 옵션
_bLogProcessing,
_bInternalOpen: Boolean;
sLogPath_: String;
_hMTP: THandle;
_sMtpDev,
_sMtpRecentFile: String;
_dwMtpTick: DWORD; // MTP 인지하고 연속 차단을 위한 타임아웃 24_0604 16:19:01 kku
Constructor Create;
Destructor Destroy; override;
procedure DoInterceptRemove;
procedure OnAppDisconnected(aSener: TObject);
procedure AddCreateFile(hFile: THandle; sPath: String);
function HasCreateFile(hFile: THandle): Boolean;
procedure DelCloseFile(hFile: THandle);
function GetRFilePath(sFName: String): String;
procedure Log(sLog: String); overload;
procedure Log(const sFormat: string; const Args: array of const); overload;
procedure SendText(sData: String);
procedure ProcessAppCtrlOpt(aOpt: TAppCtrlOpt);
property Helper: TAppCtrlHelper read Helper_;
property PrtMaskList: TStringList read PrtMaskList_;
end;
var
gAppHook: TAppHook = nil;
implementation
uses
{$IFDEF USE_BOXAPP}
BoxedAppSDK_Static,
{$ENDIF}
DDetours, Tocsg.Safe, Vcl.Forms,
Tocsg.Exception, System.DateUtils, Tocsg.Packet, ApiHookFile, ApiHookPrint,
ApiHookDraw, Tocsg.Strings, Winapi.WinSpool, ApiHookExplorer;
{ TAppHook }
Constructor TAppHook.Create;
procedure GetStartTime;
var
ftCreate,
ftExit,
ftKernel,
ftUser: TFileTime;
nDosTime: Integer;
begin
dtCreate_ := 0;
GetProcessTimes(GetCurrentProcess, ftCreate, ftExit, ftKernel, ftUser);
if FileTimeToLocalFileTime(ftCreate, ftCreate) then
if FileTimeToDosDateTime(ftCreate, LongRec(nDosTime).Hi, LongRec(nDosTime).Lo) then
dtCreate_ := FileDateToDateTime(nDosTime);
end;
begin
Inherited Create;
ASSERT(gAppHook = nil);
gAppHook := Self;
CS_ := TCriticalSection.Create;
hProcWnd_ := 0;
Trace_ := nil;
_hMTP := 0;
_sMtpDev := '';
_dwMtpTick := 0;
_sMtpRecentFile := '';
_bLogProcessing := false;
_bInternalOpen := false;
PrtMaskList_ := TStringList.Create;
GetStartTime;
RFileList_ := TStringList.Create;
RFileList_.CaseSensitive := false;
{$IFDEF DEBUG} // 이거 켜면 DLL 해제 시 떨어지지 않는다 23_0315 11:09:49 kku
{$IFDEF WIN64}
sLogPath_ := 'C:\taskToCSG\Tocsg.Module\AppCtrl\OUT_Debug - Win64\AppCtrl_d.log';
{$ELSE}
sLogPath_ := 'C:\taskToCSG\Tocsg.Module\AppCtrl\OUT_Debug - Win32\AppCtrl32_d.log';
// sLogPath_ := 'C:\AppCtrl\AppCtrl32_d.log';
{$ENDIF}
ForceDirectories(ExtractFilePath(sLogPath_));
// if FileExists(sLogPath_) then
// DeleteFile(PChar(sLogPath_));
Trace_ := TTgTrace.Create(ExtractFilePath(sLogPath_), ExtractFileName(sLogPath_));
Trace_.Level := 99;
Trace_.OnBeforeLog := OnBeforeLog;
Trace_.OnAfterLog := OnAfterLog;
Trace_.LoadHead := ModuleName + ' > ';
{$ENDIF}
ProcList_ := TList<PPointer>.Create;
Helper_ := TAppCtrlHelper.Create(ModulePath);
// if Helper_.IsDrmSupport then
// InitDrmProcess;
Client_ := TAppHookClient.Create;
Client_.OnDisconnected := OnAppDisconnected;
Client_.TryReconnect := true;
Client_.ModulePath := ModulePath;
if not Client_.ActiveNp('NpAppCtrl', false) then
begin
Log('Fail .. ActiveNp()');
exit;
end;
if not Client_.ConnectNp then
begin
Log('Fail .. Connection');
exit;
end;
// var Send: ISendPacket;
// Send := TTgPacket.Create(ACC_TEST_LOG);
// Send.S['Msg'] := ModuleName + ' > 방가방가';
// Client_.SendPacket(Send);
end;
Destructor TAppHook.Destroy;
begin
Log('Destroy()');
if Client_ <> nil then
FreeAndNil(Client_);
//
DoInterceptRemove;
UninstallFileOperationHooks;
if Trace_ <> nil then
FreeAndNil(Trace_);
FreeAndNil(Helper_);
FreeAndNil(ProcList_);
FreeAndNil(RFileList_);
FreeAndNil(PrtMaskList_);
Inherited;
FreeAndNil(CS_);
end;
procedure TAppHook.InitDrmProcess;
{$IFDEF USE_BOXAPP}
var
bLoadBx: Boolean;
Label
LB_LoadBx;
{$ENDIF}
begin
Log('InitDrmProcess() ..');
{$IFDEF USE_BOXAPP}
// if bUseBoxedApp_ then
begin
try
bLoadBx := false;
LB_LoadBx :
try
// Init BoxedApp SDK
BoxedAppSDK_SetContext('21f2f010-06e4-465f-af8f-cde6a3752c39');
BoxedAppSDK_Init;
// Allow injection BoxedApp engine into child processes
// BoxedAppSDK_EnableOption(DEF_BOXEDAPPSDK_OPTION__EMBED_BOXEDAPP_IN_CHILD_PROCESSES, TRUE);
// BoxedAppSDK_EnableOption(DEF_BOXEDAPPSDK_OPTION__HIDE_VIRTUAL_FILES_FROM_FILE_DIALOG, TRUE);
// BoxedAppSDK_EnableOption(DEF_BOXEDAPPSDK_OPTION__ALL_CHANGES_ARE_VIRTUAL, TRUE);
bLoadBx := true;
except
Log('Fail .. BoxedAppSDK');
end;
if not bLoadBx then
begin
Sleep(10);
goto LB_LoadBx;
end;
except
Log('Fail .. UseBoxedAppSDK');
end;
end;
{$ENDIF}
AddInterceptAPI(@ozCreateFileA, @CreateFileA, @CreateFileAHook, 'CreateFileA');
AddInterceptAPI(@ozCreateFileW, @CreateFileW, @CreateFileWHook, 'CreateFileW');
AddInterceptAPI(@ozCloseHandle, @CloseHandle, @CloseHandleHook, 'CloseHandle');
end;
procedure TAppHook.Lock;
begin
CS_.Acquire;
end;
procedure TAppHook.Unlock;
begin
CS_.Release;
end;
procedure TAppHook.AddInterceptAPI(var aProcDest: Pointer; aProcSrc, aProcHook: Pointer; sProcName: String);
begin
if aProcDest = nil then
begin
aProcDest := InterceptCreate(aProcSrc, aProcHook);
if aProcDest <> nil then
begin
Log(Format('>>> InterceptCreate() - %s <<<', [sProcName]));
ProcList_.Add(@aProcDest);
end else
Log(Format('>>> Fail .. InterceptCreate() - %s <<<', [sProcName]));
end;
end;
procedure TAppHook.DoInterceptRemove;
procedure RemoveAPI(var aProc: Pointer); inline;
begin
if aProc <> nil then
begin
InterceptRemove(aProc);
aProc := nil;
end;
end;
var
i: Integer;
begin
Log('DoInterceptRemove()');
for i := 0 to ProcList_.Count - 1 do
RemoveAPI(ProcList_[i]^);
ProcList_.Clear;
end;
procedure TAppHook.OnAppDisconnected(aSener: TObject);
var
CtrlOpt: TAppCtrlOpt;
begin
ZeroMemory(@CtrlOpt, SizeOf(CtrlOpt));
Helper_.CtrlOpt := CtrlOpt;
end;
procedure TAppHook.AddCreateFile(hFile: THandle; sPath: String);
begin
try
// Lock;
try
if RFileList_.IndexOf(sPath) = -1 then
RFileList_.AddObject(sPath, TObject(hFile));
finally
// Unlock;
end;
except
// ..
end;
end;
function TAppHook.HasCreateFile(hFile: THandle): Boolean;
var
i: Integer;
begin
Result := false;
try
Lock;
try
for i := 0 to RFileList_.Count - 1 do
if hFile = THandle(RFileList_.Objects[i]) then
begin
Result := true;
exit;
end;
finally
Unlock;
end;
except
// ..
end;
end;
procedure TAppHook.DelCloseFile(hFile: THandle);
var
i: Integer;
begin
try
Lock;
try
for i := 0 to RFileList_.Count - 1 do
if hFile = THandle(RFileList_.Objects[i]) then
begin
RFileList_.Delete(i);
exit;
end;
finally
Unlock;
end;
except
// ..
end;
end;
function TAppHook.GetRFilePath(sFName: String): String;
var
i: Integer;
begin
Result := '';
try
sFName := UpperCase(sFName);
Lock;
try
for i := 0 to RFileList_.Count - 1 do
if Pos(UpperCase(ExtractFileName(RFileList_[i])), sFName) > 0 then
begin
Result := RFileList_[i];
exit;
end;
finally
Unlock;
end;
except
// ..
end;
end;
procedure TAppHook.OnBeforeLog(Sender: TObject);
begin
_bLogProcessing := true;
end;
procedure TAppHook.OnAfterLog(Sender: TObject);
begin
_bLogProcessing := false;
end;
procedure TAppHook.Log(sLog: String);
begin
if Trace_ <> nil then
begin
_bLogProcessing := true;
Trace_.T('(%s) %s', [ModuleName, sLog]);
_bLogProcessing := false;
end;
end;
procedure TAppHook.Log(const sFormat: string; const Args: array of const);
var
str: String;
begin
FmtStr(str, sFormat, Args);
Log(str);
end;
procedure TAppHook.SendText(sData: String);
var
Send: ISendpacket;
begin
Send := TTgPacket.Create(ACC_TEST_LOG);
Send.S['Msg'] := ModuleName + ' > ' + sData;
Client_.SendPacket(Send);
end;
procedure TAppHook.ProcessAppCtrlOpt(aOpt: TAppCtrlOpt);
begin
try
if CompareText('explorer.exe', ModuleName) = 0 then
begin
InstallFileOperationHooks;
exit;
end;
// DoInterceptRemove;
{$IFDEF DEBUG}
Helper_.bEndDocProc_ := CompareText('excel.exe', ModuleName) <> 0;
{$ENDIF}
if aOpt.hCltWnd <> 0 then
SetWindowDisplayAffinity(aOpt.hCltWnd, 1);
if aOpt.sDrmPass <> '' then
aOpt.sDrmPass := DecText(aOpt.sDrmPass);
Helper_.CtrlOpt := aOpt;
// Helper_.bEndDocProc_ := true; // 엑셀에서 이렇게 하면 워터마크가 뒤로 밀리는 문제가 있음..23_0410 15:52:34 kku
if (aOpt.FileUseBlock <> fubNone) or gAppHook.Helper.CtrlOpt.bMtpWB then
begin
AddInterceptAPI(@ozCreateFileA, @CreateFileA, @CreateFileAHook, 'CreateFileA');
AddInterceptAPI(@ozCreateFileW, @CreateFileW, @CreateFileWHook, 'CreateFileW');
{$IFDEF DEBUG}
// 사용하지 않음 24_0122 14:14:59 kku
// AddInterceptAPI(@ozCloseHandle, @CloseHandle, @CloseHandleHook, 'CloseHandle');
// AddInterceptAPI(@ozReadFile, @ReadFile, @ReadFileHook, 'ReadFile');
// AddInterceptAPI(@ozReadFileEx, @ReadFileEx, @ReadFileExHook, 'ReadFileEx');
// AddInterceptAPI(@ozWriteFile, @WriteFile, @WriteFileHook, 'WriteFile');
// AddInterceptAPI(@ozWriteFileEx, @WriteFileEx, @WriteFileExHook, 'WriteFileExHook');
{$ENDIF}
end;
if aOpt.bPrintSecu or aOpt.bPrintWater then
begin
AddInterceptAPI(@ozStartDocA, @StartDocA, @StartDocAHook, 'StartDocA');
AddInterceptAPI(@ozStartDocW, @StartDocW, @StartDocWHook, 'StartDocW');
AddInterceptAPI(@ozStartPage, @StartPage, @StartPageHook, 'StartPage');
AddInterceptAPI(@ozEndPage, @EndPage, @EndPageHook, 'EndPage');
// AddInterceptAPI(@ozEndDoc, @EndDoc, @EndDocHook, 'EndDoc');
// AddInterceptAPI(@ozWritePrinter, @WritePrinter, @WritePrinterHook, 'WritePrinter'); // 이거 하면 이후로 훅 진행이 먹통된다... 23_0419 14:11:21 kku
// if aOpt.bPrintSecu then
begin
//{
AddInterceptAPI(@ozExtTextOutA, @ExtTextOutA, @ExtTextOutAHook, 'ExtTextOutA'); // notepad++
AddInterceptAPI(@ozExtTextOutW, @ExtTextOutW, @ExtTextOutWHook, 'ExtTextOutW'); // notepad++
AddInterceptAPI(@ozSetWorldTransform, @SetWorldTransform, @SetWorldTransformHook, 'SetWorldTransform'); // 좌표값 추출
AddInterceptAPI(@ozModifyWorldTransform, @ModifyWorldTransform, @ModifyWorldTransformHook, 'ModifyWorldTransform'); // 좌표값 추출, 이거 켜면 PPT에서 텍스트 위치가 꼬인다 25_1001 22:00:24 kku
AddInterceptAPI(@ozRectangle, @Rectangle, @RectangleHook, 'Rectangle');
AddInterceptAPI(@ozSelectObject, @SelectObject, @SelectObjectHook, 'SelectObject');
AddInterceptAPI(@ozStretchDIBits, @StretchDIBits, @StretchDIBitsHook, 'StretchDIBits'); // chrome 필수
AddInterceptAPI(@ozSetStretchBltMode, @SetStretchBltMode, @SetStretchBltModeHook, 'SetStretchBltMode');
AddInterceptAPI(@ozSetPolyFillMode, @SetPolyFillMode, @SetPolyFillModeHook, 'SetPolyFillMode');
AddInterceptAPI(@ozBeginPath, @BeginPath, @BeginPathHook, 'BeginPath'); // chrome 필수
AddInterceptAPI(@ozMoveToEx, @MoveToEx, @MoveToExHook, 'MoveToEx'); // chrome 필수
AddInterceptAPI(@ozPolyBezierTo, @PolyBezierTo, @PolyBezierToHook, 'PolyBezierTo'); // chrome 필수
AddInterceptAPI(@ozLineTo, @LineTo, @LineToHook, 'LineTo'); // chrome 필수
AddInterceptAPI(@ozCloseFigure, @CloseFigure, @CloseFigureHook, 'CloseFigure');
AddInterceptAPI(@ozEndPath, @EndPath, @EndPathHook, 'EndPath'); // chrome 필수
AddInterceptAPI(@ozFillPath, @FillPath, @FillPathHook, 'FillPath'); // chrome 필수
AddInterceptAPI(@ozLPtoDP, @LPtoDP, @LPtoDPHook, 'LPtoDP');
AddInterceptAPI(@ozDPtoLP, @DPtoLP, @DPtoLPHook, 'DPtoLP');
AddInterceptAPI(@ozFillRect, @FillRect, @FillRectHook, 'FillRect');
AddInterceptAPI(@ozRestoreDC, @RestoreDC, @RestoreDCHook, 'RestoreDC');
AddInterceptAPI(@ozSaveDC, @SaveDC, @SaveDCHook, 'SaveDC');
AddInterceptAPI(@ozIntersectClipRect, @IntersectClipRect, @IntersectClipRectHook, 'IntersectClipRect');
AddInterceptAPI(@ozBitBlt, @BitBlt, @BitBltHook, 'BitBlt');
AddInterceptAPI(@ozSetPixel, @SetPixel, @SetPixelHook, 'SetPixel');
AddInterceptAPI(@ozPlgBlt, @PlgBlt, @PlgBltHook, 'PlgBlt');
AddInterceptAPI(@ozPatBlt, @PatBlt, @PatBltHook, 'PatBlt');
AddInterceptAPI(@ozStretchBlt, @StretchBlt, @StretchBltHook, 'StretchBlt');
AddInterceptAPI(@ozEllipse, @Ellipse, @EllipseHook, 'Ellipse');
AddInterceptAPI(@ozTextOutA, @TextOutA, @TextOutAHook, 'TextOutA');
AddInterceptAPI(@ozTextOutW, @TextOutW, @TextOutWHook, 'TextOutW');
AddInterceptAPI(@ozSetTextAlign, @SetTextAlign, @SetTextAlignHook, 'SetTextAlign');
AddInterceptAPI(@ozSetBkMode, @SetBkMode, @SetBkModeHook, 'SetBkMode');
AddInterceptAPI(@ozSetViewportOrgEx, @SetViewportOrgEx, @SetViewportOrgExHook, 'SetViewportOrgEx');
AddInterceptAPI(@ozExtSelectClipRgn, @ExtSelectClipRgn, @ExtSelectClipRgnHook, 'ExtSelectClipRgn');
AddInterceptAPI(@ozSelectClipRgn, @SelectClipRgn, @SelectClipRgnHook, 'SelectClipRgn');
AddInterceptAPI(@ozSetMapMode, @SetMapMode, @SetMapModeHook, 'SetMapMode');
AddInterceptAPI(@ozSetWindowOrgEx, @SetWindowOrgEx, @SetWindowOrgExHook, 'SetWindowOrgEx');
AddInterceptAPI(@ozSelectPalette, @SelectPalette, @SelectPaletteHook, 'SelectPalette');
AddInterceptAPI(@ozSetGraphicsMode, @SetGraphicsMode, @SetGraphicsModeHook, 'SetGraphicsMode');
AddInterceptAPI(@ozSetBkColor, @SetBkColor, @SetBkColorHook, 'SetBkColor');
AddInterceptAPI(@ozSetBrushOrgEx, @SetBrushOrgEx, @SetBrushOrgExHook, 'SetBrushOrgEx');
AddInterceptAPI(@ozSetDIBits, @SetDIBits, @SetDIBitsHook, 'SetDIBits');
AddInterceptAPI(@ozSetROP2, @SetROP2, @SetROP2Hook, 'SetROP2');
AddInterceptAPI(@ozSetColorSpace, @SetColorSpace, @SetColorSpaceHook, 'SetColorSpace');
AddInterceptAPI(@ozExcludeClipRect, @ExcludeClipRect, @ExcludeClipRectHook, 'ExcludeClipRect');
AddInterceptAPI(@ozSetViewportExtEx, @SetViewportExtEx, @SetViewportExtExHook, 'SetViewportExtEx');
AddInterceptAPI(@ozSetWindowExtEx, @SetWindowExtEx, @SetWindowExtExHook, 'SetWindowExtEx');
AddInterceptAPI(@ozScaleViewportExtEx, @ScaleViewportExtEx, @ScaleViewportExtExHook, 'ScaleViewportExtEx');
AddInterceptAPI(@ozSetTextColor, @SetTextColor, @SetTextColorHook, 'SetTextColor');
AddInterceptAPI(@ozSetDCBrushColor, @SetDCBrushColor, @SetDCBrushColorHook, 'SetDCBrushColor');
AddInterceptAPI(@ozSetDCPenColor, @SetDCPenColor, @SetDCPenColorHook, 'SetDCPenColor');
AddInterceptAPI(@ozCreateHalftonePalette, @CreateHalftonePalette, @CreateHalftonePaletteHook, 'CreateHalftonePalette');
AddInterceptAPI(@ozCreateDIBSection, @CreateDIBSection, @CreateDIBSectionHook, 'CreateDIBSection');
AddInterceptAPI(@ozSetBoundsRect, @SetBoundsRect, @SetBoundsRectHook, 'SetBoundsRect');
AddInterceptAPI(@ozSetSystemPaletteUse, @SetSystemPaletteUse, @SetSystemPaletteUseHook, 'SetSystemPaletteUse');
AddInterceptAPI(@ozRealizePalette, @RealizePalette, @RealizePaletteHook, 'RealizePalette');
AddInterceptAPI(@ozSetDIBColorTable, @SetDIBColorTable, @SetDIBColorTableHook, 'SetDIBColorTable');
AddInterceptAPI(@ozSetMapperFlags, @SetMapperFlags, @SetMapperFlagsHook, 'SetMapperFlags');
AddInterceptAPI(@ozSetColorAdjustment, @SetColorAdjustment, @SetColorAdjustmentHook, 'SetColorAdjustment');
AddInterceptAPI(@ozPolyBezier, @PolyBezier, @PolyBezierHook, 'PolyBezier');
AddInterceptAPI(@ozPolygon, @Polygon, @PolygonHook, 'Polygon');
AddInterceptAPI(@ozPolyline, @Polyline, @PolylineHook, 'Polyline');
AddInterceptAPI(@ozPolyLineTo, @PolyLineTo, @PolyLineToHook, 'PolyLineTo');
AddInterceptAPI(@ozPolyPolyline, @PolyPolyline, @PolyPolylineHook, 'PolyPolyline');
AddInterceptAPI(@ozPolyPolygon, @PolyPolygon, @PolyPolygonHook, 'PolyPolygon');
AddInterceptAPI(@ozSetPixelV, @SetPixelV, @SetPixelVHook, 'SetPixelV');
AddInterceptAPI(@ozColorCorrectPalette, @ColorCorrectPalette, @ColorCorrectPaletteHook, 'ColorCorrectPalette');
AddInterceptAPI(@ozSetICMProfileA, @SetICMProfileA, @SetICMProfileAHook, 'SetICMProfileA');
AddInterceptAPI(@ozSetICMProfileW, @SetICMProfileW, @SetICMProfileWHook, 'SetICMProfileW');
AddInterceptAPI(@ozSetTextJustification, @SetTextJustification, @SetTextJustificationHook, 'SetTextJustification');
AddInterceptAPI(@ozScaleWindowExtEx, @ScaleWindowExtEx, @ScaleWindowExtExHook, 'ScaleWindowExtEx');
AddInterceptAPI(@ozAngleArc, @AngleArc, @AngleArcHook, 'AngleArc');
AddInterceptAPI(@ozRoundRect, @RoundRect, @RoundRectHook, 'RoundRect');
AddInterceptAPI(@ozArc, @Arc, @ArcHook, 'Arc');
AddInterceptAPI(@ozChord, @Chord, @ChordHook, 'Chord');
AddInterceptAPI(@ozPie, @Pie, @PieHook, 'Pie');
AddInterceptAPI(@ozExtFloodFill, @ExtFloodFill, @ExtFloodFillHook, 'ExtFloodFill');
AddInterceptAPI(@ozArcTo, @ArcTo, @ArcToHook, 'ArcTo');
AddInterceptAPI(@ozPolyDraw, @PolyDraw, @PolyDrawHook, 'PolyDraw');
AddInterceptAPI(@ozSetMiterLimit, @SetMiterLimit, @SetMiterLimitHook, 'SetMiterLimit');
AddInterceptAPI(@ozStrokeAndFillPath, @StrokeAndFillPath, @StrokeAndFillPathHook, 'StrokeAndFillPath');
AddInterceptAPI(@ozStrokePath, @StrokePath, @StrokePathHook, 'StrokePath');
AddInterceptAPI(@ozFlattenPath, @FlattenPath, @FlattenPathHook, 'FlattenPath');
AddInterceptAPI(@ozWidenPath, @WidenPath, @WidenPathHook, 'WidenPath');
AddInterceptAPI(@ozSelectClipPath, @SelectClipPath, @SelectClipPathHook, 'SelectClipPath');
AddInterceptAPI(@ozAbortPath, @AbortPath, @AbortPathHook, 'AbortPath');
AddInterceptAPI(@ozFillRgn, @FillRgn, @FillRgnHook, 'FillRgn');
AddInterceptAPI(@ozFrameRgn, @FrameRgn, @FrameRgnHook, 'FrameRgn');
AddInterceptAPI(@ozInvertRgn, @InvertRgn, @InvertRgnHook, 'InvertRgn');
AddInterceptAPI(@ozPaintRgn, @PaintRgn, @PaintRgnHook, 'PaintRgn');
AddInterceptAPI(@ozMaskBlt, @MaskBlt, @MaskBltHook, 'MaskBlt');
AddInterceptAPI(@ozPolyTextOutA, @PolyTextOutA, @PolyTextOutAHook, 'PolyTextOutA');
AddInterceptAPI(@ozPolyTextOutW, @PolyTextOutW, @PolyTextOutWHook, 'PolyTextOutW');
AddInterceptAPI(@ozUpdateColors, @UpdateColors, @UpdateColorsHook, 'UpdateColors');
AddInterceptAPI(@ozOffsetViewportOrgEx, @OffsetViewportOrgEx, @OffsetViewportOrgExHook, 'OffsetViewportOrgEx');
AddInterceptAPI(@ozOffsetWindowOrgEx, @OffsetWindowOrgEx, @OffsetWindowOrgExHook, 'OffsetWindowOrgEx');
AddInterceptAPI(@ozSetDeviceGammaRamp, @SetDeviceGammaRamp, @SetDeviceGammaRampHook, 'SetDeviceGammaRamp');
AddInterceptAPI(@ozColorMatchToTarget, @ColorMatchToTarget, @ColorMatchToTargetHook, 'ColorMatchToTarget');
AddInterceptAPI(@ozPtVisible, @PtVisible, @PtVisibleHook, 'PtVisible');
AddInterceptAPI(@ozRectVisible, @RectVisible, @RectVisibleHook, 'RectVisible');
AddInterceptAPI(@ozSetPixelFormat, @SetPixelFormat, @SetPixelFormatHook, 'SetPixelFormat');
AddInterceptAPI(@ozOffsetClipRgn, @OffsetClipRgn, @OffsetClipRgnHook, 'OffsetClipRgn');
AddInterceptAPI(@ozSetArcDirection, @SetArcDirection, @SetArcDirectionHook, 'SetArcDirection');
AddInterceptAPI(@ozSetTextCharacterExtra, @SetTextCharacterExtra, @SetTextCharacterExtraHook, 'SetTextCharacterExtra');
AddInterceptAPI(@ozEnumICMProfilesA, @EnumICMProfilesA, @EnumICMProfilesAHook, 'EnumICMProfilesA');
AddInterceptAPI(@ozEnumICMProfilesW, @EnumICMProfilesW, @EnumICMProfilesWHook, 'EnumICMProfilesW');
AddInterceptAPI(@ozSetICMMode, @SetICMMode, @SetICMModeHook, 'SetICMMode');
AddInterceptAPI(@ozSetDIBitsToDevice, @SetDIBitsToDevice, @SetDIBitsToDeviceHook, 'SetDIBitsToDevice');
AddInterceptAPI(@ozDrawEscape, @DrawEscape, @DrawEscapeHook, 'DrawEscape');
AddInterceptAPI(@ozEnumFontsA, @EnumFontsA, @EnumFontsAHook, 'EnumFontsA');
AddInterceptAPI(@ozEnumFontsW, @EnumFontsW, @EnumFontsWHook, 'EnumFontsW');
AddInterceptAPI(@ozEnumFontFamiliesA, @EnumFontFamiliesA, @EnumFontFamiliesAHook, 'EnumFontFamiliesA');
AddInterceptAPI(@ozEnumFontFamiliesW, @EnumFontFamiliesW, @EnumFontFamiliesWHook, 'EnumFontFamiliesW');
AddInterceptAPI(@ozSetMetaRgn, @SetMetaRgn, @SetMetaRgnHook, 'SetMetaRgn');
AddInterceptAPI(@ozPlayEnhMetaFile, @PlayEnhMetaFile, @PlayEnhMetaFileHook, 'PlayEnhMetaFile');
AddInterceptAPI(@ozPlayEnhMetaFileRecord, @PlayEnhMetaFileRecord, @PlayEnhMetaFileRecordHook, 'PlayEnhMetaFileRecord');
// AddInterceptAPI(@ozTransparentBlt, @TransparentBlt, @TransparentBltHook, 'TransparentBlt');
// AddInterceptAPI(@ozGradientFill, @GradientFill, @GradientFillHook, 'GradientFill');
// AddInterceptAPI(@ozFrameRect, @FrameRect, @FrameRectHook, 'FrameRect');
// AddInterceptAPI(@ozFloodFill, @FloodFill, @FloodFillHook, 'FloodFill'); // 훅 제외
// AddInterceptAPI(@ozDrawTextExA, @DrawTextExA, @DrawTextExAHook_DW, 'DrawTextExA');
// AddInterceptAPI(@ozDrawTextExW, @DrawTextExW, @DrawTextExWHook_DW, 'DrawTextExW');
// AddInterceptAPI(@ozTabbedTextOutA, @TabbedTextOutA, @TabbedTextOutAHook, 'TabbedTextOutA');
// AddInterceptAPI(@ozTabbedTextOutW, @TabbedTextOutW, @TabbedTextOutWHook, 'TabbedTextOutW');
// AddInterceptAPI(@ozGetTextCharsetInfo, @GetTextCharsetInfo, @GetTextCharsetInfoHook, 'GetTextCharsetInfo'); // 훅 제외
// AddInterceptAPI(@ozGetGlyphIndicesA, @GetGlyphIndicesA, @GetGlyphIndicesAHook, 'GetGlyphIndicesA') // 훅 제외;
// AddInterceptAPI(@ozGetGlyphIndicesW, @GetGlyphIndicesW, @GetGlyphIndicesWHook, 'GetGlyphIndicesW'); // 훅 제외
// AddInterceptAPI(@ozGetFontLanguageInfo, @GetFontLanguageInfo, @GetFontLanguageInfoHook, 'GetFontLanguageInfo'); // 훅 제외
// AddInterceptAPI(@ozGetCharacterPlacementA, @GetCharacterPlacementA, @GetCharacterPlacementAHook, 'GetCharacterPlacementA'); // 훅 제외
// AddInterceptAPI(@ozGetCharacterPlacementW, @GetCharacterPlacementW, @GetCharacterPlacementWHook, 'GetCharacterPlacementW'); // 훅 제외
// AddInterceptAPI(@ozGetFontData, @GetFontData, @GetFontDataHook, 'GetFontData'); // 훅 제외
// AddInterceptAPI(@ozGetGlyphOutlineA, @GetGlyphOutlineA, @GetGlyphOutlineAHook, 'GetGlyphOutlineA'); // 훅 제외
// AddInterceptAPI(@ozGetGlyphOutlineW, @GetGlyphOutlineW, @GetGlyphOutlineWHook, 'GetGlyphOutlineW'); // 훅 제외
// AddInterceptAPI(@ozResetDCA, @ResetDCA, @ResetDCAHook, 'ResetDCA'); // 사용하지 않음
// AddInterceptAPI(@ozResetDCW, @ResetDCW, @ResetDCWHook, 'ResetDCW'); // 사용하지 않음
// AddInterceptAPI(@ozAlphaBlend, @AlphaBlend, @AlphaBlendHook, 'AlphaBlend'); // 훅 제외
// AddInterceptAPI(@ozGetTextMetricsA, @GetTextMetricsA, @GetTextMetricsAHook, 'GetTextMetricsA'); // 훅 제외
// AddInterceptAPI(@ozGetTextMetricsW, @GetTextMetricsW, @GetTextMetricsWHook, 'GetTextMetricsW'); // 훅 제외
// AddInterceptAPI(@ozGetTextExtentPoint32A, @GetTextExtentPoint32A, @GetTextExtentPoint32AHook, 'GetTextExtentPoint32A'); // 훅 제외
// AddInterceptAPI(@ozGetTextExtentPoint32W, @GetTextExtentPoint32W, @GetTextExtentPoint32WHook, 'GetTextExtentPoint32W'); // 훅 제외
// AddInterceptAPI(@ozGdiComment, @GdiComment, @GdiCommentHook, 'GdiComment'); // 훅 제외
// AddInterceptAPI(@ozGetCharABCWidthsA, @GetCharABCWidthsA, @GetCharABCWidthsAHook, 'GetCharABCWidthsA'); // 훅 제외
// AddInterceptAPI(@ozGetCharABCWidthsW, @GetCharABCWidthsW, @GetCharABCWidthsWHook, 'GetCharABCWidthsW'); // 훅 제외
// AddInterceptAPI(@ozExtEscape, @ExtEscape, @ExtEscapeHook, 'ExtEscape'); // 훅 제외
// AddInterceptAPI(@ozCreateCompatibleDC, @CreateCompatibleDC, @CreateCompatibleDCHook, 'CreateCompatibleDC'); // 훅 제외
// AddInterceptAPI(@ozCreateCompatibleBitmap, @CreateCompatibleBitmap, @CreateCompatibleBitmapHook, 'CreateCompatibleBitmap'); // 훅 제외
// 이거 활성화 하면 프린트 창이 안뜨고 죽는다 25_1001 19:27:29 kku
// AddInterceptAPI(@ozDrawTextA, @DrawTextA, @DrawTextAHook, 'DrawTextA');
// AddInterceptAPI(@ozDrawTextW, @DrawTextW, @DrawTextWHook, 'DrawTextW');
end;
end;
except
// ..
end;
end;
end.

223
Tocsg.Module/AppCtrl/DLL_AppCtrl/AppHookClient.pas Normal file
View File

@ -0,0 +1,223 @@
{*******************************************************}
{ }
{ AppHookClient }
{ }
{ Copyright (C) 2023 kku }
{ }
{*******************************************************}
unit AppHookClient;
interface
uses
Tocsg.ClientBase, System.Classes, WinApi.Windows, Tocsg.Packet,
System.SysUtils;
type
TAppHookClient = class(TTgClientBase)
protected
dwPid_,
dwLastSaveTick_: DWORD;
sModulePath_: String;
evDisconnected_: TNotifyEvent;
procedure ConnectedEvent; override;
procedure DisconnectedEvent; override;
procedure ProcessRcvPacket(aRcv: IRcvPacket); override;
public
Constructor Create;
property ModulePath: String write sModulePath_;
property OnDisconnected: TNotifyEvent write evDisconnected_;
end;
implementation
uses
{$IFDEF _BS1HP_}
BS1Hook,
{$ELSE}
AppHook,
{$ENDIF}
Tocsg.Exception, superobject, GlobalDefine, Tocsg.Process, Tocsg.WndUtil,
AppCtrlDefine, Tocsg.Json;
{ TAppHookClient }
Constructor TAppHookClient.Create;
begin
Inherited Create('', -1);
@evDisconnected_ := nil;
dwPid_ := GetCurrentProcessId;
dwLastSaveTick_ := 0;
end;
procedure TAppHookClient.ConnectedEvent;
var
Send: ISendPacket;
begin
try
// Inherited;
SetSendPauseState(false);
_Trace('Connected.');
Send := TTgPacket.Create(ACC_APP_INFO);
Send.I['PID'] := dwPid_;
Send.S['Path'] := sModulePath_;
SendPacket(Send);
except
on E: Exception do
ETgException.TraceException(Self, E, 'Fail .. ConnectedEvent()');
end;
end;
procedure TAppHookClient.DisconnectedEvent;
begin
try
Inherited;
QSendPacket_.Clear;
if Assigned(evDisconnected_) then
evDisconnected_(Self);
_Trace('Disconnected');
except
on E: Exception do
ETgException.TraceException(Self, E, 'Fail .. DisconnectedEvent()');
end;
end;
procedure TAppHookClient.ProcessRcvPacket(aRcv: IRcvPacket);
var
Send: ISendPacket;
procedure process_ACC_TEST_LOG;
begin
_Trace(aRcv.S['Msg']);
Send := TTgPacket.Create(aRcv);
Send.S['Msg'] := aRcv.S['Msg'] + ' 하하하';
SendPacket(Send);
end;
procedure process_ACC_SET_POLICY;
var
Opt: TAppCtrlOpt;
begin
try
if aRcv.O['Opt'] = nil then
exit;
ZeroMemory(@Opt, SizeOf(Opt));
with aRcv.O['Opt'] do
begin
Opt.sTaskDir := S['sTaskDir'];
Opt.dwCustomerType := I['dwCustomerType'];
Opt.hMainWnd := I['hMainWnd'];
// DRM
Opt.DrmAccessKind := TDrmAccessKind(I['DrmAccessKind']);
Opt.DrmModifyKind := TDrmAccessKind(I['DrmModifyKind']);
Opt.bDrmAttachAble := B['bDrmAttachAble'];
Opt.sDrmPass := S['sDrmPass'];
Opt.sUName := S['sUName'];
Opt.sEmpNo := S['sEmpNo'];
Opt.sDeptName := S['sDeptName'];
Opt.sIpAddr := S['sIpAddr'];
// Print
Opt.nFontSize := I['nFontSize'];
Opt.nLineCount := I['nLineCount'];
// Opt.sTextOutApp := S['sTextOutApp'];
// Opt.sTextOutDir := S['sTextOutDir'];
Opt.sPrtEmfOutDir := S['sPrtEmfOutDir'];
Opt.sPrintWaterImg := S['sPrintWaterImg'];
Opt.nPrintWaterAlpha := I['nPrintWaterAlpha'];
// Opt.sPrintWaterTxt := S['sPrintWaterTxt'];
Opt.bPrintSecu := B['bPrintSecu'];
Opt.bPrintWater := B['bPrintWater'];
Opt.bPrtCollect := B['bPrtCollect'];
Opt.sPrintWaterExp := S['sPrintWaterExp'];
Opt.fWmTran := D['fWmTran'];
// Opt.bPrintMasking := B['bPrintMasking'];
try
Opt.PrtWaterCfg := TTgJson.GetDataAsType<TPrtWaterCfg>(O['PrtWaterCfg']);
except
ZeroMemory(@Opt.PrtWaterCfg, SizeOf(Opt.PrtWaterCfg));
end;
// File
Opt.FileUseBlock := TFileUseBlock(I['FileUseBlock']);
Opt.bCheckUrl := B['bCheckUrl'];
Opt.bUseContentFilter := B['bUseContentFilter'];
Opt.bReadBlock := B['bReadBlock'];
Opt.bWriteBlock := B['bWriteBlock'];
Opt.bFileApproval := B['bFileApproval'];
Opt.bIgrNetPathAB := B['bIgrNetPathAB'];
Opt.bOpenDetect := B['bOpenDetect'];
if O['ShFileCrMon'] <> nil then
begin
Opt.ShFileCrMon.nKind := O['ShFileCrMon'].I['nKind'];
Opt.ShFileCrMon.bBlkNoti := O['ShFileCrMon'].B['bBlkNoti'];
Opt.ShFileCrMon.bMonNoti := O['ShFileCrMon'].B['bMonNoti'];
Opt.ShFileCrMon.sExpLst := O['ShFileCrMon'].S['sExpLst'];
end else
Opt.ShFileCrMon.nKind := 0;
// Noti
Opt.hRcvWnd := I['hRcvWnd'];
Opt.hTagWnd := I['hTagWnd'];
Opt.hCltWnd := I['hCltWnd'];
// ETC
Opt.sAcName := S['sAcName'];
Opt.sAcSSid := S['sAcSSid'];
Opt.sAipPath := S['sAipPath'];
Opt.bMtpWB := B['bMtpWB'];
Opt.sMtpRoExp := S['sMtpRoExp'];
Opt.bIsTest := B['bIsTest'];
end;
// Opt := TTgJson.GetDataAsType<TAppCtrlOpt>(aRcv.O['Opt']);
gAppHook.ProcessAppCtrlOpt(Opt);
except
//
end;
end;
procedure process_ACC_SAFE_TERMINATE_CLIENT;
begin
gAppHook.DoInterceptRemove;
Disconnect;
Sleep(3000);
// StopThread;
end;
procedure process_ACC_SET_CAPTURE_BLOCK;
begin
{$IFDEF _BS1HP_}
if gAppHook <> nil then
begin
if aRcv.B['Block'] then
gAppHook.AddCapBlockWnd(aRcv.I['Wnd'])
else
gAppHook.DelCapBlockWnd(aRcv.I['Wnd']);
end;
{$ENDIF}
end;
begin
try
case aRcv.Command of
ACC_TEST_LOG : process_ACC_TEST_LOG;
ACC_SET_POLICY : process_ACC_SET_POLICY;
ACC_SAFE_TERMINATE_CLIENT : process_ACC_SAFE_TERMINATE_CLIENT;
ACC_SET_CAPTURE_BLOCK : process_ACC_SET_CAPTURE_BLOCK;
end;
except
on E: Exception do
ETgException.TraceException(Self, E, 'Fail .. ProcessRcvPacket(), Cmd=%d', [aRcv.Command]);
end;
end;
end.

11
Tocsg.Module/AppCtrl/DLL_AppCtrl/Define.pas Normal file
View File

@ -0,0 +1,11 @@
unit Define;
interface
const
CLIENT_TYPE = 10001;
CLIENT_VER = '1';
implementation
end.

242
Tocsg.Module/AppCtrl/DLL_AppCtrl/ProcessWM.pas Normal file
View File

@ -0,0 +1,242 @@
{*******************************************************}
{ }
{ ProcessWatermark }
{ }
{ Copyright (C) 2025 kku }
{ }
{*******************************************************}
unit ProcessWM;
interface
uses
Winapi.Windows, System.Classes, Vcl.Graphics;
function ProcessWartermark(DC: HDC; bStartPage: Boolean = true): Boolean;
implementation
uses
AppCtrlDefine, ApiHookPrint, AppHook, Tocsg.Safe, System.SysUtils, Condition,
Tocsg.Graphic, Winapi.GDIPAPI, Tocsg.Convert;
function ProcessWartermark(DC: HDC; bStartPage: Boolean = true): Boolean;
var
nW, nH, i, nX, nY,
nGapW, nGapH, nDefDivFont: Integer;
sText: String;
MemCanvas: TCanvas;
hbmp, hOldBmp: HBITMAP;
pen: HPEN;
CtrlOpt: TAppCtrlOpt;
oldColor: TColor;
r: TRect;
begin
Result := true;
if _PrtDC <> DC then
exit;
// exit;
SaveDC(DC);
gAppHook.Helper.bIsWaterMaking_ := true;
try
try
if gAppHook.Helper.IsExcel then
begin
// 클리핑 제거 25_0605 14:51:11 kku
SelectClipRgn(DC, 0);
// 엑셀은 출력시트 설정에 따라 전체 영역으로 잡히는 않는 현상이 있다.. 24_0805 13:46:31 kku
nW := GetDeviceCaps(DC, HORZRES); // 세로모드 : 4961, 가로모드 : 7016, 크로미움 프린트 인쇄시 4760
nH := GetDeviceCaps(DC, VERTRES); // 세로모드 : 7016, 가로모드 : 4961, 크로미움 프린트 인쇄시 6814
// LogToReg('Step-1-excel', Format('W = %d, H = %d,', [nW, nH]));
end else
begin
// if bStartPage then // 이럴리 없겠지만 안전장치
// exit;
ZeroMemory(@r, SizeOf(r));
GetClipBox(DC, r);
nW := r.Width;
nH := r.Height;
// LogToReg('Step-1', Format('W = %d, H = %d,', [nW, nH]));
// LogToReg('Step-2', Format('W = %d, H = %d,', [GetDeviceCaps(DC, HORZRES), GetDeviceCaps(DC, VERTRES)]));
if nW = 0 then
nW := GetDeviceCaps(DC, HORZRES); // 세로모드 : 4961, 가로모드 : 7016, 크로미움 프린트 인쇄시 4760
if nH = 0 then
nH := GetDeviceCaps(DC, VERTRES); // 세로모드 : 7016, 가로모드 : 4961, 크로미움 프린트 인쇄시 6814
end;
// nX := GetDeviceCaps(DC, ASPECTX);
// nY := GetDeviceCaps(DC, ASPECTY);
// bStartPage := false;
Guard(MemCanvas, TCanvas.Create);
// if bStartPage then
// MemCanvas.Handle := CreateCompatibleDC(DC)
// else
MemCanvas.Handle := DC; //CreateCompatibleDC(DC);
hbmp := CreateCompatibleBitmap(MemCanvas.Handle, nW, nH);
hOldBmp := SelectObject(MemCanvas.Handle, hbmp);
// gAppHook.Log(Format('ProcessWartermark() - DocSize X=%d, Y=%d, W=%d, H=%d, dc=%d', [nX, nY, nW, nH, DC]));
// LogToReg('Step0', Format('ProcessWartermark() - DocSize X=%d, Y=%d, W=%d, H=%d, dc=%d', [nX, nY, nW, nH, DC]));
// if bStartPage then
// PatBlt(MemCanvas.Handle, 0, 0, nW, nH, WHITENESS);
// pen := CreatePen(PS_SOLID, 1, RGB(0, 255, 0));
// hOldBmp := SelectObject(MemCanvas.Handle, pen);
nGapW := 0;
nGapH := 0;
// SetBkMode(MemCanvas.Handle, TRANSPARENT);
// MemCanvas.Font.Orientation := 250;
MemCanvas.Font.Name := 'Tahoma';
if gAppHook.Helper.bSmallFont_ then
begin
if Pos('PDF', UpperCase(_sPrtName)) = 0 then
begin
// 일반 프린터에서만 밀리는 현상이 있어서 갭을 준다.. 24_0627 10:52:33 kku
nGapW := 19;
nGapH := 17;
end;
nDefDivFont := 180;
end else
begin
if gAppHook.Helper.bEndDocProc_ then
begin
if CompareText(gAppHook.ModuleName, 'winword.exe') = 0 then
nGapH := 70;
end;
nDefDivFont := 190;
end;
// 기본 폰트 조절
if nW > nH then
MemCanvas.Font.Size := nW div 180
else
MemCanvas.Font.Size := nH div 180;
oldColor := GetTextColor(DC);
// 폰트색 지정... 프로그램에 따라 지정되는 설정이 다르다
MemCanvas.Font.Color := clGray; // 메모장등
SetTextColor(DC, clGray); // 엑셀등
try
CtrlOpt := gAppHook.Helper.CtrlOpt;
// sText := CtrlOpt.sPrintWaterTxt;
with CtrlOpt do
begin
if CtrlOpt.sUName <> '' then
sText := Format('%s / %s / %s / %s', [sUName, sDeptName, sEmpNo, DateTimeToStr(Now)])
else if sDeptName <> '' then
sText := Format('%s / %s / %s', [sDeptName, sEmpNo, DateTimeToStr(Now)])
else
sText := Format('%s / %s', [sEmpNo, DateTimeToStr(Now)]);
end;
SetBkMode(MemCanvas.Handle, TRANSPARENT);
MemCanvas.Font.Color := clBlack;
MemCanvas.TextOut(nW - MemCanvas.TextWidth(sText) + nGapW,
nH - MemCanvas.TextHeight(sText) + nGapH, sText);
sText := gAppHook.Helper.sCurDocName_;
MemCanvas.TextOut(nGapW, nH - MemCanvas.TextHeight(sText) + nGapH, sText);
// <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
if nW < nH then
MemCanvas.Font.Size := nW div (nDefDivFont div 5) // 가운데 폰트 크기 키우려면 숫자를 키우면 됨
else
MemCanvas.Font.Size := nH div (nDefDivFont div 5);
MemCanvas.Font.Style := MemCanvas.Font.Style + [fsBold];
if _bmpWater = nil then
begin
sText := 'ToCSG BSOne';
_bmpWater := TBitmap.Create;
_bmpWater.SetSize(MemCanvas.TextWidth(sText), MemCanvas.TextHeight(sText));
_bmpWater.Canvas.Font.Assign(MemCanvas.Font);
_bmpWater.Canvas.Font.Color := clSilver;
_bmpWater.Canvas.TextOut(0, 0, sText);
_bmpWater.TransparentColor := clWhite;
_bmpWater.Transparent := true;
RotateBitmap_PlgBlt(_bmpWater, -0.8, true, clWhite);
end;
if _bmpWater <> nil then
begin
var cTrMatrix: TColorMatrix;
ZeroMemory(@cTrMatrix, SizeOf(cTrMatrix));
// 회색
// cTrMatrix[0][0] := 0.299;
// cTrMatrix[0][1] := 0.299;
// cTrMatrix[0][2] := 0.299;
// cTrMatrix[1][0] := 0.587;
// cTrMatrix[1][1] := 0.587;
// cTrMatrix[1][2] := 0.587;
// cTrMatrix[2][0] := 0.114;
// cTrMatrix[2][1] := 0.114;
// cTrMatrix[2][2] := 0.114;
// cTrMatrix[3][3] := 0.26; // 투명도 1.0 ~ 0.22
// cTrMatrix[4][4] := 1.0;
// 위 처럼하면 컬러랑 흑백이 섞인 출력의 경우 흑백에 로고가 안찍히는 문제 확인됨 24_0805 16:02:28 kku
cTrMatrix[0][0] := 1;
cTrMatrix[1][1] := 1;
cTrMatrix[2][2] := 1;
cTrMatrix[3][3] := BooleanToFloat(gAppHook.Helper.CtrlOpt.fWmTran <> 0.0, gAppHook.Helper.CtrlOpt.fWmTran, 0.26); // 투명도 1.0 ~ 0.22
// cTrMatrix[3][3] := 0.05; // 투명도 1.0 ~ 0.22
cTrMatrix[4][4] := 1;
Dec(nW, nGapW);
Dec(nH, nGapH);
nX := (nW div 4) - (_bmpWater.Width div 2);
nY := (nH div 4) - (_bmpWater.Height div 2);
if not gAppHook.Helper.IsExcel or
( gAppHook.Helper.IsExcel and bStartPage and not _bDoStartProc) or
( gAppHook.Helper.IsExcel and not bStartPage ) then
begin
DrawBitmapWaterEx(MemCanvas.Handle, nX, nY, _bmpWater, @cTrMatrix);
end;
end;
// <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
// if bStartPage then
// BitBlt(DC, 0, 0, nW, nH, MemCanvas.Handle, 0, 0, SRCCOPY);
SelectObject(MemCanvas.Handle, hOldBmp);
// DeleteObject(pen);
DeleteObject(hbmp);
// if bStartPage then
// DeleteDC(MemCanvas.Handle);
MemCanvas.Handle := 0;
finally
SetTextColor(DC, oldColor);
end;
// gAppHook.Log(Format('ProcessWartermark() - Completed, LastError=%d', [GetLastError]));
except
// 실패하면 출력 안되게 해준다 22_0907 14:28:52 kku
Result := false;
DeleteDC(DC);
end;
finally
gAppHook.Helper.bIsWaterMaking_ := false;
RestoreDC(DC, -1);
end;
end;
end.

56
Tocsg.Module/AppCtrl/EXE_AppCtrl/AppCtrl.dpr Normal file
View File

@ -0,0 +1,56 @@
program AppCtrl;
uses
Vcl.Forms,
Tocsg.Win32,
Tocsg.Safe,
Tocsg.Param,
Tocsg.Path,
Tocsg.Process,
Vcl.Dialogs,
System.SysUtils,
DAppCtrlMain in 'DAppCtrlMain.pas' {DlgAppCtrlMain},
AppCtrlServer in 'AppCtrlServer.pas',
Define in 'Define.pas',
AppCtrlDefine in '..\LIB_Common\AppCtrlDefine.pas',
Tocsg.DRM.Encrypt in '..\..\TocsgDRM\LIB_Common\Tocsg.DRM.Encrypt.pas',
Condition in '..\..\..\eCrmHE\LIB_Common\Condition.pas',
GlobalDefine in '..\..\..\eCrmHE\LIB_Common\GlobalDefine.pas';
{$R *.res}
var
mtx: TTgMutex;
param: TTgParam;
begin
ReportMemoryLeaksOnShutdown := DebugHook <> 0;
param := TTgParam.Create;
try
if param.ExistsParam('-hook') then
begin
var nResult := InjectModule(StrToIntDef(param.GetParamValue('-hook'), 0), GetRunExePathDir + DLL_APIHOOK);
if nResult <> 1 then
ShowMessage('Fail .. Code=' + IntToStr(nResult));
exit;
end else
if param.ExistsParam('-clearhook') then
begin
EjectModuleFromPath(GetRunExePathDir + DLL_APIHOOK);
Sleep(1000);
EjectModuleFromPath(GetRunExePathDir + DLL_APIHOOK);
exit;
end;
finally
param.Free;
end;
Guard(mtx, TTgMutex.Create(APP_MUTEX {$IFNDEF WIN64} + '32' {$ENDIF}));
if mtx.MutexState <> msCreateOk then
exit;
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(TDlgAppCtrlMain, DlgAppCtrlMain);
Application.Run;
end.

1159
Tocsg.Module/AppCtrl/EXE_AppCtrl/AppCtrl.dproj Normal file
View File

File diff suppressed because it is too large Load Diff

217
Tocsg.Module/AppCtrl/EXE_AppCtrl/AppCtrlServer.pas Normal file
View File

@ -0,0 +1,217 @@
{*******************************************************}
{ }
{ AppCtrlServer }
{ }
{ Copyright (C) 2023 kku }
{ }
{*******************************************************}
unit AppCtrlServer;
interface
uses
Tocsg.ClientBase, System.SysUtils, System.Classes, WinApi.Windows, Tocsg.Packet,
Winapi.Messages, Tocsg.Process.IPC, System.Generics.Collections,
AppCtrlDefine;
const
WM_NOTIFY_CONNECT_MODULE = WM_USER + 5938;
type
PCMEnt = ^TCMEnt;
TCMEnt = record // Connect Module
hPipe: THandle;
dwPid: DWORD;
sPName,
sPPath: String;
end;
TDcCMEnt = TDictionary<THandle,PCMEnt>;
TEvtSendCtrlOpt = procedure(pEnt: PCMEnt) of object;
TAppCtrlServer = class(TTgClientBase)
private
hRcvWnd_: HWND;
evSendCtrlOpt_: TEvtSendCtrlOpt;
procedure OnCMEntNotify(Sender: TObject; const Item: PCMEnt; Action: TCollectionNotification);
protected
DcCMEnt_: TDcCMEnt;
dwLastSaveTick_: DWORD;
procedure OnNpDisconnected(Sender: TTgNpBase; hPipe: THandle);
function HasCMEnt(hPipe: THandle): Boolean;
procedure ConnectedEvent; override;
procedure DisconnectedEvent; override;
procedure ProcessRcvPacket(aRcv: IRcvPacket); override;
public
Constructor Create(hRcvWnd: HWND);
Destructor Destroy; override;
function CountEnt: Integer;
function ActiveNp(sPipeName: String; bNpServer: Boolean): Boolean; override;
property OnSendCtrlOpt: TEvtSendCtrlOpt write evSendCtrlOpt_;
end;
implementation
uses
Tocsg.Exception, superobject, GlobalDefine, Tocsg.Path, Tocsg.Json;
{ TAppCtrlServer }
Constructor TAppCtrlServer.Create(hRcvWnd: HWND);
begin
Inherited Create('', -1);
hRcvWnd_ := hRcvWnd;
evSendCtrlOpt_ := nil;
dwLastSaveTick_ := 0;
DcCMEnt_ := TDcCMEnt.Create;
DcCMEnt_.OnValueNotify := OnCMEntNotify;
end;
Destructor TAppCtrlServer.Destroy;
begin
FreeAndNIl(DcCMEnt_);
Inherited;
end;
procedure TAppCtrlServer.OnCMEntNotify(Sender: TObject; const Item: PCMEnt; Action: TCollectionNotification);
begin
if Action = cnRemoved then
Dispose(Item);
end;
procedure TAppCtrlServer.OnNpDisconnected(Sender: TTgNpBase; hPipe: THandle);
begin
// ¿¬°á ¸ðµâ Á¾·á
if hRcvWnd_ <> 0 then
SendMessage(hRcvWnd_, WM_NOTIFY_CONNECT_MODULE, 0, hPipe);
Lock;
try
if DcCMEnt_.ContainsKey(hPipe) then
DcCMEnt_.Remove(hPipe);
finally
Unlock;
end;
end;
function TAppCtrlServer.HasCMEnt(hPipe: THandle): Boolean;
begin
Lock;
try
Result := DcCMEnt_.ContainsKey(hPipe);
finally
Unlock;
end;
end;
function TAppCtrlServer.CountEnt: Integer;
begin
Lock;
try
Result := DcCMEnt_.Count;
finally
Unlock;
end;
end;
function TAppCtrlServer.ActiveNp(sPipeName: String; bNpServer: Boolean): Boolean;
begin
Result := Inherited;
if bNpServer and Result and (NpIpc_ <> nil) then
NpIpc_.OnDisconnected := OnNpDisconnected;
end;
procedure TAppCtrlServer.ConnectedEvent;
var
Send: ISendPacket;
begin
try
// Inherited;
// SetSendPauseState(false);
_Trace('Connected.');
except
on E: Exception do
ETgException.TraceException(Self, E, 'Fail .. ConnectedEvent()');
end;
end;
procedure TAppCtrlServer.DisconnectedEvent;
begin
try
// Inherited;
QSendPacket_.Clear;
_Trace('Disconnected');
except
on E: Exception do
ETgException.TraceException(Self, E, 'Fail .. DisconnectedEvent()');
end;
end;
procedure TAppCtrlServer.ProcessRcvPacket(aRcv: IRcvPacket);
var
Send: ISendPacket;
procedure process_ACC_TEST_LOG;
begin
_Trace(aRcv.S['Msg']);
// Send := TTgPacket.Create(aRcv);
// Send.S['Msg'] := aRcv.S['Msg'] + ' ÇÏÇÏÇÏ';
// SendPacket(Send);
end;
procedure process_ACC_APP_INFO;
var
pEnt: PCMEnt;
sPath: String;
begin
if HasCMEnt(aRcv.Toss) then
begin
_Trace('Fail .. process_ACC_APP_INFO() .. Already PipeInfo');
exit;
end;
New(pEnt);
pEnt.hPipe := aRcv.Toss;
pEnt.dwPid := aRcv.I['PID'];
sPath := aRcv.S['Path'];
pEnt.sPName := ExtractFileName(sPath);
pEnt.sPPath := ExtractFilePath(sPath);
Lock;
try
DcCMEnt_.Add(pEnt.hPipe, pEnt);
finally
Unlock;
end;
if hRcvWnd_ <> 0 then
SendMessage(hRcvWnd_, WM_NOTIFY_CONNECT_MODULE, 1, NativeInt(pEnt));
// Send := TTgPacket.Create(ACC_SET_POLICY);
// Send.Toss := aRcv.Toss;
// Send.O['Opt'] := TTgJson.ValueToJsonObject<TAppCtrlOpt>(AppCtrlOpt_);
// SendPacket(Send);
if Assigned(evSendCtrlOpt_) then
evSendCtrlOpt_(pEnt);
end;
begin
try
case aRcv.Command of
ACC_TEST_LOG : process_ACC_TEST_LOG;
ACC_APP_INFO : process_ACC_APP_INFO;
ACC_SET_POLICY : ;
end;
except
on E: Exception do
ETgException.TraceException(Self, E, 'Fail .. ProcessRcvPacket(), Cmd=%d', [aRcv.Command]);
end;
end;
end.

BIN
Tocsg.Module/AppCtrl/EXE_AppCtrl/AppCtrl_Icon.ico Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 5.3 KiB

156
Tocsg.Module/AppCtrl/EXE_AppCtrl/DAppCtrlMain.dfm Normal file
View File

@ -0,0 +1,156 @@
object DlgAppCtrlMain: TDlgAppCtrlMain
Left = 0
Top = 0
Caption = 'AppCtrl'
ClientHeight = 360
ClientWidth = 438
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Segoe UI'
Font.Style = []
Position = poScreenCenter
TextHeight = 15
object pnTop: TPanel
Left = 0
Top = 0
Width = 438
Height = 41
Align = alTop
BevelOuter = bvNone
TabOrder = 0
ExplicitWidth = 434
object btnHook: TButton
Left = 0
Top = 10
Width = 113
Height = 25
Caption = 'APP '#51228#50612' '#49884#51089
TabOrder = 0
OnClick = btnHookClick
end
object Button2: TButton
Left = 168
Top = 10
Width = 75
Height = 25
Caption = 'Button2'
Enabled = False
TabOrder = 1
Visible = False
OnClick = Button2Click
end
object btnTestMsg: TButton
Left = 249
Top = 10
Width = 75
Height = 25
Caption = 'btnTestMsg'
TabOrder = 2
Visible = False
OnClick = btnTestMsgClick
end
end
object pnClient: TPanel
Left = 0
Top = 41
Width = 438
Height = 319
Align = alClient
BevelOuter = bvNone
TabOrder = 1
ExplicitWidth = 434
ExplicitHeight = 318
object GroupBox2: TGroupBox
Left = 0
Top = 0
Width = 438
Height = 105
Align = alTop
Caption = #51228#50612' '#45824#49345' APP'
TabOrder = 0
ExplicitWidth = 434
DesignSize = (
438
105)
object mmTgApp: TMemo
Left = 9
Top = 24
Width = 415
Height = 71
Anchors = [akLeft, akTop, akRight]
Lines.Strings = (
'chrome.exe|msedge.exe|Kakaotalk.exe')
ScrollBars = ssVertical
TabOrder = 0
ExplicitWidth = 411
end
end
object vtList: TVirtualStringTree
Left = 0
Top = 105
Width = 438
Height = 214
Align = alClient
Colors.BorderColor = 15987699
Colors.DisabledColor = clGray
Colors.DropMarkColor = 15385233
Colors.DropTargetColor = 15385233
Colors.DropTargetBorderColor = 15385233
Colors.FocusedSelectionColor = 15385233
Colors.FocusedSelectionBorderColor = 15385233
Colors.GridLineColor = 15987699
Colors.HeaderHotColor = clBlack
Colors.HotColor = clBlack
Colors.SelectionRectangleBlendColor = 15385233
Colors.SelectionRectangleBorderColor = 15385233
Colors.SelectionTextColor = clBlack
Colors.TreeLineColor = 9471874
Colors.UnfocusedColor = clGray
Colors.UnfocusedSelectionColor = clWhite
Colors.UnfocusedSelectionBorderColor = clWhite
Header.AutoSizeIndex = 0
Header.Options = [hoColumnResize, hoDrag, hoShowSortGlyphs, hoVisible]
HintMode = hmTooltip
ParentShowHint = False
ShowHint = True
TabOrder = 1
TreeOptions.PaintOptions = [toHideFocusRect, toShowButtons, toShowDropmark, toShowTreeLines, toThemeAware, toUseBlendedImages]
TreeOptions.SelectionOptions = [toFullRowSelect]
OnFreeNode = vtListFreeNode
OnGetText = vtListGetText
OnGetHint = vtListGetHint
OnGetNodeDataSize = vtListGetNodeDataSize
Touch.InteractiveGestures = [igPan, igPressAndTap]
Touch.InteractiveGestureOptions = [igoPanSingleFingerHorizontal, igoPanSingleFingerVertical, igoPanInertia, igoPanGutter, igoParentPassthrough]
Columns = <
item
Position = 0
Text = #48264#54840
end
item
Position = 1
Text = #54532#47196#49464#49828' '#51060#47492
Width = 130
end
item
Position = 2
Text = 'PID'
Width = 80
end
item
Position = 3
Text = #44221#47196
Width = 250
end>
end
end
object tMtx: TTimer
Enabled = False
Interval = 500
OnTimer = tMtxTimer
Left = 368
Top = 8
end
end

627
Tocsg.Module/AppCtrl/EXE_AppCtrl/DAppCtrlMain.pas Normal file
View File

@ -0,0 +1,627 @@
unit DAppCtrlMain;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls,
Tocsg.CommonData, Vcl.ExtCtrls, Vcl.Buttons, Tocsg.Win32, Tocsg.Controls,
Tocsg.Process, AppCtrlServer, Tocsg.Trace, GlobalDefine,
VirtualTrees, System.Generics.Collections, Tocsg.WndUtil, AppCtrlDefine;
const
START_HOOK_APPS = 'msedgewebview2.exe'; // 'RuntimeBroker.exe'; //'PhotosApp.exe|PhotosService.exe'; // 'msedgewebview2.exe'; // 'spoolsv.exe'; //'splwow64.exe';;
{$IFDEF WIN64}
DLL_APIHOOK = 'AppCtrl.dll';
LOG_FILE = 'AppCtrl.log';
{$ELSE}
DLL_APIHOOK = 'AppCtrl32.dll';
//{$IFDEF DEBUG}
// DLL_APIHOOK = 'AppCtrl.dll';
//{$ELSE}
// DLL_APIHOOK = 'AppCtrl32.dll';
//{$ENDIF}
LOG_FILE = 'AppCtrl32.log';
{$ENDIF}
MAP_FILENAME_APIHOOK = 'Global\AppCtrl64';
HOOK_MUTEX = 'Global\Mtx@220915&AppCtrl';
APP_MUTEX = 'Global\Mtx@220915APP';
WM_CATCH_DROPFILES = WM_USER + 7894;
TXT_DROPINFO = '$DrpFle.txt';
type
TInstallPrintHook = function: Integer; stdcall;
TUninstallPrintHook = function: Integer; stdcall;
PAppCtrlEnt = ^TAppCtrlEnt;
TAppCtrlEnt = record
MdInfo: TCMEnt;
end;
PAppInfoEnt = ^TAppInfoEnt;
TAppInfoEnt = record
dwPid: DWORD;
hMain: HWND;
end;
TDcAppInfo = TDictionary<String,PAppInfoEnt>;
TDlgAppCtrlMain = class(TForm)
tMtx: TTimer;
pnTop: TPanel;
pnClient: TPanel;
btnHook: TButton;
Button2: TButton;
GroupBox2: TGroupBox;
mmTgApp: TMemo;
btnTestMsg: TButton;
vtList: TVirtualStringTree;
procedure btnHookClick(Sender: TObject);
procedure tMtxTimer(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure btnTestMsgClick(Sender: TObject);
procedure vtListGetHint(Sender: TBaseVirtualTree; Node: PVirtualNode;
Column: TColumnIndex; var LineBreakStyle: TVTTooltipLineBreakStyle;
var HintText: string);
procedure vtListGetNodeDataSize(Sender: TBaseVirtualTree;
var NodeDataSize: Integer);
procedure vtListFreeNode(Sender: TBaseVirtualTree; Node: PVirtualNode);
procedure vtListGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
Column: TColumnIndex; TextType: TVSTTextType; var CellText: string);
private
{ Private declarations }
sHlpExe_,
sDllPath_: String;
bIsWow64_: Boolean;
MgCtrls_: TManagerInputControlsData;
TgAppList_,
TgAppList2_: TStringList;
ThdAppMon_: TThdProcessWatch;
ThdWndMon_: TThdActiveWndMon;
ProcList_: TProcessEntList;
PidList_: TProcessIdList;
bActive_: Boolean;
Server_: TAppCtrlServer;
Trace_: TTgTrace;
DcNode_: TDictionary<THandle,PVirtualNode>;
DcApp_: TDcAppInfo;
DefCtrlOpt_: TAppCtrlOpt;
procedure OnAppInfoNotify(Sender: TObject; const Item: PAppInfoEnt; Action: TCollectionNotification);
procedure OnAppNotify(aSender: TThdProcessWatch; pEnt: PPwEnt; aKind: TProcessWatchKind);
procedure OnWndNotify(aSender: TObject; hActiveWnd: HWND);
procedure FreeMon;
procedure ClearHook(bMore: Boolean = false);
procedure SafeFreeClient;
function StartHookWatch: Boolean;
function StopHookWatch: Boolean;
function GetCtrlOpt(sPName: String): TAppCtrlOpt;
procedure OnSendCtrlOpt(pEnt: PCMEnt);
public
{ Public declarations }
Constructor Create(aOwner: TComponent); override;
Destructor Destroy; override;
procedure process_WM_NOTIFY_CONNECT_MODULE(var msg: TMessage); Message WM_NOTIFY_CONNECT_MODULE;
end;
var
DlgAppCtrlMain: TDlgAppCtrlMain;
implementation
uses
Tocsg.Path, Tocsg.Safe, Vcl.Imaging.pngimage, Tocsg.WinInfo, Tocsg.Network,
Tocsg.Shell, Tocsg.Param, Winapi.TlHelp32, Tocsg.Exception,
Tocsg.Capture, Tocsg.Strings, Tocsg.User32, Tocsg.Packet, Tocsg.VTUtil,
Tocsg.Json, Condition;
{$R *.dfm}
Constructor TDlgAppCtrlMain.Create(aOwner: TComponent);
var
param: TTgParam;
sLogPath: String;
begin
Inherited Create(aOwner);
CUSTOMER_TYPE := CUSTOMER_DEV;
{$IFDEF Win64}
Caption := Caption + '64';
{$ELSE}
Caption := Caption + '32';
{$ENDIF}
sLogPath := GetRunExePathDir + LOG_FILE;
DeleteFile(PChar(sLogPath));
Trace_ := TTgTrace.Create(ExtractFilePath(sLogPath), ExtractFileName(sLogPath));
Server_ := nil;
MgCtrls_ := nil;
Guard(param, TTgParam.Create);
MgCtrls_ := TManagerInputControlsData.Create(CutFileExt(GetRunExePath) + '.ini');
MgCtrls_.RegInputCtrl(mmTgApp);
MgCtrls_.Load;
sDllPath_ := GetRunExePathDir + DLL_APIHOOK;
bIsWow64_ := IsWow64;
DcApp_ := TDcAppInfo.Create;
DcApp_.OnValueNotify := OnAppInfoNotify;
DcNode_ := TDictionary<THandle,PVirtualNode>.Create;
TgAppList_ := TStringList.Create;
TgAppList_.CaseSensitive := false;
TgAppList2_ := TStringList.Create;
TgAppList2_.CaseSensitive := false;
SplitString(START_HOOK_APPS, '|', TgAppList2_);
ThdAppMon_ := nil;
ThdWndMon_ := nil;
ProcList_ := TProcessEntList.Create;;
ProcList_.DetailInfo := false;
PidList_ := TProcessIdList.Create;
bActive_ := false;
sHlpExe_ := CutFileExt(GetRunExePath) + '32.exe';
if mmTgApp.Text = '' then
mmTgApp.Text := 'chrome.exe|msedge.exe';
ChangeWindowMessageFilter(WM_CATCH_DROPFILES, MSGFLT_ADD);
ZeroMemory(@DefCtrlOpt_, SizeOf(DefCtrlOpt_));
DefCtrlOpt_.sTaskDir := GetRunExePathDir + 'Task\';
DefCtrlOpt_.sUName := '김경덕'; //'김구진';
DefCtrlOpt_.sEmpNo := 'kdkim'; //'kjkim';
DefCtrlOpt_.sDeptName := 'BS솔루션부';
// DefCtrlOpt_.DrmAccessKind := dakAll;
DefCtrlOpt_.sDrmPass := GetMK(false);
DefCtrlOpt_.dwCustomerType := CUSTOMER_TYPE;
DefCtrlOpt_.nFontSize := 175;
DefCtrlOpt_.nLineCount := 4;
// DefCtrlOpt_.sTextOutApp := 'C:\taskToCSG\eCrmHE\OUT_Release - Win64\conf\BSWmcr.exe';
DefCtrlOpt_.sPrintWaterTxt := '이것은 워터마크입니다. This is watermark';
DefCtrlOpt_.sPrintWaterImg := 'C:\taskToCSG\Tocsg.Module\AppCtrl\OUT_Debug - Win64\LS 아이티씨 로고2.png';
// DefCtrlOpt_.nPrintWaterAlpha := 125;
// 워터마크 관련
// DefCtrlOpt_.sPrtEmfOutDir := 'C:\Users\kku\Desktop\TEST\_ColTest\';
// DefCtrlOpt_.bPrintSecu := true;
// DefCtrlOpt_.bPrintWater := true;
// DefCtrlOpt_.bDrmAttachAble := true;
// 파일 차단 관련
DefCtrlOpt_.FileUseBlock := fubBlock;
DefCtrlOpt_.bReadBlock := true;
DefCtrlOpt_.bWriteBlock := true;
// DefCtrlOpt_.bMtpWB := true;
ForceDirectories(DefCtrlOpt_.sTaskDir);
// ForceDirectories(DefCtrlOpt_.sTextOutDir);
{$IFDEF DEBUG}
// Button2.Enabled := true;
// Button2.Visible := true;
{$ENDIF}
end;
Destructor TDlgAppCtrlMain.Destroy;
begin
StopHookWatch;
FreeAndNil(MgCtrls_);
FreeAndNil(TgAppList2_);
FreeAndNil(TgAppList_);
FreeAndNil(DcNode_);
FreeAndNil(DcApp_);
FreeAndNil(PidList_);
FreeAndNil(ProcList_);
if Server_ <> nil then
FreeAndNil(Server_);
FreeAndNil(Trace_);
Inherited;
end;
procedure TDlgAppCtrlMain.FreeMon;
begin
if ThdAppMon_ <> nil then
begin
ThdAppMon_.OnProcessWatchNotify := nil;
FreeAndNil(ThdAppMon_);
end;
if ThdWndMon_ <> nil then
begin
ThdWndMon_.OnActiveWndNotify := nil;
FreeAndNil(ThdWndMon_);
end;
PidList_.Clear;
DcApp_.Clear;
end;
procedure TDlgAppCtrlMain.OnAppInfoNotify(Sender: TObject; const Item: PAppInfoEnt; Action: TCollectionNotification);
begin
if Action = cnRemoved then
Dispose(Item);
end;
procedure TDlgAppCtrlMain.OnAppNotify(aSender: TThdProcessWatch; pEnt: PPwEnt; aKind: TProcessWatchKind);
var
nIdx: Integer;
begin
case aKind of
pwkUnknown : {$IFDEF DEBUG} ASSERT(false) {$ENDIF};
pwkInit,
pwkExecute :
begin
if TgAppList2_.IndexOf(pEnt.sPName) = -1 then
exit;
if (GetProcessNameByPid(pEnt.dwPPid).ToUpper <> 'MS-TEAMS.EXE') and
(GetProcessNameByPid(pEnt.dwPPid).ToUpper <> 'OLK.EXE') then
exit;
if InjectModule(pEnt.dwPid, sDllPath_, @bIsWow64_) > 0 then
begin
TTgTrace.T('InjectModule() .. PName="%s", PID=%d, PPID=%d', [pEnt.sPName, pEnt.dwPid, pEnt.dwPPid]);
end else begin
{$IFDEF WIN64}
if FileExists(sHlpExe_) then
ExecutePath(sHlpExe_, Format('-hook %d', [pEnt.dwPid]));
{$ENDIF}
TTgTrace.T('Fail .. InjectModule() .. PName="%s"', [pEnt.sPName]);
end;
end;
pwkTerminated :
begin
nIdx := PidList_.IndexOf(pEnt.dwPid);
if nIdx <> -1 then
begin
PidList_.Delete(nIdx);
Trace_.T('종료됨 .. PName=%s', [pEnt.sPName]);
end;
if DcApp_.ContainsKey(UpperCase(pEnt.sPName)) then
DcApp_.Remove(UpperCase(pEnt.sPName));
end;
end;
end;
procedure TDlgAppCtrlMain.OnWndNotify(aSender: TObject; hActiveWnd: HWND);
var
dwPid: DWORD;
sPName: String;
pEnt: PProcessEntInfo;
pApp: PAppInfoEnt;
begin
try
dwPid := GetProcessPIDFromWndHandle(hActiveWnd);
if dwPid = 0 then
exit;
if PidList_.IndexOf(dwPid) <> -1 then
exit;
ProcList_.UpdateProcessList;
pEnt := ProcList_.GetProcInfoByPid(dwPid);
if pEnt <> nil then
begin
sPName := ExtractFileName(pEnt.sModuleFileName);
if TgAppList_.IndexOf(sPName) = -1 then
begin
// PidList_.Add(dwPid);
exit;
end;
case GetExeFileArchitectFromePath(pEnt.sModuleFileName) of
eakNoExe :
begin
if InjectModule(dwPid, sDllPath_, @bIsWow64_) > 0 then
begin
{$IFDEF DEBUG}
TTgTrace.T('InjectModule() .. PName="%s"', [sPName]);
{$ENDIF}
PidList_.Add(dwPid);
end else begin
if FileExists(sHlpExe_) then
begin
{$IFDEF DEBUG}
TTgTrace.T('InjectModule32() .. PName="%s"', [sPName]);
{$ENDIF}
ExecutePath(sHlpExe_, Format('-hook %d', [dwPid]));
PidList_.Add(dwPid);
end;
{$IFDEF DEBUG}
TTgTrace.T('Fail .. InjectModule() .. PName="%s"', [sPName]);
{$ENDIF}
end;
end;
eak32 :
begin
if FileExists(sHlpExe_) then
begin
{$IFDEF DEBUG}
TTgTrace.T('InjectModule32() ... PName="%s"', [sPName]);
{$ENDIF}
ExecutePath(sHlpExe_, Format('-hook %d', [dwPid]));
PidList_.Add(dwPid);
end else
TTgTrace.T('Fail .. Not found exe .. HlpExe="%s"', [sHlpExe_]);
end;
eak64 :
if InjectModule(dwPid, sDllPath_, @bIsWow64_) > 0 then
begin
{$IFDEF DEBUG}
TTgTrace.T('InjectModule() .. PName="%s"', [sPName]);
{$ENDIF}
PidList_.Add(dwPid);
end else
TTgTrace.T('Fail .. InjectModule() ... PName="%s"', [sPName]);
end;
if not DcApp_.ContainsKey(UpperCase(pEnt.sModuleBaseName)) then
begin
New(pApp);
pApp.dwPid := pEnt.dwPid;
pApp.hMain := hActiveWnd;
DcApp_.Add(UpperCase(pEnt.sModuleBaseName), pApp);
end;
end;
except
on E: Exception do
ETgException.TraceException(Self, E, 'Fail .. OnWndNotify()');
end;
end;
procedure TDlgAppCtrlMain.ClearHook(bMore: Boolean = false);
begin
//exit;
if FileExists(sHlpExe_) then
ExecutePath_hide(sHlpExe_, '-clearhook');
EjectModuleFromPath2(sDllPath_, 'msedgewebview2.exe');
if bMore then
begin
Sleep(1000);
EjectModuleFromPath2(sDllPath_, 'msedgewebview2.exe');
end;
end;
procedure TDlgAppCtrlMain.SafeFreeClient;
var
nTO: Integer;
begin
if Server_ <> nil then
begin
// 안전 제거를 위해 종료를 미리 알림 23_0315 14:02:46 kku
// Server_.SendPacket(TTgPacket.Create(ACC_SAFE_TERMINATE_CLIENT));
//
// nTO := 0;
// while (Server_.CountEnt > 0) and (nTO < 10) do
// begin
// Inc(nTO);
// Sleep(500);
// Application.ProcessMessages;
// end;
FreeAndNil(Server_);
end;
end;
function TDlgAppCtrlMain.StartHookWatch: Boolean;
begin
Result := false;
try
if (ThdAppMon_ <> nil) and (ThdWndMon_ <> nil) then
exit;
if Server_ <> nil then
FreeAndNil(Server_);
Server_ := TAppCtrlServer.Create(Handle);
Server_.OnSendCtrlOpt := OnSendCtrlOpt;
if Server_.ActiveNp('NpAppCtrl', true) then
Server_.ConnectNp;
FreeMon;
ClearHook;
ThdAppMon_ := TThdProcessWatch.Create(false);
ThdAppMon_.OnProcessWatchNotify := OnAppNotify;
ThdAppMon_.StartThread;
ThdWndMon_ := TThdActiveWndMon.Create(false);
ThdWndMon_.OnActiveWndNotify := OnWndNotify;
ThdWndMon_.StartThread;
// EjectModuleFromPath(sDllPath_);
SplitString(mmTgApp.Text, '|', TgAppList_);
bActive_ := true;
Result := true;
except
on E: Exception do
ETgException.TraceException(Self, E, 'Fail .. StartHookWatch()');
end;
end;
function TDlgAppCtrlMain.StopHookWatch: Boolean;
begin
Result := false;
try
if (ThdAppMon_ = nil) and (ThdWndMon_ = nil) then
exit;
FreeMon;
SafeFreeClient;
ClearHook(true);
bActive_ := false;
VT_Clear(vtList);
DcNode_.Clear;
Result := true;
except
on E: Exception do
ETgException.TraceException(Self, E, 'Fail .. StopHookWatch()');
end;
end;
function TDlgAppCtrlMain.GetCtrlOpt(sPName: String): TAppCtrlOpt;
begin
sPName := UpperCase(sPName);
Result := DefCtrlOpt_;
if Server_ <> nil then
Result.hTagWnd := Server_.GetSelfWnd
else
Result.hTagWnd := 0;
// if DcApp_.ContainsKey(sPName) then
// Result.hCltWnd := DcApp_[sPName].hMain;
end;
procedure TDlgAppCtrlMain.OnSendCtrlOpt(pEnt: PCMEnt);
var
Send: ISendPacket;
begin
try
Send := TTgPacket.Create(ACC_SET_POLICY);
Send.Toss := pEnt.hPipe;
Send.O['Opt'] := TTgJson.ValueToJsonObject<TAppCtrlOpt>(GetCtrlOpt(pEnt.sPName));
Server_.SendPacket(Send);
except
on E: Exception do
ETgException.TraceException(Self, E, 'Fail .. OnSendCtrlOpt()');
end;
end;
procedure TDlgAppCtrlMain.tMtxTimer(Sender: TObject);
begin
if not MutexExists(HOOK_MUTEX) then
Close;
end;
procedure TDlgAppCtrlMain.vtListFreeNode(Sender: TBaseVirtualTree;
Node: PVirtualNode);
var
pData: PAppCtrlEnt;
begin
pData := Sender.GetNodeData(Node);
Finalize(pData^);
end;
procedure TDlgAppCtrlMain.vtListGetHint(Sender: TBaseVirtualTree;
Node: PVirtualNode; Column: TColumnIndex;
var LineBreakStyle: TVTTooltipLineBreakStyle; var HintText: string);
begin
HintText := vtList.Text[Node, Column];
end;
procedure TDlgAppCtrlMain.vtListGetNodeDataSize(Sender: TBaseVirtualTree;
var NodeDataSize: Integer);
begin
NodeDataSize := SizeOf(TAppCtrlEnt);
end;
procedure TDlgAppCtrlMain.vtListGetText(Sender: TBaseVirtualTree;
Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
var CellText: string);
var
pData: PAppCtrlEnt;
begin
pData := Sender.GetNodeData(Node);
case Column of
0 : CellText := IntToStr(Node.Index + 1);
1 : CellText := pData.MdInfo.sPName;
2 : CellText := IntToStr(pData.MdInfo.dwPid);
3 : CellText := pData.MdInfo.sPPath;
end;
end;
procedure TDlgAppCtrlMain.btnHookClick(Sender: TObject);
begin
if not bActive_ then
begin
mmTgApp.Text := Trim(mmTgApp.Text);
if mmTgApp.Text = '' then
begin
MessageBox(Handle, PChar('제어 대상 APP을 입력해 주십시오.'), PChar(Caption), MB_ICONWARNING or MB_OK);
exit;
end;
MgCtrls_.Save;
if not StartHookWatch then
begin
MessageBox(Handle, PChar('DLL을 로드하는 중 실패했습니다.'), PChar(Caption), MB_ICONWARNING or MB_OK);
exit;
end;
MessageBox(Handle, PChar('APP 제어가 시작 되었습니다.'), PChar(Caption), MB_ICONINFORMATION or MB_OK);
end else begin
StopHookWatch;
MessageBox(Handle, PChar('APP 제어가 중지 되었습니다.'), PChar(Caption), MB_ICONINFORMATION or MB_OK);
end;
if bActive_ then
begin
btnHook.Caption := 'APP 제어 중지';
end else begin
btnHook.Caption := 'APP 제어 시작';
end;
Application.ProcessMessages;
end;
procedure TDlgAppCtrlMain.btnTestMsgClick(Sender: TObject);
var
Send: ISendPacket;
begin
Send := TTgPacket.Create(ACC_TEST_LOG);
Send.S['Msg'] := '안녕하세요.';
Server_.SendPacket(Send);
end;
procedure TDlgAppCtrlMain.Button2Click(Sender: TObject);
begin
ShowMessage(IntToStr(EjectModuleFromPath(GetRunExePathDir + DLL_APIHOOK)));
end;
procedure TDlgAppCtrlMain.process_WM_NOTIFY_CONNECT_MODULE(var msg: TMessage);
var
pEnt: PCMEnt;
pNode: PVirtualNode;
pData: PAppCtrlEnt;
begin
try
vtList.BeginUpdate;
try
if msg.WParam = 1 then
begin
// 연결
pEnt := PCMEnt(msg.LParam);
ASSERT(not DcNode_.ContainsKey(pEnt.hPipe));
pData := VT_AddChildDataN(vtList, pNode);
pData.MdInfo := pEnt^;
DcNode_.Add(pData.MdInfo.hPipe, pNode);
end else begin
// 종료
if DcNode_.ContainsKey(msg.LParam) then
begin
pNode := DcNode_[msg.LParam];
DcNode_.Remove(msg.LParam);
vtList.DeleteNode(pNode);
end;
end;
finally
vtList.EndUpdate;
end;
except
on E: Exception do
ETgException.TraceException(Self, E, 'Fail .. process_WM_NOTIFY_CONNECT_MODULE()');
end;
end;
end.

19
Tocsg.Module/AppCtrl/EXE_AppCtrl/Define.pas Normal file
View File

@ -0,0 +1,19 @@
{*******************************************************}
{ }
{ Define }
{ }
{ Copyright (C) 2023 kku }
{ }
{*******************************************************}
unit Define;
interface
const
CLIENT_TYPE = 10001;
CLIENT_VER = '1';
implementation
end.

709
Tocsg.Module/AppCtrl/LIB_Common/AppCtrlDefine.pas Normal file
View File

@ -0,0 +1,709 @@
{*******************************************************}
{ }
{ AppCtrlDefine }
{ }
{ Copyright (C) 2023 kku }
{ }
{*******************************************************}
unit AppCtrlDefine;
interface
uses
{$IF Defined(_HE_) or Defined(_BS1HP_)}
GlobalDefine,
{$IFEND}
Tocsg.DRM.Encrypt, Tocsg.Obj, Winapi.Windows, System.Classes, System.SysUtils,
System.SyncObjs, Vcl.Graphics, System.Generics.Collections;
const
// \Personalization\Governance\|\Personalization\UserFacts\|\Personalization\Content\ >> \Personalization\
IGNORE_ATTACH_BLOCK_PATHS = ':\ProgramData\|:\Program Files\|:\Program Files (x86)\|:\Windows\|:\Users\Default\AppData\|' + // 이건 넘 범용적인데 일단 넣음
':\Windows\System32\|\WINDOWS\FONTS\|:\ProgramData\NVIDIA Corporation\|' +
'\Microsoft Office\|:\Windows\Microsoft.NET\|\Microsoft\Internet Explorer\|\WebServiceCache\|' +
'\AppData\Local\|\AppData\LocalLow\|:\ProgramData\Microsoft\Windows Defender\|\\.\|:\Program Files\Google\|' +
'\AppData\Roaming\|:\Program Files\Common Files\|\\?\|' +
'\\.\MOUNTPOINTMANAGER|:\PROGRAM FILES\GOOGLE\|:\WINDOWS\ASSEMBLY\|:\PROGRAM FILES (X86)\COMMON FILES\|' +
'\MyGuard\LOG\|\DesktopCentral_Agent\|\Program Files\chrome_BITS_|\Program Files (x86)\chrome_BITS_|' +
'\Manufacturer\Endpoint Agent\|\Microsoft\FORMS\|\Outlook\Offline Address Books\|\Lync\Tracing\|' +
'\Outlook\RoamCache\|\Microsoft\MSIPC\Logs\|ptnsch.dat|:\Windows\SysWOW64\|picpick.ini|\Dropbox\Client\|' +
'\Google\GoogleUpdater\|\Windows\WER\Temp\|\Local\Packages\|\Temp\System32\|\ofv1root\|\OTele\|' +
'\TokenBroker\Cache\|\DisplayForm\|\Personalization\|\Wef\{|\Microsoft\FontCache\|\Temp\Diagnostics\|' +
'\INetCache\IE\|\INetCache\Low\|\INetCache\Virtualized\|\Content.MSO\|\Content.Word\|' +
'\OneAuth\accounts\|\Floodgate\|\Opera Stable\|\Firefox\Profiles\|\WINDOWS\SystemTemp\|' +
'\ProgramData\Microsoft\Windows\|\Adobe\Acrobat DC\|\Globalization\ELS\|\WINDOWS\SysNative\|' +
'\DGAgent\|\FireEye\|\Java\Deployment\cache\|:\WWNTUSER\|\Administrator\Favorites\|' +
'\WeChat Files\|eCrmHeHelper.dll|eCrmHeHelper32.dll|eCrmHeHelperf.dll|eCrmHeHelper32f.dll|' +
'Chakra.ini|ChakraRules.ini|ChakraInfo-1.ini|ChakraGateWay.ini';
OPENDLG_WORDS = '파일|열기|다른|OPEN|SAVE|첨부|打开|打開';
IGNORE_ATTACH_BLOCK_EXTS_WB = 'CPL|PMA|manifest|PCKGDEP|API|tbres|ost|' +
'oab|db|xml|db-shm|db-wal|metadata|db-shm|db-journal|tbreq|TTF|OTF|vivaldi_reporting_data'; // |htm|html
IGNORE_ATTACH_BLOCK_EXTS = 'DLL|LNK|ICO|QMLC|' + IGNORE_ATTACH_BLOCK_EXTS_WB;
{$IF Defined(_HE_) or Defined(_BS1HP_)}
APP_WEB_BROWSERS = WEB_BROWSERS;
{$ELSE}
APP_WEB_BROWSERS = 'iexplore.exe|msedge.exe|whale.exe|chrome.exe|firefox.exe|opera.exe';
{$IFEND}
APP_MSOFFICE = 'winword.exe|excel.exe|powerpnt.exe';
IGNORE_WEB_AB_FILES = 'debug.log|icudtl.dat|preloaded_data.pb|messages.json|CHROME.LNK|' +
'msedge.lnk|firefox.lnk|opera.lnk|mip_config.json|kernel32.pdb|ntdll.pdb|ntdll.pdb';
DRM_EXTS = 'TXT|LOG|DOC|WPS|PDF|XLS|PPT|HWP|HWPX|DOCX|DOTX|XLSX|XLTX|PPTX|POTX|' +
'PPSX|HW|RTF|MW|OW| WP|WP4|WPD|WOP|WM|PW|WMF|WS|WSD|DIF|MWK|W40|WDB|CSV|' +
'WS2|SMTP|EML|MBX|STE|AW|UNI|WKS|WK1|WK3|WK4|FM3|LWP|MWP|XLC|XLM|123|PWD|' +
'MPP|VSD|MSG|OFT|VDX|SXW|SXC|STC|SXI|NSF|DOCM|DOTM|XLSM|XLTM|XLAM|PPTM|' +
'POTM|PPSM|PPAM|XLSB|XPS|DXL|ODT|ODS|ODP|ONM|GRV|PAGES|NUMBERS|KEY|XDW|' +
'ONE|DCM|MLS|ML3|ML4|ML5|ML6|ML7|ML8|ML9|MLA|EMCMF|ACCDT|GUL|JNT|MAT|FIG|' +
'OLM|VCF|ICS|VCS|IWA|VSSX|VSTX|VSTM|SDW|SGL|VOR|SDC|SDD|SDA|SMF|YML|SCPT|' +
'MB|JT|MO|QM|IV|PBIX|IBOOKS|FDF|XFDF|MSO|RSS|SMIL|XSPF|FB2|PPJ|RDF|RSD|SBML|' +
'SRU|SSML|PLS|TEI|METS|MODS|OPF|SRGS|SRX|VXML|CCXML|YIN|CML|VTU|SXD|SXG|ODM|' +
'OTH|FODP|FODS|FODT|OXT|SVM|XDF|HTM|HTML|ASF|MHT|MHTML|MXML|MXL|XML|ASP|METALINK|XDP|XUL';
DRM_SUPPORT_APPS = 'EXCEL.EXE|WINWORD.EXE|POWERPNT.EXE|hwp.exe|notepad.exe|notepad++.exe|' +
'Acrobat.exe|AcroRd32.exe|HwpViewer.exe';//|FoxitPDFReader.exe|FoxitPDFEditor.exe';
{$IFDEF DEBUG}
// 크롬 제거
// PRINT_SUPPORT_APPS = 'EXCEL.EXE|WINWORD.EXE|POWERPNT.EXE|hwp.exe|' + //'msedge.exe|' +
PRINT_SUPPORT_APPS = 'EXCEL.EXE|WINWORD.EXE|POWERPNT.EXE|hwp.exe|' + // 'chrome.exe|msedge.exe|whale.exe|' +
'Evernote.exe|mspaint.exe|Acrobat.exe|Honeyview.exe|notepad.exe|notepad++.exe|' +
'AcroRd32.exe|RdrCEF.exe|AcroCEF.exe|Hword.exe|Hpdf.exe|HCell.exe|HShow.exe|' +
'NeoiCube.exe|MSIP.Viewer.exe|FoxitPDFReader.exe|FoxitPDFEditor.exe|' +
'ALPDF.exe|wordpad.exe';
{$ELSE}
PRINT_SUPPORT_APPS = 'EXCEL.EXE|WINWORD.EXE|POWERPNT.EXE|hwp.exe|' + //'chrome.exe|msedge.exe|whale.exe|' +
'Evernote.exe|mspaint.exe|Acrobat.exe|Honeyview.exe|notepad.exe|notepad++.exe|' +
'AcroRd32.exe|RdrCEF.exe|AcroCEF.exe|Hword.exe|Hpdf.exe|HCell.exe|HShow.exe|' +
'NeoiCube.exe|MSIP.Viewer.exe|FoxitPDFReader.exe|FoxitPDFEditor.exe|' +
'scdmis.exe|scd_erp.exe|ALPDF.exe|wordpad.exe';
{$ENDIF}
RPINT_SUPPORT_APPS_HEC = 'EXCEL.EXE|WINWORD.EXE|POWERPNT.EXE|Acrobat.exe|AcroRd32.exe|AcroCEF.exe|' +
'MSIP.Viewer.exe|FoxitPDFReader.exe|FoxitPDFEditor.exe';
PRINT_PATH_EXT = 'DOC|DOCX|PPT|PPTX|XLS|XLSX|TXT|RTF|LOG|PDF|JPG|JPEG|PSD|' +
'BMP|PNG|HWP|HWPX|HTML|HTM|XML';
WEB_AB_DELAY_EXT = 'PDF|PPT|PPTX|DOC|DOCX|XLS|XLSX|CSV|TXT|HWP|JPG|JPEG|GIF|PNG|JFIF|SVG';
{$IFNDEF _HE_}
PASS_DRM_HEAD: AnsiString = '#df12mf8(zfq@'; // KvCttSch.exe (ThdCttSch.pas)에서 사용, 수정 시 주의
PASS_DRM_DATA: AnsiString = ':0A2CCABB38C8AD80963A5B1A668ECF9D99270819F1EEE2045B554E81043CCEC3E1E11851D7DE9C65F73F327E3E9585DA'; // 'M}[8k(Ga1/<;LE1j&q';
SIG_DRM: AnsiString = 'ToCSG';
PASS_STRENC = '(skd82_sl9+a'; // KvCttSch.exe (ThdCttSch.pas)에서 사용, 수정 시 주의
{$ENDIF}
SMALL_FONT = 'chrome.exe|msedge.exe|Evernote.exe';
// START_PROCESS = 'excel.exe';
END_PROCESS = 'chrome.exe|msedge.exe|Honeyview.exe|POWERPNT.EXE|' + // 'ApplicationFrameHost.exe|' +
'mspaint.exe|AcroRd32.exe|Acrobat.exe|Evernote.exe';
WORD_GAP = ' ';
ACC_TEST_LOG = 1001;
ACC_APP_INFO = 1002;
ACC_SET_POLICY = 1003;
ACC_SAFE_TERMINATE_CLIENT = 1004;
ACC_NOTI_MSG = 1005;
ACC_SET_CAPTURE_BLOCK = 1006;
type
TCurAppType = (catNormal, catOutlook, catWebb, catMsOffice, catHwp, catExplorer,
catAdobeReader, catNotepad, catPPT, catkvHelper, catwinscp, catBizbox, catFilezilla,
catChrome, catMsedge, catMswebv, catOlk);
TDrmHeadInfo = record
sEmpNo,
sHostName,
sPartName,
sPgName: String;
dwCustomerCode: DWORD;
end;
PDrmFileInfo = ^TDrmFileInfo;
TDrmFileInfo = record
hFile: THandle;
sOrgPath,
sDecPath: String;
bChgRO,
bModified,
bModifyAble: Boolean;
// Head 없앰 24_0814 09:06:42 kku
HeadInfo: TDrmHeadInfo;
end;
{$IF not Defined(_HE_) and not Defined(_BS1HP_)}
TDrmAccessKind = (dakNone, dakEmpNo, dakDept, dakAll);
TPrtWaterCfg = record
bActive: Boolean;
sTopText,
sBotText: String;
nTopSize,
nBotSize,
nTopPos,
nBotPos: Integer
end;
TShFileCrMon = record
sMode: String; // secu, sleep, vul, off, exp
nKind: Integer; // 0 : none, 1 : monitor, 2 : block
bBlkNoti,
bMonNoti: Boolean;
sExpLst: String;
end;
{$IFEND}
TFileUseBlock = (fubNone, fubBlock, fubMonitor);
TAppCtrlOpt = record
sTaskDir: String;
dwCustomerType: DWORD;
hMainWnd: HWND;
// DRM
DrmAccessKind,
DrmModifyKind: TDrmAccessKind;
bDrmAttachAble: Boolean;
sDrmPass,
sUName,
sEmpNo,
sDeptName: String;
// Print
nFontSize,
nLineCount,
nPrintWaterAlpha: Integer;
fWmTran: Double; // 투명도
// sTextOutApp,
// sTextOutDir,
sPrtEmfOutDir,
sIpAddr,
sPrintWaterImg,
sPrintWaterExp: String;
bPrintSecu,
bPrintWater,
bPrtCollect: Boolean;
PrtWaterCfg: TPrtWaterCfg;
// File WebbAB
FileUseBlock: TFileUseBlock;
bCheckUrl,
bUseContentFilter,
bReadBlock,
bWriteBlock,
bFileApproval,
bIgrNetPathAB,
bOpenDetect: Boolean;
ShFileCrMon: TShFileCrMon;
// Noti
hRcvWnd,
hTagWnd,
hCltWnd: HWND; // 캡쳐 방지 윈도우 메인값
// 기타, 테스트를 위한 기능
sAccount,
sAcName,
sAcSSid,
sAipPath: String;
bMtpWB: Boolean;
sMtpRoExp: String;
bIsTest: Boolean;
end;
TAppCtrlHelper = class(TTgObject)
private
CS_: TCriticalSection;
CurAppType_: TCurAppType;
CurAppDetailType_ : TCurAppType;
bForceEncSave_: Boolean;
DrmExtList_,
IgrAttBlkExts_,
OpenDlgWordList_,
IgrAttBlkWebFiles_,
IgrAttBlkPaths_: TStringList;
DcDecPath_: TDictionary<String,String>;
DcDrmFI_: TDictionary<THandle,PDrmFileInfo>;
bDrmSupport_,
bDrmUseBoxedApp_: Boolean;
CtrlOpt_: TAppCtrlOpt;
sAppName_,
sDllPath_: String;
dwPid_: DWORD;
IgrReadL_,
IgrWriteL_: TList<THandle>;
bIsExcel_: Boolean;
FoExpList_,
NetDrvList_,
MtpRoExpList_: TStringList;
sMtpRoExpList_: String;
// 브라우저 파일 차단할때 바로열기 체크, 지연처리를 위함
// WebAbOpenDelayExtList_: TStringList;
procedure Lock;
procedure Unlock;
procedure OnDrmFileNotify(Sender: TObject; const Item: PDrmFileInfo; Action: TCollectionNotification);
function GetCtrlOpt: TAppCtrlOpt;
procedure SetCtrlOpt(aOpt: TAppCtrlOpt);
public
hOpenDlgWnd_: HWND;
RecentDrmFI_: TDrmFileInfo; // MS오피스 저장 파일 암호화를 위함
// 프린트 관련 임시 저장
nPtrCnt_: Integer;
sPtrText_,
sCurDocName_: String;
bSmallFont_,
bBothDocProc_, // StartPage, EndPage 두번 처리 23_1024 11:02:43 kku
bEndDocProc_,
bIsPrinting_,
bIsWaterMaking_: Boolean;
// DRM 관련 임시 저장
dwRecentOpenCustomType_: DWORD;
sRecentOpenPath_,
sRecentOpenEmpNo_,
sRecentOpenDeptName_: String;
// 파일 쓰기 차단 체크
sRecentWrBkPath_: String;
nRecentWrBkCnt_: Integer;
sPrintWaterTxt: String;
Constructor Create(sAppPath: String);
Destructor Destroy; override;
function IsNetPath(sPath: String): Boolean;
procedure NoDrmUse;
// todo : 사용하지 않을거 같음 24_0122 14:18:40 kku
procedure AddIgrReadFile(aFile: THandle);
procedure DelOgrReadFile(aFile: THandle);
function IsIgrReadFile(aFile: THandle): Boolean;
// todo : 사용하지 않을거 같음 24_0122 14:18:40 kku
procedure AddIgrWriteFile(aFile: THandle);
procedure DelOgrWriteFile(aFile: THandle);
function IsIgrWriteFile(aFile: THandle): Boolean;
// function IsWebAbDelayExt(sExt: String): Boolean;
// procedure CopyPrintDC(hPtrDC: HDC);
property CurAppType: TCurAppType read CurAppType_;
property CurAppDetailType: TCurAppType read CurAppDetailType_;
property DrmExtList: TStringList read DrmExtList_;
property IgrAttBlkExts: TStringList read IgrAttBlkExts_;
property OpenDlgWordList: TStringList read OpenDlgWordList_;
property IgrAttBlkWebFiles: TStringList read IgrAttBlkWebFiles_;
property IgrAttBlkPaths: TStringList read IgrAttBlkPaths_;
property DcDecPath: TDictionary<String,String> read DcDecPath_;
property DcDrmFI: TDictionary<THandle,PDrmFileInfo> read DcDrmFI_;
property CtrlOpt: TAppCtrlOpt read GetCtrlOpt write SetCtrlOpt;
property IsDrmSupport: Boolean read bDrmSupport_;
property IsDrmUseBoxedApp: Boolean read bDrmUseBoxedApp_;
property IsForceEncSave: Boolean read bForceEncSave_;
property IsExcel: Boolean read bIsExcel_;
property DllPath: String read sDllPath_;
property PID: DWORD read dwPid_;
property MtpRoExpList: TStringList read MtpRoExpList_;
property AppName: String read sAppName_;
property FoExpList: TStringList read FoExpList_;
end;
{$IFNDEF _HE_} // BSOne는 GlobalDefine.pas에 정의됨
function DecText(sText: String): String; inline;
{$ENDIF}
implementation
uses
{$IFDEF _APPCTRL_}
AppHook,
{$ENDIF}
Tocsg.Strings, Tocsg.Safe, Tocsg.Encrypt, Condition, Tocsg.Graphic,
Tocsg.Network, Tocsg.Exception, Vcl.Imaging.pngimage;
{$IFNDEF _HE_}
function DecText(sText: String): String; inline;
begin
Result := '';
if Length(sText) < 2 then
exit;
if sText[1] = ':' then
begin
Delete(sText, 1, 1);
Result := DecBinStrToStr(ekAes256cbc, PASS_STRENC, sText);
end else
Result := sText;
end;
{$ENDIF}
{ TAppCtrlHelper }
Constructor TAppCtrlHelper.Create(sAppPath: String);
procedure Init;
var
TempList: TStringList;
sPath: array [0..512] of Char;
begin
Guard(TempList, TStringList.Create);
TempList.CaseSensitive := false;
sAppName_ := LowerCase(ExtractFileName(sAppPath));
// GetModuleFileName(0, sPath, 512); // sAppPath - Current App
if GetModuleFileName(HInstance, sPath, 512) > 0 then // DLL Path
sDllPath_ := String(sPath)
else
sDllPath_ := '';
dwPid_ := GetCurrentProcessId;
// 프린트 관련 임시 저장
nPtrCnt_ := 0;
sPtrText_ := '';
sCurDocName_ := '';
sPrintWaterTxt := '';
bIsPrinting_ := false;
bIsWaterMaking_ := false;
// bBothDocProc_ := false;
SplitString(END_PROCESS, '|', TempList);
// bEndDocProc_ := TempList.IndexOf(sAppName_) > -1;
bIsExcel_ := CompareText(sAppName_, 'excel.exe') = 0;
// HEC 방식 일괄적용 23_1222 10:12:57 kku
// bEndDocProc_ := true;
bEndDocProc_ := CompareText(sAppName_, 'notepad.exe') <> 0;
// 엑셀은 색상있는 셀의 경우 나중에 색상을 입히기 때문에 워터마크가 짤리는 문제가 있다.
// StartPage, EndPage 두개 모두 찍어준다. 23_1024 14:05:15 kku
bBothDocProc_ := bIsExcel_;
// 투명도를 도트 방식에서 GDI+로 변경하후 다시 이렇게 변경함.. 24_0125 13:41:22 kku
// 일단.. 위처럼 롤백함 24_0126 14:15:15 kku
// 엑셀에서 깔끔하게 투명도 적용할 방법이 떠오르지 않음 24_0126 14:15:28 kku
// bEndDocProc_ := CompareText(sAppName_, 'excel.exe') <> 0;
// bBothDocProc_ := false;
///////
SplitString(SMALL_FONT, '|', TempList);
bSmallFont_ := TempList.IndexOf(sAppName_) > -1;
CurAppType_ := catNormal;
ZeroMemory(@CtrlOpt_, SizeOf(CtrlOpt_));
ZeroMemory(@RecentDrmFI_, SizeOf(RecentDrmFI_));
if (sAppName_ = 'hwp.exe') or (sAppName_ = 'HwpViewer.exe') then
CurAppType_ := catHwp
else if sAppName_ = 'outlook.exe' then
CurAppType_ := catOutlook
else if sAppName_ = 'explorer.exe' then
CurAppType_ := catExplorer
else if (sAppName_ = 'acrobat.exe') or (sAppName_ = 'acrord32.exe') then
CurAppType_ := catAdobeReader
else if sAppName_ = 'notepad.exe' then
CurAppType_ := catNotepad
else if sAppName_ = 'powerpnt.exe' then
CurAppType_ := catPPT
else if sAppName_ = 'kvcttsch.exe' then
CurAppType_ := catkvHelper
else if sAppName_ = 'winscp.exe' then
CurAppType_ := catwinscp
else if sAppName_ = 'filezilla.exe' then //윈스테크넷 filezilla 타입 추가 251128 mgkim
CurAppType_ := catFilezilla
else if sAppName_ = 'bizboxamessenger.exe' then // 더존 메신저, 첨부와 파일 열기 구분 처리 25_1112 10:10:17 kku
CurAppType_ := catBizbox
else if sAppName_ = 'msedgewebview2.exe' then
CurAppType_ := catMswebv
else if sAppName_ = 'olk.exe' then
CurAppType_ := catOlk;
if CurAppType_ = catNormal then
begin
SplitString(APP_MSOFFICE, '|', TempList);
if TempList.IndexOf(sAppName_) <> -1 then
CurAppType_ := catMsOffice;
end;
if CurAppType_ = catNormal then
begin
SplitString(APP_WEB_BROWSERS, '|', TempList);
if TempList.IndexOf(sAppName_) <> -1 then
begin
CurAppType_ := catWebb;
bSmallFont_ := true;
//20251201 mgkim catWebb 별도 브라우저 구분이 없어서 추가
if CompareText(sAppName_, 'msedge.exe') = 0 then
CurAppDetailType_ := catMsedge;
if CompareText(sAppName_, 'chrome.exe') = 0 then
CurAppDetailType_ := catChrome;
end;
end;
bDrmUseBoxedApp_ := false; // ('acrord32.exe' = sAppName_) or ('acrobat.exe' = sAppName_);
// bDrmUseBoxedApp_ := CurAppType_ = catMsOffice;
// bDrmSupport_ := ('notepad.exe' = sAppName_) or ('notepad++.exe' = sAppName_);
// bDrmSupport_ := 'hwp.exe' = sAppName_;
SplitString(DRM_SUPPORT_APPS, '|', TempList);
bDrmSupport_ := TempList.IndexOf(sAppName_) <> -1;
OpenDlgWordList_ := TStringList.Create;
SplitString(UpperCase(OPENDLG_WORDS), '|', OpenDlgWordList_);
IgrAttBlkExts_ := TStringList.Create;
if CurAppType_ = catWebb then
SplitString(UpperCase(IGNORE_ATTACH_BLOCK_EXTS_WB), '|', IgrAttBlkExts_)
else
SplitString(UpperCase(IGNORE_ATTACH_BLOCK_EXTS), '|', IgrAttBlkExts_);
IgrAttBlkWebFiles_ := TStringList.Create;
IgrAttBlkWebFiles_.CaseSensitive := false;
SplitString(IGNORE_WEB_AB_FILES, '|', IgrAttBlkWebFiles_);
IgrAttBlkPaths_ := TStringList.Create;
SplitString(UpperCase(IGNORE_ATTACH_BLOCK_PATHS), '|', IgrAttBlkPaths_);
IgrAttBlkPaths_.Add(UpperCase(ExtractFilePath(sAppPath)));
// WebAbOpenDelayExtList_ := TStringList.Create;
// WebAbOpenDelayExtList_.CaseSensitive := false;
// SplitString(WEB_AB_DELAY_EXT, '|', WebAbOpenDelayExtList_);
MtpRoExpList_ := TStringList.Create;
sMtpRoExpList_ := '';
// 컨텐츠 필터 걸고
// 아웃룩은 \Content.Outlook\만 별도로 허용하도록 보완 24_0321 15:29:16 kku
// if CurAppType_ = catOutlook then
// begin
// // 이거 안빼면 한번 포함된어서 ..\AppData\Local\.. \Content.Outlook\ 경로에 있는 파일들은 차단이 안된다 23_0425 11:09:00 kku
// var i: Integer := IgrAttBlkPaths_.IndexOf('\AppData\Local\');
// if i <> -1 then
// IgrAttBlkPaths_.Delete(i);
// end;
DrmExtList_ := TStringList.Create;
DrmExtList_.CaseSensitive := false;
SplitString(DRM_EXTS, '|', DrmExtList_);
DcDecPath_ := TDictionary<String,String>.Create;
DcDrmFI_ := TDictionary<THandle,PDrmFileInfo>.Create;
DcDrmFI_.OnValueNotify := OnDrmFileNotify;
IgrReadL_ := TList<THandle>.Create;
IgrWriteL_ := TList<THandle>.Create;
NetDrvList_ := TStringList.Create;
GetNetDrives(NetDrvList_);
FoExpList_ := TStringList.Create;
end;
begin
Inherited Create;
CS_ := TCriticalSection.Create;
Init;
InitializeGDIPlus; // 추가 24_0125 11:19:36 kku
end;
Destructor TAppCtrlHelper.Destroy;
begin
FinalizeGDIPlus; // 추가 24_0125 11:19:36 kku
FreeAndNil(FoExpList_);
FreeAndNil(NetDrvList_);
FreeAndNil(IgrWriteL_);
FreeAndNil(IgrReadL_);
FreeAndNil(DcDrmFI_);
FreeAndNil(MtpRoExpList_);
FreeAndNil(DcDecPath_);
FreeAndNil(DrmExtList_);
// FreeAndNil(WebAbOpenDelayExtList_);
FreeAndNil(IgrAttBlkPaths_);
FreeANdNil(IgrAttBlkWebFiles_);
FreeAndNil(IgrAttBlkExts_);
FreeAndNil(OpenDlgWordList_);
Inherited;
FreeAndNil(CS_);
end;
procedure TAppCtrlHelper.Lock;
begin
CS_.Acquire;
end;
procedure TAppCtrlHelper.Unlock;
begin
CS_.Release;
end;
procedure TAppCtrlHelper.OnDrmFileNotify(Sender: TObject; const Item: PDrmFileInfo; Action: TCollectionNotification);
begin
if Action = cnRemoved then
Dispose(Item);
end;
function TAppCtrlHelper.IsNetPath(sPath: String): Boolean;
begin
if sPath = '' then
begin
Result := false;
exit;
end;
Result := NetDrvList_.IndexOf(Format('%s:', [UpperCase(sPath)[1]])) <> -1;
end;
procedure TAppCtrlHelper.NoDrmUse;
begin
bDrmSupport_ := false;
end;
procedure TAppCtrlHelper.AddIgrReadFile(aFile: THandle);
begin
if IgrReadL_.IndexOf(aFile) = -1 then
IgrReadL_.Add(aFile);
end;
procedure TAppCtrlHelper.DelOgrReadFile(aFile: THandle);
var
i: Integer;
begin
i := IgrReadL_.IndexOf(aFile);
if i <> -1 then
IgrReadL_.Delete(i);
end;
function TAppCtrlHelper.IsIgrReadFile(aFile: THandle): Boolean;
begin
Result := IgrReadL_.IndexOf(aFile) <> -1;
end;
procedure TAppCtrlHelper.AddIgrWriteFile(aFile: THandle);
begin
if IgrWriteL_.IndexOf(aFile) = -1 then
IgrWriteL_.Add(aFile);
end;
procedure TAppCtrlHelper.DelOgrWriteFile(aFile: THandle);
var
i: Integer;
begin
i := IgrWriteL_.IndexOf(aFile);
if i <> -1 then
IgrWriteL_.Delete(i);
end;
function TAppCtrlHelper.IsIgrWriteFile(aFile: THandle): Boolean;
begin
Result := IgrWriteL_.IndexOf(aFile) <> -1;
end;
function TAppCtrlHelper.GetCtrlOpt: TAppCtrlOpt;
begin
Lock;
try
Result := CtrlOpt_;
finally
Unlock;
end;
end;
procedure TAppCtrlHelper.SetCtrlOpt(aOpt: TAppCtrlOpt);
begin
Lock;
try
CtrlOpt_ := aOpt;
finally
Unlock;
end;
bEndDocProc_ := CompareText(sAppName_, 'notepad.exe') <> 0; //true;
bBothDocProc_ := false;// bIsExcel_; // 클리핑 제거로 엑셀 문제 해결, HEC 나중에 확인 25_0605 15:13:25 kku
case CtrlOpt_.dwCustomerType of
// CUSTOMER_KBIZ,
// CUSTOMER_JUVIS,
CUSTOMER_GEC,
CUSTOMER_HDENG :
begin
bEndDocProc_ := true;
// 엑셀은 색상있는 셀의 경우 나중에 색상을 입히기 때문에 워터마크가 짤리는 문제가 있다.
// StartPage, EndPage 두개 모두 찍어준다. 23_1024 14:05:15 kku
// bBothDocProc_ := CtrlOpt_.dwCustomerType <> CUSTOMER_JUVIS; // bIsExcel_;
// if CtrlOpt_.dwCustomerType = CUSTOMER_HDENG then
bBothDocProc_ := bIsExcel_;
// else
// bBothDocProc_ := false;
// 두명도를 도트 방식에서 GDI+로 변경한 후 이렇게 바꿈
// 엑셀을 두번 칠하게 되면 진해지는 문제가 있음...
// bEndDocProc_ := not bIsExcel_;
// bBothDocProc_ := false;
end;
CUSTOMER_ALADIN :
begin
var n: Integer := IgrAttBlkExts_.IndexOf('EXE');
if n <> -1 then
IgrAttBlkExts_.Delete(n);
end;
{ // 워터마크 전체적인 조절로 인해 bBothDocProc_ := true를 기본으로 함 24_0820 15:28:33 kku
// CUSTOMER_KOCES :
else
begin
var TempList: TStringList;
Guard(TempList, TStringList.Create);
SplitString(END_PROCESS, '|', TempList);
bEndDocProc_ := TempList.IndexOf(sAppName_) > -1;
case CtrlOpt_.dwCustomerType of
CUSTOMER_KOCES,
CUSTOMER_INZENT : bEndDocProc_ := bEndDocProc_ or bIsExcel_;
end;
// if CtrlOpt_.dwCustomerType = CUSTOMER_KOCES then
// bBothDocProc_ := bIsExcel_
// else
bBothDocProc_ := false;
end;
}
end;
if sMtpRoExpList_ <> CtrlOpt_.sMtpRoExp then
begin
sMtpRoExpList_ := CtrlOpt_.sMtpRoExp;
SplitString(sMtpRoExpList_, ';', MtpRoExpList_);
var i: Integer;
var s: String;
var EntList: TStringList;
Guard(EntList, TStringList.Create);
for i := MtpRoExpList_.Count - 1 downto 0 do
begin
s := StringReplace(UpperCase(MtpRoExpList_[i]), 'USB\', '', [rfReplaceAll]);
SplitString(s, '&', EntList);
if EntList.Count > 1 then
MtpRoExpList_[i] := EntList[0] + '&' + EntList[1]
else
MtpRoExpList_[i] := s;
end;
end;
end;
//function TAppCtrlHelper.IsWebAbDelayExt(sExt: String): Boolean;
//begin
// Result := WebAbOpenDelayExtList_.IndexOf(sExt) <> -1;
//end;
end.

13
Tocsg.Module/AppCtrl/LIB_Common/BoxedAppSDK/!readme.txt Normal file
View File

@ -0,0 +1,13 @@
How to use BoxedApp SDK as a DLL
---------------------------------
To use BoxedAppSDK as a DLL add unit 'BoxedAppSDK_DLL.pas' to a project;
the final EXE needs bxsdk32.DLL (for 32 bit applications) or bxsdk64.DLL (for 64 bit applications)
How to link BoxedApp SDK statically
------------------------------------
To use BoxedAppSDK statically) add unit 'BoxedAppSDK_Static.pas' to a project;
the final EXE DOESN'T need bxsdk32.DLL or bxsdk64.DLL
Sometimes it's useful when you should create single EXE without additional
dependencies.

1822
Tocsg.Module/AppCtrl/LIB_Common/BoxedAppSDK/BoxedAppSDK.inc Normal file
View File

File diff suppressed because it is too large Load Diff

7
Tocsg.Module/AppCtrl/LIB_Common/BoxedAppSDK/BoxedAppSDK_DLL.pas Normal file
View File

@ -0,0 +1,7 @@
// Copyright (c) Softanics
unit BoxedAppSDK_DLL;
{$DEFINE BOXEDAPP_PAS_IS_INCLUDED}
{$DEFINE BOXEDAPP_SDK_USE_DLL}
{$I 'BoxedAppSDK.inc'}

11430
Tocsg.Module/AppCtrl/LIB_Common/BoxedAppSDK/BoxedAppSDK_DLL32_Content.inc Normal file
View File

File diff suppressed because it is too large Load Diff

17457
Tocsg.Module/AppCtrl/LIB_Common/BoxedAppSDK/BoxedAppSDK_DLL64_Content.inc Normal file
View File

File diff suppressed because it is too large Load Diff

6
Tocsg.Module/AppCtrl/LIB_Common/BoxedAppSDK/BoxedAppSDK_Static.pas Normal file
View File

@ -0,0 +1,6 @@
// Copyright (c) Softanics
unit BoxedAppSDK_Static;
{$DEFINE BOXEDAPP_PAS_IS_INCLUDED}
{$I 'BoxedAppSDK.inc'}

51
Tocsg.Module/AppCtrl/LIB_Common/GlobalDefine.pas Normal file
View File

@ -0,0 +1,51 @@
{*******************************************************}
{ }
{ GlobalDefine }
{ }
{ Copyright (C) 2022 kku }
{ }
{*******************************************************}
unit GlobalDefine;
interface
uses
Winapi.Windows, Winapi.Messages;
const
{$IFDEF WIN64}
DLL_APIHOOK = 'AppCtrl.dll';
LOG_FILE = 'AppCtrl.log';
{$ELSE}
DLL_APIHOOK = 'AppCtrl32.dll';
//{$IFDEF DEBUG}
// DLL_APIHOOK = 'AppCtrl.dll';
//{$ELSE}
// DLL_APIHOOK = 'AppCtrl32.dll';
//{$ENDIF}
LOG_FILE = 'AppCtrl32.log';
{$ENDIF}
MAP_FILENAME_APIHOOK = 'Global\AppCtrl64';
HOOK_MUTEX = 'Global\Mtx@220915&AppCtrl';
APP_MUTEX = 'Global\Mtx@220915APP';
WM_CATCH_DROPFILES = WM_USER + 7894;
TXT_DROPINFO = '$DrpFle.txt';
type
PSharedData = ^TSharedData;
TSharedData = record
bActive,
bDialogBlock,
bFileDropBlock,
bCaptureBlock: Boolean;
llRcvWnd: LONGLONG;
sTgPNames: array [0..4096] of Char;
sLogPath: array [0..1023] of Char;
end;
implementation
end.

22
Tocsg.Module/AppMon/AppMon.dpr Normal file
View File

@ -0,0 +1,22 @@
program AppMon;
uses
Vcl.Forms,
DAppMonMain in 'DAppMonMain.pas' {DlgAppMonMain},
Define in 'Define.pas',
FProcessList in 'FProcessList.pas' {FrmProcessList: TFrame},
FInstallList in 'FInstallList.pas' {FrmInstallList: TFrame},
ThdProcessMon in 'ThdProcessMon.pas',
Tocsg.AppInfo in '..\..\Tocsg.Lib\VCL\Tocsg.AppInfo.pas',
Tocsg.Prefetch in '..\PrefetchAnal\Tocsg.Prefetch.pas';
{$R *.res}
begin
ReportMemoryLeaksOnShutdown := DebugHook <> 0;
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(TDlgAppMonMain, DlgAppMonMain);
Application.Run;
end.

1014
Tocsg.Module/AppMon/AppMon.dproj Normal file
View File

File diff suppressed because it is too large Load Diff

BIN
Tocsg.Module/AppMon/AppMon_Icon.ico Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 5.3 KiB

33
Tocsg.Module/AppMon/DAppMonMain.dfm Normal file
View File

@ -0,0 +1,33 @@
object DlgAppMonMain: TDlgAppMonMain
Left = 0
Top = 0
Caption = 'DlgAppMonMain'
ClientHeight = 537
ClientWidth = 885
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Segoe UI'
Font.Style = []
Position = poScreenCenter
TextHeight = 15
object pcMain: TPageControl
Left = 0
Top = 0
Width = 885
Height = 537
ActivePage = tabProcess
Align = alClient
TabOrder = 0
ExplicitWidth = 881
ExplicitHeight = 536
object tabProcess: TTabSheet
Caption = #54532#47196#49464#49828' '#47785#47197
end
object tabInstall: TTabSheet
Caption = #49444#52824#46108' '#54532#47196#44536#47016
ImageIndex = 1
end
end
end

52
Tocsg.Module/AppMon/DAppMonMain.pas Normal file
View File

@ -0,0 +1,52 @@
unit DAppMonMain;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls, FProcessList,
FInstallList;
type
TDlgAppMonMain = class(TForm)
pcMain: TPageControl;
tabProcess: TTabSheet;
tabInstall: TTabSheet;
private
{ Private declarations }
FrmProcessList_: TFrmProcessList;
FrmInstallList_: TFrmInstallList;
public
{ Public declarations }
Constructor Create(aOwner: TComponent); override;
end;
var
DlgAppMonMain: TDlgAppMonMain;
implementation
uses
Define;
{$R *.dfm}
Constructor TDlgAppMonMain.Create(aOwner: TComponent);
begin
Inherited Create(aOwner);
Caption := APP_TITLE;
FrmProcessList_ := TFrmProcessList.Create(Self);
FrmProcessList_.Parent := tabProcess;
FrmProcessList_.Align := alClient;
FrmProcessList_.Visible := true;
FrmInstallList_ := TFrmInstallList.Create(Self);
FrmInstallList_.Parent := tabInstall;
FrmInstallList_.Align := alClient;
FrmInstallList_.Visible := true;
pcMain.ActivePageIndex := 0;
end;
end.

10
Tocsg.Module/AppMon/Define.pas Normal file
View File

@ -0,0 +1,10 @@
unit Define;
interface
const
APP_TITLE = 'AppMon';
implementation
end.

321
Tocsg.Module/AppMon/FInstallList.dfm Normal file
View File

@ -0,0 +1,321 @@
object FrmInstallList: TFrmInstallList
Left = 0
Top = 0
Width = 662
Height = 436
TabOrder = 0
object Splitter1: TSplitter
Left = 452
Top = 0
Width = 4
Height = 436
Align = alRight
ExplicitLeft = 640
ExplicitTop = 16
end
object vtList: TVirtualStringTree
Left = 0
Top = 0
Width = 452
Height = 436
Align = alClient
Header.AutoSizeIndex = 1
Header.MainColumn = 2
Header.Options = [hoColumnResize, hoDrag, hoShowSortGlyphs, hoVisible]
HintMode = hmTooltip
IncrementalSearch = isAll
ParentShowHint = False
PopupMenu = popFun
ShowHint = True
TabOrder = 0
TreeOptions.PaintOptions = [toHideFocusRect, toShowButtons, toShowDropmark, toShowTreeLines, toThemeAware, toUseBlendedImages]
TreeOptions.SelectionOptions = [toFullRowSelect, toMultiSelect, toRightClickSelect]
OnCompareNodes = vtListCompareNodes
OnContextPopup = vtListContextPopup
OnDblClick = miRemoveClick
OnFocusChanged = vtListFocusChanged
OnFreeNode = vtListFreeNode
OnGetText = vtListGetText
OnGetImageIndexEx = vtListGetImageIndexEx
OnGetHint = vtListGetHint
OnGetNodeDataSize = vtListGetNodeDataSize
OnHeaderClick = vtListHeaderClick
Touch.InteractiveGestures = [igPan, igPressAndTap]
Touch.InteractiveGestureOptions = [igoPanSingleFingerHorizontal, igoPanSingleFingerVertical, igoPanInertia, igoPanGutter, igoParentPassthrough]
Columns = <
item
Position = 0
Text = #48264#54840
end
item
Position = 1
Text = #49444#52824'/'#50629#45936#51060#53944' '#51068#49884
Width = 150
end
item
Position = 2
Text = #51060#47492
Width = 130
end
item
Position = 3
Text = #48260#51204
Width = 70
end
item
Position = 4
Text = #51228#51089#49324
Width = 80
end
item
Position = 5
Text = #49892#54665' '#54028#51068
Width = 130
end
item
Position = 6
Text = #49892#54665' '#54943#49688
Width = 70
end
item
Position = 7
Text = #51200#51089#44428
Width = 90
end
item
Position = 8
Text = #54532#47196#44536#47016' '#49444#47749
Width = 150
end
item
Position = 9
Text = 'URL'
Width = 120
end
item
Position = 10
Text = #49444#52824' '#44221#47196
Width = 150
end>
DefaultText = ''
end
object vtExe: TVirtualStringTree
Left = 456
Top = 0
Width = 206
Height = 436
Align = alRight
Header.AutoSizeIndex = 0
Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoShowSortGlyphs]
TabOrder = 1
TreeOptions.PaintOptions = [toHideFocusRect, toShowButtons, toShowDropmark, toShowRoot, toShowTreeLines, toThemeAware, toUseBlendedImages]
OnFreeNode = vtExeFreeNode
OnGetText = vtExeGetText
OnGetNodeDataSize = vtExeGetNodeDataSize
Touch.InteractiveGestures = [igPan, igPressAndTap]
Touch.InteractiveGestureOptions = [igoPanSingleFingerHorizontal, igoPanSingleFingerVertical, igoPanInertia, igoPanGutter, igoParentPassthrough]
Columns = <
item
Position = 0
Text = 'Info'
Width = 202
end>
end
object imgList: TImageList
Left = 64
Top = 120
Bitmap = {
494C010101000800040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
0000000000003600000028000000400000001000000001002000000000000010
0000000000000000000000000000000000000404040004040400040404000404
040004040400040404001A1A1A00566363007CA2A2007F8C59004D401A000F0F
0F00040404000404040004040400040404000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000004040400B5B5B500E5E5E5007474
7400242424001A1A1A00A4A4A400B6C3C30099E5E500CCCC4C00B2B22600A5CC
7F000F0F0F000404040004040400040404000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000004040400B5B5B500E5E5E5007474
74009593930063636300B2B2B200BCBCBC0099D8D800B2B22600D7F1BE00E3E3
E300535353000404040004040400040404000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000004040400B5B5B500E5E5E5007474
74009593930095959500BFBFBF00B2B2B200333333003B3B3B00B4B4B400A7A7
A700727272000404040004040400040404000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000004040400B5B5B500E5E5E5007474
7400959393008E8E8E00B8C5AB00B2BF7F0036360F002F2F2F00D4D3D300A5A5
A500676767000404040004040400040404000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000004040400C2C2C200FFFFFF008181
81009593930089898900CCD84C00BFA53F0099BF8C008CBFBF00AEACAC00E5E5
E500505050000404040004040400040404000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000004040400C2C2C200FFFFFF008181
81009C999900928F8F00B0973E00A5A559008CF2F20066CCCC00AEADAD008E8C
8C003E3E3E0062626200BCBCBC00242424000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000004040400C2C2C200FFFFFF008181
8100A4A0A000A4A0A0005F5F5F00A9B69C008ABDBD0076A9A90096969600ADAD
AD00C2C2C200C2C2C200DFDFDF00454545000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000404040072727200727272003B3B
3B00A4A0A000A4A0A00024242400454545004545450045454500454545004545
4500454545004545450050505000525252000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000065656500C2C2C200C2C2C2009090
900042414100A4A0A00045454500DFDFDF00DFDFDF00DFDFDF00DFDFDF00DFDF
DF00DFDFDF00DFDFDF00A3A3A300040404000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000404040004040400242424006868
68005F5F5F004241410045454500BF7F7F00BF721900B2591900A64C0000B23F
0C00BF331900BF7F7F00A3A3A300040404000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000404040004040400040404002424
2400C2C2C200C2C2C20045454500BF7F7F00FFFF7F00FFD85900D8A51900CC99
0000F2722600BF7F7F00A3A3A300040404000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000404040004040400040404000404
0400040404000404040045454500BF7F7F00FFFF7F00FFFF7F00FFD85900D8A5
1900CC990000BF7F7F00A3A3A300040404000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000404040004040400040404000404
0400040404000404040045454500BF7F7F00FFD85900FFFF7F00FFFF7F00FFD8
5900D8A51900BF7F7F00A3A3A300040404000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000404040004040400040404000404
0400040404000404040045454500BF7F7F00BF663300BF722600BF7F3F00BF7F
3300BF663300BF7F7F00A3A3A300040404000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000404040004040400040404000404
0400040404000404040024242400BBBBBB00BBBBBB00BBBBBB00BBBBBB00BBBB
BB00BBBBBB00BBBBBB008D8D8D00040404000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000424D3E000000000000003E000000
2800000040000000100000000100010000000000800000000000000000000000
000000000000000000000000FFFFFF008C0F0000000000008007000000000000
8007000000000000800700000000000080070000000000008001000000000000
8000000000000000800000000000000080000000000000000000000000000000
C000000000000000E000000000000000FC00000000000000FC00000000000000
FC00000000000000FC0000000000000000000000000000000000000000000000
000000000000}
end
object popFun: TPopupMenu
AutoHotkeys = maManual
OnPopup = popFunPopup
Left = 304
Top = 120
object miRefresh: TMenuItem
Caption = #49352#47196#44256#52840
OnClick = miRefreshClick
end
object N2: TMenuItem
Caption = '-'
end
object miCopyCB: TMenuItem
Caption = #49440#53469#54620' '#54637#47785#51012' '#53364#47549#48372#46300#50640' '#48373#49324
ShortCut = 16451
OnClick = miCopyCBClick
end
object miExport: TMenuItem
Caption = #54532#47196#44536#47016' '#47785#47197' '#51221#48372' '#45236#48372#45236#44592' (ToJson for HE)'
OnClick = miExportClick
end
object miRemove: TMenuItem
Caption = #54532#47196#44536#47016' '#49444#52824' '#51228#44144
OnClick = miRemoveClick
end
object N1: TMenuItem
Caption = '-'
end
object miExportIcon: TMenuItem
Caption = #49440#53469#54620' '#54532#47196#44536#47016' '#50500#51060#53080' '#45236#48372#45236#44592
OnClick = miExportIconClick
end
object N3: TMenuItem
Caption = '-'
end
object miFilter: TMenuItem
Caption = #44160#49353' '#54596#53552
ShortCut = 16454
OnClick = miFilterClick
end
end
object SaveDialog: TSaveDialog
DefaultExt = 'json'
Filter = 'Json file|*.json'
Left = 264
Top = 216
end
object FileOpenDialog: TFileOpenDialog
FavoriteLinks = <>
FileTypes = <>
Options = [fdoPickFolders]
Left = 80
Top = 256
end
end

494
Tocsg.Module/AppMon/FInstallList.pas Normal file
View File

@ -0,0 +1,494 @@
unit FInstallList;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, VirtualTrees,
Tocsg.AppInfo, System.ImageList, Vcl.ImgList, Vcl.Menus, Vcl.ExtCtrls;
type
PInstEnt = ^TInstEnt;
TInstEnt = record
Info: PInstAppEnt;
nImgIdx: Integer;
end;
PIExeEnt = ^TIExeEnt;
TIExeEnt = record
sInfo: String;
end;
TFrmInstallList = class(TFrame)
vtList: TVirtualStringTree;
imgList: TImageList;
popFun: TPopupMenu;
miRefresh: TMenuItem;
N2: TMenuItem;
miRemove: TMenuItem;
miCopyCB: TMenuItem;
N3: TMenuItem;
miFilter: TMenuItem;
miExport: TMenuItem;
SaveDialog: TSaveDialog;
vtExe: TVirtualStringTree;
Splitter1: TSplitter;
N1: TMenuItem;
miExportIcon: TMenuItem;
FileOpenDialog: TFileOpenDialog;
procedure vtListGetNodeDataSize(Sender: TBaseVirtualTree;
var NodeDataSize: Integer);
procedure vtListFreeNode(Sender: TBaseVirtualTree; Node: PVirtualNode);
procedure vtListHeaderClick(Sender: TVTHeader; HitInfo: TVTHeaderHitInfo);
procedure vtListGetHint(Sender: TBaseVirtualTree; Node: PVirtualNode;
Column: TColumnIndex; var LineBreakStyle: TVTTooltipLineBreakStyle;
var HintText: string);
procedure vtListGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
Column: TColumnIndex; TextType: TVSTTextType; var CellText: string);
procedure vtListGetImageIndexEx(Sender: TBaseVirtualTree;
Node: PVirtualNode; Kind: TVTImageKind; Column: TColumnIndex;
var Ghosted: Boolean; var ImageIndex: TImageIndex;
var ImageList: TCustomImageList);
procedure vtListCompareNodes(Sender: TBaseVirtualTree; Node1,
Node2: PVirtualNode; Column: TColumnIndex; var Result: Integer);
procedure miRefreshClick(Sender: TObject);
procedure vtListContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
procedure miRemoveClick(Sender: TObject);
procedure miCopyCBClick(Sender: TObject);
procedure miFilterClick(Sender: TObject);
procedure popFunPopup(Sender: TObject);
procedure miExportClick(Sender: TObject);
procedure vtListFocusChanged(Sender: TBaseVirtualTree; Node: PVirtualNode;
Column: TColumnIndex);
procedure vtExeGetNodeDataSize(Sender: TBaseVirtualTree;
var NodeDataSize: Integer);
procedure vtExeGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
Column: TColumnIndex; TextType: TVSTTextType; var CellText: string);
procedure vtExeFreeNode(Sender: TBaseVirtualTree; Node: PVirtualNode);
procedure miExportIconClick(Sender: TObject);
private
{ Private declarations }
FileImageList_,
FileImageListLg_: TImageList;
InstList_: TTgInstAppList;
procedure RefreshExe(pData: PInstEnt);
public
{ Public declarations }
Constructor Create(aOwner: TComponent); override;
Destructor Destroy; override;
procedure RefreshList;
end;
implementation
uses
Tocsg.Shell, VirtualTrees.Types, Tocsg.VirtualTreeViewUtil, Tocsg.Safe,
System.DateUtils, Tocsg.Strings, Define, VirtualTrees.Filter, superobject,
Tocsg.Path;
{$R *.dfm}
Constructor TFrmInstallList.Create(aOwner: TComponent);
procedure InitCtrls;
var
hSysIcons: THandle;
begin
FileImageList_ := TImageList.Create(Self);
FileImageList_.ShareImages := true;
FileImageList_.BlendColor := clHighlight;
hSysIcons := GetShellImageHandle;
if hSysIcons <> 0 then
begin
FileImageList_.Handle := hSysIcons;
vtList.Images := FileImageList_;
end;
FileImageListLg_ := TImageList.Create(Self);
FileImageListLg_.ShareImages := true;
FileImageListLg_.BlendColor := clHighlight;
hSysIcons := GetShellImageHandle(false);
if hSysIcons <> 0 then
FileImageListLg_.Handle := hSysIcons;
end;
begin
Inherited Create(aOwner);
InitCtrls;
InstList_ := TTgInstAppList.Create;
RefreshList;
end;
Destructor TFrmInstallList.Destroy;
begin
FreeAndNil(InstList_);
Inherited;
end;
procedure TFrmInstallList.miRefreshClick(Sender: TObject);
begin
RefreshList;
end;
procedure TFrmInstallList.miRemoveClick(Sender: TObject);
var
pData: PInstEnt;
StrList: TStringList;
sTemp,
sParam: String;
i: Integer;
begin
pData := VT_Get1SelNodeData(vtList);
if pData = nil then
exit;
Guard(StrList, TStringList.Create);
if pData.Info.sUninstStr.Contains('.exe') then
SplitString(pData.Info.sUninstStr, '.exe', StrList)
else
SplitString(pData.Info.sUninstStr, '.EXE', StrList);
case StrList.Count of
0 :
begin
MessageBox(Handle, PChar('삭제 명령줄이 존재하지 않습니다.'), APP_TITLE, MB_ICONWARNING or MB_OK);
exit;
end;
1 : ExecutePath(pData.Info.sUninstStr);
else begin
sParam := '';
for i := 1 to StrList.Count - 1 do
begin
sTemp := StrList[i];
if StrList[i].StartsWith('" ') then
Delete(sTemp, 1, 2);
SumString(sParam, sTemp, ' ');
end;
sTemp := StrList[0] + '.exe';
if sTemp[1] = '"' then
sTemp := sTemp + '"';
ExecutePath(sTemp, sParam);
end;
end;
end;
procedure TFrmInstallList.popFunPopup(Sender: TObject);
begin
miFilter.Checked := vtList.GetFilterEditCtrl <> nil;
end;
procedure TFrmInstallList.miCopyCBClick(Sender: TObject);
begin
if VT_CopyToClipboardSelectedInfo(vtList) = 0 then
MessageBox(Handle, PChar('클립보드에 복사 되었습니다.'), APP_TITLE, MB_ICONINFORMATION or MB_OK);
end;
procedure TFrmInstallList.miExportClick(Sender: TObject);
var
InstList: TTgInstAppList;
O: ISuperObject;
begin
if vtList.RootNodeCount = 0 then
begin
MessageBox(Handle, PChar('내보내기 할 프로그램 정보가 없습니다.'), APP_TITLE, MB_ICONWARNING or MB_OK);
exit;
end;
SaveDialog.FileName := '';
if SaveDialog.Execute(Handle) then
begin
Guard(InstList, TTgInstAppList.Create);
InstList.UpdateInstAppList;
O := SO;
O.O['InstList'] := InstList.ToJsonObjHE;
SaveJsonObjToFile(O, SaveDialog.FileName);
MessageBox(Handle, PChar('프로그램 목록 정보 내보내기를 완료했습니다.'), APP_TITLE, MB_ICONINFORMATION or MB_OK);
end;
end;
const
PixelsQuad = MaxInt div SizeOf(TRGBQuad) - 1;
type
TRGBAArray = Array [0..PixelsQuad - 1] of TRGBQuad;
PRGBAArray = ^TRGBAArray;
procedure TFrmInstallList.miExportIconClick(Sender: TObject);
var
pNode: PVirtualNode;
pData: PInstEnt;
bmp: TBitmap;
X, Y: Integer;
RowInOut: PRGBAArray;
begin
pNode := vtList.GetFirstSelected;
if pNode = nil then
exit;
FileOpenDialog.FileName := '';
FileOpenDialog.DefaultFolder := GetDesktopDir;
if FileOpenDialog.Execute then
begin
Guard(bmp, TBitmap.Create);
bmp.SetSize(FileImageListLg_.Width, FileImageListLg_.Height);
bmp.PixelFormat := pf32bit;
while pNode <> nil do
begin
pData := vtList.GetNodeData(pNode);
if pData.nImgIdx <> -1 then
begin
// for Y := 0 to bmp.Height - 1 do
// begin
// RowInOut := bmp.ScanLine[Y];
// for X := 0 to bmp.Width - 1 do
// RowInOut[X].rgbReserved := 0;
// end;
// bmp.AlphaFormat := afDefined;
FileImageListLg_.Draw(bmp.Canvas, 0, 0, pData.nImgIdx, true);
// bmp.AlphaFormat := afIgnored;
bmp.SaveToFile(IncludeTrailingBackslash(FileOpenDialog.FileName) + pData.Info.sName + '.bmp');
end;
pNode := vtList.GetNextSelected(pNode);
end;
end;
end;
procedure TFrmInstallList.miFilterClick(Sender: TObject);
begin
if miFilter.Checked then
vtList.DestroyFilterEdit
else
vtList.CreateFilterEdit;
end;
procedure TFrmInstallList.RefreshList;
var
i: Integer;
pData: PInstEnt;
begin
vtList.BeginUpdate;
try
VT_Clear(vtList);
InstList_.UpdateInstAppList;
for i := 0 to InstList_.Count - 1 do
begin
pData := VT_AddChildData(vtList);
pData.Info := InstList_[i];
pData.nImgIdx := -1;
end;
VT_SortAll(vtList, 1, sdDescending);
finally
vtList.EndUpdate;
end;
end;
procedure TFrmInstallList.vtExeFreeNode(Sender: TBaseVirtualTree;
Node: PVirtualNode);
var
pData: PIExeEnt;
begin
pData := Sender.GetNodeData(Node);
Finalize(pData^);
end;
procedure TFrmInstallList.vtExeGetNodeDataSize(Sender: TBaseVirtualTree;
var NodeDataSize: Integer);
begin
NodeDataSize := SizeOf(TIExeEnt);
end;
procedure TFrmInstallList.vtExeGetText(Sender: TBaseVirtualTree;
Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
var CellText: string);
var
pData: PIExeEnt;
begin
if Column = 0 then
begin
pData := Sender.GetNodeData(Node);
CellText := pData.sInfo;
end;
end;
procedure TFrmInstallList.vtListCompareNodes(Sender: TBaseVirtualTree; Node1,
Node2: PVirtualNode; Column: TColumnIndex; var Result: Integer);
var
pData1, pData2: PInstEnt;
begin
if Column = 1 then
begin
pData1 := Sender.GetNodeData(Node1);
pData2 := Sender.GetNodeData(Node2);
Result := CompareDateTime(pData1.Info.dtInst, pData2.Info.dtInst);
end else
Result := CompareText(vtList.Text[Node1, Column], vtList.Text[Node2, Column]);
end;
procedure TFrmInstallList.vtListContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
miRemove.Visible := vtList.GetNodeAt(MousePos) <> nil;
miCopyCB.Visible := miRemove.Visible;
end;
procedure TFrmInstallList.RefreshExe(pData: PInstEnt);
function AddIExeInfo(pParent: PVirtualNode; sInfo: String): PVirtualNode;
var
pData: PIExeEnt;
begin
pData := VT_AddChildDataN(vtExe, Result, pParent);
pData.sInfo := sInfo;
end;
var
i, c: Integer;
pNode: PVirtualNode;
begin
vtExe.BeginUpdate;
try
VT_Clear(vtExe);
for i := 0 to pData.Info.InstExeList.Count - 1 do
begin
pNode := AddIExeInfo(nil, pData.Info.InstExeList[i].FileName);
AddIExeInfo(pNode, '실행 횟수 : ' + IntToStr(pData.Info.InstExeList[i].RunCount));
for c := 0 to pData.Info.InstExeList[i].ExeDtList.Count - 1 do
AddIExeInfo(pNode, DateTimeToStr(pData.Info.InstExeList[i].ExeDtList[c]));
end;
VT_ExpandAll(vtExe, true);
finally
vtExe.EndUpdate;
end;
end;
procedure TFrmInstallList.vtListFocusChanged(Sender: TBaseVirtualTree;
Node: PVirtualNode; Column: TColumnIndex);
var
pData: PInstEnt;
begin
if Node = nil then
exit;
RefreshExe(Sender.GetNodeData(Node));
end;
procedure TFrmInstallList.vtListFreeNode(Sender: TBaseVirtualTree;
Node: PVirtualNode);
var
pData: PInstEnt;
begin
pData := Sender.GetNodeData(Node);
Finalize(pData^);
end;
procedure TFrmInstallList.vtListGetHint(Sender: TBaseVirtualTree;
Node: PVirtualNode; Column: TColumnIndex;
var LineBreakStyle: TVTTooltipLineBreakStyle; var HintText: string);
begin
HintText := vtList.Text[Node, Column];
end;
procedure TFrmInstallList.vtListGetImageIndexEx(Sender: TBaseVirtualTree;
Node: PVirtualNode; Kind: TVTImageKind; Column: TColumnIndex;
var Ghosted: Boolean; var ImageIndex: TImageIndex;
var ImageList: TCustomImageList);
var
pData: PInstEnt;
begin
case Kind of
ikNormal,
ikSelected:
begin
if Column = 2 then
begin
pData := Sender.GetNodeData(Node);
if pData.nImgIdx = -1 then
pData.nImgIdx := GetShellImageIndex_path(pData.Info.sIconPath);
if pData.nImgIdx = 0 then
ImageList := imgList
else
ImageList := FileImageList_;
ImageIndex := pData.nImgIdx;
end;
end;
end;
end;
procedure TFrmInstallList.vtListGetNodeDataSize(Sender: TBaseVirtualTree;
var NodeDataSize: Integer);
begin
NodeDataSize := SizeOf(TInstEnt);
end;
procedure TFrmInstallList.vtListGetText(Sender: TBaseVirtualTree;
Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
var CellText: string);
var
pData: PInstEnt;
begin
pData := Sender.GetNodeData(Node);
case Column of
0 : CellText := IntToStr(Node.Index + 1);
1 : CellText := DateTimeToStr(pData.Info.dtInst);
2 : CellText := pData.Info.sName;
3 : CellText := pData.Info.sVersion;
4 : CellText := pData.Info.sPublisher;
5 : if pData.Info.InstExeList <> nil then CellText := pData.Info.InstExeList.GetExeFiles;
6 : if pData.Info.InstExeList <> nil then CellText := IntToStr(pData.Info.InstExeList.GetRunCount);
7 : CellText := pData.Info.sCopyright;
8 : CellText := pData.Info.sDescription;
9 : CellText := pData.Info.sUrlInfo;
10 : CellText := pData.Info.sInstDir;
end;
end;
procedure TFrmInstallList.vtListHeaderClick(Sender: TVTHeader;
HitInfo: TVTHeaderHitInfo);
begin
if HitInfo.Button = mbLeft then
begin
if HitInfo.Column < 0 then
exit;
with Sender, Treeview do
begin
if SortColumn > NoColumn then
Columns[SortColumn].Options := Columns[SortColumn].Options + [coParentColor];
if HitInfo.Column = 0 then
SortColumn := NoColumn
else
begin
if (SortColumn = NoColumn) or (SortColumn <> HitInfo.Column) then
begin
SortColumn := HitInfo.Column;
SortDirection := sdAscending;
end else
if SortDirection = sdAscending then
SortDirection := sdDescending
else
SortDirection := sdAscending;
Columns[SortColumn].Color := $00EFEFEF;
vtList.BeginUpdate;
try
vtList.SortTree(SortColumn, SortDirection, False);
finally
vtList.EndUpdate;
end;
end;
end;
end;
end;
end.

169
Tocsg.Module/AppMon/FProcessList.dfm Normal file
View File

@ -0,0 +1,169 @@
object FrmProcessList: TFrmProcessList
Left = 0
Top = 0
Width = 866
Height = 480
TabOrder = 0
object vtList: TVirtualStringTree
Left = 0
Top = 0
Width = 866
Height = 480
Align = alClient
Colors.BorderColor = 15987699
Colors.DisabledColor = clGray
Colors.DropMarkColor = 15385233
Colors.DropTargetColor = 15385233
Colors.DropTargetBorderColor = 15385233
Colors.FocusedSelectionColor = 15385233
Colors.FocusedSelectionBorderColor = 15385233
Colors.GridLineColor = 15987699
Colors.HeaderHotColor = clBlack
Colors.HotColor = clBlack
Colors.SelectionRectangleBlendColor = 15385233
Colors.SelectionRectangleBorderColor = 15385233
Colors.SelectionTextColor = clBlack
Colors.TreeLineColor = 9471874
Colors.UnfocusedColor = clGray
Colors.UnfocusedSelectionColor = clWhite
Colors.UnfocusedSelectionBorderColor = clWhite
Header.AutoSizeIndex = 10
Header.MainColumn = 1
Header.Options = [hoColumnResize, hoDrag, hoShowSortGlyphs, hoVisible]
HintMode = hmTooltip
IncrementalSearch = isVisibleOnly
ParentShowHint = False
PopupMenu = popFun
ShowHint = True
TabOrder = 0
TreeOptions.PaintOptions = [toHideFocusRect, toShowButtons, toShowDropmark, toShowTreeLines, toThemeAware, toUseBlendedImages]
TreeOptions.SelectionOptions = [toFullRowSelect, toMultiSelect, toRightClickSelect]
OnCompareNodes = vtListCompareNodes
OnContextPopup = vtListContextPopup
OnFreeNode = vtListFreeNode
OnGetText = vtListGetText
OnGetImageIndex = vtListGetImageIndex
OnGetHint = vtListGetHint
OnGetNodeDataSize = vtListGetNodeDataSize
OnHeaderClick = vtListHeaderClick
Touch.InteractiveGestures = [igPan, igPressAndTap]
Touch.InteractiveGestureOptions = [igoPanSingleFingerHorizontal, igoPanSingleFingerVertical, igoPanInertia, igoPanGutter, igoParentPassthrough]
Columns = <
item
Position = 0
Text = #48264#54840
end
item
Position = 1
Text = #51060#47492
Width = 120
end
item
Position = 2
Text = 'PID'
Width = 60
end
item
Position = 3
Text = 'CPU'
end
item
Position = 4
Text = #47700#47784#47532
Width = 70
end
item
Position = 5
Text = #49324#50857' '#49884#44036
Width = 100
end
item
Position = 6
Text = #49892#54665' '#49884#44036
Width = 150
end
item
Position = 7
Text = #49324#50857#51088
Width = 80
end
item
Position = 8
Text = #50864#49440' '#49692#50948
Width = 110
end
item
Position = 9
Text = #49444#47749
Width = 200
end
item
Position = 10
Text = #51228#51089#49324
Width = 100
end
item
Position = 11
Text = #48260#51204
Width = 100
end
item
Position = 12
Text = #51200#51089#44428
Width = 80
end
item
Position = 13
Text = #44221#47196
Width = 250
end>
DefaultText = ''
end
object tUpdate: TTimer
Enabled = False
OnTimer = tUpdateTimer
Left = 104
Top = 104
end
object popFun: TPopupMenu
AutoHotkeys = maManual
OnPopup = popFunPopup
Left = 304
Top = 120
object miCopyCB: TMenuItem
Caption = #49440#53469#54620' '#54637#47785#51012' '#53364#47549#48372#46300#50640' '#48373#49324
ShortCut = 16451
OnClick = miCopyCBClick
end
object miExportJson: TMenuItem
Caption = #54532#47196#49464#49828' '#47785#47197' '#51221#48372' '#45236#48372#45236#44592' (ToJson for HE)'
OnClick = miExportJsonClick
end
object N2: TMenuItem
Caption = '-'
end
object miTerminate: TMenuItem
Caption = #54532#47196#49464#49828' '#51333#47308
ShortCut = 46
OnClick = miTerminateClick
end
object miTerminateName: TMenuItem
Caption = #44057#51008' '#51060#47492#51032' '#54532#47196#49464#49828' '#47784#46160' '#51333#47308
OnClick = miTerminateNameClick
end
object N3: TMenuItem
Caption = '-'
end
object miFilter: TMenuItem
Caption = #44160#49353' '#54596#53552
ShortCut = 16454
OnClick = miFilterClick
end
end
object SaveDialog: TSaveDialog
DefaultExt = 'json'
Filter = 'Json file|*.json'
Left = 264
Top = 216
end
end

380
Tocsg.Module/AppMon/FProcessList.pas Normal file
View File

@ -0,0 +1,380 @@
unit FProcessList;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, ThdProcessMon,
VirtualTrees, Vcl.ExtCtrls, Vcl.Menus;
type
PProcEnt = ^TProcEnt;
TProcEnt = record
Data: TProcMonEnt;
nImgIdx: Integer;
end;
TFrmProcessList = class(TFrame)
vtList: TVirtualStringTree;
tUpdate: TTimer;
popFun: TPopupMenu;
miCopyCB: TMenuItem;
miTerminate: TMenuItem;
N3: TMenuItem;
miFilter: TMenuItem;
miTerminateName: TMenuItem;
N2: TMenuItem;
miExportJson: TMenuItem;
SaveDialog: TSaveDialog;
procedure vtListGetHint(Sender: TBaseVirtualTree; Node: PVirtualNode;
Column: TColumnIndex; var LineBreakStyle: TVTTooltipLineBreakStyle;
var HintText: string);
procedure vtListGetNodeDataSize(Sender: TBaseVirtualTree;
var NodeDataSize: Integer);
procedure vtListGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
Column: TColumnIndex; TextType: TVSTTextType; var CellText: string);
procedure vtListFreeNode(Sender: TBaseVirtualTree; Node: PVirtualNode);
procedure tUpdateTimer(Sender: TObject);
procedure vtListHeaderClick(Sender: TVTHeader; HitInfo: TVTHeaderHitInfo);
procedure vtListCompareNodes(Sender: TBaseVirtualTree; Node1,
Node2: PVirtualNode; Column: TColumnIndex; var Result: Integer);
procedure vtListGetImageIndex(Sender: TBaseVirtualTree; Node: PVirtualNode;
Kind: TVTImageKind; Column: TColumnIndex; var Ghosted: Boolean;
var ImageIndex: TImageIndex);
procedure miCopyCBClick(Sender: TObject);
procedure miFilterClick(Sender: TObject);
procedure vtListContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
procedure popFunPopup(Sender: TObject);
procedure miTerminateClick(Sender: TObject);
procedure miTerminateNameClick(Sender: TObject);
procedure miExportJsonClick(Sender: TObject);
private
{ Private declarations }
FileImageList_: TImageList;
ThdProcMon_: TThdProcessMon;
VtFilter_: Pointer; // TVtFilterEdit;
public
{ Public declarations }
Constructor Create(aOwner: TComponent); override;
Destructor Destroy; override;
end;
implementation
uses
Tocsg.VirtualTreeViewUtil, Tocsg.Convert, Tocsg.DateTime, VirtualTrees.Types,
System.Math, System.DateUtils, Tocsg.Shell, Tocsg.Process,
VirtualTrees.Filter, Define, superobject, Tocsg.Safe;
{$R *.dfm}
Constructor TFrmProcessList.Create(aOwner: TComponent);
procedure InitCtrls;
var
hSysIcons: THandle;
begin
VtFilter_ := nil;
FileImageList_ := TImageList.Create(Self);
FileImageList_.ShareImages := true;
FileImageList_.BlendColor := clHighlight;
hSysIcons := GetShellImageHandle;
if hSysIcons <> 0 then
begin
FileImageList_.Handle := hSysIcons;
vtList.Images := FileImageList_;
end;
end;
begin
Inherited Create(aOwner);
InitCtrls;
ThdProcMon_ := TThdProcessMon.Create;
tUpdate.Enabled := true;
end;
Destructor TFrmProcessList.Destroy;
begin
FreeAndNil(ThdProcMon_);
Inherited;
end;
procedure TFrmProcessList.miCopyCBClick(Sender: TObject);
begin
if VT_CopyToClipboardSelectedInfo(vtList) = 0 then
MessageBox(Handle, PChar('클립보드에 복사 되었습니다.'), APP_TITLE, MB_ICONINFORMATION or MB_OK);
end;
procedure TFrmProcessList.miExportJsonClick(Sender: TObject);
var
ProcList: TProcessEntList;
O: ISuperObject;
begin
if vtList.RootNodeCount = 0 then
begin
MessageBox(Handle, PChar('내보내기 할 프로세스 정보가 없습니다.'), APP_TITLE, MB_ICONWARNING or MB_OK);
exit;
end;
SaveDialog.FileName := '';
if SaveDialog.Execute(Handle) then
begin
Guard(ProcList, TProcessEntList.Create);
ProcList.UpdateProcessList;
O := SO;
O.O['ProcList'] := ProcList.ToJsonObjHE;
SaveJsonObjToFile(O, SaveDialog.FileName);
MessageBox(Handle, PChar('프로세스 목록 정보 내보내기를 완료했습니다.'), APP_TITLE, MB_ICONINFORMATION or MB_OK);
end;
end;
procedure TFrmProcessList.miFilterClick(Sender: TObject);
begin
if miFilter.Checked then
begin
vtList.DestroyFilterEdit;
VtFilter_ := nil;
end else
VtFilter_ := vtList.CreateFilterEdit;
end;
procedure TFrmProcessList.miTerminateClick(Sender: TObject);
var
pNode: PVirtualNode;
pData: PProcEnt;
begin
if vtList.SelectedCount = 0 then
exit;
if MessageBox(Handle, PChar('선택한 프로세스를 종료하시겠습니까?'),
APP_TITLE, MB_ICONWARNING or MB_YESNO) = IDNO then exit;
pNode := vtList.GetFirstSelected;
while pNode <> nil do
begin
pData := vtList.GetNodeData(pNode);
TerminateProcessByPid(pData.Data.Info.dwPid);
pNode := vtList.GetNextSelected(pNode);
end;
end;
procedure TFrmProcessList.miTerminateNameClick(Sender: TObject);
var
pNode: PVirtualNode;
pData: PProcEnt;
begin
if vtList.SelectedCount = 0 then
exit;
if MessageBox(Handle, PChar('선택한 프로세스와 동일한 이름의 프로세스를 모두 종료하시겠습니까?'),
APP_TITLE, MB_ICONWARNING or MB_YESNO) = IDNO then exit;
pNode := vtList.GetFirstSelected;
while pNode <> nil do
begin
pData := vtList.GetNodeData(pNode);
TerminateProcessByName(ExtractFileName(pData.Data.Info.sModuleFileName));
pNode := vtList.GetNextSelected(pNode);
end;
end;
procedure TFrmProcessList.popFunPopup(Sender: TObject);
begin
miFilter.Checked := VtFilter_ <> nil;
end;
procedure TFrmProcessList.tUpdateTimer(Sender: TObject);
procedure AddData(pEnt: PProcMonEnt);
var
pNode: PVirtualNode;
pData: PProcEnt;
begin
if pEnt.bTerminated then
exit;
pData := VT_AddChildDataN(vtList, pNode);
pEnt.pNode := pNode;
pData.Data := pEnt^;
pData.nImgIdx := -1;
if VtFilter_ <> nil then
vtList.IsVisible[pNode] := TVtFilterEdit(VtFilter_).IsNodeVisible(pNode);
end;
var
i: Integer;
pEnt: PProcMonEnt;
pData: PProcEnt;
begin
vtList.BeginUpdate;
ThdProcMon_.LockThread;
try
if vtList.RootNodeCount = 0 then
begin
for i := 0 to ThdProcMon_.EntList.Count - 1 do
AddData(ThdProcMon_.EntList[i]);
VT_SortAll(vtList, 1, sdAscending);
end else begin
for i := 0 to ThdProcMon_.EntList.Count - 1 do
begin
pEnt := ThdProcMon_.EntList[i];
if pEnt.bTerminated then
begin
vtList.DeleteNode(pEnt.pNode);
pEnt.pNode := nil;
continue;
end;
if pEnt.pNode <> nil then
begin
pData := vtList.GetNodeData(pEnt.pNode);
pData.Data := pEnt^;
end else
AddData(ThdProcMon_.EntList[i]);
end;
end;
finally
ThdProcMon_.UnlockThread;
vtList.EndUpdate;
end;
end;
procedure TFrmProcessList.vtListCompareNodes(Sender: TBaseVirtualTree; Node1,
Node2: PVirtualNode; Column: TColumnIndex; var Result: Integer);
var
pData1, pData2: PProcEnt;
begin
pData1 := Sender.GetNodeData(Node1);
pData2 := Sender.GetNodeData(Node2);
case Column of
1, 7, 9, 10, 11, 12, 13 : Result := CompareText(vtList.Text[Node1, Column], vtList.Text[Node2, Column]);
2 : Result := CompareValue(pData1.Data.Info.dwPid, pData2.Data.Info.dwPid);
3 : Result := CompareValue(pData1.Data.Res.fCpu, pData2.Data.Res.fCpu);
4 : Result := CompareValue(pData1.Data.Res.llMemSize, pData2.Data.Res.llMemSize);
5, 6: Result := CompareDateTime(pData1.Data.Info.dtStart, pData2.Data.Info.dtStart);
8 : Result := CompareDateTime(pData1.Data.Info.nPriority, pData2.Data.Info.nPriority);
end;
end;
procedure TFrmProcessList.vtListContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
miCopyCB.Visible := vtList.GetNodeAt(MousePos) <> nil;
miTerminate.Visible := miCopyCB.Visible;
miTerminateName.Visible := miCopyCB.Visible;
end;
procedure TFrmProcessList.vtListFreeNode(Sender: TBaseVirtualTree;
Node: PVirtualNode);
var
pData: PProcEnt;
begin
pData := Sender.GetNodeData(Node);
Finalize(pData^);
end;
procedure TFrmProcessList.vtListGetHint(Sender: TBaseVirtualTree;
Node: PVirtualNode; Column: TColumnIndex;
var LineBreakStyle: TVTTooltipLineBreakStyle; var HintText: string);
begin
HintText := vtList.Text[Node, Column];
end;
procedure TFrmProcessList.vtListGetImageIndex(Sender: TBaseVirtualTree;
Node: PVirtualNode; Kind: TVTImageKind; Column: TColumnIndex;
var Ghosted: Boolean; var ImageIndex: TImageIndex);
var
pData: PProcEnt;
begin
if Column = 1 then
begin
case Kind of
ikNormal,
ikSelected:
begin
pData := Sender.GetNodeData(Node);
if pData.nImgIdx = -1 then
pData.nImgIdx := GetShellImageIndex_path(pData.Data.Info.sModuleFileName);
ImageIndex := pData.nImgIdx;
end;
end;
end;
end;
procedure TFrmProcessList.vtListGetNodeDataSize(Sender: TBaseVirtualTree;
var NodeDataSize: Integer);
begin
NodeDataSize := SizeOf(TProcEnt);
end;
procedure TFrmProcessList.vtListGetText(Sender: TBaseVirtualTree;
Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
var CellText: string);
var
pData: PProcEnt;
begin
pData := Sender.GetNodeData(Node);
case Column of
0 : CellText := IntToStr(Node.Index + 1);
1 : CellText := ExtractFileName(pData.Data.Info.sModuleFileName);
2 : CellText := IntToStr(pData.Data.Info.dwPid);
3 : CellText := Format('%.2f%%', [pData.Data.Res.fCpu]);
4 : CellText := ByteSizeToStr(pData.Data.Res.llMemSize);
5 : CellText := ConvSecBetweenToProgTime(pData.Data.Info.dtStart, Now);
6 : CellText := DateTimeToStr(pData.Data.Info.dtStart);
7 : CellText := pData.Data.Info.sOwner;
8 : CellText := PriorityStrByClass(pData.Data.Info.nPriority);
9 : CellText := pData.Data.Info.sDescription;
10 : CellText := pData.Data.Info.sCompany;
11 : CellText := pData.Data.Info.sVersion;
12 : CellText := pData.Data.Info.sCopyright;
13 : CellText := ExtractFilePath(pData.Data.Info.sModuleFileName);
end;
end;
procedure TFrmProcessList.vtListHeaderClick(Sender: TVTHeader;
HitInfo: TVTHeaderHitInfo);
begin
if HitInfo.Button = mbLeft then
begin
if HitInfo.Column < 0 then
exit;
with Sender, Treeview do
begin
if SortColumn > NoColumn then
Columns[SortColumn].Options := Columns[SortColumn].Options + [coParentColor];
if HitInfo.Column = 0 then
SortColumn := NoColumn
else
begin
if (SortColumn = NoColumn) or (SortColumn <> HitInfo.Column) then
begin
SortColumn := HitInfo.Column;
SortDirection := sdAscending;
end else
if SortDirection = sdAscending then
SortDirection := sdDescending
else
SortDirection := sdAscending;
Columns[SortColumn].Color := $00EFEFEF;
vtList.BeginUpdate;
try
vtList.SortTree(SortColumn, SortDirection, False);
finally
vtList.EndUpdate;
end;
end;
end;
end;
end;
end.

BIN
Tocsg.Module/AppMon/Images/icon.ico Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 2.2 KiB

208
Tocsg.Module/AppMon/ThdProcessMon.pas Normal file
View File

@ -0,0 +1,208 @@
{*******************************************************}
{ }
{ ThdProcessMon }
{ }
{ Copyright (C) 2022 kku }
{ }
{*******************************************************}
unit ThdProcessMon;
interface
uses
Tocsg.Thread, System.SysUtils, System.Classes, Tocsg.Process, Winapi.Windows,
System.Generics.Collections;
type
TProcTimeInfoRec = record
ftKernelTime,
ftUserTime: TFileTime;
end;
TProcResInfo = record
fCpu: Single;
llMemSize: LONGLONG;
hProcess: THandle;
LastSystemTimes,
LastProcessTimes: TProcTimeInfoRec;
end;
PProcMonEnt = ^TProcMonEnt;
TProcMonEnt = record
Info: TProcessEntInfo;
Res: TProcResInfo;
bTerminated: Boolean;
pNode: Pointer;
end;
TProcMonEntList = class(TList<PProcMonEnt>)
protected
procedure Notify(const Item: PProcMonEnt; Action: TCollectionNotification); override;
end;
TThdProcessMon = class(TTgThread)
protected
EntList_: TProcMonEntList;
procedure Execute; override;
public
Constructor Create;
Destructor Destroy; override;
procedure LockThread;
procedure UnlockThread;
property EntList: TProcMonEntList read EntList_;
end;
implementation
uses
Tocsg.Safe, Winapi.PsAPI;
{ TProcMonEntList }
procedure TProcMonEntList.Notify(const Item: PProcMonEnt; Action: TCollectionNotification);
begin
if Action = cnRemoved then
Dispose(Item);
end;
{ TThdProcessMon }
Constructor TThdProcessMon.Create;
begin
Inherited Create;
EntList_ := TProcMonEntList.Create;
StartThread;
end;
Destructor TThdProcessMon.Destroy;
begin
FreeAndNil(EntList_);
Inherited;
end;
procedure TThdProcessMon.LockThread;
begin
Lock;
end;
procedure TThdProcessMon.UnlockThread;
begin
Unlock;
end;
procedure TThdProcessMon.Execute;
procedure UpdateProcRes(var aRes: TProcResInfo);
function SubtFileTime(ft1: TFileTIme; ft2: TFileTIme): TFileTIme;
begin
Result := TFileTIme(LONGLONG(ft1) - LONGLONG(ft2));
end;
var
SystemTimes,
SystemDiffTimes,
ProcessDiffTimes,
ProcessTimes: TProcTimeInfoRec;
SystemTimesIdleTime,
ProcessTimesCreationTime,
ProcessTimesExitTime: TFileTime;
ProcMemCnts: TProcessMemoryCounters;
begin
if aRes.hProcess <> 0 then
begin
if Winapi.Windows.GetSystemTimes(SystemTimesIdleTime, SystemTimes.ftKernelTime, SystemTimes.ftUserTime) then
begin
SystemDiffTimes.ftKernelTime := SubtFileTime(SystemTimes.ftKernelTime, aRes.LastSystemTimes.ftKernelTime);
SystemDiffTimes.ftUserTime := SubtFileTime(SystemTimes.ftUserTime, aRes.LastSystemTimes.ftUserTime);
aRes.LastSystemTimes := SystemTimes;
if GetProcessTimes(aRes.hProcess, ProcessTimesCreationTime, ProcessTimesExitTime, ProcessTimes.ftKernelTime, ProcessTimes.ftUserTime) then
begin
ProcessDiffTimes.ftKernelTime := SubtFileTime(ProcessTimes.ftKernelTime, aRes.LastProcessTimes.ftKernelTime);
ProcessDiffTimes.ftUserTime := SubtFileTime(ProcessTimes.ftUserTime, aRes.LastProcessTimes.ftUserTime);
aRes.LastProcessTimes := ProcessTimes;
if (Int64(SystemDiffTimes.ftKernelTime) + Int64(SystemDiffTimes.ftUserTime)) > 0 then
aRes.fCpu := (Int64(ProcessDiffTimes.ftKernelTime) + Int64(ProcessDiffTimes.ftUserTime)) / (Int64(SystemDiffTimes.ftKernelTime) + Int64(SystemDiffTimes.ftUserTime)) * 100;
end;
end;
if GetProcessMemoryInfo(aRes.hProcess, @ProcMemCnts, SizeOf(ProcMemCnts)) then
aRes.llMemSize := ProcMemCnts.WorkingSetSize
else
aRes.llMemSize := -1;
end;
end;
procedure AddProcMonEnt(pPinfo: PProcessEntInfo);
var
pEnt: PProcMonEnt;
begin
New(pEnt);
ZeroMemory(pEnt, SizeOf(TProcMonEnt));
pEnt.Info := pPinfo^;
pEnt.Res.hProcess := OpenProcess(PROCESS_ALL_ACCESS, false, pEnt.Info.dwPid);
EntList_.Add(pEnt);
end;
var
ChkList: TProcessEntList;
i, c: Integer;
pEnt: PProcMonEnt;
pPInfo: PProcessEntInfo;
begin
Guard(ChkList, TProcessEntList.Create);
while not Terminated and not GetWorkStop do
begin
ChkList.UpdateProcessList;
Lock;
try
if EntList_.Count = 0 then
begin
for i := 0 to ChkList.Count - 1 do
begin
if Terminated or GetWorkStop then
exit;
AddProcMonEnt(ChkList[i]);
end;
end else begin
for i := EntList_.Count - 1 downto 0 do
begin
if Terminated or GetWorkStop then
exit;
pEnt := EntList_[i];
pPInfo := ChkList.GetProcInfoByPid(pEnt.Info.dwPid);
if not pEnt.bTerminated and (pPinfo <> nil) then
begin
pEnt.Info := pPInfo^;
UpdateProcRes(pEnt.Res);
c := ChkList.IndexOf(pPInfo);
if c <> -1 then
ChkList.Delete(c);
end else begin
if pEnt.pNode = nil then
EntList_.Delete(i)
else
pEnt.bTerminated := true;
end;
end;
for i := 0 to ChkList.Count - 1 do
begin
if Terminated or GetWorkStop then
exit;
AddProcMonEnt(ChkList[i]);
end;
end;
finally
Unlock;
end;
Sleep(1000);
end;
end;
end.

14
Tocsg.Module/AutoTokenKey/AutoTokenKey.dpr Normal file
View File

@ -0,0 +1,14 @@
program AutoTokenKey;
uses
Vcl.Forms,
DAtTktKeyMain in 'DAtTktKeyMain.pas' {DlgAtTktKeyMain};
{$R *.res}
begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(TDlgAtTktKeyMain, DlgAtTktKeyMain);
Application.Run;
end.

966
Tocsg.Module/AutoTokenKey/AutoTokenKey.dproj Normal file
View File

@ -0,0 +1,966 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{906522ED-206B-476A-8DA6-DE095DBB3CD0}</ProjectGuid>
<ProjectVersion>19.4</ProjectVersion>
<FrameworkType>VCL</FrameworkType>
<Base>True</Base>
<Config Condition="'$(Config)'==''">Release</Config>
<Platform Condition="'$(Platform)'==''">Win32</Platform>
<TargetedPlatforms>1</TargetedPlatforms>
<AppType>Application</AppType>
<MainSource>AutoTokenKey.dpr</MainSource>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
<Base_Win32>true</Base_Win32>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
<Base_Win64>true</Base_Win64>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_1)'!=''">
<Cfg_1>true</Cfg_1>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win32)'!=''">
<Cfg_1_Win32>true</Cfg_1_Win32>
<CfgParent>Cfg_1</CfgParent>
<Cfg_1>true</Cfg_1>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_2)'!=''">
<Cfg_2>true</Cfg_2>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
<Cfg_2_Win32>true</Cfg_2_Win32>
<CfgParent>Cfg_2</CfgParent>
<Cfg_2>true</Cfg_2>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Base)'!=''">
<DCC_DcuOutput>.\_OUT_Object\$(Platform)\$(Config)</DCC_DcuOutput>
<DCC_ExeOutput>.\OUT_$(Config) - $(Platform)</DCC_ExeOutput>
<DCC_E>false</DCC_E>
<DCC_N>false</DCC_N>
<DCC_S>false</DCC_S>
<DCC_F>false</DCC_F>
<DCC_K>false</DCC_K>
<DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace)</DCC_Namespace>
<Icon_MainIcon>$(BDS)\bin\delphi_PROJECTICON.ico</Icon_MainIcon>
<UWP_DelphiLogo44>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png</UWP_DelphiLogo44>
<UWP_DelphiLogo150>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png</UWP_DelphiLogo150>
<SanitizedProjectName>AutoTokenKey</SanitizedProjectName>
<VerInfo_Locale>1042</VerInfo_Locale>
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Win32)'!=''">
<DCC_UsePackage>vclwinx;DataSnapServer;fmx;emshosting;vclie;DbxCommonDriver;bindengine;IndyIPCommon;VCLRESTComponents;DBXMSSQLDriver;FireDACCommonODBC;emsclient;FireDACCommonDriver;appanalytics;IndyProtocols;vclx;IndyIPClient;dbxcds;vcledge;bindcompvclwinx;FmxTeeUI;EsVclComponents;emsedge;bindcompfmx;hclcore_xe104;DBXFirebirdDriver;htmlreports_xe104;inetdb;ibmonitor;FireDACSqliteDriver;DbxClientDriver;FireDACASADriver;Tee;soapmidas;vclactnband;TeeUI;fmxFireDAC;dbexpress;FireDACInfxDriver;htmlcompfm_xe104;DBXMySQLDriver;VclSmp;inet;DataSnapCommon;vcltouch;fmxase;DBXOdbcDriver;dbrtl;FireDACDBXDriver;FireDACOracleDriver;fmxdae;TeeDB;FireDACMSAccDriver;CustomIPTransport;FireDACMSSQLDriver;DataSnapIndy10ServerTransport;OverbyteIcsD110Run;DataSnapConnectors;vcldsnap;DBXInterBaseDriver;htmlcomp_xe104;FireDACMongoDBDriver;IndySystem;PngComponentsD;FireDACTDataDriver;PKIEDB25;vcldb;ibxbindings;FFmpeg_DXT4;VirtualTreesR;vclFireDAC;bindcomp;FireDACCommon;DataSnapServerMidas;FireDACODBCDriver;emsserverresource;htmledit_xe104;IndyCore;RESTBackendComponents;bindcompdbx;rtl;FireDACMySQLDriver;FireDACADSDriver;htmleditcore_xe104;RESTComponents;DBXSqliteDriver;vcl;IndyIPServer;dsnapxml;dsnapcon;DataSnapClient;DataSnapProviderClient;adortl;htmleditfm_xe104;DBXSybaseASEDriver;DBXDb2Driver;PKIECtrl25;vclimg;DataSnapFireDAC;emsclientfiredac;FireDACPgDriver;FireDAC;FireDACDSDriver;inetdbxpress;xmlrtl;tethering;ibxpress;bindcompvcl;dsnap;CloudService;DBXSybaseASADriver;DBXOracleDriver;FireDACDb2Driver;DBXInformixDriver;vclib;fmxobj;bindcompvclsmp;FMXTee;DataSnapNativeClient;DatasnapConnectorsFreePascal;soaprtl;soapserver;FireDACIBDriver;$(DCC_UsePackage)</DCC_UsePackage>
<DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
<BT_BuildType>Debug</BT_BuildType>
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
<VerInfo_Locale>1033</VerInfo_Locale>
<Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
<Icon_MainIcon>AutoTokenKey_Icon.ico</Icon_MainIcon>
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
<AppDPIAwarenessMode>none</AppDPIAwarenessMode>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Win64)'!=''">
<DCC_UsePackage>vclwinx;DataSnapServer;fmx;emshosting;vclie;DbxCommonDriver;bindengine;IndyIPCommon;VCLRESTComponents;DBXMSSQLDriver;FireDACCommonODBC;emsclient;FireDACCommonDriver;appanalytics;IndyProtocols;vclx;IndyIPClient;dbxcds;vcledge;bindcompvclwinx;FmxTeeUI;EsVclComponents;emsedge;bindcompfmx;DBXFirebirdDriver;inetdb;ibmonitor;FireDACSqliteDriver;DbxClientDriver;FireDACASADriver;Tee;soapmidas;vclactnband;TeeUI;fmxFireDAC;dbexpress;FireDACInfxDriver;DBXMySQLDriver;VclSmp;inet;DataSnapCommon;vcltouch;fmxase;DBXOdbcDriver;dbrtl;FireDACDBXDriver;FireDACOracleDriver;fmxdae;TeeDB;FireDACMSAccDriver;CustomIPTransport;FireDACMSSQLDriver;DataSnapIndy10ServerTransport;OverbyteIcsD110Run;DataSnapConnectors;vcldsnap;DBXInterBaseDriver;FireDACMongoDBDriver;IndySystem;PngComponentsD;FireDACTDataDriver;PKIEDB25;vcldb;ibxbindings;FFmpeg_DXT4;VirtualTreesR;vclFireDAC;bindcomp;FireDACCommon;DataSnapServerMidas;FireDACODBCDriver;emsserverresource;IndyCore;RESTBackendComponents;bindcompdbx;rtl;FireDACMySQLDriver;FireDACADSDriver;RESTComponents;DBXSqliteDriver;vcl;IndyIPServer;dsnapxml;dsnapcon;DataSnapClient;DataSnapProviderClient;adortl;DBXSybaseASEDriver;DBXDb2Driver;PKIECtrl25;vclimg;DataSnapFireDAC;emsclientfiredac;FireDACPgDriver;FireDAC;FireDACDSDriver;inetdbxpress;xmlrtl;tethering;ibxpress;bindcompvcl;dsnap;CloudService;DBXSybaseASADriver;DBXOracleDriver;FireDACDb2Driver;DBXInformixDriver;vclib;fmxobj;bindcompvclsmp;FMXTee;DataSnapNativeClient;DatasnapConnectorsFreePascal;soaprtl;soapserver;FireDACIBDriver;$(DCC_UsePackage)</DCC_UsePackage>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_1)'!=''">
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
<DCC_DebugDCUs>true</DCC_DebugDCUs>
<DCC_Optimize>false</DCC_Optimize>
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
<DCC_DebugInfoInExe>true</DCC_DebugInfoInExe>
<DCC_RemoteDebug>true</DCC_RemoteDebug>
<DCC_IntegerOverflowCheck>true</DCC_IntegerOverflowCheck>
<DCC_RangeChecking>true</DCC_RangeChecking>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
<DCC_RemoteDebug>false</DCC_RemoteDebug>
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
<AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
<VerInfo_Locale>1033</VerInfo_Locale>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2)'!=''">
<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_DebugInformation>0</DCC_DebugInformation>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
<AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
</PropertyGroup>
<ItemGroup>
<DelphiCompile Include="$(MainSource)">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="DAtTktKeyMain.pas">
<Form>DlgAtTktKeyMain</Form>
<FormType>dfm</FormType>
</DCCReference>
<BuildConfiguration Include="Base">
<Key>Base</Key>
</BuildConfiguration>
<BuildConfiguration Include="Debug">
<Key>Cfg_1</Key>
<CfgParent>Base</CfgParent>
</BuildConfiguration>
<BuildConfiguration Include="Release">
<Key>Cfg_2</Key>
<CfgParent>Base</CfgParent>
</BuildConfiguration>
</ItemGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
<Borland.ProjectType>Application</Borland.ProjectType>
<BorlandProject>
<Delphi.Personality>
<Source>
<Source Name="MainSource">AutoTokenKey.dpr</Source>
</Source>
<Excluded_Packages>
<Excluded_Packages Name="$(BDSBIN)\dcloffice2k280.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
<Excluded_Packages Name="$(BDSBIN)\dclofficexp280.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
</Excluded_Packages>
</Delphi.Personality>
<Deployment Version="3">
<DeployFile LocalName="Win32\Debug\AutoTokenKey.exe" Configuration="Debug" Class="ProjectOutput">
<Platform Name="Win32">
<RemoteName>AutoTokenKey.exe</RemoteName>
<Overwrite>true</Overwrite>
</Platform>
</DeployFile>
<DeployClass Name="AdditionalDebugSymbols">
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
<Platform Name="OSX32">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidClasses">
<Platform Name="Android">
<RemoteDir>classes</RemoteDir>
<Operation>64</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>classes</RemoteDir>
<Operation>64</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidFileProvider">
<Platform Name="Android">
<RemoteDir>res\xml</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\xml</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidGDBServer">
<Platform Name="Android">
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidLibnativeArmeabiFile">
<Platform Name="Android">
<RemoteDir>library\lib\armeabi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>library\lib\armeabi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidLibnativeArmeabiv7aFile">
<Platform Name="Android64">
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidLibnativeMipsFile">
<Platform Name="Android">
<RemoteDir>library\lib\mips</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>library\lib\mips</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidServiceOutput">
<Platform Name="Android">
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>library\lib\arm64-v8a</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidServiceOutput_Android32">
<Platform Name="Android64">
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidSplashImageDef">
<Platform Name="Android">
<RemoteDir>res\drawable</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidSplashStyles">
<Platform Name="Android">
<RemoteDir>res\values</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\values</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidSplashStylesV21">
<Platform Name="Android">
<RemoteDir>res\values-v21</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\values-v21</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_Colors">
<Platform Name="Android">
<RemoteDir>res\values</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\values</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_DefaultAppIcon">
<Platform Name="Android">
<RemoteDir>res\drawable</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_LauncherIcon144">
<Platform Name="Android">
<RemoteDir>res\drawable-xxhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-xxhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_LauncherIcon192">
<Platform Name="Android">
<RemoteDir>res\drawable-xxxhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-xxxhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_LauncherIcon36">
<Platform Name="Android">
<RemoteDir>res\drawable-ldpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-ldpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_LauncherIcon48">
<Platform Name="Android">
<RemoteDir>res\drawable-mdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-mdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_LauncherIcon72">
<Platform Name="Android">
<RemoteDir>res\drawable-hdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-hdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_LauncherIcon96">
<Platform Name="Android">
<RemoteDir>res\drawable-xhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-xhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_NotificationIcon24">
<Platform Name="Android">
<RemoteDir>res\drawable-mdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-mdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_NotificationIcon36">
<Platform Name="Android">
<RemoteDir>res\drawable-hdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-hdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_NotificationIcon48">
<Platform Name="Android">
<RemoteDir>res\drawable-xhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-xhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_NotificationIcon72">
<Platform Name="Android">
<RemoteDir>res\drawable-xxhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-xxhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_NotificationIcon96">
<Platform Name="Android">
<RemoteDir>res\drawable-xxxhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-xxxhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_SplashImage426">
<Platform Name="Android">
<RemoteDir>res\drawable-small</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-small</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_SplashImage470">
<Platform Name="Android">
<RemoteDir>res\drawable-normal</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-normal</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_SplashImage640">
<Platform Name="Android">
<RemoteDir>res\drawable-large</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-large</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_SplashImage960">
<Platform Name="Android">
<RemoteDir>res\drawable-xlarge</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-xlarge</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_Strings">
<Platform Name="Android">
<RemoteDir>res\values</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\values</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="DebugSymbols">
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
<Platform Name="OSX32">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
</Platform>
</DeployClass>
<DeployClass Name="DependencyFramework">
<Platform Name="OSX32">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
<Extensions>.framework</Extensions>
</Platform>
<Platform Name="OSX64">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
<Extensions>.framework</Extensions>
</Platform>
<Platform Name="OSXARM64">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
<Extensions>.framework</Extensions>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
</Platform>
</DeployClass>
<DeployClass Name="DependencyModule">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="OSX32">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="OSX64">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="OSXARM64">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
<Extensions>.dll;.bpl</Extensions>
</Platform>
</DeployClass>
<DeployClass Required="true" Name="DependencyPackage">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="OSX32">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="OSX64">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="OSXARM64">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
<Extensions>.bpl</Extensions>
</Platform>
</DeployClass>
<DeployClass Name="File">
<Platform Name="Android">
<Operation>0</Operation>
</Platform>
<Platform Name="Android64">
<Operation>0</Operation>
</Platform>
<Platform Name="iOSDevice32">
<Operation>0</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>0</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>0</Operation>
</Platform>
<Platform Name="OSX32">
<RemoteDir>Contents\Resources\StartUp\</RemoteDir>
<Operation>0</Operation>
</Platform>
<Platform Name="OSX64">
<RemoteDir>Contents\Resources\StartUp\</RemoteDir>
<Operation>0</Operation>
</Platform>
<Platform Name="OSXARM64">
<RemoteDir>Contents\Resources\StartUp\</RemoteDir>
<Operation>0</Operation>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iOS_AppStore1024">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_AppIcon152">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_AppIcon167">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_Launch2x">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_LaunchDark2x">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_Notification40">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_Setting58">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_SpotLight80">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_AppIcon120">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_AppIcon180">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Launch2x">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Launch3x">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_LaunchDark2x">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_LaunchDark3x">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Notification40">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Notification60">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Setting58">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Setting87">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Spotlight120">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Spotlight80">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectAndroidManifest">
<Platform Name="Android">
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectiOSDeviceDebug">
<Platform Name="iOSDevice32">
<RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectiOSEntitlements">
<Platform Name="iOSDevice32">
<RemoteDir>..\</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<RemoteDir>..\</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectiOSInfoPList">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectiOSLaunchScreen">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen</RemoteDir>
<Operation>64</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen</RemoteDir>
<Operation>64</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectiOSResource">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectOSXDebug">
<Platform Name="OSX64">
<RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="OSXARM64">
<RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectOSXEntitlements">
<Platform Name="OSX32">
<RemoteDir>..\</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="OSX64">
<RemoteDir>..\</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="OSXARM64">
<RemoteDir>..\</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectOSXInfoPList">
<Platform Name="OSX32">
<RemoteDir>Contents</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="OSX64">
<RemoteDir>Contents</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="OSXARM64">
<RemoteDir>Contents</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectOSXResource">
<Platform Name="OSX32">
<RemoteDir>Contents\Resources</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="OSX64">
<RemoteDir>Contents\Resources</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="OSXARM64">
<RemoteDir>Contents\Resources</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Required="true" Name="ProjectOutput">
<Platform Name="Android">
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>library\lib\arm64-v8a</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
<Platform Name="Linux64">
<Operation>1</Operation>
</Platform>
<Platform Name="OSX32">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="OSX64">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="OSXARM64">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectOutput_Android32">
<Platform Name="Android64">
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectUWPManifest">
<Platform Name="Win32">
<Operation>1</Operation>
</Platform>
<Platform Name="Win64">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="UWP_DelphiLogo150">
<Platform Name="Win32">
<RemoteDir>Assets</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Win64">
<RemoteDir>Assets</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="UWP_DelphiLogo44">
<Platform Name="Win32">
<RemoteDir>Assets</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Win64">
<RemoteDir>Assets</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<ProjectRoot Platform="Android" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="Android64" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="iOSDevice32" Name="$(PROJECTNAME).app"/>
<ProjectRoot Platform="iOSDevice64" Name="$(PROJECTNAME).app"/>
<ProjectRoot Platform="iOSSimulator" Name="$(PROJECTNAME).app"/>
<ProjectRoot Platform="Linux64" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="OSX32" Name="$(PROJECTNAME).app"/>
<ProjectRoot Platform="OSX64" Name="$(PROJECTNAME).app"/>
<ProjectRoot Platform="OSXARM64" Name="$(PROJECTNAME).app"/>
<ProjectRoot Platform="Win32" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="Win64" Name="$(PROJECTNAME)"/>
</Deployment>
<Platforms>
<Platform value="Win32">True</Platform>
<Platform value="Win64">False</Platform>
</Platforms>
</BorlandProject>
<ProjectFileVersion>12</ProjectFileVersion>
</ProjectExtensions>
<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
<Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
<Import Project="$(MSBuildProjectName).deployproj" Condition="Exists('$(MSBuildProjectName).deployproj')"/>
</Project>

BIN
Tocsg.Module/AutoTokenKey/AutoTokenKey_Icon.ico Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 5.3 KiB

40
Tocsg.Module/AutoTokenKey/DAtTktKeyMain.dfm Normal file
View File

@ -0,0 +1,40 @@
object DlgAtTktKeyMain: TDlgAtTktKeyMain
Left = 0
Top = 0
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = 'AutoTokenKey'
ClientHeight = 154
ClientWidth = 285
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Segoe UI'
Font.Style = []
TextHeight = 15
object lbMsg: TLabel
Left = 0
Top = 0
Width = 285
Height = 154
Align = alClient
Alignment = taCenter
Caption = #53664#53360' '#53412' '#51088#46041#51077#47141' '#51089#46041#51473'....'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Segoe UI'
Font.Style = [fsBold]
ParentFont = False
Layout = tlCenter
ExplicitWidth = 141
ExplicitHeight = 15
end
object tInput: TTimer
Enabled = False
OnTimer = tInputTimer
Left = 32
Top = 24
end
end

83
Tocsg.Module/AutoTokenKey/DAtTktKeyMain.pas Normal file
View File

@ -0,0 +1,83 @@
unit DAtTktKeyMain;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;
type
TDlgAtTktKeyMain = class(TForm)
tInput: TTimer;
lbMsg: TLabel;
procedure tInputTimer(Sender: TObject);
private
{ Private declarations }
sTokenKey_: String;
public
{ Public declarations }
Constructor Create(aOwner: TComponent); override;
end;
var
DlgAtTktKeyMain: TDlgAtTktKeyMain;
implementation
uses
Tocsg.WndUtil, Tocsg.Keyboard, Tocsg.Param;
{$R *.dfm}
Constructor TDlgAtTktKeyMain.Create(aOwner: TComponent);
procedure InitKey;
var
param: TTgParam;
begin
param := TTgParam.Create;
sTokenKey_ := param.GetParamValue('/key');
param.Free;
end;
begin
Inherited Create(aOwner);
Left := Screen.PrimaryMonitor.Width - Width - 200;
Top := 100;
InitKey;
tInput.Enabled := true;
end;
procedure TDlgAtTktKeyMain.tInputTimer(Sender: TObject);
//const
// TOKEN_KEY = 'Q8fbju0Ez@';
var
h, hChild: HWND;
begin
if sTokenKey_ = '' then
begin;
TerminateProcess(GetCurrentProcess, 99);
exit;
end;
h := FindWindow(nil, 'ÅäÅ« ·Î±×¿Â');
if h <> 0 then
begin
Sleep(500);
SetForegroundWindow(h);
hChild := 0;
hChild := GetWndChildClass(h, 'Edit', hChild);
while hChild <> 0 do
begin
if GetEditText(hChild) = '' then
begin
SetEditText(hChild, sTokenKey_);
PressKeys(#13);
exit;
end;
hChild := GetWndChildClass(h, 'Edit', hChild);
end;
end;
end;
end.

BIN
Tocsg.Module/BSCrypto/23_0418 BSCrypto.zip Normal file
View File

Binary file not shown.

41
Tocsg.Module/BSCrypto/BSCrypto.sln Normal file
View File

@ -0,0 +1,41 @@

Microsoft Visual Studio Solution File, Format Version 12.00
# Visual Studio Version 17
VisualStudioVersion = 17.4.33213.308
MinimumVisualStudioVersion = 10.0.40219.1
Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "BSCrypto", "DLL_BSCrypto\DLL_BSCrypto.vcxproj", "{FA609B28-0884-40FF-877B-D863FBB337C4}"
EndProject
Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "BSCryptoTest", "EXE_BSCryptoTest\EXE_BSCryptoTest.vcxproj", "{09F03220-6F39-4CA7-9CF8-8C35479AC145}"
EndProject
Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution
Debug|x64 = Debug|x64
Debug|x86 = Debug|x86
Release|x64 = Release|x64
Release|x86 = Release|x86
EndGlobalSection
GlobalSection(ProjectConfigurationPlatforms) = postSolution
{FA609B28-0884-40FF-877B-D863FBB337C4}.Debug|x64.ActiveCfg = Debug|x64
{FA609B28-0884-40FF-877B-D863FBB337C4}.Debug|x64.Build.0 = Debug|x64
{FA609B28-0884-40FF-877B-D863FBB337C4}.Debug|x86.ActiveCfg = Debug|Win32
{FA609B28-0884-40FF-877B-D863FBB337C4}.Debug|x86.Build.0 = Debug|Win32
{FA609B28-0884-40FF-877B-D863FBB337C4}.Release|x64.ActiveCfg = Release|x64
{FA609B28-0884-40FF-877B-D863FBB337C4}.Release|x64.Build.0 = Release|x64
{FA609B28-0884-40FF-877B-D863FBB337C4}.Release|x86.ActiveCfg = Release|Win32
{FA609B28-0884-40FF-877B-D863FBB337C4}.Release|x86.Build.0 = Release|Win32
{09F03220-6F39-4CA7-9CF8-8C35479AC145}.Debug|x64.ActiveCfg = Debug|x64
{09F03220-6F39-4CA7-9CF8-8C35479AC145}.Debug|x64.Build.0 = Debug|x64
{09F03220-6F39-4CA7-9CF8-8C35479AC145}.Debug|x86.ActiveCfg = Debug|Win32
{09F03220-6F39-4CA7-9CF8-8C35479AC145}.Debug|x86.Build.0 = Debug|Win32
{09F03220-6F39-4CA7-9CF8-8C35479AC145}.Release|x64.ActiveCfg = Release|x64
{09F03220-6F39-4CA7-9CF8-8C35479AC145}.Release|x64.Build.0 = Release|x64
{09F03220-6F39-4CA7-9CF8-8C35479AC145}.Release|x86.ActiveCfg = Release|Win32
{09F03220-6F39-4CA7-9CF8-8C35479AC145}.Release|x86.Build.0 = Release|Win32
EndGlobalSection
GlobalSection(SolutionProperties) = preSolution
HideSolutionNode = FALSE
EndGlobalSection
GlobalSection(ExtensibilityGlobals) = postSolution
SolutionGuid = {118D0124-25EB-4C37-9B2C-2452C1139FAC}
EndGlobalSection
EndGlobal

524
Tocsg.Module/BSCrypto/DLL_BSCrypto/BSCrypto.c Normal file
View File

@ -0,0 +1,524 @@
#include "stdio.h"
#include "BSCrypto.h"
#include "sha256.h"
#include "aria.h"
int _nState = BS_STATE_NONE;
BYTE _pEncKey[32] = { 0, };
BYTE _pDecKey[32] = { 0, };
ARIA_Key _AEncKey;
ARIA_Key _ADecKey;
SHA256_CTX _EncCTX;
SHA256_CTX _DecCTX;
// 문자열키를 32byte 바이너리 키로 생성, 모듈 내부에서만 사용됨
void _BuildStrToKey(const char* sKey, BYTE* pOut, int nSize)
{
for (int i = 0; i < nSize; ++i)
pOut[i] = i;
int n = strlen(sKey);
for (int i = 0; i < n; ++i)
{
pOut[i % nSize] ^= sKey[i];
}
}
char* BSCrypto_GetVersion()
{
return VER_BSCRYPTO;
}
// 암호모듈을 초기화하고 자가시험을 수행한다.
// BS_SUCCESS (0x0001) : 초기화 성공
// BS_CRYPTO_ERROR_SELFTEST_FAILED (0x0002) : 자가시험 실패
// BS_CRYPTO_ERROR_STATE_IN_ERROR (0x0003) : 오류 상태
int BSCrypto_Initialize()
{
if (_nState != BS_STATE_NONE)
return BS_SUCCESS;
// 자가시험
if (BSCrypto_SelfTest() != BS_SUCCESS)
return BS_ERROR_INIT;
// 초기화
BSCrypto_Clear();
_nState = BS_STATE_INIT;
return BS_SUCCESS;
}
int BSCrypto_SelfTest()
{
BYTE rk[16 * 17], c[16], * b, mk[32];
int i, flag;
const DWORD NUMBER = 0x00000042;
BYTE p[16] = { 0x11, 0x11, 0x11, 0x11, 0xaa, 0xaa, 0xaa, 0xaa,
0x11, 0x11, 0x11, 0x11, 0xbb, 0xbb, 0xbb, 0xbb };
const BYTE cryptResult[] = {
0x8d, 0x14, 0x70, 0x62, 0x5f, 0x59, 0xeb, 0xac,
0xb0, 0xe5, 0x5b, 0x53, 0x4b, 0x3e, 0x46, 0x2b };
// 리틀 엔디안 체크
b = (BYTE*)(&NUMBER);
if (b[0] != 0x42)
return BS_ERROR_CRYPTO_SELFTEST_FAILED; // BIG ENDIAN platform
for (i = 0; i < 16; i++)
mk[i] = i * 0x11;
for (i = 16; i < 24; i++)
mk[i] = (i - 16) * 0x11;
Crypt(p, EncKeySetup(mk, rk, 192), rk, c);
flag = 0;
for (i = 0; i < 16; i++)
if (c[i] != cryptResult[i])
flag = 1;
if (flag == 1)
return BS_ERROR_CRYPTO_SELFTEST_FAILED;
for (i = 0; i < 32; i++)
mk[i] = 0;
for (i = 0; i < 16; i++)
p[i] = 0;
EncKeySetup(mk, rk, 192);
Crypt(p, 14, rk, c);
DecKeySetup(mk, rk, 192);
Crypt(c, 14, rk, p);
flag = 0;
for (i = 0; i < 16; i++)
if (p[i] != 0)
flag = 1;
if (flag == 1)
return BS_ERROR_CRYPTO_SELFTEST_FAILED;
return BS_SUCCESS;
}
int BSCrypto_Clear()
{
if (_nState != BS_STATE_INIT)
return BS_ERROR_STATE_IN_ERROR;
memset(&_pEncKey, 0, 32);
memset(&_pDecKey, 0, 32);
memset(&_AEncKey, 0, sizeof(_AEncKey));
memset(&_ADecKey, 0, sizeof(_AEncKey));
memset(&_EncCTX, 0, sizeof(_EncCTX));
memset(&_DecCTX, 0, sizeof(_DecCTX));
return BS_SUCCESS;
}
int BSCrypto_GetState()
{
return _nState;
}
int BSCrypto_FileToSha256(LPCWCH sPath, BYTE* pOutHash)
{
FILE* f = NULL;
_wfopen_s(&f, sPath, L"rb");
if (f != NULL)
{
fseek(f, 0, SEEK_END);
LONGLONG llRead = 0, llReaded = 0;
LONGLONG llSize = _ftelli64(f);
fseek(f, 0, SEEK_SET);
BYTE pBuf[BUF_SIZE] = { 0, };
SHA256_CTX ctx;
sha256_init(&ctx);
while (llReaded < llSize)
{
if (llSize < (llReaded + BUF_SIZE))
llRead = llSize - llReaded;
else
llRead = BUF_SIZE;
llRead = fread_s(pBuf, BUF_SIZE, 1, llRead, f);
if (llRead == 0)
break;
llReaded += llRead;
sha256_update(&ctx, pBuf, llRead);
}
sha256_final(&ctx, pOutHash);
fclose(f);
return BS_SUCCESS;
}
else
return BS_ERROR_OPEN_FILE;
}
void BSCrypto_SetRandomStr(char* sRnd, int nLen)
{
int i;
srand((unsigned int)time(NULL));
for (i = 0; i < nLen; i++)
sRnd[i] = 'a' + rand() % 26;
}
int BSCrypto_EncInit(const char* sKey)
{
if (_nState != BS_STATE_INIT)
return BS_ERROR_STATE_IN_ERROR;
sha256_init(&_EncCTX);
_BuildStrToKey(sKey, _pEncKey, 32);
ARIA_EncKeySetup(_pEncKey, &_AEncKey, 256);
_nState = BS_STATE_ENC;
return BS_SUCCESS;
}
int BSCrypto_EncUpdate(const BYTE* pIn, BYTE* pOut, int nIn)
{
if (_nState != BS_STATE_ENC)
return BS_ERROR_STATE_IN_ERROR;
sha256_update(&_EncCTX, pIn, nIn);
ARIA_Crypt(pIn, pOut, nIn, &_AEncKey);
return BS_SUCCESS;
}
int BSCrypto_EncFinal(BYTE** pOutHash)
{
if (_nState != BS_STATE_ENC)
return BS_ERROR_STATE_IN_ERROR;
BYTE pHash[SHA256_BLOCK_SIZE];
sha256_final(&_EncCTX, pHash);
if (pOutHash != NULL)
memcpy(*pOutHash, pHash, SHA256_BLOCK_SIZE);
_nState = BS_STATE_INIT;
BSCrypto_Clear;
return BS_SUCCESS;
}
int BSCrypto_DecInit(const char* sKey)
{
if (_nState != BS_STATE_INIT)
return BS_ERROR_STATE_IN_ERROR;
sha256_init(&_DecCTX);
_BuildStrToKey(sKey, _pDecKey, 32);
ARIA_EncKeySetup(_pDecKey, &_ADecKey, 256);
_nState = BS_STATE_DEC;
return BS_SUCCESS;
}
int BSCrypto_DecUpdate(const BYTE* pIn, BYTE* pOut, int nIn)
{
if (_nState != BS_STATE_DEC)
return BS_ERROR_STATE_IN_ERROR;
sha256_update(&_DecCTX, pIn, nIn);
ARIA_Crypt(pIn, pOut, nIn, &_ADecKey);
return BS_SUCCESS;
}
int BSCrypto_DecFinal(BYTE** pOutHash)
{
if (_nState != BS_STATE_DEC)
return BS_ERROR_STATE_IN_ERROR;
BYTE pHash[SHA256_BLOCK_SIZE];
sha256_final(&_DecCTX, pHash);
if (pOutHash != NULL)
memcpy(*pOutHash, pHash, SHA256_BLOCK_SIZE);
_nState = BS_STATE_INIT;
BSCrypto_Clear;
return BS_SUCCESS;
}
int BSCrypto_EncFile(const char* sKey, LPCWCH sSrcPath, LPCWCH sDestPath)
{
BSCryptoHead HeadInfo;
memset(&HeadInfo, 0, sizeof(HeadInfo));
HeadInfo.nHeadLen = sizeof(HeadInfo);
int nPad = 0;
FILE* fSrc = NULL;
_wfopen_s(&fSrc, sSrcPath, L"rb");
if (fSrc != NULL)
{
fseek(fSrc, 0, SEEK_END);
LONGLONG llRead = 0, llReaded = 0;
LONGLONG llSize = _ftelli64(fSrc);
fseek(fSrc, 0, SEEK_SET);
BYTE pBuf[BUF_SIZE] = { 0, };
BYTE pBufOut[BUF_SIZE] = { 0, };
BYTE pHash[SHA256_BLOCK_SIZE];
FILE* fDest = NULL;
_wfopen_s(&fDest, sDestPath, L"wb");
if (fDest == NULL)
return BS_ERROR_OPEN_FILE;
// 시그니처 추가
fwrite(ENC_SIG, 1, 5, fDest);
// 헤더정보 채울 수 있는거 채우고
HeadInfo.llSize = llSize;
time(&HeadInfo.tTime);
BSCrypto_SetRandomStr(HeadInfo.sReserve, 220);
// 헤더자리 비우고 시작
fseek(fDest, HeadInfo.nHeadLen, SEEK_CUR);
// 암호화 준비
BYTE pKey[32];
_BuildStrToKey(sKey, pKey, 32);
ARIA_Key AKey;
ARIA_EncKeySetup(pKey, &AKey, 256);
SHA256_CTX ctx;
sha256_init(&ctx);
while (llReaded < llSize)
{
if (llSize < (llReaded + BUF_SIZE))
{
llRead = llSize - llReaded;
nPad = llRead % 16;
if (nPad > 0)
{
nPad = 16 - nPad;
memset(pBufOut, 0, BUF_SIZE);
}
}
else
{
llRead = BUF_SIZE;
}
llRead = fread_s(pBuf, BUF_SIZE, 1, llRead, fSrc);
if (llRead == 0)
break;
llReaded += llRead;
ARIA_Crypt(pBuf, pBufOut, llRead + nPad, &AKey);
fwrite(pBufOut, 1, llRead + nPad, fDest);
sha256_update(&ctx, pBuf, llRead);
}
sha256_final(&ctx, pHash);
// 원본 해시값 입력
memcpy(HeadInfo.pOrgHash, pHash, SHA256_BLOCK_SIZE);
// 헤더 정보 암호화 --------------------------------------------------
_BuildStrToKey(PASS_HEAD, pKey, 32);
ARIA_EncKeySetup(pKey, &AKey, 256);
ARIA_Crypt((BYTE*)&HeadInfo, pBufOut, HeadInfo.nHeadLen, &AKey);
// 헤더 정보 암호화 --------------------------------------------------
// 암호화된 헤더 쓰기
fseek(fDest, 5, SEEK_SET);
fwrite(pBufOut, 1, HeadInfo.nHeadLen, fDest);
if (fDest != NULL)
fclose(fDest);
fclose(fSrc);
return BS_SUCCESS;
} else
return BS_ERROR_OPEN_FILE;
}
int BSCrypto_DecFile(const char* sKey, LPCWCH sSrcPath, LPCWCH sDestPath)
{
FILE* fEnc = NULL;
_wfopen_s(&fEnc, sSrcPath, L"rb");
if (fEnc != NULL)
{
fseek(fEnc, 0, SEEK_END);
LONGLONG llSize = _ftelli64(fEnc);
fseek(fEnc, 0, SEEK_SET);
char sSig[5];
if (fread_s(sSig, 5, 1, 5, fEnc) != 5)
return BS_ERROR_INVALID_ENC_FILE;
if (memcmp(sSig, ENC_SIG, 5) != 0)
return BS_ERROR_INVALID_ENC_FILE;
BYTE pBuf[BUF_SIZE] = { 0, };
BYTE pBufOut[BUF_SIZE] = { 0, };
BYTE pHash[SHA256_BLOCK_SIZE];
BSCryptoHead HeadInfo;
int nHeadLen = sizeof(HeadInfo);
memset(&HeadInfo, 0, nHeadLen);
// 헤더 정보 복호화 --------------------------------------------------
if (fread_s(pBuf, BUF_SIZE, 1, nHeadLen, fEnc) != nHeadLen)
return BS_ERROR_INVALID_ENC_FILE;
BYTE pKey[32];
_BuildStrToKey(PASS_HEAD, pKey, 32);
ARIA_Key AKey;
ARIA_DecKeySetup(pKey, &AKey, 256);
ARIA_Crypt(pBuf, (BYTE*)&HeadInfo, nHeadLen, &AKey);
if (HeadInfo.nHeadLen != nHeadLen)
return BS_ERROR_INVALID_ENC_FILE;
// 헤더 정보 복호화 --------------------------------------------------
// 복호화 준비
_BuildStrToKey(sKey, pKey, 32);
ARIA_DecKeySetup(pKey, &AKey, 256);
FILE* fDec = NULL;
_wfopen_s(&fDec, sDestPath, L"wb");
if (fDec == NULL)
return BS_ERROR_CREATE_FILE;
LONGLONG llWrite = 0, llRead = 0, llReaded = 0;
SHA256_CTX ctx;
sha256_init(&ctx);
while (llReaded < llSize)
{
if (llSize < (llReaded + BUF_SIZE))
{
llRead = llSize - llReaded;
// 원본 크기로 최종 보정
llWrite = HeadInfo.llSize - llReaded;
}
else
{
llRead = BUF_SIZE;
llWrite = llRead;
}
llRead = fread_s(pBuf, BUF_SIZE, 1, llRead, fEnc);
if (llRead == 0)
break;
llReaded += llRead;
ARIA_Crypt(pBuf, pBufOut, llRead, &AKey);
fwrite(pBufOut, 1, llWrite, fDec);
sha256_update(&ctx, pBufOut, llWrite);
}
sha256_final(&ctx, pHash);
if (fDec != NULL)
fclose(fDec);
fclose(fEnc);
// 원본과 해시 비교 후 종료
if (memcmp(HeadInfo.pOrgHash, pHash, SHA256_BLOCK_SIZE) != 0)
return BS_ERROR_DECRYPT_FILE;
else
return BS_SUCCESS;
} else
return BS_ERROR_OPEN_FILE;
}
int BSCrypto_GetOrgFileHash(LPCWCH sEncPath, BYTE* pOutHash)
{
FILE* fEnc = NULL;
_wfopen_s(&fEnc, sEncPath, L"rb");
if (fEnc != NULL)
{
fseek(fEnc, 0, SEEK_SET);
char sSig[5];
if (fread_s(sSig, 5, 1, 5, fEnc) != 5)
return BS_ERROR_INVALID_ENC_FILE;
if (memcmp(sSig, ENC_SIG, 5) != 0)
return BS_ERROR_INVALID_ENC_FILE;
BYTE pBuf[BUF_SIZE] = { 0, };
BSCryptoHead HeadInfo;
int nHeadLen = sizeof(HeadInfo);
memset(&HeadInfo, 0, nHeadLen);
// 헤더 정보 복호화 --------------------------------------------------
if (fread_s(pBuf, BUF_SIZE, 1, nHeadLen, fEnc) != nHeadLen)
return BS_ERROR_INVALID_ENC_FILE;
fclose(fEnc);
BYTE pKey[32];
_BuildStrToKey(PASS_HEAD, pKey, 32);
ARIA_Key AKey;
ARIA_DecKeySetup(pKey, &AKey, 256);
ARIA_Crypt(pBuf, (BYTE*)&HeadInfo, nHeadLen, &AKey);
if (HeadInfo.nHeadLen != nHeadLen)
return BS_ERROR_INVALID_ENC_FILE;
// 헤더 정보 복호화 --------------------------------------------------
memcpy(pOutHash, HeadInfo.pOrgHash, SHA256_BLOCK_SIZE);
return BS_SUCCESS;
}
else
return BS_ERROR_OPEN_FILE;
}
int BSCrypto_IsEncFile(LPCWCH sEncPath)
{
FILE* fEnc = NULL;
_wfopen_s(&fEnc, sEncPath, L"rb");
if (fEnc != NULL)
{
fseek(fEnc, 0, SEEK_SET);
char sSig[5];
if (fread_s(sSig, 5, 1, 5, fEnc) != 5)
return BS_ERROR_INVALID_ENC_FILE;
if (memcmp(sSig, ENC_SIG, 5) != 0)
return BS_ERROR_INVALID_ENC_FILE;
BYTE pBuf[BUF_SIZE] = { 0, };
BSCryptoHead HeadInfo;
int nHeadLen = sizeof(HeadInfo);
memset(&HeadInfo, 0, nHeadLen);
// 헤더 정보 복호화 --------------------------------------------------
if (fread_s(pBuf, BUF_SIZE, 1, nHeadLen, fEnc) != nHeadLen)
return BS_ERROR_INVALID_ENC_FILE;
fclose(fEnc);
BYTE pKey[32];
_BuildStrToKey(PASS_HEAD, pKey, 32);
ARIA_Key AKey;
ARIA_DecKeySetup(pKey, &AKey, 256);
ARIA_Crypt(pBuf, (BYTE*)&HeadInfo, nHeadLen, &AKey);
if (HeadInfo.nHeadLen != nHeadLen)
return BS_ERROR_INVALID_ENC_FILE;
// 헤더 정보 복호화 --------------------------------------------------
return BS_SUCCESS;
}
else
return BS_ERROR_OPEN_FILE;
}

6
Tocsg.Module/BSCrypto/DLL_BSCrypto/BSCrypto.def Normal file
View File

@ -0,0 +1,6 @@
LIBRARY "BSCrypto"
SECTIONS
.SHARDATA READ WRITE SHARED
EXPORTS
ARIA_test @1

124
Tocsg.Module/BSCrypto/DLL_BSCrypto/BSCrypto.h Normal file
View File

@ -0,0 +1,124 @@
#ifndef BS_CryptoH
#define BS_CryptoH
#include "BSDefine.h"
#define VER_BSCRYPTO "BSCrypto 1.0"
#ifdef __cplusplus
extern "C" {
#endif
// BSCrypto의 버전을 표시합니다. (BSCrypto 1.0)
DLL_EXPORT char* BSCrypto_GetVersion();
// 블록 암호화 사용 시 모듈을 준비합니다.
// 자가시험 후 모듈을 초기화 합니다.
// 성공 : BS_SUCCESS, 실패 : BS_ERROR_INIT
DLL_EXPORT int BSCrypto_Initialize();
// 자가시험을 시도합니다.
// 성공 : BS_SUCCESS, 실패 : BS_ERROR_CRYPTO_SELFTEST_FAILED
DLL_EXPORT int BSCrypto_SelfTest();
// 암/복호화 정보를 초기화 합니다.
// 암호화 또는 복호화 중일 경우 실패합니다.
// 성공 : BS_SUCCESS, 실패 : BS_ERROR_STATE_IN_ERROR
DLL_EXPORT int BSCrypto_Clear();
// 현재 상태값을 반환합니다.
// BS_STATE_NONE : 준비가 안된 상태입니다. BSCrypto_Initialize() 호출 이전에 블록 암호화를 진행할 수 없습니다.
// BS_STATE_INIT : BSCrypto_Initialize() 호출 후 정상 동작이 가능한 상태입니다. 암호화, 복호화 대기중입니다.
// BS_STATE_ENC : 암호화 중입니다.
// BS_STATE_DEC : 복호화 중입니다.
DLL_EXPORT int BSCrypto_GetState();
// 첫번째 인자의 파일의 해시를 구합니다. (SHA-256)
// 성공 : BS_SUCCESS, 실패 : BS_ERROR_OPEN_FILE
DLL_EXPORT int BSCrypto_FileToSha256(LPCWCH sPath, BYTE* pOutHash);
// 지정된 크기만큼 임의의 문자를 발생시킴니다.
DLL_EXPORT void BSCrypto_SetRandomStr(char* sRnd, int nLen);
// 블록 암호화를 준비합니다.
// 인자로 받은 키를 32byte binary키로 재구성 하고 대상 데이터 해시계산(SHA-256)을 준비합니다.
// 상태가 BS_STATE_INIT가 아닌경우 실패합니다.
// // 준비가 완료되면 상태를 BS_STATE_ENC로 변경합니다.
// 성공 : BS_SUCCESS, 실패 : BS_ERROR_STATE_IN_ERROR
DLL_EXPORT int BSCrypto_EncInit(const char* sKey);
// 데이터를 암호화 합니다. 원본데이터는 무결성 검사를 위해 해시를 업데이트 합니다.
// 상태가 BS_STATE_ENC가 아닌 경우 실패합니다.
// 성공 : BS_SUCCESS, 실패: BS_ERROR_STATE_IN_ERROR
DLL_EXPORT int BSCrypto_EncUpdate(const BYTE* pIn, BYTE* pOut, int nIn);
// 암호화를 종료 합니다. pOutHash 주소값이 NULL 아닌 경우 원본 데이터의 해키값을 반환합니다. (32byte 고정)
// 상태가 BS_STATE_ENC가 아닌 경우 실패합니다.
// 암호화 정보를 초기화 후 상태 정보를 BS_STATE_INIT로 되돌립니다.
// 성공 : BS_SUCCESS, 실패: BS_ERROR_STATE_IN_ERROR
DLL_EXPORT int BSCrypto_EncFinal(BYTE** pOutHash);
// 블록 복호화를 준비합니다.
// 인자로 받은 키를 32byte binary키로 재구성 하고 복호화된 데이터 해시계산(SHA-256)을 준비합니다.
// 상태가 BS_STATE_INIT가 아닌경우 실패합니다.
// 준비가 완료되면 상태를 BS_STATE_DEC로 변경합니다.
// 성공 : BS_SUCCESS, 실패 : BS_ERROR_STATE_IN_ERROR
DLL_EXPORT int BSCrypto_DecInit(const char* sKey);
// 데이터를 복호화 합니다. 복호화된 데이터는 무결성 검사를 위해 해시를 업데이트 합니다.
// 상태가 BS_STATE_DEC가 아닌 경우 실패합니다.
// 성공 : BS_SUCCESS, 실패: BS_ERROR_STATE_IN_ERROR
DLL_EXPORT int BSCrypto_DecUpdate(const BYTE* pIn, BYTE* pOut, int nIn);
// 복호화를 종료 합니다. pOutHash 주소값이 NULL 아닌 경우 복호화된 데이터의 해키값을 반환합니다. (32byte 고정)
// 상태가 BS_STATE_DEC가 아닌 경우 실패합니다.
// 암호화 정보를 초기화 후 상태 정보를 BS_STATE_INIT로 되돌립니다.
// 성공 : BS_SUCCESS, 실패: BS_ERROR_STATE_IN_ERROR
DLL_EXPORT int BSCrypto_DecFinal(BYTE** pOutHash);
// 파일을 암호화 합니다.
// 인자값 : 암호화 키, 대상 파일 경로, 암호화된 파일 저장 경로
//
// 결과값
// BS_SUCCESS : 성공
// BS_ERROR_OPEN_FILE : 원본 파일 열기 실패
DLL_EXPORT int BSCrypto_EncFile(const char* sKey, LPCWCH sSrcPath, LPCWCH sDestPath);
// 파일을 복호화 합니다.
// 인자값 : 복호화 키, 암호화된 파일 경로, 복호화된 파일 저장 경로
//
// 결과값
// BS_SUCCESS : 성공
// BS_ERROR_OPEN_FILE : 암호화된 파일 열기 실패
// BS_ERROR_INVALID_ENC_FILE : 잘못된 암호화 파일
// BS_ERROR_CREATE_FILE : 복호화 파일 생성 실패
// BS_ERROR_DECRYPT_FILE : 복호화 후 무결성 검사 실패, 복호화 키가 잘못 되었거나 파일이 손상된 경우 발생
DLL_EXPORT int BSCrypto_DecFile(const char* sKey, LPCWCH sSrcPath, LPCWCH sDestPath);
// 암호화된 파일의 헤더 정보에서 원본 파일의 해시값(SHA-256)을 반환합니다.
//
// 결과값
// BS_SUCCESS : 성공
// BS_ERROR_OPEN_FILE : 암호화된 파일 열기 실패
// BS_ERROR_INVALID_ENC_FILE : 잘못된 암호화 파일
DLL_EXPORT int BSCrypto_GetOrgFileHash(LPCWCH sEncPath, BYTE* pOutHash);
// 암호화된 파일인지 확인합니다.
//
// 결과값
// BS_SUCCESS : 성공
// BS_ERROR_OPEN_FILE : 대상 파일 열기 실패
// BS_ERROR_INVALID_ENC_FILE : 암호화 파일 아님
DLL_EXPORT int BSCrypto_IsEncFile(LPCWCH sEncPath);
#ifdef __cplusplus
}
#endif
#endif

173
Tocsg.Module/BSCrypto/DLL_BSCrypto/DLL_BSCrypto.vcxproj Normal file
View File

@ -0,0 +1,173 @@
<?xml version="1.0" encoding="utf-8"?>
<Project DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<ItemGroup Label="ProjectConfigurations">
<ProjectConfiguration Include="Debug|Win32">
<Configuration>Debug</Configuration>
<Platform>Win32</Platform>
</ProjectConfiguration>
<ProjectConfiguration Include="Release|Win32">
<Configuration>Release</Configuration>
<Platform>Win32</Platform>
</ProjectConfiguration>
<ProjectConfiguration Include="Debug|x64">
<Configuration>Debug</Configuration>
<Platform>x64</Platform>
</ProjectConfiguration>
<ProjectConfiguration Include="Release|x64">
<Configuration>Release</Configuration>
<Platform>x64</Platform>
</ProjectConfiguration>
</ItemGroup>
<PropertyGroup Label="Globals">
<VCProjectVersion>16.0</VCProjectVersion>
<Keyword>Win32Proj</Keyword>
<ProjectGuid>{fa609b28-0884-40ff-877b-d863fbb337c4}</ProjectGuid>
<RootNamespace>DLLBSCrypto</RootNamespace>
<WindowsTargetPlatformVersion>10.0</WindowsTargetPlatformVersion>
<ProjectName>BSCrypto</ProjectName>
</PropertyGroup>
<Import Project="$(VCTargetsPath)\Microsoft.Cpp.Default.props" />
<PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'" Label="Configuration">
<ConfigurationType>DynamicLibrary</ConfigurationType>
<UseDebugLibraries>true</UseDebugLibraries>
<PlatformToolset>v143</PlatformToolset>
<CharacterSet>Unicode</CharacterSet>
</PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Release|Win32'" Label="Configuration">
<ConfigurationType>DynamicLibrary</ConfigurationType>
<UseDebugLibraries>false</UseDebugLibraries>
<PlatformToolset>v143</PlatformToolset>
<WholeProgramOptimization>true</WholeProgramOptimization>
<CharacterSet>Unicode</CharacterSet>
</PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Debug|x64'" Label="Configuration">
<ConfigurationType>DynamicLibrary</ConfigurationType>
<UseDebugLibraries>true</UseDebugLibraries>
<PlatformToolset>v143</PlatformToolset>
<CharacterSet>Unicode</CharacterSet>
</PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Release|x64'" Label="Configuration">
<ConfigurationType>DynamicLibrary</ConfigurationType>
<UseDebugLibraries>false</UseDebugLibraries>
<PlatformToolset>v143</PlatformToolset>
<WholeProgramOptimization>true</WholeProgramOptimization>
<CharacterSet>Unicode</CharacterSet>
</PropertyGroup>
<Import Project="$(VCTargetsPath)\Microsoft.Cpp.props" />
<ImportGroup Label="ExtensionSettings">
</ImportGroup>
<ImportGroup Label="Shared">
</ImportGroup>
<ImportGroup Label="PropertySheets" Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">
<Import Project="$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props" Condition="exists('$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props')" Label="LocalAppDataPlatform" />
</ImportGroup>
<ImportGroup Label="PropertySheets" Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">
<Import Project="$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props" Condition="exists('$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props')" Label="LocalAppDataPlatform" />
</ImportGroup>
<ImportGroup Label="PropertySheets" Condition="'$(Configuration)|$(Platform)'=='Debug|x64'">
<Import Project="$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props" Condition="exists('$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props')" Label="LocalAppDataPlatform" />
</ImportGroup>
<ImportGroup Label="PropertySheets" Condition="'$(Configuration)|$(Platform)'=='Release|x64'">
<Import Project="$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props" Condition="exists('$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props')" Label="LocalAppDataPlatform" />
</ImportGroup>
<PropertyGroup Label="UserMacros" />
<ItemDefinitionGroup Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">
<ClCompile>
<WarningLevel>Level3</WarningLevel>
<SDLCheck>true</SDLCheck>
<PreprocessorDefinitions>WIN32;_DEBUG;DLLBSCRYPTO_EXPORTS;_WINDOWS;_USRDLL;%(PreprocessorDefinitions)</PreprocessorDefinitions>
<ConformanceMode>true</ConformanceMode>
<PrecompiledHeader>Use</PrecompiledHeader>
<PrecompiledHeaderFile>pch.h</PrecompiledHeaderFile>
</ClCompile>
<Link>
<SubSystem>Windows</SubSystem>
<GenerateDebugInformation>true</GenerateDebugInformation>
<EnableUAC>false</EnableUAC>
<ModuleDefinitionFile>Source.def</ModuleDefinitionFile>
</Link>
</ItemDefinitionGroup>
<ItemDefinitionGroup Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">
<ClCompile>
<WarningLevel>Level3</WarningLevel>
<FunctionLevelLinking>true</FunctionLevelLinking>
<IntrinsicFunctions>true</IntrinsicFunctions>
<SDLCheck>true</SDLCheck>
<PreprocessorDefinitions>WIN32;NDEBUG;DLLBSCRYPTO_EXPORTS;_WINDOWS;_USRDLL;%(PreprocessorDefinitions)</PreprocessorDefinitions>
<ConformanceMode>true</ConformanceMode>
<PrecompiledHeader>Use</PrecompiledHeader>
<PrecompiledHeaderFile>pch.h</PrecompiledHeaderFile>
</ClCompile>
<Link>
<SubSystem>Windows</SubSystem>
<EnableCOMDATFolding>true</EnableCOMDATFolding>
<OptimizeReferences>true</OptimizeReferences>
<GenerateDebugInformation>true</GenerateDebugInformation>
<EnableUAC>false</EnableUAC>
<ModuleDefinitionFile>Source.def</ModuleDefinitionFile>
</Link>
</ItemDefinitionGroup>
<ItemDefinitionGroup Condition="'$(Configuration)|$(Platform)'=='Debug|x64'">
<ClCompile>
<WarningLevel>Level3</WarningLevel>
<SDLCheck>true</SDLCheck>
<PreprocessorDefinitions>_DEBUG;DLLBSCRYPTO_EXPORTS;_WINDOWS;_USRDLL;%(PreprocessorDefinitions)</PreprocessorDefinitions>
<ConformanceMode>true</ConformanceMode>
<PrecompiledHeader>NotUsing</PrecompiledHeader>
<PrecompiledHeaderFile>pch.h</PrecompiledHeaderFile>
<AdditionalIncludeDirectories>..\LIB_Common;%(AdditionalIncludeDirectories)</AdditionalIncludeDirectories>
</ClCompile>
<Link>
<SubSystem>Windows</SubSystem>
<GenerateDebugInformation>true</GenerateDebugInformation>
<EnableUAC>false</EnableUAC>
<ModuleDefinitionFile>
</ModuleDefinitionFile>
<OutputFile>$(OutDir)$(TargetName)$(TargetExt)</OutputFile>
</Link>
</ItemDefinitionGroup>
<ItemDefinitionGroup Condition="'$(Configuration)|$(Platform)'=='Release|x64'">
<ClCompile>
<WarningLevel>Level3</WarningLevel>
<FunctionLevelLinking>true</FunctionLevelLinking>
<IntrinsicFunctions>true</IntrinsicFunctions>
<SDLCheck>true</SDLCheck>
<PreprocessorDefinitions>NDEBUG;DLLBSCRYPTO_EXPORTS;_WINDOWS;_USRDLL;%(PreprocessorDefinitions)</PreprocessorDefinitions>
<ConformanceMode>true</ConformanceMode>
<PrecompiledHeader>Use</PrecompiledHeader>
<PrecompiledHeaderFile>pch.h</PrecompiledHeaderFile>
</ClCompile>
<Link>
<SubSystem>Windows</SubSystem>
<EnableCOMDATFolding>true</EnableCOMDATFolding>
<OptimizeReferences>true</OptimizeReferences>
<GenerateDebugInformation>true</GenerateDebugInformation>
<EnableUAC>false</EnableUAC>
<ModuleDefinitionFile>Source.def</ModuleDefinitionFile>
</Link>
</ItemDefinitionGroup>
<ItemGroup>
<ClInclude Include="..\LIB_Common\aria.h" />
<ClInclude Include="..\LIB_Common\BSDefine.h" />
<ClInclude Include="..\LIB_Common\sha256.h" />
<ClInclude Include="BSCrypto.h" />
<ClInclude Include="framework.h" />
<ClInclude Include="pch.h" />
</ItemGroup>
<ItemGroup>
<ClCompile Include="..\LIB_Common\aria.c" />
<ClCompile Include="..\LIB_Common\BSUtil.c" />
<ClCompile Include="..\LIB_Common\sha256.c" />
<ClCompile Include="BSCrypto.c" />
<ClCompile Include="dllmain.cpp" />
<ClCompile Include="pch.cpp">
<PrecompiledHeader Condition="'$(Configuration)|$(Platform)'=='Debug|x64'">Create</PrecompiledHeader>
<PrecompiledHeader Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">Create</PrecompiledHeader>
<PrecompiledHeader Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">Create</PrecompiledHeader>
<PrecompiledHeader Condition="'$(Configuration)|$(Platform)'=='Release|x64'">Create</PrecompiledHeader>
</ClCompile>
</ItemGroup>
<Import Project="$(VCTargetsPath)\Microsoft.Cpp.targets" />
<ImportGroup Label="ExtensionTargets">
</ImportGroup>
</Project>

19
Tocsg.Module/BSCrypto/DLL_BSCrypto/dllmain.cpp Normal file
View File

@ -0,0 +1,19 @@
// dllmain.cpp : DLL 애플리케이션의 진입점을 정의합니다.
#include "pch.h"
BOOL APIENTRY DllMain( HMODULE hModule,
DWORD ul_reason_for_call,
LPVOID lpReserved
)
{
switch (ul_reason_for_call)
{
case DLL_PROCESS_ATTACH:
case DLL_THREAD_ATTACH:
case DLL_THREAD_DETACH:
case DLL_PROCESS_DETACH:
break;
}
return TRUE;
}

5
Tocsg.Module/BSCrypto/DLL_BSCrypto/framework.h Normal file
View File

@ -0,0 +1,5 @@
#pragma once
#define WIN32_LEAN_AND_MEAN // 거의 사용되지 않는 내용을 Windows 헤더에서 제외합니다.
// Windows 헤더 파일
#include <windows.h>

5
Tocsg.Module/BSCrypto/DLL_BSCrypto/pch.cpp Normal file
View File

@ -0,0 +1,5 @@
// pch.cpp: 미리 컴파일된 헤더에 해당하는 소스 파일
#include "pch.h"
// 미리 컴파일된 헤더를 사용하는 경우 컴파일이 성공하려면 이 소스 파일이 필요합니다.

13
Tocsg.Module/BSCrypto/DLL_BSCrypto/pch.h Normal file
View File

@ -0,0 +1,13 @@
// pch.h: 미리 컴파일된 헤더 파일입니다.
// 아래 나열된 파일은 한 번만 컴파일되었으며, 향후 빌드에 대한 빌드 성능을 향상합니다.
// 코드 컴파일 및 여러 코드 검색 기능을 포함하여 IntelliSense 성능에도 영향을 미칩니다.
// 그러나 여기에 나열된 파일은 빌드 간 업데이트되는 경우 모두 다시 컴파일됩니다.
// 여기에 자주 업데이트할 파일을 추가하지 마세요. 그러면 성능이 저하됩니다.
#ifndef PCH_H
#define PCH_H
// 여기에 미리 컴파일하려는 헤더 추가
#include "framework.h"
#endif //PCH_H

BIN
Tocsg.Module/BSCrypto/EXE_BSCryptoTest/23_0418 수정전 BSCryptoTest.zip Normal file
View File

Binary file not shown.

131
Tocsg.Module/BSCrypto/EXE_BSCryptoTest/BSCryptoTest.cpp Normal file
View File

@ -0,0 +1,131 @@
#include "stdio.h"
#include "BSCrypto.h"
#include "BSUtil.h"
#include "wchar.h"
void printBlockOfLength(BYTE* b, int len)
{
int i;
for (i = 0; i < len; i++, b++)
{
printf("%02x", *b);
}
printf("\n\n");
}
int wmain(int argc, WCHAR *argv[])
{
printf("%s\n\n", BSCrypto_GetVersion());
if (BSCrypto_SelfTest() != BS_SUCCESS)
{
printf("자가시험에 실패했습니다.. 환경을 확인 후 관리자에게 문의해주세요.\n");
return 0;
}
if (argc < 4)
{
printf("명령어가 잘못 되었습니다.\n");
printf("ex) BSCryptoText.exe -k 1111 \"원본 파일\" \"암호화 후 저장될 파일\"\n");
printf("ex) BSCryptoText.exe -k 1111 -d \"암호화된 파일\" \"복호화 후 저장될 파일\"\n");
return 0;
}
else if (argc > 6)
{
printf("명령어 인자가 너무 많습니다.\n");
return 0;
}
char sKey[256] = { 0, };
if (wcscmp(argv[1], L"-k") == 0)
{
sprintf_s(sKey, "%ws", argv[2]);
}
else
{
printf("암/복호화 키를 입력해주세요.\n");
return 0;
}
if (wcscmp(argv[3], L"-d") != 0)
{
// 암호화
WCHAR* sOrgPath = argv[3];
WCHAR* sEncPath = argv[4];
if (BSCrypto_IsEncFile(sOrgPath) == BS_SUCCESS)
{
printf("이미 암호화된 파일입니다.\n");
return 0;
}
switch (BSCrypto_EncFile(sKey, sOrgPath, sEncPath))
{
case BS_SUCCESS :
// 암호화 무결성 체크
BYTE pHash1[SHA256_BLOCK_SIZE];
BYTE pHash2[SHA256_BLOCK_SIZE];
if (BSCrypto_FileToSha256(sOrgPath, pHash1) == BS_SUCCESS)
{
// 원본 해시를 구해서
printf("원본파일 해시 : ");
printBlockOfLength(pHash1, SHA256_BLOCK_SIZE);
// 블록 암호화 시 사용된 데이터 해시를 비교한다.
if (BSCrypto_GetOrgFileHash(sEncPath, pHash2) == BS_SUCCESS)
{
printf("암호화 적용전 해시 : ");
printBlockOfLength(pHash2, SHA256_BLOCK_SIZE);
if (memcmp(pHash1, pHash2, SHA256_BLOCK_SIZE) == 0)
{
printf("암호화 성공\n");
}
}
}
return 0;
case BS_ERROR_OPEN_FILE :
printf("파일을 열수 없습니다.\n");
return 0;
default :
printf("알수없는 오류.\n");
return 0;
}
}
else
{
// 복호화
WCHAR* sEncPath = argv[4];
WCHAR* sDecPath = argv[5];
if (BSCrypto_IsEncFile(sEncPath) != BS_SUCCESS)
{
printf("암호화된 파일이 아닙니다.\n");
return 0;
}
switch (BSCrypto_DecFile(sKey, sEncPath, sDecPath))
{
case BS_SUCCESS :
printf("복호화 성공\n");
return 0;
case BS_ERROR_OPEN_FILE :
printf("파일을 열수 없습니다.\n");
return 0;
case BS_ERROR_INVALID_ENC_FILE :
printf("잘못된 암호 파일입니다.\n");
return 0;
case BS_ERROR_CREATE_FILE :
printf("복호화 파일을 생성할 수 없습니다.\n");
return 0;
case BS_ERROR_DECRYPT_FILE :
printf("무결성 검증 실패. 복호화키가 잘못되었을 수 있습니다.\n");
return 0;
default:
printf("알수없는 오류.\n");
return 0;
}
}
}

148
Tocsg.Module/BSCrypto/EXE_BSCryptoTest/EXE_BSCryptoTest.vcxproj Normal file
View File

@ -0,0 +1,148 @@
<?xml version="1.0" encoding="utf-8"?>
<Project DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<ItemGroup Label="ProjectConfigurations">
<ProjectConfiguration Include="Debug|Win32">
<Configuration>Debug</Configuration>
<Platform>Win32</Platform>
</ProjectConfiguration>
<ProjectConfiguration Include="Release|Win32">
<Configuration>Release</Configuration>
<Platform>Win32</Platform>
</ProjectConfiguration>
<ProjectConfiguration Include="Debug|x64">
<Configuration>Debug</Configuration>
<Platform>x64</Platform>
</ProjectConfiguration>
<ProjectConfiguration Include="Release|x64">
<Configuration>Release</Configuration>
<Platform>x64</Platform>
</ProjectConfiguration>
</ItemGroup>
<PropertyGroup Label="Globals">
<VCProjectVersion>16.0</VCProjectVersion>
<Keyword>Win32Proj</Keyword>
<ProjectGuid>{09f03220-6f39-4ca7-9cf8-8c35479ac145}</ProjectGuid>
<RootNamespace>EXEBSCryptoTest</RootNamespace>
<WindowsTargetPlatformVersion>10.0</WindowsTargetPlatformVersion>
<ProjectName>BSCryptoTest</ProjectName>
</PropertyGroup>
<Import Project="$(VCTargetsPath)\Microsoft.Cpp.Default.props" />
<PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'" Label="Configuration">
<ConfigurationType>Application</ConfigurationType>
<UseDebugLibraries>true</UseDebugLibraries>
<PlatformToolset>v143</PlatformToolset>
<CharacterSet>Unicode</CharacterSet>
</PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Release|Win32'" Label="Configuration">
<ConfigurationType>Application</ConfigurationType>
<UseDebugLibraries>false</UseDebugLibraries>
<PlatformToolset>v143</PlatformToolset>
<WholeProgramOptimization>true</WholeProgramOptimization>
<CharacterSet>Unicode</CharacterSet>
</PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Debug|x64'" Label="Configuration">
<ConfigurationType>Application</ConfigurationType>
<UseDebugLibraries>true</UseDebugLibraries>
<PlatformToolset>v143</PlatformToolset>
<CharacterSet>Unicode</CharacterSet>
</PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Release|x64'" Label="Configuration">
<ConfigurationType>Application</ConfigurationType>
<UseDebugLibraries>false</UseDebugLibraries>
<PlatformToolset>v143</PlatformToolset>
<WholeProgramOptimization>true</WholeProgramOptimization>
<CharacterSet>Unicode</CharacterSet>
</PropertyGroup>
<Import Project="$(VCTargetsPath)\Microsoft.Cpp.props" />
<ImportGroup Label="ExtensionSettings">
</ImportGroup>
<ImportGroup Label="Shared">
</ImportGroup>
<ImportGroup Label="PropertySheets" Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">
<Import Project="$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props" Condition="exists('$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props')" Label="LocalAppDataPlatform" />
</ImportGroup>
<ImportGroup Label="PropertySheets" Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">
<Import Project="$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props" Condition="exists('$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props')" Label="LocalAppDataPlatform" />
</ImportGroup>
<ImportGroup Label="PropertySheets" Condition="'$(Configuration)|$(Platform)'=='Debug|x64'">
<Import Project="$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props" Condition="exists('$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props')" Label="LocalAppDataPlatform" />
</ImportGroup>
<ImportGroup Label="PropertySheets" Condition="'$(Configuration)|$(Platform)'=='Release|x64'">
<Import Project="$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props" Condition="exists('$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props')" Label="LocalAppDataPlatform" />
</ImportGroup>
<PropertyGroup Label="UserMacros" />
<ItemDefinitionGroup Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">
<ClCompile>
<WarningLevel>Level3</WarningLevel>
<SDLCheck>true</SDLCheck>
<PreprocessorDefinitions>WIN32;_DEBUG;_CONSOLE;%(PreprocessorDefinitions)</PreprocessorDefinitions>
<ConformanceMode>true</ConformanceMode>
</ClCompile>
<Link>
<SubSystem>Console</SubSystem>
<GenerateDebugInformation>true</GenerateDebugInformation>
</Link>
</ItemDefinitionGroup>
<ItemDefinitionGroup Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">
<ClCompile>
<WarningLevel>Level3</WarningLevel>
<FunctionLevelLinking>true</FunctionLevelLinking>
<IntrinsicFunctions>true</IntrinsicFunctions>
<SDLCheck>true</SDLCheck>
<PreprocessorDefinitions>WIN32;NDEBUG;_CONSOLE;%(PreprocessorDefinitions)</PreprocessorDefinitions>
<ConformanceMode>true</ConformanceMode>
</ClCompile>
<Link>
<SubSystem>Console</SubSystem>
<EnableCOMDATFolding>true</EnableCOMDATFolding>
<OptimizeReferences>true</OptimizeReferences>
<GenerateDebugInformation>true</GenerateDebugInformation>
</Link>
</ItemDefinitionGroup>
<ItemDefinitionGroup Condition="'$(Configuration)|$(Platform)'=='Debug|x64'">
<ClCompile>
<WarningLevel>Level3</WarningLevel>
<SDLCheck>true</SDLCheck>
<PreprocessorDefinitions>_DEBUG;_CONSOLE;%(PreprocessorDefinitions)</PreprocessorDefinitions>
<ConformanceMode>true</ConformanceMode>
<AdditionalIncludeDirectories>..\DLL_BSCrypto;..\LIB_Common;%(AdditionalIncludeDirectories)</AdditionalIncludeDirectories>
<CallingConvention>Cdecl</CallingConvention>
</ClCompile>
<Link>
<SubSystem>Console</SubSystem>
<GenerateDebugInformation>true</GenerateDebugInformation>
<ImportLibrary>
</ImportLibrary>
<AdditionalDependencies>BSCrypto.lib;%(AdditionalDependencies)</AdditionalDependencies>
<AdditionalLibraryDirectories>..\x64\Debug\;%(AdditionalLibraryDirectories)</AdditionalLibraryDirectories>
</Link>
</ItemDefinitionGroup>
<ItemDefinitionGroup Condition="'$(Configuration)|$(Platform)'=='Release|x64'">
<ClCompile>
<WarningLevel>Level3</WarningLevel>
<FunctionLevelLinking>true</FunctionLevelLinking>
<IntrinsicFunctions>true</IntrinsicFunctions>
<SDLCheck>true</SDLCheck>
<PreprocessorDefinitions>NDEBUG;_CONSOLE;%(PreprocessorDefinitions)</PreprocessorDefinitions>
<ConformanceMode>true</ConformanceMode>
</ClCompile>
<Link>
<SubSystem>Console</SubSystem>
<EnableCOMDATFolding>true</EnableCOMDATFolding>
<OptimizeReferences>true</OptimizeReferences>
<GenerateDebugInformation>true</GenerateDebugInformation>
</Link>
</ItemDefinitionGroup>
<ItemGroup>
<ClCompile Include="..\LIB_Common\BSUtil.c" />
<ClCompile Include="BSCryptoTest.cpp" />
</ItemGroup>
<ItemGroup>
<ClInclude Include="..\DLL_BSCrypto\BSCrypto.h" />
<ClInclude Include="..\LIB_Common\BSDefine.h" />
<ClInclude Include="..\LIB_Common\BSUtil.h" />
</ItemGroup>
<Import Project="$(VCTargetsPath)\Microsoft.Cpp.targets" />
<ImportGroup Label="ExtensionTargets">
</ImportGroup>
</Project>

54
Tocsg.Module/BSCrypto/LIB_Common/BSCrypto.pas Normal file
View File

@ -0,0 +1,54 @@
{*******************************************************}
{ }
{ BSCrypto }
{ }
{ Copyright (C) 2023 kku }
{ }
{*******************************************************}
unit BSCrypto;
interface
uses
Winapi.Windows;
const
DLL_BSCRYPTO = 'BSCrypto.dll';
//{$IFDEF Win64}
// DLL_BSCRYPTO = 'BSCrypto64.dll';
//{$ELSE}
// DLL_BSCRYPTO = 'BSCrypto32.dll';
//{$ENDIF}
type
TARIA_test = procedure; cdecl;
procedure ARIA_test;
implementation
var
_hBSc: THandle = 0;
_fnARIA_test: TARIA_test = nil;
function InitBSCrypto: Boolean;
begin
if _hBSc = 0 then
begin
_hBSc := LoadLibrary(DLL_BSCRYPTO);
if _hBSc <> 0 then
begin
@_fnARIA_test := GetProcAddress(_hBSc, 'ARIA_test');
end;
end;
Result := _hBSc <> 0;
end;
procedure ARIA_test;
begin
if InitBSCrypto and Assigned(_fnARIA_test) then
_fnARIA_test;
end;
end.

48
Tocsg.Module/BSCrypto/LIB_Common/BSDefine.h Normal file
View File

@ -0,0 +1,48 @@
//#pragma once
#ifndef BS_DefineH
#define BS_DefineH
#include "time.h"
#define CONST const
typedef wchar_t WCHAR;
typedef WCHAR* PWCHAR, * LPWCH, * PWCH;
typedef CONST WCHAR* LPCWCH, * PCWCH;
typedef __int64 LONGLONG;
typedef unsigned char BYTE;
typedef unsigned int DWORD;
#define BUF_SIZE 65536
#define SHA256_BLOCK_SIZE 32 // SHA256 outputs a 32 byte digest. in sha256.h
#define ENC_SIG "ToCSG"
#define PASS_HEAD "BSCrypto@230320H"
#define BS_SUCCESS 0x0001
#define BS_ERROR_CRYPTO_SELFTEST_FAILED 0x0002
#define BS_ERROR_STATE_IN_ERROR 0x0003
#define BS_ERROR_OPEN_FILE 0x0004
#define BS_ERROR_CREATE_FILE 0x0005
#define BS_ERROR_INVALID_ENC_FILE 0x0006
#define BS_ERROR_DECRYPT_FILE 0x0007
#define BS_ERROR_INIT 0x0008
#define BS_STATE_NONE 0
#define BS_STATE_INIT 0x0001
#define BS_STATE_ENC 0x0002
#define BS_STATE_DEC 0x0003
#define DLL_EXPORT __declspec(dllexport)
typedef struct _BSCryptoHead
{
int nHeadLen;
LONGLONG llSize;
time_t tTime;
char sReserve[232];
BYTE pOrgHash[SHA256_BLOCK_SIZE];
} BSCryptoHead, *PBSCryptoHead;
#endif

17
Tocsg.Module/BSCrypto/LIB_Common/BSUtil.c Normal file
View File

@ -0,0 +1,17 @@
#include "stdio.h"
#include "BSDefine.h"
LONGLONG GetFileSizeFromPath(LPCWCH sPath)
{
LONGLONG llSize = -1;
FILE* f = NULL;
_wfopen_s(&f, sPath, L"rb");
if (f != NULL)
{
fseek(f, 0, SEEK_END);
llSize = _ftelli64(f);
fclose(f);
}
return llSize;
}

20
Tocsg.Module/BSCrypto/LIB_Common/BSUtil.h Normal file
View File

@ -0,0 +1,20 @@
//#pragma once
#ifndef BS_UtilH
#define BS_UtilH
#include "BSDefine.h"
#ifdef __cplusplus
extern "C" {
#endif
LONGLONG GetFileSizeFromPath(LPCWCH sPath);
void BuildStrToKey(const char* sKey, BYTE* pOut, int nSize);
void SetRandomStr(char* sRnd, int nLen);
int FileToSha256(LPCWCH sPath, BYTE* pOutHash);
#ifdef __cplusplus
}
#endif
#endif

596
Tocsg.Module/BSCrypto/LIB_Common/aria.c Normal file
View File

@ -0,0 +1,596 @@
/*
* A 32-bit implementation for ARIA
*
* follows the specifications given in
* the ARIA specification at
* http://www.nsri.re.kr/ARIA/
*
* Note:
* - Main body optimized for speed for 32 bit platforms
* * Utilizes 32-bit optimization techniques presented in ICISC 2003
* * Only four 32-bit tables are used
*
* - Implemented some ideas for optimization from the creators of ARIA,
* and adopted some ideas from works submitted to ARIA implementation contest on Aug. 2004.
*
* - Handles endian problem pretty well.
* * For optimization, for little endian architecture key setup functions return
* endian-reversed round keys; Crypt() function handles this correctly.
*
* 17, January 2005
* Aaram Yun
* National Security Research Institute, KOREA
*
* Substantial portion of the code originally written by Jin Hong.
*
*/
#include "stdio.h"
#include "aria.h"
/* 사용 플랫폼의 endian 특성에 따라 LITTLE_ENDIAN 혹은
* BIG_ENDIAN 둘 중 하나를 정의해야 컴파일 됩니다.
* Windows+Intel 플랫폼의 경우에는 LITTLE_ENDIAN이고,
* 그 외에는 많은 경우 BIG_ENDIAN입니다. 잘 모르겠으면
* 아무 쪽이나 선택해서 컴파일 후 실행하십시오. ARIA_test()
* 함수에서 ENDIAN 확인을 하기 때문에 올바른 선택이었는지를
* 점검할 수 있습니다. */
#define LITTLE_ENDIAN
//#define BIG_ENDIAN
/*********************************************************/
#ifdef BIG_ENDIAN
#undef LITTLE_ENDIAN
#else
#ifndef LITTLE_ENDIAN
#error In order to compile this, you have to \
define either LITTLE_ENDIAN or BIG_ENDIAN. \
If unsure, try define either of one and run \
checkEndian() function to see if your guess \
is correct.
#endif
#endif
const DWORD KRK[3][4] = {
{0x517cc1b7, 0x27220a94, 0xfe13abe8, 0xfa9a6ee0},
{0x6db14acc, 0x9e21c820, 0xff28b1d5, 0xef5de2b0},
{0xdb92371d, 0x2126e970, 0x03249775, 0x04e8c90e}
};
/* S-box들을 정의하기 위한 마크로. */
#define AAA(V) 0x ## 00 ## V ## V ## V
#define BBB(V) 0x ## V ## 00 ## V ## V
#define CCC(V) 0x ## V ## V ## 00 ## V
#define DDD(V) 0x ## V ## V ## V ## 00
#define XX(NNN,x0,x1,x2,x3,x4,x5,x6,x7,x8,x9,xa,xb,xc,xd,xe,xf) \
NNN(x0),NNN(x1),NNN(x2),NNN(x3),NNN(x4),NNN(x5),NNN(x6),NNN(x7), \
NNN(x8),NNN(x9),NNN(xa),NNN(xb),NNN(xc),NNN(xd),NNN(xe),NNN(xf)
const DWORD S1[256] = {
XX(AAA,63,7c,77,7b,f2,6b,6f,c5,30,01,67,2b,fe,d7,ab,76),
XX(AAA,ca,82,c9,7d,fa,59,47,f0,ad,d4,a2,af,9c,a4,72,c0),
XX(AAA,b7,fd,93,26,36,3f,f7,cc,34,a5,e5,f1,71,d8,31,15),
XX(AAA,04,c7,23,c3,18,96,05,9a,07,12,80,e2,eb,27,b2,75),
XX(AAA,09,83,2c,1a,1b,6e,5a,a0,52,3b,d6,b3,29,e3,2f,84),
XX(AAA,53,d1,00,ed,20,fc,b1,5b,6a,cb,be,39,4a,4c,58,cf),
XX(AAA,d0,ef,aa,fb,43,4d,33,85,45,f9,02,7f,50,3c,9f,a8),
XX(AAA,51,a3,40,8f,92,9d,38,f5,bc,b6,da,21,10,ff,f3,d2),
XX(AAA,cd,0c,13,ec,5f,97,44,17,c4,a7,7e,3d,64,5d,19,73),
XX(AAA,60,81,4f,dc,22,2a,90,88,46,ee,b8,14,de,5e,0b,db),
XX(AAA,e0,32,3a,0a,49,06,24,5c,c2,d3,ac,62,91,95,e4,79),
XX(AAA,e7,c8,37,6d,8d,d5,4e,a9,6c,56,f4,ea,65,7a,ae,08),
XX(AAA,ba,78,25,2e,1c,a6,b4,c6,e8,dd,74,1f,4b,bd,8b,8a),
XX(AAA,70,3e,b5,66,48,03,f6,0e,61,35,57,b9,86,c1,1d,9e),
XX(AAA,e1,f8,98,11,69,d9,8e,94,9b,1e,87,e9,ce,55,28,df),
XX(AAA,8c,a1,89,0d,bf,e6,42,68,41,99,2d,0f,b0,54,bb,16)
};
const DWORD S2[256] = {
XX(BBB,e2,4e,54,fc,94,c2,4a,cc,62,0d,6a,46,3c,4d,8b,d1),
XX(BBB,5e,fa,64,cb,b4,97,be,2b,bc,77,2e,03,d3,19,59,c1),
XX(BBB,1d,06,41,6b,55,f0,99,69,ea,9c,18,ae,63,df,e7,bb),
XX(BBB,00,73,66,fb,96,4c,85,e4,3a,09,45,aa,0f,ee,10,eb),
XX(BBB,2d,7f,f4,29,ac,cf,ad,91,8d,78,c8,95,f9,2f,ce,cd),
XX(BBB,08,7a,88,38,5c,83,2a,28,47,db,b8,c7,93,a4,12,53),
XX(BBB,ff,87,0e,31,36,21,58,48,01,8e,37,74,32,ca,e9,b1),
XX(BBB,b7,ab,0c,d7,c4,56,42,26,07,98,60,d9,b6,b9,11,40),
XX(BBB,ec,20,8c,bd,a0,c9,84,04,49,23,f1,4f,50,1f,13,dc),
XX(BBB,d8,c0,9e,57,e3,c3,7b,65,3b,02,8f,3e,e8,25,92,e5),
XX(BBB,15,dd,fd,17,a9,bf,d4,9a,7e,c5,39,67,fe,76,9d,43),
XX(BBB,a7,e1,d0,f5,68,f2,1b,34,70,05,a3,8a,d5,79,86,a8),
XX(BBB,30,c6,51,4b,1e,a6,27,f6,35,d2,6e,24,16,82,5f,da),
XX(BBB,e6,75,a2,ef,2c,b2,1c,9f,5d,6f,80,0a,72,44,9b,6c),
XX(BBB,90,0b,5b,33,7d,5a,52,f3,61,a1,f7,b0,d6,3f,7c,6d),
XX(BBB,ed,14,e0,a5,3d,22,b3,f8,89,de,71,1a,af,ba,b5,81)
};
const DWORD X1[256] = {
XX(CCC,52,09,6a,d5,30,36,a5,38,bf,40,a3,9e,81,f3,d7,fb),
XX(CCC,7c,e3,39,82,9b,2f,ff,87,34,8e,43,44,c4,de,e9,cb),
XX(CCC,54,7b,94,32,a6,c2,23,3d,ee,4c,95,0b,42,fa,c3,4e),
XX(CCC,08,2e,a1,66,28,d9,24,b2,76,5b,a2,49,6d,8b,d1,25),
XX(CCC,72,f8,f6,64,86,68,98,16,d4,a4,5c,cc,5d,65,b6,92),
XX(CCC,6c,70,48,50,fd,ed,b9,da,5e,15,46,57,a7,8d,9d,84),
XX(CCC,90,d8,ab,00,8c,bc,d3,0a,f7,e4,58,05,b8,b3,45,06),
XX(CCC,d0,2c,1e,8f,ca,3f,0f,02,c1,af,bd,03,01,13,8a,6b),
XX(CCC,3a,91,11,41,4f,67,dc,ea,97,f2,cf,ce,f0,b4,e6,73),
XX(CCC,96,ac,74,22,e7,ad,35,85,e2,f9,37,e8,1c,75,df,6e),
XX(CCC,47,f1,1a,71,1d,29,c5,89,6f,b7,62,0e,aa,18,be,1b),
XX(CCC,fc,56,3e,4b,c6,d2,79,20,9a,db,c0,fe,78,cd,5a,f4),
XX(CCC,1f,dd,a8,33,88,07,c7,31,b1,12,10,59,27,80,ec,5f),
XX(CCC,60,51,7f,a9,19,b5,4a,0d,2d,e5,7a,9f,93,c9,9c,ef),
XX(CCC,a0,e0,3b,4d,ae,2a,f5,b0,c8,eb,bb,3c,83,53,99,61),
XX(CCC,17,2b,04,7e,ba,77,d6,26,e1,69,14,63,55,21,0c,7d)
};
const DWORD X2[256] = {
XX(DDD,30,68,99,1b,87,b9,21,78,50,39,db,e1,72,09,62,3c),
XX(DDD,3e,7e,5e,8e,f1,a0,cc,a3,2a,1d,fb,b6,d6,20,c4,8d),
XX(DDD,81,65,f5,89,cb,9d,77,c6,57,43,56,17,d4,40,1a,4d),
XX(DDD,c0,63,6c,e3,b7,c8,64,6a,53,aa,38,98,0c,f4,9b,ed),
XX(DDD,7f,22,76,af,dd,3a,0b,58,67,88,06,c3,35,0d,01,8b),
XX(DDD,8c,c2,e6,5f,02,24,75,93,66,1e,e5,e2,54,d8,10,ce),
XX(DDD,7a,e8,08,2c,12,97,32,ab,b4,27,0a,23,df,ef,ca,d9),
XX(DDD,b8,fa,dc,31,6b,d1,ad,19,49,bd,51,96,ee,e4,a8,41),
XX(DDD,da,ff,cd,55,86,36,be,61,52,f8,bb,0e,82,48,69,9a),
XX(DDD,e0,47,9e,5c,04,4b,34,15,79,26,a7,de,29,ae,92,d7),
XX(DDD,84,e9,d2,ba,5d,f3,c5,b0,bf,a4,3b,71,44,46,2b,fc),
XX(DDD,eb,6f,d5,f6,14,fe,7c,70,5a,7d,fd,2f,18,83,16,a5),
XX(DDD,91,1f,05,95,74,a9,c1,5b,4a,85,6d,13,07,4f,4e,45),
XX(DDD,b2,0f,c9,1c,a6,bc,ec,73,90,7b,cf,59,8f,a1,f9,2d),
XX(DDD,f2,b1,00,94,37,9f,d0,2e,9c,6e,28,3f,80,f0,3d,d3),
XX(DDD,25,8a,b5,e7,42,b3,c7,ea,f7,4c,11,33,03,a2,ac,60)
};
/* BY(X, Y)는 DWORD X의 Y번째 바이트
* BRF(T,R)은 T>>R의 하위 1바이트
* WO(X, Y)는 BYTE array X를 DWORD array로 간주할 때 Y번째 DWORD
*/
#define BY(X,Y) (((BYTE *)(&X))[Y])
#define BRF(T,R) ((BYTE)((T)>>(R)))
#define WO(X,Y) (((DWORD *)(X))[Y])
/* abcd의 4 BYTEA로 된 DWORD를 dcba로 변환하는 함수 */
#if defined(_MSC_VER)
/* MSC 사용 환경의 경우에는 _lrotr() 함수를
* 이용할 수 있으므로 약간의 속도 향상이 가능하다. */
#define ReverseDWORD(W) { \
(W)=(0xff00ff00 & _lrotr((W), 8)) ^ (0x00ff00ff & _lrotl((W), 8)); \
}
#else
#define ReverseDWORD(W) { \
(W)=(W)<<24 ^ (W)>>24 ^ ((W)&0x0000ff00)<<8 ^ ((W)&0x00ff0000)>>8; \
}
#endif
/* BYTEA array를 DWORD에 싣는 함수. LITTLE_ENDIAN의 경우
* 엔디안 변환 과정을 거친다. */
#ifdef LITTLE_ENDIAN
#define WordLoad(ORIG, DEST) { \
DWORD ___t; \
BY(___t,0)=BY(ORIG,3); \
BY(___t,1)=BY(ORIG,2); \
BY(___t,2)=BY(ORIG,1); \
BY(___t,3)=BY(ORIG,0); \
DEST=___t; \
}
#else
#define WordLoad(ORIG, DEST) { \
DEST = ORIG; \
}
#endif
#if defined(_MSC_VER)
#undef WordLoad
#define WordLoad(ORIG, DEST) { \
(DEST) = (0xff00ff00 & _lrotr((ORIG), 8)) ^ (0x00ff00ff & _lrotl((ORIG), 8)); \
}
#endif
/* Key XOR Layer */
#define KXL { \
t0^=WO(rk,0); t1^=WO(rk,1); t2^=WO(rk,2); t3^=WO(rk,3); \
rk += 16; \
}
/* S-Box Layer 1 + M 변환 */
#define SBL1_M(T0,T1,T2,T3) { \
T0=S1[BRF(T0,24)]^S2[BRF(T0,16)]^X1[BRF(T0,8)]^X2[BRF(T0,0)]; \
T1=S1[BRF(T1,24)]^S2[BRF(T1,16)]^X1[BRF(T1,8)]^X2[BRF(T1,0)]; \
T2=S1[BRF(T2,24)]^S2[BRF(T2,16)]^X1[BRF(T2,8)]^X2[BRF(T2,0)]; \
T3=S1[BRF(T3,24)]^S2[BRF(T3,16)]^X1[BRF(T3,8)]^X2[BRF(T3,0)]; \
}
/* S-Box Layer 2 + M 변환 */
#define SBL2_M(T0,T1,T2,T3) { \
T0=X1[BRF(T0,24)]^X2[BRF(T0,16)]^S1[BRF(T0,8)]^S2[BRF(T0,0)]; \
T1=X1[BRF(T1,24)]^X2[BRF(T1,16)]^S1[BRF(T1,8)]^S2[BRF(T1,0)]; \
T2=X1[BRF(T2,24)]^X2[BRF(T2,16)]^S1[BRF(T2,8)]^S2[BRF(T2,0)]; \
T3=X1[BRF(T3,24)]^X2[BRF(T3,16)]^S1[BRF(T3,8)]^S2[BRF(T3,0)]; \
}
/* 워드 단위의 변환 */
#define MM(T0,T1,T2,T3) { \
(T1)^=(T2); (T2)^=(T3); (T0)^=(T1); \
(T3)^=(T1); (T2)^=(T0); (T1)^=(T2); \
}
/* P 변환. 확산 계층의 중간에 들어가는 바이트 단위 변환이다.
* 이 부분은 endian과 무관하다. */
#if defined(_MSC_VER)
#define P(T0,T1,T2,T3) { \
(T1) = (((T1)<< 8)&0xff00ff00) ^ (((T1)>> 8)&0x00ff00ff); \
(T2) = _lrotr((T2),16); \
ReverseDWORD((T3)); \
}
#else
#define P(T0,T1,T2,T3) { \
(T1) = (((T1)<< 8)&0xff00ff00) ^ (((T1)>> 8)&0x00ff00ff); \
(T2) = (((T2)<<16)&0xffff0000) ^ (((T2)>>16)&0x0000ffff); \
ReverseDWORD((T3)); \
}
#endif
/* FO: 홀수번째 라운드의 F 함수
* FE: 짝수번째 라운드의 F 함수
* MM과 P는 바이트 단위에서 endian에 무관하게 동일한 결과를 주며,
* 또한 endian 변환과 가환이다. 또한, SBLi_M은 LITTLE_ENDIAN에서
* 결과적으로 DWORD 단위로 endian을 뒤집은 결과를 준다.
* 즉, FO, FE는 BIG_ENDIAN 환경에서는 ARIA spec과 동일한 결과를,
* LITTLE_ENDIAN 환경에서는 ARIA spec에서 정의한 변환+endian 변환을
* 준다. */
#define FO {SBL1_M(t0,t1,t2,t3) MM(t0,t1,t2,t3) P(t0,t1,t2,t3) MM(t0,t1,t2,t3)}
#define FE {SBL2_M(t0,t1,t2,t3) MM(t0,t1,t2,t3) P(t2,t3,t0,t1) MM(t0,t1,t2,t3)}
/* n-bit right shift of Y XORed to X */
/* DWORD 단위로 정의된 블록에서의 회전 + XOR이다. */
#define GSRK(X, Y, n) { \
q = 4-((n)/32); \
r = (n) % 32; \
WO(rk,0) = ((X)[0]) ^ (((Y)[(q )%4])>>r) ^ (((Y)[(q+3)%4])<<(32-r)); \
WO(rk,1) = ((X)[1]) ^ (((Y)[(q+1)%4])>>r) ^ (((Y)[(q )%4])<<(32-r)); \
WO(rk,2) = ((X)[2]) ^ (((Y)[(q+2)%4])>>r) ^ (((Y)[(q+1)%4])<<(32-r)); \
WO(rk,3) = ((X)[3]) ^ (((Y)[(q+3)%4])>>r) ^ (((Y)[(q+2)%4])<<(32-r)); \
rk += 16; \
}
/* DecKeySetup()에서 사용하는 마크로 */
#if defined(_MSC_VER)
#define WordM1(X,Y) { \
w=_lrotr((X), 8); \
(Y)=w^_lrotr((X)^w, 16); \
}
#else
#define DWORDM1(X,Y) { \
Y=(X)<<8 ^ (X)>>8 ^ (X)<<16 ^ (X)>>16 ^ (X)<<24 ^ (X)>>24; \
}
#endif
/* 암호화 함수.
* const BYTE *i: 입력
* int Nr: 라운드 수
* const BYTE *rk: 라운드 키들
* BYTE *o: 출력
*/
void Crypt(const BYTE* i, int Nr, const BYTE* rk, BYTE* o)
{
register DWORD t0, t1, t2, t3;
WordLoad(WO(i, 0), t0); WordLoad(WO(i, 1), t1);
WordLoad(WO(i, 2), t2); WordLoad(WO(i, 3), t3);
if (Nr > 12) { KXL FO KXL FE }
if (Nr > 14) { KXL FO KXL FE }
KXL FO KXL FE KXL FO KXL FE KXL FO KXL FE
KXL FO KXL FE KXL FO KXL FE KXL FO KXL
/* 최종 라운드는 특별함 */
#ifdef LITTLE_ENDIAN
o[0] = (BYTE)(X1[BRF(t0, 24)]) ^ rk[3];
o[1] = (BYTE)(X2[BRF(t0, 16)] >> 8) ^ rk[2];
o[2] = (BYTE)(S1[BRF(t0, 8)]) ^ rk[1];
o[3] = (BYTE)(S2[BRF(t0, 0)]) ^ rk[0];
o[4] = (BYTE)(X1[BRF(t1, 24)]) ^ rk[7];
o[5] = (BYTE)(X2[BRF(t1, 16)] >> 8) ^ rk[6];
o[6] = (BYTE)(S1[BRF(t1, 8)]) ^ rk[5];
o[7] = (BYTE)(S2[BRF(t1, 0)]) ^ rk[4];
o[8] = (BYTE)(X1[BRF(t2, 24)]) ^ rk[11];
o[9] = (BYTE)(X2[BRF(t2, 16)] >> 8) ^ rk[10];
o[10] = (BYTE)(S1[BRF(t2, 8)]) ^ rk[9];
o[11] = (BYTE)(S2[BRF(t2, 0)]) ^ rk[8];
o[12] = (BYTE)(X1[BRF(t3, 24)]) ^ rk[15];
o[13] = (BYTE)(X2[BRF(t3, 16)] >> 8) ^ rk[14];
o[14] = (BYTE)(S1[BRF(t3, 8)]) ^ rk[13];
o[15] = (BYTE)(S2[BRF(t3, 0)]) ^ rk[12];
#else
o[0] = (BYTE)(X1[BRF(t0, 24)]);
o[1] = (BYTE)(X2[BRF(t0, 16)] >> 8);
o[2] = (BYTE)(S1[BRF(t0, 8)]);
o[3] = (BYTE)(S2[BRF(t0, 0)]);
o[4] = (BYTE)(X1[BRF(t1, 24)]);
o[5] = (BYTE)(X2[BRF(t1, 16)] >> 8);
o[6] = (BYTE)(S1[BRF(t1, 8)]);
o[7] = (BYTE)(S2[BRF(t1, 0)]);
o[8] = (BYTE)(X1[BRF(t2, 24)]);
o[9] = (BYTE)(X2[BRF(t2, 16)] >> 8);
o[10] = (BYTE)(S1[BRF(t2, 8)]);
o[11] = (BYTE)(S2[BRF(t2, 0)]);
o[12] = (BYTE)(X1[BRF(t3, 24)]);
o[13] = (BYTE)(X2[BRF(t3, 16)] >> 8);
o[14] = (BYTE)(S1[BRF(t3, 8)]);
o[15] = (BYTE)(S2[BRF(t3, 0)]);
WO(o, 0) ^= WO(rk, 0); WO(o, 1) ^= WO(rk, 1);
WO(o, 2) ^= WO(rk, 2); WO(o, 3) ^= WO(rk, 3);
#endif
}
/* 암호화 라운드 키 생성
* const BYTE *mk: 마스터 키
* BYTE *rk: 라운드 키
* int keyBits: 마스터 키의 길이
*/
int EncKeySetup(const BYTE* mk, BYTE* rk, int keyBits)
{
register DWORD t0, t1, t2, t3;
DWORD w0[4], w1[4], w2[4], w3[4];
int q, r;
WordLoad(WO(mk, 0), w0[0]); WordLoad(WO(mk, 1), w0[1]);
WordLoad(WO(mk, 2), w0[2]); WordLoad(WO(mk, 3), w0[3]);
q = (keyBits - 128) / 64;
t0 = w0[0] ^ KRK[q][0]; t1 = w0[1] ^ KRK[q][1];
t2 = w0[2] ^ KRK[q][2]; t3 = w0[3] ^ KRK[q][3];
FO;
if (keyBits > 128)
{
WordLoad(WO(mk, 4), w1[0]);
WordLoad(WO(mk, 5), w1[1]);
if (keyBits > 192)
{
WordLoad(WO(mk, 6), w1[2]);
WordLoad(WO(mk, 7), w1[3]);
}
else
{
w1[2] = w1[3] = 0;
}
}
else
{
w1[0] = w1[1] = w1[2] = w1[3] = 0;
}
w1[0] ^= t0; w1[1] ^= t1; w1[2] ^= t2; w1[3] ^= t3;
t0 = w1[0]; t1 = w1[1]; t2 = w1[2]; t3 = w1[3];
q = (q == 2) ? 0 : (q + 1);
t0 ^= KRK[q][0]; t1 ^= KRK[q][1]; t2 ^= KRK[q][2]; t3 ^= KRK[q][3];
FE;
t0 ^= w0[0]; t1 ^= w0[1]; t2 ^= w0[2]; t3 ^= w0[3];
w2[0] = t0; w2[1] = t1; w2[2] = t2; w2[3] = t3;
q = (q == 2) ? 0 : (q + 1);
t0 ^= KRK[q][0]; t1 ^= KRK[q][1]; t2 ^= KRK[q][2]; t3 ^= KRK[q][3];
FO;
w3[0] = t0 ^ w1[0]; w3[1] = t1 ^ w1[1]; w3[2] = t2 ^ w1[2]; w3[3] = t3 ^ w1[3];
GSRK(w0, w1, 19);
GSRK(w1, w2, 19);
GSRK(w2, w3, 19);
GSRK(w3, w0, 19);
GSRK(w0, w1, 31);
GSRK(w1, w2, 31);
GSRK(w2, w3, 31);
GSRK(w3, w0, 31);
GSRK(w0, w1, 67);
GSRK(w1, w2, 67);
GSRK(w2, w3, 67);
GSRK(w3, w0, 67);
GSRK(w0, w1, 97);
if (keyBits > 128)
{
GSRK(w1, w2, 97);
GSRK(w2, w3, 97);
}
if (keyBits > 192)
{
GSRK(w3, w0, 97);
GSRK(w0, w1, 109);
}
return (keyBits + 256) / 32;
}
/* 복호화 라운드 키 생성
* const BYTE *mk: 마스터 키
* BYTE *rk: 라운드 키
* int keyBits: 마스터 키의 길이
*/
int DecKeySetup(const BYTE* mk, BYTE* rk, int keyBits)
{
DWORD* a, * z;
int rValue;
#if defined(_MSC_VER)
register DWORD w;
#else
register BYTEA sum;
#endif
register DWORD t0, t1, t2, t3;
DWORD s0, s1, s2, s3;
rValue = EncKeySetup(mk, rk, keyBits);
a = (DWORD*)(rk); z = a + rValue * 4;
t0 = a[0]; t1 = a[1]; t2 = a[2]; t3 = a[3];
a[0] = z[0]; a[1] = z[1]; a[2] = z[2]; a[3] = z[3];
z[0] = t0; z[1] = t1; z[2] = t2; z[3] = t3;
a += 4; z -= 4;
for (; a < z; a += 4, z -= 4)
{
WordM1(a[0], t0); WordM1(a[1], t1); WordM1(a[2], t2); WordM1(a[3], t3);
MM(t0, t1, t2, t3) P(t0, t1, t2, t3) MM(t0, t1, t2, t3)
s0 = t0; s1 = t1; s2 = t2; s3 = t3;
WordM1(z[0], t0); WordM1(z[1], t1); WordM1(z[2], t2); WordM1(z[3], t3);
MM(t0, t1, t2, t3) P(t0, t1, t2, t3) MM(t0, t1, t2, t3)
a[0] = t0; a[1] = t1; a[2] = t2; a[3] = t3;
z[0] = s0; z[1] = s1; z[2] = s2; z[3] = s3;
}
WordM1(a[0], t0); WordM1(a[1], t1); WordM1(a[2], t2); WordM1(a[3], t3);
MM(t0, t1, t2, t3) P(t0, t1, t2, t3) MM(t0, t1, t2, t3)
z[0] = t0; z[1] = t1; z[2] = t2; z[3] = t3;
return rValue;
}
void ARIA_Crypt(const BYTE* pIn, BYTE* pOut, int nIn, ARIA_Key* aKey)
{
int i, p;
int n = nIn / 16;
for (i = 0; i < n; i++)
{
p = 16 * i;
Crypt(pIn + p, aKey->nRoundCnt, (BYTE*)&aKey->pRoundKey, pOut + p);
}
}
void ARIA_EncKeySetup(const BYTE* mk, ARIA_Key* aKey, int keyBits)
{
aKey->nRoundCnt = EncKeySetup(mk, (BYTE*)&aKey->pRoundKey, keyBits);
}
void ARIA_DecKeySetup(const BYTE* mk, ARIA_Key* aKey, int keyBits)
{
aKey->nRoundCnt = DecKeySetup(mk, (BYTE*)&aKey->pRoundKey, keyBits);
}
void printBlockOfLength(BYTE* b, int len)
{
int i;
for (i = 0; i < len; i++, b++) {
printf("%02x", *b);
if (i % 4 == 3 && i < len - 1) printf(" ");
}
}
void printBlock(BYTE* b)
{
printBlockOfLength(b, 16);
}
/* ARIA_test(): 기본적인 테스트를 위한 함수로,
* 주된 목적은 구현 정확성 검증이라기보다는 제대로 포팅이
* 이루어졌나 기본적인 확인을 위한 것임. 흔하지
* 않은 환경으로 포팅했을 경우에는 이 테스트 결과에
* 만족할 것이 아니라 reference 코드의 결과와 비교하여
* 충분한 구현 정확성 검증을 거칠 것을 권고함.
*/
void ARIA_test()
{
BYTE rk[16 * 17], c[16], * b, mk[32];
int i, flag;
const DWORD NUMBER = 0x00000042;
BYTE p[16] = { 0x11, 0x11, 0x11, 0x11, 0xaa, 0xaa, 0xaa, 0xaa,
0x11, 0x11, 0x11, 0x11, 0xbb, 0xbb, 0xbb, 0xbb };
const BYTE cryptResult[] = {
0x8d, 0x14, 0x70, 0x62, 0x5f, 0x59, 0xeb, 0xac,
0xb0, 0xe5, 0x5b, 0x53, 0x4b, 0x3e, 0x46, 0x2b };
printf("BEGIN testing endianness...\n");
printf("Since you are running this, it means that you have defined \
either LITTLE_ENDIAN or BIG_ENDIAN. Let's see if you were correct.\n");
b = (BYTE*)(&NUMBER);
if (b[0] == 0x42) {
printf("We are on LITTLE_ENDIAN platform.\n");
#ifdef BIG_ENDIAN
printf("WARNING: BIG_ENDIAN defined on LITTLE_ENDIAN platform.\n");
printf(" You should define LITTLE_ENDIAN instead of BIG_ENDIAN.\n");
#else
printf("Okay. You were correct.\n");
#endif
}
else {
printf("We are on BIG_ENDIAN platform.\n");
#ifdef LITTLE_ENDIAN
printf("WARNING: LITTLE_ENDIAN defined on BIG_ENDIAN platform.\n");
printf(" You should define BIG_ENDIAN instead of LITTLE_ENDIAN.\n");
#else
printf("Okay. You were correct.\n");
#endif
}
printf("END testing endianness.\n\n");
for (i = 0; i < 16; i++)
mk[i] = i * 0x11;
for (i = 16; i < 24; i++)
mk[i] = (i - 16) * 0x11;
Crypt(p, EncKeySetup(mk, rk, 192), rk, c);
printf("BEGIN testing basic encryption...\n");
printf("Testing whether the encryption would come out correctly, for 14-round ARIA.\n");
printf("key : "); printBlockOfLength(mk, 24); printf("\n");
printf("plaintext: "); printBlock(p); printf("\n");
printf("result is: "); printBlock(c); printf("\n");
printf("should be: "); printBlock((BYTE*)cryptResult); printf("\n");
flag = 0;
for (i = 0; i < 16; i++)
if (c[i] != cryptResult[i])
flag = 1;
if (flag == 1)
printf("The result is incorrect!\n");
else
printf("Okay. The result is correct.\n");
printf("END testing basic encryption.\n\n");
for (i = 0; i < 32; i++)
mk[i] = 0;
for (i = 0; i < 16; i++)
p[i] = 0;
printf("BEGIN testing the roundtrip...\n");
printf("For key size of 192 bits, starting with the zero plaintext and the zero key, let's see if \
we may recover the plaintext by decrypting the encrypted ciphertext.\n");
EncKeySetup(mk, rk, 192);
printf("plaintext : "); printBlock(p); printf("\n");
Crypt(p, 14, rk, c);
printf("ciphertext: "); printBlock(c); printf("\n");
DecKeySetup(mk, rk, 192);
Crypt(c, 14, rk, p);
printf("decrypted : "); printBlock(p); printf("\n");
flag = 0;
for (i = 0; i < 16; i++)
if (p[i] != 0)
flag = 1;
if (flag == 1)
printf("The result is incorrect!\n");
else
printf("Okay. The result is correct.\n");
printf("END testing the roundtrip.\n");
return;
}
/*
int main(int argc, char **argv) {
ARIA_test();
return 0;
}
*/

31
Tocsg.Module/BSCrypto/LIB_Common/aria.h Normal file
View File

@ -0,0 +1,31 @@
#ifndef __ARIA_H__
#define __ARIA_H__
#include "stdlib.h"
#include "BSDefine.h"
typedef struct _ARIA_Key
{
int nRoundCnt;
BYTE pRoundKey[16*17];
} ARIA_Key, *PARIA_Key;
#ifdef __cplusplus
extern "C" {
#endif
void Crypt(const BYTE *i, int Nr, const BYTE *rk, BYTE *o);
int EncKeySetup(const BYTE *mk, BYTE *rk, int keyBits);
int DecKeySetup(const BYTE *mk, BYTE *rk, int keyBits);
void ARIA_Crypt(const BYTE* pIn, BYTE* pOut, int nIn, ARIA_Key* aria_key);
void ARIA_EncKeySetup(const BYTE *mk, ARIA_Key* aria_key, int keyBits);
void ARIA_DecKeySetup(const BYTE *mk, ARIA_Key* aria_key, int keyBits);
__declspec(dllexport) void ARIA_test();
#ifdef __cplusplus
}
#endif
#endif

158
Tocsg.Module/BSCrypto/LIB_Common/sha256.c Normal file
View File

@ -0,0 +1,158 @@
/*********************************************************************
* Filename: sha256.c
* Author: Brad Conte (brad AT bradconte.com)
* Copyright:
* Disclaimer: This code is presented "as is" without any guarantees.
* Details: Implementation of the SHA-256 hashing algorithm.
SHA-256 is one of the three algorithms in the SHA2
specification. The others, SHA-384 and SHA-512, are not
offered in this implementation.
Algorithm specification can be found here:
* http://csrc.nist.gov/publications/fips/fips180-2/fips180-2withchangenotice.pdf
This implementation uses little endian byte order.
*********************************************************************/
/*************************** HEADER FILES ***************************/
#include <stdlib.h>
#include <memory.h>
#include "sha256.h"
/****************************** MACROS ******************************/
#define ROTLEFT(a,b) (((a) << (b)) | ((a) >> (32-(b))))
#define ROTRIGHT(a,b) (((a) >> (b)) | ((a) << (32-(b))))
#define CH(x,y,z) (((x) & (y)) ^ (~(x) & (z)))
#define MAJ(x,y,z) (((x) & (y)) ^ ((x) & (z)) ^ ((y) & (z)))
#define EP0(x) (ROTRIGHT(x,2) ^ ROTRIGHT(x,13) ^ ROTRIGHT(x,22))
#define EP1(x) (ROTRIGHT(x,6) ^ ROTRIGHT(x,11) ^ ROTRIGHT(x,25))
#define SIG0(x) (ROTRIGHT(x,7) ^ ROTRIGHT(x,18) ^ ((x) >> 3))
#define SIG1(x) (ROTRIGHT(x,17) ^ ROTRIGHT(x,19) ^ ((x) >> 10))
/**************************** VARIABLES *****************************/
static const WORD k[64] = {
0x428a2f98,0x71374491,0xb5c0fbcf,0xe9b5dba5,0x3956c25b,0x59f111f1,0x923f82a4,0xab1c5ed5,
0xd807aa98,0x12835b01,0x243185be,0x550c7dc3,0x72be5d74,0x80deb1fe,0x9bdc06a7,0xc19bf174,
0xe49b69c1,0xefbe4786,0x0fc19dc6,0x240ca1cc,0x2de92c6f,0x4a7484aa,0x5cb0a9dc,0x76f988da,
0x983e5152,0xa831c66d,0xb00327c8,0xbf597fc7,0xc6e00bf3,0xd5a79147,0x06ca6351,0x14292967,
0x27b70a85,0x2e1b2138,0x4d2c6dfc,0x53380d13,0x650a7354,0x766a0abb,0x81c2c92e,0x92722c85,
0xa2bfe8a1,0xa81a664b,0xc24b8b70,0xc76c51a3,0xd192e819,0xd6990624,0xf40e3585,0x106aa070,
0x19a4c116,0x1e376c08,0x2748774c,0x34b0bcb5,0x391c0cb3,0x4ed8aa4a,0x5b9cca4f,0x682e6ff3,
0x748f82ee,0x78a5636f,0x84c87814,0x8cc70208,0x90befffa,0xa4506ceb,0xbef9a3f7,0xc67178f2
};
/*********************** FUNCTION DEFINITIONS ***********************/
void sha256_transform(SHA256_CTX *ctx, const BYTE data[])
{
WORD a, b, c, d, e, f, g, h, i, j, t1, t2, m[64];
for (i = 0, j = 0; i < 16; ++i, j += 4)
m[i] = (data[j] << 24) | (data[j + 1] << 16) | (data[j + 2] << 8) | (data[j + 3]);
for ( ; i < 64; ++i)
m[i] = SIG1(m[i - 2]) + m[i - 7] + SIG0(m[i - 15]) + m[i - 16];
a = ctx->state[0];
b = ctx->state[1];
c = ctx->state[2];
d = ctx->state[3];
e = ctx->state[4];
f = ctx->state[5];
g = ctx->state[6];
h = ctx->state[7];
for (i = 0; i < 64; ++i) {
t1 = h + EP1(e) + CH(e,f,g) + k[i] + m[i];
t2 = EP0(a) + MAJ(a,b,c);
h = g;
g = f;
f = e;
e = d + t1;
d = c;
c = b;
b = a;
a = t1 + t2;
}
ctx->state[0] += a;
ctx->state[1] += b;
ctx->state[2] += c;
ctx->state[3] += d;
ctx->state[4] += e;
ctx->state[5] += f;
ctx->state[6] += g;
ctx->state[7] += h;
}
void sha256_init(SHA256_CTX *ctx)
{
ctx->datalen = 0;
ctx->bitlen = 0;
ctx->state[0] = 0x6a09e667;
ctx->state[1] = 0xbb67ae85;
ctx->state[2] = 0x3c6ef372;
ctx->state[3] = 0xa54ff53a;
ctx->state[4] = 0x510e527f;
ctx->state[5] = 0x9b05688c;
ctx->state[6] = 0x1f83d9ab;
ctx->state[7] = 0x5be0cd19;
}
void sha256_update(SHA256_CTX *ctx, const BYTE data[], size_t len)
{
WORD i;
for (i = 0; i < len; ++i) {
ctx->data[ctx->datalen] = data[i];
ctx->datalen++;
if (ctx->datalen == 64) {
sha256_transform(ctx, ctx->data);
ctx->bitlen += 512;
ctx->datalen = 0;
}
}
}
void sha256_final(SHA256_CTX *ctx, BYTE hash[])
{
WORD i;
i = ctx->datalen;
// Pad whatever data is left in the buffer.
if (ctx->datalen < 56) {
ctx->data[i++] = 0x80;
while (i < 56)
ctx->data[i++] = 0x00;
}
else {
ctx->data[i++] = 0x80;
while (i < 64)
ctx->data[i++] = 0x00;
sha256_transform(ctx, ctx->data);
memset(ctx->data, 0, 56);
}
// Append to the padding the total message's length in bits and transform.
ctx->bitlen += ctx->datalen * 8;
ctx->data[63] = ctx->bitlen;
ctx->data[62] = ctx->bitlen >> 8;
ctx->data[61] = ctx->bitlen >> 16;
ctx->data[60] = ctx->bitlen >> 24;
ctx->data[59] = ctx->bitlen >> 32;
ctx->data[58] = ctx->bitlen >> 40;
ctx->data[57] = ctx->bitlen >> 48;
ctx->data[56] = ctx->bitlen >> 56;
sha256_transform(ctx, ctx->data);
// Since this implementation uses little endian byte ordering and SHA uses big endian,
// reverse all the bytes when copying the final state to the output hash.
for (i = 0; i < 4; ++i) {
hash[i] = (ctx->state[0] >> (24 - i * 8)) & 0x000000ff;
hash[i + 4] = (ctx->state[1] >> (24 - i * 8)) & 0x000000ff;
hash[i + 8] = (ctx->state[2] >> (24 - i * 8)) & 0x000000ff;
hash[i + 12] = (ctx->state[3] >> (24 - i * 8)) & 0x000000ff;
hash[i + 16] = (ctx->state[4] >> (24 - i * 8)) & 0x000000ff;
hash[i + 20] = (ctx->state[5] >> (24 - i * 8)) & 0x000000ff;
hash[i + 24] = (ctx->state[6] >> (24 - i * 8)) & 0x000000ff;
hash[i + 28] = (ctx->state[7] >> (24 - i * 8)) & 0x000000ff;
}
}

42
Tocsg.Module/BSCrypto/LIB_Common/sha256.h Normal file
View File

@ -0,0 +1,42 @@
/*********************************************************************
* Filename: sha256.h
* Author: Brad Conte (brad AT bradconte.com)
* Copyright:
* Disclaimer: This code is presented "as is" without any guarantees.
* Details: Defines the API for the corresponding SHA1 implementation.
*********************************************************************/
#ifndef SHA256_H
#define SHA256_H
/*************************** HEADER FILES ***************************/
#include "stddef.h"
/****************************** MACROS ******************************/
#define SHA256_BLOCK_SIZE 32 // SHA256 outputs a 32 byte digest
/**************************** DATA TYPES ****************************/
typedef unsigned char BYTE; // 8-bit byte
typedef unsigned int WORD; // 32-bit word, change to "long" for 16-bit machines
typedef struct {
BYTE data[64];
WORD datalen;
unsigned long long bitlen;
WORD state[8];
} SHA256_CTX;
/*********************** FUNCTION DECLARATIONS **********************/
#ifdef __cplusplus
extern "C" {
#endif
void sha256_init(SHA256_CTX *ctx);
void sha256_update(SHA256_CTX *ctx, const BYTE data[], size_t len);
void sha256_final(SHA256_CTX *ctx, BYTE hash[]);
#ifdef __cplusplus
}
#endif
#endif // SHA256_H

63
Tocsg.Module/BSCrypto/LIB_Common/sha256_test.c Normal file
View File

@ -0,0 +1,63 @@
/*********************************************************************
* Filename: sha256.c
* Author: Brad Conte (brad AT bradconte.com)
* Copyright:
* Disclaimer: This code is presented "as is" without any guarantees.
* Details: Performs known-answer tests on the corresponding SHA1
implementation. These tests do not encompass the full
range of available test vectors, however, if the tests
pass it is very, very likely that the code is correct
and was compiled properly. This code also serves as
example usage of the functions.
*********************************************************************/
/*************************** HEADER FILES ***************************/
#include <stdio.h>
#include <memory.h>
#include <string.h>
#include "sha256.h"
/*********************** FUNCTION DEFINITIONS ***********************/
int sha256_test()
{
BYTE text1[] = {"abc"};
BYTE text2[] = {"abcdbcdecdefdefgefghfghighijhijkijkljklmklmnlmnomnopnopq"};
BYTE text3[] = {"aaaaaaaaaa"};
BYTE hash1[SHA256_BLOCK_SIZE] = {0xba,0x78,0x16,0xbf,0x8f,0x01,0xcf,0xea,0x41,0x41,0x40,0xde,0x5d,0xae,0x22,0x23,
0xb0,0x03,0x61,0xa3,0x96,0x17,0x7a,0x9c,0xb4,0x10,0xff,0x61,0xf2,0x00,0x15,0xad};
BYTE hash2[SHA256_BLOCK_SIZE] = {0x24,0x8d,0x6a,0x61,0xd2,0x06,0x38,0xb8,0xe5,0xc0,0x26,0x93,0x0c,0x3e,0x60,0x39,
0xa3,0x3c,0xe4,0x59,0x64,0xff,0x21,0x67,0xf6,0xec,0xed,0xd4,0x19,0xdb,0x06,0xc1};
BYTE hash3[SHA256_BLOCK_SIZE] = {0xcd,0xc7,0x6e,0x5c,0x99,0x14,0xfb,0x92,0x81,0xa1,0xc7,0xe2,0x84,0xd7,0x3e,0x67,
0xf1,0x80,0x9a,0x48,0xa4,0x97,0x20,0x0e,0x04,0x6d,0x39,0xcc,0xc7,0x11,0x2c,0xd0};
BYTE buf[SHA256_BLOCK_SIZE];
SHA256_CTX ctx;
int idx;
int pass = 1;
sha256_init(&ctx);
sha256_update(&ctx, text1, strlen((char*)text1));
sha256_final(&ctx, buf);
pass = pass && !memcmp(hash1, buf, SHA256_BLOCK_SIZE);
sha256_init(&ctx);
sha256_update(&ctx, text2, strlen((char*)text2));
sha256_final(&ctx, buf);
pass = pass && !memcmp(hash2, buf, SHA256_BLOCK_SIZE);
sha256_init(&ctx);
for (idx = 0; idx < 100000; ++idx)
sha256_update(&ctx, text3, strlen((char*)text3));
sha256_final(&ctx, buf);
pass = pass && !memcmp(hash3, buf, SHA256_BLOCK_SIZE);
return(pass);
}
/*
int main()
{
printf("SHA-256 tests: %s\n", sha256_test() ? "SUCCEEDED" : "FAILED");
return(0);
}
*/

622
Tocsg.Module/BSOne-AIP-Decrypt/Action.cs Normal file
View File

@ -0,0 +1,622 @@
/*
*
* Copyright (c) Microsoft Corporation.
* All rights reserved.
*
* This code is licensed under the MIT License.
*
* Permission is hereby granted, free of charge, to any person obtaining a copy
* of this software and associated documentation files(the "Software"), to deal
* in the Software without restriction, including without limitation the rights
* to use, copy, modify, merge, publish, distribute, sublicense, and / or sell
* copies of the Software, and to permit persons to whom the Software is
* furnished to do so, subject to the following conditions :
*
* The above copyright notice and this permission notice shall be included in
* all copies or substantial portions of the Software.
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.IN NO EVENT SHALL THE
* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
* OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
* THE SOFTWARE.
*
*/
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using Microsoft.InformationProtection.File;
using Microsoft.InformationProtection.Exceptions;
using Microsoft.InformationProtection;
using System.Configuration;
using static BSOneMip.Define;
using Microsoft.InformationProtection.Protection;
using Microsoft.InformationProtection.Policy.Actions;
namespace BSOneMip
{
/// <summary>
/// Action class implements the various MIP functionality.
/// For this sample, only profile, engine, and handler creation are defined.
/// The IFileHandler may be used to label a file and read a labeled file.
/// </summary>
public class Action : IDisposable
{
// Fetch tenant name to build identity for service principal
private static readonly string tenant = TENANT_ID; // ConfigurationManager.AppSettings["ida:Tenant"];
private AuthDelegateImplementation authDelegate;
private ApplicationInfo appInfo;
private IFileProfile profile;
private IFileEngine engine;
//private IProtectionProfile profile_protec;
//private IProtectionEngine engine_protec;
private MipContext mipContext;
private string sDelegatedUserEmail_;
private string sEmpNo_;
// Used to pass in options for labeling the file.
public struct FileOptions
{
public string FileName;
public string OutputName;
public string LabelId;
public DataState DataState;
public AssignmentMethod AssignmentMethod;
public ActionSource ActionSource;
public bool IsAuditDiscoveryEnabled;
public bool GenerateChangeAuditEvent;
}
/// <summary>
/// Constructor for Action class. Pass in AppInfo to simplify passing settings to AuthDelegate.
/// </summary>
/// <param name="appInfo"></param>
public Action(ApplicationInfo appInfo, string sDelegatedUserEmail = "")
{
this.appInfo = appInfo;
this.sDelegatedUserEmail_ = sDelegatedUserEmail;
this.sEmpNo_ = sDelegatedUserEmail_;
int i = this.sEmpNo_.IndexOf('@');
if (i > 0)
this.sEmpNo_ = this.sEmpNo_.Substring(0, i);
if ((sEmpNo_ != "") && (sEmpNo_.ToLower() == "bsowner"))
sDelegatedUserEmail_ = "";
//sDelegatedUserEmail_ = "aiptest@unitus.co.kr";
//sDelegatedUserEmail_ = "kjkim@tocsgm365.onmicrosoft.com";
authDelegate = new AuthDelegateImplementation(this.appInfo);
// Initialize SDK DLLs. If DLLs are missing or wrong type, this will throw an exception
MIP.Initialize(MipComponent.File);
// Create MipConfiguration Object
MipConfiguration mipConfiguration = new MipConfiguration(appInfo, "mip_data", LogLevel.Trace, false);
// Create MipContext using MipConfiguration
mipContext = MIP.CreateMipContext(mipConfiguration);
// We must construct a service principal identity mail address as it can't be fetched from the token.
// Here, we set it to be ClientId@Tenant.com, but the SDK will accept any properly formatted email address.
Identity id = new Identity(String.Format("{0}@{1}", appInfo.ApplicationId, tenant))
//Identity id = new Identity("kjkim@kku97.onmicrosoft.com")
//Identity id = new Identity("2323308@hec.co.kr")
{
// Use this if you want the app to protect on behalf of a user. That user owns the protected content.
//Email = "2323308@hec.co.kr"
};
// Create profile.
profile = CreateFileProfile(appInfo, ref authDelegate);
// Create engine providing Identity from authDelegate to assist with service discovery.
engine = CreateFileEngine(id);
//profile_protec = CreateProtectionProfile(appInfo, ref authDelegate);
//engine_protec = CreateProtectionEngine(id);
}
/// <summary>
/// Null refs to engine and profile and release all MIP resources.
/// </summary>
public void Dispose()
{
profile.UnloadEngineAsync(engine.Settings.EngineId).Wait();
//profile_protec.Dispose();
//engine_protec.Dispose();
engine.Dispose();
profile.Dispose();
mipContext.ShutDown();
mipContext.Dispose();
}
//public List<TemplateDescriptor> ListTemplates()
//{
// return engine_protec.GetTemplates();
//}
private IProtectionProfile CreateProtectionProfile(ApplicationInfo appInfo, ref AuthDelegateImplementation authDelegate)
{
// Initialize ProtectionProfileSettings
var profileSettings = new ProtectionProfileSettings(mipContext,
CacheStorageType.OnDisk,
new ConsentDelegateImplementation());
// Use MIP.LoadProtectionProfileAsync() providing settings to create IProtectionProfile
// IProtectionProfile is the root of all SDK operations for a given application
var profile = MIP.LoadProtectionProfile(profileSettings);
return profile;
}
//private IProtectionEngine CreateProtectionEngine(Identity identity)
//{
// if (profile_protec == null)
// {
// profile_protec = CreateProtectionProfile(appInfo, ref authDelegate);
// }
// // Create protection engine settings object. Passing in empty string for the first parameter, engine ID, will cause the SDK to generate a GUID.
// // Passing in a email address or other unique value helps to ensure that the cached engine is loaded each time for the same user.
// // Locale settings are supported and should be provided based on the machine locale, particular for client applications.
// var engineSettings = new ProtectionEngineSettings(identity.Email, authDelegate, "", "")
// {
// Identity = identity
// };
// var engine = profile_protec.AddEngine(engineSettings);
// return engine;
//}
/// <summary>
/// Creates an IFileProfile and returns.
/// IFileProfile is the root of all MIP SDK File API operations. Typically only one should be created per app.
/// </summary>
/// <param name="appInfo"></param>
/// <param name="authDelegate"></param>
/// <returns></returns>
private IFileProfile CreateFileProfile(ApplicationInfo appInfo, ref AuthDelegateImplementation authDelegate)
{
// Initialize file profile settings to create/use local state.
var profileSettings = new FileProfileSettings(mipContext, CacheStorageType.OnDiskEncrypted, new ConsentDelegateImplementation());
// Use MIP.LoadFileProfileAsync() providing settings to create IFileProfile.
// IFileProfile is the root of all SDK operations for a given application.
var profile = Task.Run(async () => await MIP.LoadFileProfileAsync(profileSettings)).Result;
return profile;
}
/// <summary>
/// Creates a file engine, associating the engine with the specified identity.
/// File engines are generally created per-user in an application.
/// IFileEngine implements all operations for fetching labels and sensitivity types.
/// IFileHandlers are added to engines to perform labeling operations.
/// </summary>
/// <param name="identity"></param>
/// <returns></returns>
private IFileEngine CreateFileEngine(Identity identity)
{
// If the profile hasn't been created, do that first.
if (profile == null)
{
profile = CreateFileProfile(appInfo, ref authDelegate);
}
// Create file settings object. Passing in empty string for the first parameter, engine ID, will cause the SDK to generate a GUID.
// Locale settings are supported and should be provided based on the machine locale, particular for client applications.
var engineSettings = new FileEngineSettings("", authDelegate, "", "en-US")
{
// Provide the identity for service discovery.
Identity = identity,
DelegatedUserEmail = sDelegatedUserEmail_ // 위임할 계정 정보... 해냈다... 23_1031 kku
};
// Add the IFileEngine to the profile and return.
var engine = Task.Run(async () => await profile.AddEngineAsync(engineSettings)).Result;
return engine;
}
/// <summary>
/// Method creates a file handler and returns to the caller.
/// IFileHandler implements all labeling and protection operations in the File API.
/// </summary>
/// <param name="options">Struct provided to set various options for the handler.</param>
/// <returns></returns>
private IFileHandler CreateFileHandler(FileOptions options)
{
// Create the handler using options from FileOptions. Assumes that the engine was previously created and stored in private engine object.
// There's probably a better way to pass/store the engine, but this is a sample ;)
var handler = Task.Run(async () => await engine.CreateFileHandlerAsync(options.FileName, options.FileName, options.IsAuditDiscoveryEnabled)).Result;
return handler;
}
private IFileHandler CreateFileHandler(string filename)
{
// Create the handler using options from FileOptions. Assumes that the engine was previously created and stored in private engine object.
// There's probably a better way to pass/store the engine, but this is a sample ;)
var handler = Task.Run(async () => await engine.CreateFileHandlerAsync(filename, filename, false)).Result;
return handler;
}
/// <summary>
/// List all labels from the engine and return in IEnumerable<Label>
/// </summary>
/// <returns></returns>
public IEnumerable<Label> ListLabels()
{
// Get labels from the engine and return.
// For a user principal, these will be user specific.
// For a service principal, these may be service specific or global.
return engine.SensitivityLabels;
}
/// <summary>
/// Set the label on the given file.
/// Options for the labeling operation are provided in the FileOptions parameter.
/// </summary>
/// <param name="options">Details about file input, output, label to apply, etc.</param>
/// <returns></returns>
public bool SetLabel(FileOptions options)
{
// The change isn't committed to the file referenced by the handler until CommitAsync() is called.
// Pass the desired output file name in to the CommitAsync() function.
bool result = false;
try
{
RemoveLabel(options);
// LabelingOptions allows us to set the metadata associated with the labeling operations.
// Review the API Spec at https://aka.ms/mipsdkdocs for details
LabelingOptions labelingOptions = new LabelingOptions()
{
AssignmentMethod = options.AssignmentMethod,
IsDowngradeJustified = true,
JustificationMessage = "BSOne"
};
var handler = CreateFileHandler(options);
/////////////////////////////
//List<string> users = new List<string>()
//{
// //USER_ANYONE
// //"aiptest@unitus.co.kr"
//};
//List<string> roles = new List<string>()
//{
// //Microsoft.InformationProtection.Protection.Roles.Viewer, // 사용자 보호해제 금지, 문서 편집, 인쇄, 내보내기, 복사 금지
// //Microsoft.InformationProtection.Protection.Roles.Reviewer // 사용자 보호해제 금지, 문서 편집, 저장 가능, 그외 인쇄, 내보내기, 복사 금지
// //Microsoft.InformationProtection.Protection.Roles.Author // 공동 작성자 - 보기, 편집, 복사, 인쇄
// //Microsoft.InformationProtection.Protection.Roles.CoOwner // 공동 소유자
// "OWNER"
//};
//List<UserRoles> userroles = new List<UserRoles>()
//{
// new UserRoles(users, roles)
//};
//ProtectionDescriptor protectionDescriptor = new ProtectionDescriptor(userroles);
//handler.SetProtection(protectionDescriptor, new ProtectionSettings());
//////////////////////////////
// Use the SetLabel method on the handler, providing label ID and LabelingOptions
// The handler already references a file, so those details aren't needed.
handler.SetLabel(engine.GetLabelById(options.LabelId), labelingOptions, new ProtectionSettings());
//if (bRemoveProctect)
// handler.RemoveProtection();
//handler.DeleteLabel() // 라벨을 설정할 때 (labelingOptions 매개변수를 통해) 작업이 정당화되어야 하는 경우 JustificationRequiredError가 발생합니다.
// Check to see that modifications occurred on the handler. If not, skip commit.
if (handler.IsModified())
{
result = Task.Run(async () => await handler.CommitAsync(options.OutputName)).Result;
}
// If the commit was successful and GenerateChangeAuditEvents is true, call NotifyCommitSuccessful()
if (result && options.GenerateChangeAuditEvent)
{
// Submits and audit event about the labeling action to Azure Information Protection Analytics
handler.NotifyCommitSuccessful(options.FileName);
}
}
catch (Exception ex)
{
Console.WriteLine("Fail .. SetLabel() .. " + ex.Message);
if (ex.InnerException != null)
Console.WriteLine("Fail .. SetLabel() .. 내부 예외 : " + ex.InnerException.Message);
}
return result;
}
public bool RemoveLabel(FileOptions options)
{
// The change isn't committed to the file referenced by the handler until CommitAsync() is called.
// Pass the desired output file name in to the CommitAsync() function.
bool result = false;
try
{
// LabelingOptions allows us to set the metadata associated with the labeling operations.
// Review the API Spec at https://aka.ms/mipsdkdocs for details
LabelingOptions labelingOptions = new LabelingOptions()
{
AssignmentMethod = options.AssignmentMethod,
IsDowngradeJustified = true,
JustificationMessage = "Auto"
};
var handler = CreateFileHandler(options);
handler.DeleteLabel(labelingOptions);
// Check to see that modifications occurred on the handler. If not, skip commit.
if (handler.IsModified())
{
result = Task.Run(async () => await handler.CommitAsync(options.OutputName)).Result;
}
// If the commit was successful and GenerateChangeAuditEvents is true, call NotifyCommitSuccessful()
if (result && options.GenerateChangeAuditEvent)
{
// Submits and audit event about the labeling action to Azure Information Protection Analytics
handler.NotifyCommitSuccessful(options.FileName);
}
}
catch (Exception ex)
{
Console.WriteLine("Fail .. RemoveLabel() .. " + ex.Message);
if (ex.InnerException != null)
Console.WriteLine("Fail .. RemoveLabel() .. 내부 예외 : " + ex.InnerException.Message);
}
return result;
}
public bool SaveLabelList(string sPath)
{
bool result = true;
string sLabelList = "";
try
{
IEnumerable<Label> labels = ListLabels();
foreach (var label in labels)
{
sLabelList += label.Name + "::" + label.Id + "\n";
if (label.Children.Count > 0)
{
foreach (Label child in label.Children)
{
sLabelList += child.Name + "::" + child.Id + "\n";
}
}
}
System.IO.File.WriteAllText(sPath, sLabelList, Encoding.UTF8);
}
catch (Exception ex)
{
Console.WriteLine("Fail .. SetLabel() .. " + ex.Message);
result = false;
if (ex.InnerException != null)
Console.WriteLine("Fail .. SetLabel() .. 내부 예외 : " + ex.InnerException.Message);
}
return result;
}
public bool RemoveProtection(FileOptions options)
{
bool result = false;
try
{
var handler = CreateFileHandler(options);
if (handler.Protection == null)
return result;
handler.RemoveProtection();
//LabelingOptions labelingOptions = new LabelingOptions()
//{
// AssignmentMethod = AssignmentMethod.Privileged
//};
//handler.DeleteLabel(labelingOptions);
if (handler.IsModified())
{
result = Task.Run(async () => await handler.CommitAsync(options.OutputName)).Result;
}
// If the commit was successful and GenerateChangeAuditEvents is true, call NotifyCommitSuccessful()
if (result && options.GenerateChangeAuditEvent)
{
// Submits and audit event about the labeling action to Azure Information Protection Analytics
handler.NotifyCommitSuccessful(options.FileName);
}
}
catch (Exception ex)
{
Console.WriteLine("Fail .. RemoveProtection() .. " + ex.Message);
if (ex.InnerException != null)
Console.WriteLine("Fail .. RemoveProtection() .. 내부 예외 : " + ex.InnerException.Message);
}
return result;
}
//public IProtectionHandler CreatePublishingHandler(string templateId)
//{
// ProtectionDescriptor protectionDescriptor = new ProtectionDescriptor(templateId);
// PublishingSettings publishingSettings = new PublishingSettings(protectionDescriptor);
// var protectionHandler = engine_protec.CreateProtectionHandlerForPublishing(publishingSettings);
// return protectionHandler;
//}
public bool IsProtection(string sPath)
{
bool result = false;
try
{
var handler = CreateFileHandler(sPath);
if (handler.Protection == null)
return result;
result = true;
}
catch (Exception ex)
{
Console.WriteLine("Fail .. SetProtection() .. " + ex.Message);
if (ex.InnerException != null)
Console.WriteLine("Fail .. SetProtection() .. 내부 예외 : " + ex.InnerException.Message);
}
return result;
}
public bool SetProtection(FileOptions options)
{
bool result = false;
try
{
var handler = CreateFileHandler(options);
if (handler.Protection != null)
return result;
//ProtectionDescriptor protectionDescriptor = new ProtectionDescriptor("de6d83a0-f18c-4c66-b51c-9fcf8fd32e52");
//handler.SetProtection(protectionDescriptor, new ProtectionSettings());
//handler.SetProtection(CreatePublishingHandler("00000000-0000-0000-0000-000000000000"));
//var protecTemp = CreateFileHandler("C:\\Users\\kku\\Desktop\\MIP-TEST\\새 Microsoft Excel 워크시트 - 복사본_mipProctec.xlsx").Protection;
//Console.WriteLine("UserRights={0}", protecTemp.ProtectionDescriptor.UserRights);
//Console.WriteLine("UserRoles={0}", protecTemp.ProtectionDescriptor.UserRoles);
//Console.WriteLine("TempId={0}", protecTemp.ProtectionDescriptor.TemplateId);
//handler.SetProtection(protecTemp);
List<string> users = new List<string>()
{
USER_ANYONE
//"aiptest@unitus.co.kr"
//sDelegatedUserEmail_
};
List<string> roles = new List<string>()
{
//Microsoft.InformationProtection.Protection.Roles.Viewer, // 사용자 보호해제 금지, 문서 편집, 인쇄, 내보내기, 복사 금지
//Microsoft.InformationProtection.Protection.Roles.Reviewer // 사용자 보호해제 금지, 문서 편집, 저장 가능, 그외 인쇄, 내보내기, 복사 금지
Microsoft.InformationProtection.Protection.Roles.Author // 공동 작성자 - 보기, 편집, 복사, 인쇄
//Microsoft.InformationProtection.Protection.Roles.CoOwner // 공동 소유자
//"OWNER"
};
List<UserRoles> userroles = new List<UserRoles>()
{
new UserRoles(users, roles)
};
ProtectionDescriptor protectionDescriptor = new ProtectionDescriptor(userroles);
handler.SetProtection(protectionDescriptor, new ProtectionSettings());
// Check to see that modifications occurred on the handler. If not, skip commit.
if (handler.IsModified())
{
result = Task.Run(async () => await handler.CommitAsync(options.OutputName)).Result;
}
// If the commit was successful and GenerateChangeAuditEvents is true, call NotifyCommitSuccessful()
if (result && options.GenerateChangeAuditEvent)
{
// Submits and audit event about the labeling action to Azure Information Protection Analytics
handler.NotifyCommitSuccessful(options.FileName);
}
}
//catch (BadInputException ex1)
//{
//Console.WriteLine("Fail .. SetProtection() .. " + ex1.Message);
//}
catch (Exception ex)
{
Console.WriteLine("Fail .. SetProtection() .. " + ex.Message);
if (ex.InnerException != null)
Console.WriteLine("Fail .. SetProtection() .. 내부 예외 : " + ex.InnerException.Message);
}
return result;
}
/// <summary>
/// Read the label from a file provided via FileOptions.
/// </summary>
/// <param name="options"></param>
/// <returns></returns>
public ContentLabel GetLabel(FileOptions options)
{
try
{
var handler = CreateFileHandler(options);
return handler.Label;
}
catch (Exception ex)
{
Console.WriteLine("Fail .. GetLabel() .. " + ex.Message);
if (ex.InnerException != null)
Console.WriteLine("Fail .. GetLabel() .. 내부 예외 : " + ex.InnerException.Message);
return null;
}
}
public string GetOwner(string sPath)
{
string sOwner = "";
try
{
var handler = CreateFileHandler(sPath);
if ((handler != null) && (handler.Protection != null))
sOwner = handler.Protection.Owner;
}
catch (Exception ex)
{
Console.WriteLine("Fail .. GetOwner() .. " + ex.Message);
if (ex.InnerException != null)
Console.WriteLine("Fail .. GetOwner() .. 내부 예외 : " + ex.InnerException.Message);
}
return sOwner;
}
public string GetDelegatedUserEmail()
{
return sDelegatedUserEmail_;
}
public string GetEmpNo()
{
return sEmpNo_;
}
}
}

33
Tocsg.Module/BSOne-AIP-Decrypt/App.config Normal file
View File

@ -0,0 +1,33 @@
<?xml version="1.0" encoding="utf-8"?>
<configuration>
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.8"/>
</startup>
<appSettings>
<add key="ida:ClientId" value="9ad412fe-e47b-43cc-93dc-9844c9b1cc0b"/>
<add key="ida:RedirectUri" value="https://login.microsoftonline.com/common/oauth2/nativeclient"/>
<add key="ida:CertThumbprint" value="0c8a4e4b-adb8-4a20-9329-c79b13563c90"/>
<add key="ida:ClientSecret" value="LAX8Q~owiSpc1hDqTRacZlU.OxABtlV796QPGcif"/>
<!-- change this flag to true if you're doing certificate based auth. False if using client secret. -->
<add key="ida:DoCertAuth" value="false"/>
<!-- Tenant name in format of Contoso.com or contoso.onmicrosot.com -->
<add key="ida:Tenant" value="461c81ec-bcc4-4ebe-a37f-2d9a82c9e560"/>
<!-- Your app name. This name will appear in AIP Analytics logs -->
<add key="app:Name" value="ToCSG-BSOne"/>
<!-- Your app version. This will appear in AIP Analytics logs -->
<add key="app:Version" value="1.0"/>
<add key="ClientSettingsProvider.ServiceUri" value=""/>
</appSettings>
<system.web>
<membership defaultProvider="ClientAuthenticationMembershipProvider">
<providers>
<add name="ClientAuthenticationMembershipProvider" type="System.Web.ClientServices.Providers.ClientFormsAuthenticationMembershipProvider, System.Web.Extensions, Version=4.0.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35" serviceUri=""/>
</providers>
</membership>
<roleManager defaultProvider="ClientRoleProvider" enabled="true">
<providers>
<add name="ClientRoleProvider" type="System.Web.ClientServices.Providers.ClientRoleProvider, System.Web.Extensions, Version=4.0.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35" serviceUri="" cacheTimeout="86400"/>
</providers>
</roleManager>
</system.web>
</configuration>

154
Tocsg.Module/BSOne-AIP-Decrypt/AuthDelegateImplementation.cs Normal file
View File

@ -0,0 +1,154 @@
/*
*
* Copyright (c) Microsoft Corporation.
* All rights reserved.
*
* This code is licensed under the MIT License.
*
* Permission is hereby granted, free of charge, to any person obtaining a copy
* of this software and associated documentation files(the "Software"), to deal
* in the Software without restriction, including without limitation the rights
* to use, copy, modify, merge, publish, distribute, sublicense, and / or sell
* copies of the Software, and to permit persons to whom the Software is
* furnished to do so, subject to the following conditions :
*
* The above copyright notice and this permission notice shall be included in
* all copies or substantial portions of the Software.
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.IN NO EVENT SHALL THE
* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
* OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
* THE SOFTWARE.
*
*/
using System;
using System.Configuration;
using Microsoft.InformationProtection;
using Microsoft.Identity.Client;
using System.Security.Cryptography.X509Certificates;
using System.Linq;
using static BSOneMip.Define;
namespace BSOneMip
{
public class AuthDelegateImplementation : IAuthDelegate
{
// Set the redirect URI from the AAD Application Registration.
private static readonly string redirectUri = REDIRECT_URL; // ConfigurationManager.AppSettings["ida:RedirectUri"];
// Fetch cert thumbprint, appkey, and DoCertAuth flag from app.config
private static readonly string certThumb = APPSECU_ID; // ConfigurationManager.AppSettings["ida:CertThumbprint"];
private static readonly bool doCertAuth = false; // Convert.ToBoolean(ConfigurationManager.AppSettings["ida:DoCertAuth"]);
private static readonly string clientSecret = APPSECU_VAL; // ConfigurationManager.AppSettings["ida:ClientSecret"];
// Fetch tenant name from app.config
// We use the tenant ID to append to the authority, as we need this as a hint to find the correct tenant.
// Using the common endpoint without tenant throws an exception.
private static readonly string tenant = TENANT_ID; // ConfigurationManager.AppSettings["ida:Tenant"];
private ApplicationInfo appInfo;
//private TokenCache tokenCache = new TokenCache();
public AuthDelegateImplementation(ApplicationInfo appInfo)
{
this.appInfo = appInfo;
}
/// <summary>
/// AcquireToken is called by the SDK when auth is required for an operation.
/// Adding or loading an IFileEngine is typically where this will occur first.
/// The SDK provides all three parameters below.Identity from the EngineSettings.
/// Authority and resource are provided from the 401 challenge.
/// The SDK cares only that an OAuth2 token is returned.How it's fetched isn't important.
/// In this sample, we fetch the token using Active Directory Authentication Library(ADAL).
/// </summary>
/// <param name="identity"></param>
/// <param name="authority"></param>
/// <param name="resource"></param>
/// <returns>The OAuth2 token for the user</returns>
public string AcquireToken(Identity identity, string authority, string resource, string claim)
{
string sResult = "";
try
{
// Append tenant to authority and remove common.
if (authority.ToLower().Contains("common"))
{
var authorityUri = new Uri(authority);
authority = String.Format("https://{0}/{1}", authorityUri.Host, tenant);
}
IConfidentialClientApplication app;
if (doCertAuth)
{
//Console.WriteLine("Performing certificate based auth with {0}", certThumb);
Console.WriteLine("Performing certificate based auth with {0}", certThumb);
// Read cert from local machine
var certificate = ReadCertificateFromStore(certThumb);
// Use cert to build ClientAssertionCertificate
app = ConfidentialClientApplicationBuilder.Create(appInfo.ApplicationId)
.WithCertificate(certificate)
.WithRedirectUri(redirectUri)
.Build();
}
else
{
//Console.WriteLine("Performing client secret based auth.");
//Console.WriteLine("[BSOne] AIP 클라이언트 암호 기반 인증 .. 성공");
app = ConfidentialClientApplicationBuilder.Create(appInfo.ApplicationId)
.WithClientSecret(clientSecret)
.WithRedirectUri(redirectUri)
.Build();
}
string[] scopes = new string[] { resource[resource.Length - 1].Equals('/') ? $"{resource}.default" : $"{resource}/.default" };
AuthenticationResult authResult = app.AcquireTokenForClient(scopes)
.WithAuthority(authority)
.ExecuteAsync()
.GetAwaiter()
.GetResult();
// Return the token. The token is sent to the resource.
sResult = authResult.AccessToken;
}
catch (Exception ex)
{
//Console.WriteLine("[BSOne] AIP 클라이언트 암호 기반 인증 .. 실패");
Console.WriteLine("Fail .. AcquireToken() .. " + ex.Message);
}
return sResult;
}
private static X509Certificate2 ReadCertificateFromStore(string thumbprint)
{
X509Certificate2 cert = null;
X509Store store = new X509Store(StoreName.My, StoreLocation.CurrentUser);
store.Open(OpenFlags.ReadOnly);
X509Certificate2Collection certCollection = store.Certificates;
// Find unexpired certificates.
X509Certificate2Collection currentCerts = certCollection.Find(X509FindType.FindByTimeValid, DateTime.Now, false);
// From the collection of unexpired certificates, find the ones with the correct name.
X509Certificate2Collection signingCert = currentCerts.Find(X509FindType.FindByThumbprint, thumbprint, false);
// Return the first certificate in the collection, has the right name and is current.
cert = signingCert.OfType<X509Certificate2>().OrderByDescending(c => c.NotBefore).FirstOrDefault();
store.Close();
return cert;
}
}
}

176
Tocsg.Module/BSOne-AIP-Decrypt/BSOne-AIP-Decrypt.csproj Normal file
View File

@ -0,0 +1,176 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="15.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<ProjectGuid>{719FA341-B943-409A-886F-C6EA32D526A9}</ProjectGuid>
<OutputType>Exe</OutputType>
<RootNamespace>BSOneMip</RootNamespace>
<AssemblyName>BSOne-AIP-Decrypt</AssemblyName>
<TargetFrameworkVersion>v4.8</TargetFrameworkVersion>
<FileAlignment>512</FileAlignment>
<AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
<Deterministic>true</Deterministic>
<NuGetPackageImportStamp>
</NuGetPackageImportStamp>
<IsWebBootstrapper>false</IsWebBootstrapper>
<TargetFrameworkProfile />
<PublishUrl>publish\</PublishUrl>
<Install>true</Install>
<InstallFrom>Disk</InstallFrom>
<UpdateEnabled>false</UpdateEnabled>
<UpdateMode>Foreground</UpdateMode>
<UpdateInterval>7</UpdateInterval>
<UpdateIntervalUnits>Days</UpdateIntervalUnits>
<UpdatePeriodically>false</UpdatePeriodically>
<UpdateRequired>false</UpdateRequired>
<MapFileExtensions>true</MapFileExtensions>
<ApplicationRevision>0</ApplicationRevision>
<ApplicationVersion>1.0.0.%2a</ApplicationVersion>
<UseApplicationTrust>false</UseApplicationTrust>
<BootstrapperEnabled>true</BootstrapperEnabled>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<Optimize>false</Optimize>
<OutputPath>bin\Debug\</OutputPath>
<DefineConstants>DEBUG;TRACE</DefineConstants>
<ErrorReport>prompt</ErrorReport>
<WarningLevel>4</WarningLevel>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
<DebugType>pdbonly</DebugType>
<Optimize>true</Optimize>
<OutputPath>bin\Release\</OutputPath>
<DefineConstants>TRACE</DefineConstants>
<ErrorReport>prompt</ErrorReport>
<WarningLevel>4</WarningLevel>
</PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|x64'">
<DebugSymbols>true</DebugSymbols>
<OutputPath>bin\x64\Debug\</OutputPath>
<DefineConstants>TRACE;DEBUG</DefineConstants>
<DebugType>full</DebugType>
<PlatformTarget>x64</PlatformTarget>
<ErrorReport>prompt</ErrorReport>
<CodeAnalysisRuleSet>MinimumRecommendedRules.ruleset</CodeAnalysisRuleSet>
<Prefer32Bit>true</Prefer32Bit>
</PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Release|x64'">
<OutputPath>bin\x64\Release\</OutputPath>
<DefineConstants>TRACE</DefineConstants>
<Optimize>true</Optimize>
<DebugType>pdbonly</DebugType>
<PlatformTarget>x64</PlatformTarget>
<ErrorReport>prompt</ErrorReport>
<CodeAnalysisRuleSet>MinimumRecommendedRules.ruleset</CodeAnalysisRuleSet>
<Prefer32Bit>true</Prefer32Bit>
</PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|x86'">
<DebugSymbols>true</DebugSymbols>
<OutputPath>bin\x86\Debug\</OutputPath>
<DefineConstants>DEBUG;TRACE</DefineConstants>
<DebugType>full</DebugType>
<PlatformTarget>x86</PlatformTarget>
<ErrorReport>prompt</ErrorReport>
<CodeAnalysisRuleSet>MinimumRecommendedRules.ruleset</CodeAnalysisRuleSet>
<Prefer32Bit>true</Prefer32Bit>
</PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Release|x86'">
<OutputPath>bin\x86\Release\</OutputPath>
<DefineConstants>TRACE</DefineConstants>
<Optimize>true</Optimize>
<DebugType>pdbonly</DebugType>
<PlatformTarget>x86</PlatformTarget>
<ErrorReport>prompt</ErrorReport>
<CodeAnalysisRuleSet>MinimumRecommendedRules.ruleset</CodeAnalysisRuleSet>
<Prefer32Bit>true</Prefer32Bit>
</PropertyGroup>
<ItemGroup>
<Reference Include="System" />
<Reference Include="System.ComponentModel.Composition" />
<Reference Include="System.Configuration" />
<Reference Include="System.Core" />
<Reference Include="System.Drawing" />
<Reference Include="System.IdentityModel" />
<Reference Include="System.Web.Extensions" />
<Reference Include="System.Windows.Forms" />
<Reference Include="System.Xml.Linq" />
<Reference Include="System.Data.DataSetExtensions" />
<Reference Include="Microsoft.CSharp" />
<Reference Include="System.Data" />
<Reference Include="System.Xml" />
</ItemGroup>
<ItemGroup>
<Compile Include="Action.cs" />
<Compile Include="AuthDelegateImplementation.cs" />
<Compile Include="ConsentDelegateImplementation.cs" />
<Compile Include="Define.cs" />
<Compile Include="MessagePasser.cs">
<SubType>Form</SubType>
</Compile>
<Compile Include="Program.cs" />
</ItemGroup>
<ItemGroup>
<None Include="App.config">
<SubType>Designer</SubType>
</None>
</ItemGroup>
<ItemGroup>
<BootstrapperPackage Include=".NETFramework,Version=v4.6.1">
<Visible>False</Visible>
<ProductName>Microsoft .NET Framework 4.6.1%28x86 및 x64%29</ProductName>
<Install>true</Install>
</BootstrapperPackage>
<BootstrapperPackage Include="Microsoft.Net.Framework.3.5.SP1">
<Visible>False</Visible>
<ProductName>.NET Framework 3.5 SP1</ProductName>
<Install>false</Install>
</BootstrapperPackage>
</ItemGroup>
<ItemGroup>
<Folder Include="Properties\" />
</ItemGroup>
<ItemGroup>
<PackageReference Include="Microsoft.Identity.Client">
<Version>4.74.1</Version>
</PackageReference>
<PackageReference Include="Microsoft.InformationProtection.File">
<Version>1.17.154</Version>
</PackageReference>
<PackageReference Include="Newtonsoft.Json">
<Version>13.0.3</Version>
</PackageReference>
<PackageReference Include="System.IO">
<Version>4.3.0</Version>
</PackageReference>
<PackageReference Include="System.Net.Http">
<Version>4.3.4</Version>
</PackageReference>
<PackageReference Include="System.Runtime">
<Version>4.3.1</Version>
</PackageReference>
<PackageReference Include="System.Security.Cryptography.Algorithms">
<Version>4.3.1</Version>
</PackageReference>
<PackageReference Include="System.Security.Cryptography.Encoding">
<Version>4.3.0</Version>
</PackageReference>
<PackageReference Include="System.Security.Cryptography.Primitives">
<Version>4.3.0</Version>
</PackageReference>
<PackageReference Include="System.Security.Cryptography.X509Certificates">
<Version>4.3.2</Version>
</PackageReference>
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="MessagePasser.resx">
<DependentUpon>MessagePasser.cs</DependentUpon>
</EmbeddedResource>
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.CSharp.targets" />
</Project>

50
Tocsg.Module/BSOne-AIP-Decrypt/ConsentDelegateImplementation.cs Normal file
View File

@ -0,0 +1,50 @@
/*
*
* Copyright (c) Microsoft Corporation.
* All rights reserved.
*
* This code is licensed under the MIT License.
*
* Permission is hereby granted, free of charge, to any person obtaining a copy
* of this software and associated documentation files(the "Software"), to deal
* in the Software without restriction, including without limitation the rights
* to use, copy, modify, merge, publish, distribute, sublicense, and / or sell
* copies of the Software, and to permit persons to whom the Software is
* furnished to do so, subject to the following conditions :
*
* The above copyright notice and this permission notice shall be included in
* all copies or substantial portions of the Software.
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.IN NO EVENT SHALL THE
* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
* OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
* THE SOFTWARE.
*
*/
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using Microsoft.InformationProtection;
namespace BSOneMip
{
/// <summary>
/// Certain SDK operations require that the user consents to the action as it may log PII.
/// IConsentDelegate allows developers to impement a consent flow that meets their application and business requirement.
/// This sample always passes back Consent.Accept, but the user could be presented with options that show them the URL
/// And allow them to accept or reject consent.
/// </summary>
class ConsentDelegateImplementation : IConsentDelegate
{
public Consent GetUserConsent(string url)
{
return Consent.Accept;
}
}
}

118
Tocsg.Module/BSOne-AIP-Decrypt/Define.cs Normal file
View File

@ -0,0 +1,118 @@
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
namespace BSOneMip
{
// 인증된 계정 테넌트 정보
// HKEY_CURRENT_USER\SOFTWARE\Microsoft\IdentityCRL\TokenBroker\DefaultAccount
// 예 : u:d8e27a25-fa3b-4f68-8773-c0bc5d68638c.a27ddcc1-bea5-4183-aa29-fd96d7612a1d
// 아래 키의 하위키, 값 정보가 인증 변경 시 변경 되는거 같음...
// HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\16.0\Common\Identity\ServiceAuthInfoCache
internal class Define
{
public static readonly string APP_NAME = "ToCSG-BSOne";
public static readonly string APP_VER = "1.0";
public static readonly string REDIRECT_URL = "https://login.microsoftonline.com/common/oauth2/nativeclient";
#if _HDENG_
// DEV
//public static readonly string APP_ID = "75881f51-22ca-4217-b66f-70b9b1522707";
//public static readonly string TENANT_ID = "654693fb-be52-4135-af55-739adbc92144";
//public static readonly string APPSECU_ID = "8d2682bd-a9bf-4ac3-bb93-e5a488eeea47"; // 2023-07-17
//public static readonly string APPSECU_VAL = "a.58Q~-BVJFo4z-d-IuMkzQMjKuAUXXDdcK2JbTs";
// HEC - OP, 만료일 : 2025-07-17 (예상)
//public static readonly string APP_ID = "1ea54ecc-b3d1-4892-8c27-57418e667fdb";
//public static readonly string TENANT_ID = "a27ddcc1-bea5-4183-aa29-fd96d7612a1d";
//public static readonly string APPSECU_ID = "c633a238-e3fa-4c3a-a133-7d88fdccbb7c";
//public static readonly string APPSECU_VAL = "2T18Q~bQ_IWsEe7DPS~3B3zKjR1FvyG9jF1kJbTN";
// 기존 암호/비밀ID 값 만료일: 2025.09.03
// HEC - OP, 키 설명: BSOne-EncKey, 만료일: 2027-05-29
public static readonly string APP_ID = "1ea54ecc-b3d1-4892-8c27-57418e667fdb";
public static readonly string TENANT_ID = "a27ddcc1-bea5-4183-aa29-fd96d7612a1d";
public static readonly string APPSECU_ID = "1ccf4dc5-a57d-4712-adec-8001140bb7f8"; // 2027-05-29
public static readonly string APPSECU_VAL = "_F.8Q~M_IqYUnWdTRGF7cor1KRR85Tqa6tq-haDr";
public static readonly string USER_ANYONE = "AllStaff-7184AB3F-CCD1-46F3-8233-3E09E9CF0E66@hec.co.kr";
#elif _HCA_
public static readonly string APP_ID = "e9dc4b6c-8c8f-4133-b0e4-86a8c0fa7509";
public static readonly string TENANT_ID = "54c9f638-105a-4d83-8b7e-f5ea3ed1986f";
public static readonly string APPSECU_ID = "3ca327fa-698a-4b4a-80ee-a027dd8d83f6"; // 2024-11-15
public static readonly string APPSECU_VAL = "Ucb8Q~YFkRT5_Ezy4nosG9WZUw1Xj9jdIOdCdaUs";
public static readonly string USER_ANYONE = "AllStaff-7184AB3F-CCD1-46F3-8233-3E09E9CF0E66@hkmc10.onmcirosoft.com";
//public static readonly string APP_ID = "29fdd0e7-2218-4997-96b8-e786cca199ea";
//public static readonly string TENANT_ID = "458bd810-54c3-4de9-8807-d9555e217e9b";
//public static readonly string APPSECU_ID = "08cc1dd1-4ea7-46fd-a9d0-310876d1f957";
//public static readonly string APPSECU_VAL = "mZp8Q~PMqxLdPSh0tlMkZLs.HX~xxp4jNEXGddbY";
//public static readonly string USER_ANYONE = "AllStaff-7184AB3F-CCD1-46F3-8233-3E09E9CF0E66@hmccloud10.onmicrosoft.com";
#elif _HAE_
public static readonly string APP_ID = "71fb6bea-8c43-44ba-94ad-d28e9416da3b";
public static readonly string TENANT_ID = "c3009ee9-85dd-4ecf-a86f-79941767d706";
public static readonly string APPSECU_ID = "9cbb412a-4535-432d-9a85-527bbdefe7de";
public static readonly string APPSECU_VAL = "NAI8Q~_FSGRdrOHV8.KcQJ.ThWRhrOSGsqZcva8r";
public static readonly string USER_ANYONE = "AllStaff-7184AB3F-CCD1-46F3-8233-3E09E9CF0E66@hyundai-autoever.com";
#elif _JUVIS_
public static readonly string APP_ID = "12578a98-0721-4c2a-a972-6ae283be7c5e";
public static readonly string TENANT_ID = "43680acd-ee7e-4213-b458-5f6d31410fd6";
public static readonly string APPSECU_ID = "83da4d12-54a0-4338-9556-2115f5f7a711"; // 2024-02-05
public static readonly string APPSECU_VAL = "1TE8Q~tHdMmTLZd1RZ2pH1pM81EYn9gFJwhBeajt";
public static readonly string USER_ANYONE = "AllStaff-7184AB3F-CCD1-46F3-8233-3E09E9CF0E66@juvis.co.kr";
#elif _UNITUS_
public static readonly string APP_ID = "3cbc5216-b53c-4684-8314-a09832a0470b";
public static readonly string TENANT_ID = "e78533f2-de02-4a1f-9a30-afff5b5505f2";
public static readonly string APPSECU_ID = "3d0a832f-5736-48ae-9f42-8d33d84fdfa7"; // 2024-11-08
public static readonly string APPSECU_VAL = "jIN8Q~sa1USPuvjibMiZl9scD6~cBPTHfoHB_aEI";
public static readonly string USER_ANYONE = "AllStaff-7184AB3F-CCD1-46F3-8233-3E09E9CF0E66@unitus.co.kr";
#elif _MOTRAS_
public static readonly string APP_ID = "1fb1e032-2b4c-4d7d-90cc-18370121e3b9";
public static readonly string TENANT_ID = "b4f65b7e-df81-4527-84be-6552f2220b70";
public static readonly string APPSECU_ID = "d2b249eb-5297-4bae-8e84-2049508de393"; // 2024-11-11
public static readonly string APPSECU_VAL = "Gwt8Q~mxethV1.2w.lKbm7W4_x0IGOco7K_FAc8s";
public static readonly string USER_ANYONE = "AllStaff-7184AB3F-CCD1-46F3-8233-3E09E9CF0E66@motras.co.kr";
#elif _KDNVN_
public static readonly string APP_ID = "f8ff02a8-67b7-4394-9f0c-964a4c5161a1";
public static readonly string TENANT_ID = "7fa15276-5814-4556-87ee-2f791ec559c2";
public static readonly string APPSECU_ID = "a08a5abc-7cc6-4f63-b3e7-9857ae79a896"; // 2024-11-06
public static readonly string APPSECU_VAL = "Fyl8Q~_sTnnrxeFYVuF.ZM9Fpm-QwOcmoRc3~anv";
public static readonly string USER_ANYONE = "AllStaff-7184AB3F-CCD1-46F3-8233-3E09E9CF0E66@kdiwin.com";
#elif _CJOV_GLOBAL_
public static readonly string APP_ID = "57c08dc7-b56f-424f-9f43-bc7e25de872c";
public static readonly string TENANT_ID = "ee6af5c5-684f-4539-9eb6-64793af08027";
public static readonly string APPSECU_ID = "32491836-401f-492e-9596-d37d73b926da"; // 2024-11-28
public static readonly string APPSECU_VAL = "BY88Q~P1kfcsIA2OMpV0jDzmNf_7V2gGleI-wag8";
public static readonly string USER_ANYONE = "AllStaff-7184AB3F-CCD1-46F3-8233-3E09E9CF0E66@cj.net";
#elif _SKEC_
public static readonly string APP_ID = "361ffe36-7592-4247-b13f-1688440dcffe";
public static readonly string TENANT_ID = "43d7489c-57ce-4967-b332-b53a94d66806";
public static readonly string APPSECU_ID = "9692a153-b95a-4071-8753-0cb29c48c29a"; // 2025-07-30 ~ 만료일 2027.07.30
public static readonly string APPSECU_VAL = "e5H8Q~Iy_9w6UQfJ2TBnnaS.gqq9WNoFOMBEIdeH";
public static readonly string USER_ANYONE = "AllStaff-7184AB3F-CCD1-46F3-8233-3E09E9CF0E66@skec.com";
#elif _WHANIN_
public static readonly string APP_ID = "3be6cd5c-e1c0-44e4-a664-d4879a3e6efe";
public static readonly string TENANT_ID = "a2f2a594-d6d7-423d-844e-a0365e16e441";
public static readonly string APPSECU_ID = "0b883d75-13eb-4005-ad38-c8b98bc8a658"; // 2025-11-06 ~ 만료일 2027-11-06
public static readonly string APPSECU_VAL = "ODy8Q~xSfOOAfyw04wFwYqf1n7kmocqUsJhT_a.P";
public static readonly string USER_ANYONE = "AllStaff-7184AB3F-CCD1-46F3-8233-3E09E9CF0E66@whanin.com";
#else
public static readonly string APP_ID = "f46b44f7-ef21-443d-8d30-cb1b6998204f";
public static readonly string TENANT_ID = "ae3cc733-f6a2-4bb8-b7f2-3166de909f4d";
public static readonly string APPSECU_ID = "af617123-365f-42ef-8d30-75dea6c80fb2";
public static readonly string APPSECU_VAL = "WuO8Q~4Y9OGJuLrKk3yaV~Wu_2CureYTLnxLwc2O";
public static readonly string USER_ANYONE = "AllStaff-7184AB3F-CCD1-46F3-8233-3E09E9CF0E66@tocsgm365.onmicrosoft.com";
//old
//public static readonly string APP_ID = "9ad412fe-e47b-43cc-93dc-9844c9b1cc0b";
//public static readonly string TENANT_ID = "461c81ec-bcc4-4ebe-a37f-2d9a82c9e560";
//public static readonly string APPSECU_ID = "0c8a4e4b-adb8-4a20-9329-c79b13563c90";
//public static readonly string APPSECU_VAL = "LAX8Q~owiSpc1hDqTRacZlU.OxABtlV796QPGcif";
#endif
}
}

622
Tocsg.Module/BSOne-AIP-Decrypt/MessagePasser.cs Normal file
View File

@ -0,0 +1,622 @@
/* ===================
* WM_COPYDATA example
* ===================
*
* Working example for sending a string between C# handles (Controls/Forms) using WM_COPYDATA.
*
* TODO:
* -----
* * Add more info
* * Make generic struct copying work
*
*
* TL;DR:
* ------
* Put Catcher.Demo() in Program.Main() and step through it.
* `MessagePasser.SendString(<handle>, "test");` will send a string to the Handle.
* Make sure target window WndProc has `MessagePasser.ReceiveString` in it/
*
*/
using Microsoft.InformationProtection;
using System;
using System.ComponentModel;
using System.Runtime.CompilerServices;
using System.Runtime.InteropServices;
using System.Threading;
using System.Threading.Tasks;
using System.Windows.Forms;
using static BSOneMip.Action;
using Newtonsoft.Json;
using Newtonsoft.Json.Linq;
using System.Xml.Linq;
using Microsoft.Win32;
using System.Reflection.Emit;
using System.Linq.Expressions;
using System.IO;
//using static BSOneMip.Define;
namespace PassMessage {
/// <summary>
/// A form to demonstrate WndProc CopyData
/// </summary>
public class BS1Aip : Form {
private static BS1Aip mInstance;
public delegate void CopyStringDelegate(string msg);
public delegate void CopyDataDelegate(CopyData msg);
public static event CopyStringDelegate StringCopied;
public static event CopyDataDelegate DataCopied;
//public static BSOneMip.Action ac_;
public static int nProcResult_ = 99;
private static TaskCompletionSource<BS1Aip> onLoad = new TaskCompletionSource<BS1Aip>();
public static IntPtr hMod_;
[DllImport("kernel32.dll", EntryPoint = "LoadLibrary")]
private extern static IntPtr LoadLibrary(string librayName);
[DllImport("kernel32.dll", EntryPoint = "GetProcAddress", CharSet = CharSet.Ansi)]
private extern static IntPtr GetProcAddress(IntPtr hwnd, string procedureName);
[DllImport("kernel32.dll", EntryPoint = "FreeLibrary")]
private extern static bool FreeLibrary(IntPtr hModule);
[DllImport("kernel32")]
public static extern Int32 GetLastError();
[DllImport("user32.dll", SetLastError = true)]
public static extern bool ChangeWindowMessageFilter(uint message, uint dwFlag);
//private const uint WM_DROPFILES = 0x233;
private const uint WM_COPYDATA = 0x004A;
//private const uint WM_COPYGLOBALDATA = 0x0049;
private const uint MSGFLT_ADD = 1;
[UnmanagedFunctionPointer(CallingConvention.Cdecl, CharSet = CharSet.Ansi)]
public delegate int FP_DSCSIsEncryptedFile(string sPath);
[UnmanagedFunctionPointer(CallingConvention.Cdecl, CharSet = CharSet.Ansi)]
public delegate int FP_DSCSDecryptFile(string sSrcPath, string sDestPath);
public static FP_DSCSIsEncryptedFile DSCSIsEncryptedFile;
public static FP_DSCSDecryptFile DSCSDecryptFile;
public BS1Aip() {
this.ShowInTaskbar = false; // 작업표시줄에서 숨기기
this.Opacity = 0; // 폼 숨기기, 투명도 0
this.Width = 1;
this.Height = 1;
this.Text = "BSOne-AIP-T140713-" + System.IO.Path.GetFileName(Application.ExecutablePath);
DSCSIsEncryptedFile = null;
DSCSDecryptFile = null;
hMod_ = LoadLibrary("C:\\Windows\\DSCSLink64.dll");
if (hMod_ != IntPtr.Zero)
{
IntPtr pFuncAddr = IntPtr.Zero;
pFuncAddr = GetProcAddress(hMod_, "DSCSIsEncryptedFile");
if (pFuncAddr != IntPtr.Zero)
DSCSIsEncryptedFile = (FP_DSCSIsEncryptedFile)Marshal.GetDelegateForFunctionPointer(
pFuncAddr, typeof(FP_DSCSIsEncryptedFile));
else
Console.WriteLine(string.Format("GetProcAddress 실패 .. Error = {0}", GetLastError()));
pFuncAddr = GetProcAddress(hMod_, "DSCSDecryptFile");
if (pFuncAddr != IntPtr.Zero)
DSCSDecryptFile = (FP_DSCSDecryptFile)Marshal.GetDelegateForFunctionPointer(
pFuncAddr, typeof(FP_DSCSDecryptFile));
}
ChangeWindowMessageFilter(WM_COPYDATA, MSGFLT_ADD);
}
protected override CreateParams CreateParams
{
get
{
CreateParams cp = base.CreateParams;
cp.ExStyle |= 0x80; // alt + tab 화면에서 숨기기 23_1204 kku
//cp.ClassName = "BS1Aip";
//cp.Style |= 0x00000040; // BS_ICON value
return cp;
}
}
/// <summary>
/// Creates a catcher window to demonstrate Message Passing
/// </summary>
public static void Demo() {
Start().Wait();
StringCopied += Console.WriteLine;
DataCopied += msg => {
//Console.WriteLine("Received " + msg.dwData + ": " + msg.lpData);
};
MessagePasser.SendString(GetHandle(), "test");
MessagePasser.SendString(GetHandle(), 3, "other test");
while (IsOpen()) {
Thread.Sleep(1);
}
}
class AipEnt
{
public string src = "";
public string dst = "";
public string lid = "";
public string ssid = "";
public string regval = "";
public string mail = "";
}
public static void RcvCmd(BSOneMip.Action ac, BSOneMip.Action acNoD) // acNoD 추가, 위임안한 높은 권한이 필요해서.. 비밀, 극비등 암호화 확인24_0723 kku
//public static void RcvCmd(BSOneMip.Action ac)
{
Start().Wait();
//StringCopied += Console.WriteLine;
DataCopied =
msg => {
try
{
AipEnt aEnt = JsonConvert.DeserializeObject<AipEnt>(msg.lpData.ToString());
BSOneMip.Action.FileOptions options = new BSOneMip.Action.FileOptions
{
FileName = aEnt.src,
OutputName = aEnt.dst,
ActionSource = ActionSource.Manual,
AssignmentMethod = AssignmentMethod.Privileged,
DataState = DataState.Rest,
GenerateChangeAuditEvent = true,
IsAuditDiscoveryEnabled = true,
LabelId = aEnt.lid
};
nProcResult_ = 1;
int cmd = msg.dwData.ToInt32();
switch (cmd) // 0 : 레이블 추출, 1 : 암호화, 2 : 복호화, 3 : 암호화 확인, 4 : 레이블 확인, 5 : 레이블 설정, 6 : 소캠 복호화
{
case 0: // 레이블 추출
if (ac.SaveLabelList(aEnt.src))
nProcResult_ = 10;
break;
case 1: // 암호화
if (ac.SetProtection(options))
nProcResult_ = 10;
break;
case 2: // 복호화
if (ac.RemoveProtection(options))
nProcResult_ = 10;
break;
case 3: // 암호화 확인
if (acNoD.IsProtection(aEnt.src))
nProcResult_ = 10;
break;
case 4: // 레이블 확인
var ALabel = ac.GetLabel(options);
var sLabelName = "";
if (ALabel != null)
sLabelName = ALabel.Label.Name;
RegistryKey reg;
if (aEnt.ssid != "")
reg = Registry.Users.CreateSubKey(aEnt.ssid + "\\SOFTWARE").CreateSubKey("eCrmHomeEdition");
else
reg = Registry.LocalMachine.CreateSubKey("SOFTWARE").CreateSubKey("eCrmHomeEdition");
//if (reg != null)
//{
var sRegVal = aEnt.regval;
if (sRegVal == "")
sRegVal = "ALabel";
reg.SetValue(sRegVal, sLabelName, RegistryValueKind.String);
nProcResult_ = 10;
//}
break;
case 5: // 레이블 설정
// 레이블 소유자가 같을때만 적용 kku, 23_1113
string sEmpNo = ac.GetEmpNo();
string sPxMail = aEnt.mail; // proxyAddress 처리 추가 23_1228 kku
string sFOwner = ac.GetOwner(aEnt.src);
int i = sFOwner.IndexOf('@');
if (i > 0)
sFOwner = sFOwner.Substring(0, i);
i = sPxMail.IndexOf('@');
if (i > 0)
sPxMail = sPxMail.Substring(0, i);
nProcResult_ = 2;
if ((sFOwner == "") || (sEmpNo == sFOwner) || (sPxMail == sFOwner))
{
nProcResult_ = 3;
// 레이블이 현재와 다를때만 적용 kku, 23_1110
//options.LabelId = "";
ContentLabel ALabel2 = null;
try
{
ALabel2 = ac.GetLabel(options);
}
catch {
ALabel2 = null;
}
#if _HDENG_
if ((ALabel2 != null) && (ALabel2.Label != null))
{
// 레이블이 "비밀(Secret)"이면 무시 24_0527 kku
if (ALabel2.Label.Id == "1bd401ce-2296-409e-b28d-ebe7aa124c57")
{
nProcResult_ = 22;
return;
}
// 레이블이 "극비(Top-Secret)"면 무시 24_0527 kku
if (ALabel2.Label.Id == "ba70c971-4f13-4229-83fa-9d8a22a0788e")
{
nProcResult_ = 33;
return;
}
}
#endif
nProcResult_ = 4;
if ((ALabel2 == null) || (ALabel2.Label == null) ||
(ALabel2.Label.Id == "") || (ALabel2.Label.Id != aEnt.lid))
{
#if _KDNVN_
if ((ALabel2 != null) && (ALabel2.Label != null))
{
if (ALabel2.Label.Id == "5b6a34f5-525c-4c52-b832-c9c630e05005") // 일반_반출용 (Public Release)
{
options.LabelId = "7c1e97b0-1625-488a-a30c-4f2188693461"; // 일반 (General Purpose)
}
else if (ALabel2.Label.Id == "f2fa99e1-c17d-4934-9665-44d4df5ef1e6") // 대외비_반출용 (Confidential Release)
{
options.LabelId = "e7bd3a2c-b905-4bdb-8892-e6cd8d1eb00b"; // 대외비 (Confidential)
}
else if (ALabel2.Label.Id == "3fce3511-ace7-47a2-8106-f8bf1be7332b") // 기밀_반출용 (Secret Release)
{
options.LabelId = "7d1539f9-8f3b-4cbd-b787-7ae1b30eae22"; // 기밀 (Secret)
}
else if (ALabel2.Label.Id == "9f09d5d6-3008-4f6d-b4d3-c978a7d30f16") // 극비_반출용 (Top Secret Release)
{
options.LabelId = "b40a7c1a-5443-458b-9215-2abda0acc4a4"; // 극비 (Top Secret)
}
}
#endif
#if _UNITUS_
if ((ALabel2 != null) && (ALabel2.Label != null))
{
if ( (ALabel2.Label.Id == "da2900a7-a8d4-4880-8110-5ead362bd600") ||
(ALabel2.Label.Id == "26783f26-fa77-46b6-95df-19ceac22456f") ||
(ALabel2.Label.Id == "4db57f7c-4e09-49fc-a866-84a60c363440") ||
(ALabel2.Label.Id == "555d3b5c-162b-43bf-a400-f553314e6743") ) // Top Secret 레이블이면 무시함 24_1211 kku
{
nProcResult_ = 20;
return;
}
}
#endif
#if _MOTRAS_
if ((ALabel2 != null) && (ALabel2.Label != null))
{
if ( (ALabel2.Label.Id == "0ab0807a-d010-48fe-84fa-5c445d40d3e3") ||
(ALabel2.Label.Id == "70c3db47-908f-4fcb-bac6-e31e97fa7b7d") ||
(ALabel2.Label.Id == "a45bd5c7-405d-4e58-8e59-35c98d74876b") ) // Top Secret 레이블이면 무시함 24_1211 kku
{
nProcResult_ = 20;
return;
}
}
#endif
nProcResult_ = 5;
if (ac.SetLabel(options))
{
nProcResult_ = 10;
}
else
{
nProcResult_ = 6;
}
// 아래처럼 하니까... 2중으로 암호화 되는 경우가 발생한다... HEC 24_0405 kku
// 레이블 변경에 실패하는 경우가 있어서 아래처럼 보완 24_0306 kku
//if (!ac.SetLabel(options))
//{
// nProcResult_ = 111;
// options.FileName = aEnt.src;
// options.OutputName = aEnt.dst + "_1";
// if (ac.RemoveProtection(options))
// {
// nProcResult_ = 112;
// options.FileName = aEnt.dst + "_1";
// options.OutputName = aEnt.dst;
// if (ac.SetLabel(options))
// {
// nProcResult_ = 10;
// }
// }
//}
//else nProcResult_ = 10;
}
}
break;
case 6:
if (hMod_ != IntPtr.Zero)
{
if ((DSCSIsEncryptedFile != null) && (DSCSDecryptFile != null))
{
if ((DSCSIsEncryptedFile(aEnt.src) == 1) && (DSCSDecryptFile(aEnt.src, aEnt.dst) == 1))
nProcResult_ = 10;
}
}
break;
case 7:
if (acNoD.RemoveLabel(options))
nProcResult_ = 10;
break;
}
}catch
{
// ...
//nProcResult_ = 0;
}
//Console.WriteLine("Result: " + nProcResult_ + " - Received " + msg.dwData + ": " + msg.lpData);
};
//mInstance.Text = mInstance.Handle.ToInt64().ToString();
while (true) // (IsOpen()) // IsOpen() 하면 메모리릭 발생함 23_1005 kku
{
Thread.Sleep(10);
}
}
/// <summary>
/// Run the Catcher
/// </summary>
/// <returns></returns>
public static async Task<BS1Aip> Start() {
Thread t = new Thread(runForm);
t.SetApartmentState(ApartmentState.STA);
t.IsBackground = true;
t.Start();
return await onLoad.Task.ConfigureAwait(false);
}
protected override void OnLoad(EventArgs e) {
base.OnLoad(e);
onLoad.SetResult(this);
}
public static IntPtr GetHandle() {
IntPtr val = IntPtr.Zero;
if (mInstance == null) throw new InvalidOperationException("Catcher not started");
mInstance.Invoke((MethodInvoker)delegate { val = mInstance.Handle; });
return val;
}
public static bool IsOpen() {
bool val = false;
if (mInstance == null) throw new InvalidOperationException("Catcher not started");
if (mInstance.IsDisposed || mInstance.Disposing)
return false;
try {
mInstance.Invoke((MethodInvoker)delegate { val = mInstance.Visible; });
}
catch {
return false;
}
return val;
}
public static void Stop() {
if (mInstance == null) throw new InvalidOperationException("Catcher not started");
DataCopied = null;
mInstance.Invoke(new MethodInvoker(mInstance.endForm));
}
private static void runForm() {
mInstance = new BS1Aip();
Application.Run(mInstance);
}
private void endForm() {
this.Close();
}
/// <inheritdoc />
protected override void WndProc(ref Message m) {
if (m.Msg == NativeMethods.WM_COPYDATA) {
DataCopied?.Invoke(MessagePasser.ReceiveData(m));
StringCopied?.Invoke(MessagePasser.ReceiveString(m));
m.Result = new IntPtr(BS1Aip.nProcResult_);
} else
base.WndProc(ref m);
}
private void InitializeComponent()
{
this.SuspendLayout();
//
// BS1Aip
//
this.ClientSize = new System.Drawing.Size(284, 261);
this.Name = "BS1Aip";
this.ResumeLayout(false);
}
}
public static class NativeMethods {
public const int WM_COPYDATA = 0x004A;
[DllImport("user32.dll", CharSet = CharSet.Auto)]
public static extern IntPtr SendMessage(IntPtr hWnd, int Msg, IntPtr wParam, ref CopyData lParam);
[DllImport("user32")]
public static extern int RegisterWindowMessage(string message);
// TODO: possibly could send custom structs by changing CopyData.lpData to an IntPtr
public static IntPtr IntPtrAlloc<T>(T param) {
IntPtr retval = Marshal.AllocHGlobal(Marshal.SizeOf(param));
Marshal.StructureToPtr(param, retval, false);
return retval;
}
public static void IntPtrFree(IntPtr preAllocated) {
if (IntPtr.Zero == preAllocated) throw new InvalidOperationException("IntPtr is already 0");
Marshal.FreeHGlobal(preAllocated);
preAllocated = IntPtr.Zero;
}
public static T GetStruct<T>(IntPtr param) {
return (T)Marshal.PtrToStructure(param, typeof(T));
}
public static IntPtr StringToIntPtr(string data) {
return Marshal.StringToHGlobalAnsi(data);
}
public static string IntPtrToString(IntPtr data) {
return Marshal.PtrToStringAnsi(data);
}
}
/// <summary>
/// Pre-assembled class for sending/receiving strings between Windows applications.
/// </summary>
public static class MessagePasser {
/// <summary>
/// ReceiveData will throw if Message.Msg isn't WindowsMessageId
/// </summary>
public static bool ThrowOnBadMessage = true;
/// <summary>
/// Defaults to MS COPYDATA, can use NativeMethods.RegisterWindowMessage to create a new MessageId
/// </summary>
public static int WindowsMessageId = NativeMethods.WM_COPYDATA;
/// <summary>
/// Sends "data" to the target window
/// </summary>
/// <param name="targetWindowHandle"></param>
/// <param name="messageId">Usually WM_COPYDATA</param>
/// <param name="id"></param>
/// <param name="message"></param>
/// <returns></returns>
public static int SendData(IntPtr targetWindowHandle, int messageId, int id, string message) {
var data = new CopyData();
data.dwData = new IntPtr(id);
data.cbData = (message.Length + 1) * Marshal.SystemDefaultCharSize;
data.lpData = message;
var resp = NativeMethods.SendMessage(
targetWindowHandle,
messageId,
IntPtr.Zero,
ref data
);
var er = Marshal.GetLastWin32Error();
var errorMessage = new Win32Exception(er).Message;
if (er != 0)
throw new InvalidOperationException("Last Error isn't success:" + er + Environment.NewLine + errorMessage);
return resp.ToInt32();
}
/// <summary>
/// Send a string with an id
/// </summary>
/// <param name="targetWindowHandle"></param>
/// <param name="id"></param>
/// <param name="message"></param>
/// <returns></returns>
public static int SendString(IntPtr targetWindowHandle, int id, string message) {
return SendData(targetWindowHandle, WindowsMessageId, id, message);
}
/// <summary>
/// Call to send a string with message type 1.
/// </summary>
/// <param name="targetWindowHandle"></param>
/// <param name="message"></param>
/// <returns></returns>
public static int SendString(IntPtr targetWindowHandle, string message) {
return SendString(targetWindowHandle, 1, message);
}
/// <summary>
/// Call this from WndProc to switch on dwData
/// </summary>
/// <param name="m"></param>
/// <returns></returns>
public static CopyData ReceiveData(Message m) {
if (m.Msg != WindowsMessageId) {
if (ThrowOnBadMessage)
throw new InvalidOperationException("Message isn't WM_COPYDATA");
return default(CopyData);
}
m.Result = new IntPtr(1);
var data = (CopyData)m.GetLParam(typeof(CopyData));
m.Result = new IntPtr(0);
return data;
}
/// <summary>
/// Call this from WndProc if you don't care about message types
/// </summary>
/// <param name="m"></param>
/// <returns></returns>
public static string ReceiveString(Message m) {
return ReceiveData(m).lpData;
}
}
[StructLayout(LayoutKind.Sequential, CharSet = CharSet.Unicode)]
public struct CopyData {
/// <summary>
/// data to be passed, can be used as a message type identifier
/// </summary>
public IntPtr dwData;
/// <summary>
/// sizeof lpData
/// </summary>
public int cbData;
/// <summary>
/// data to be passed, can be null
/// </summary>
[MarshalAs(UnmanagedType.LPWStr)]
public string lpData;
}
}

120
Tocsg.Module/BSOne-AIP-Decrypt/MessagePasser.resx Normal file
View File

@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

430
Tocsg.Module/BSOne-AIP-Decrypt/Program.cs Normal file
View File

@ -0,0 +1,430 @@
/*
*
* Copyright (c) Microsoft Corporation.
* All rights reserved.
*
* This code is licensed under the MIT License.
*
* Permission is hereby granted, free of charge, to any person obtaining a copy
* of this software and associated documentation files(the "Software"), to deal
* in the Software without restriction, including without limitation the rights
* to use, copy, modify, merge, publish, distribute, sublicense, and / or sell
* copies of the Software, and to permit persons to whom the Software is
* furnished to do so, subject to the following conditions :
*
* The above copyright notice and this permission notice shall be included in
* all copies or substantial portions of the Software.
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.IN NO EVENT SHALL THE
* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
* OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
* THE SOFTWARE.
*
*/
using System;
using System.Threading.Tasks;
using Microsoft.InformationProtection;
using Microsoft.InformationProtection.File;
using Microsoft.InformationProtection.Protection;
using Microsoft.InformationProtection.Policy;
using System.Collections.Generic;
using System.Configuration;
using static BSOneMip.Define;
using System.Diagnostics.Eventing.Reader;
using static PassMessage.MessagePasser;
using PassMessage;
using System.Runtime.InteropServices;
using System.Data;
using System.IO;
namespace BSOneMip
{
class Program
{
private static readonly string clientId = APP_ID; // ConfigurationManager.AppSettings["ida:ClientId"];
private static readonly string appName = APP_NAME; // ConfigurationManager.AppSettings["app:Name"];
private static readonly string appVersion = APP_VER; // ConfigurationManager.AppSettings["app:Version"];
[DllImport("kernel32.dll", EntryPoint = "LoadLibrary")]
private extern static IntPtr LoadLibrary(string librayName);
[DllImport("kernel32.dll", EntryPoint = "GetProcAddress", CharSet = CharSet.Ansi)]
private extern static IntPtr GetProcAddress(IntPtr hwnd, string procedureName);
[DllImport("kernel32.dll", EntryPoint = "FreeLibrary")]
private extern static bool FreeLibrary(IntPtr hModule);
[DllImport("kernel32")]
public static extern Int32 GetLastError();
[UnmanagedFunctionPointer(CallingConvention.Cdecl, CharSet = CharSet.Ansi)]
private delegate int FP_DSCSIsEncryptedFile(string sPath);
[UnmanagedFunctionPointer(CallingConvention.Cdecl, CharSet = CharSet.Ansi)]
private delegate int FP_DSCSDecryptFile(string sSrcPath, string sDestPath);
private static FP_DSCSIsEncryptedFile DSCSIsEncryptedFile;
private static FP_DSCSDecryptFile DSCSDecryptFile;
static void Main(string[] args)
{
string sEncPath = "";
string sDecPath = "";
string sLabelId = "";
string sDelegatedUserEmail = "";
bool bInputMode = false;
int nMode = 0; // 0 : 복호화, 1 : 암호화, 2 : 레이블 설정, 3 : 통신 모드, 4 : 레이블 제거
try
{
for (var i = 0; i < args.Length; i++)
{
var arg = args[i];
if (arg == "-i" || arg == "-I")
{
bInputMode = true;
break;
}
if (arg == "-e" || arg == "-E")
{
nMode = 1;
continue;
}
if (arg == "-l" || arg == "-L")
{
nMode = 2;
continue;
}
if (arg == "-r" || arg == "-R")
{
nMode = 3;
if (i < args.Length - 1)
sDelegatedUserEmail = args[i + 1];
break;
}
if (arg == "-x" || arg == "-X")
{
nMode = 4;
continue;
}
if (arg == "-p" || arg == "-P")
{
nMode = 5;
continue;
}
if (arg == "-b" || arg == "-B")
{
nMode = 6;
continue;
}
sEncPath = arg;
if (i < args.Length - 1)
{
sDecPath = args[i + 1];
i++;
if (nMode == 2)
{
sLabelId = args[i + 1];
i++;
}
}
}
bool result = false;
if (nMode == 3)
{
ApplicationInfo apInfo = new ApplicationInfo()
{
// ApplicationId should ideally be set to the same ClientId found in the Azure AD App Registration.
// This ensures that the clientID in AAD matches the AppId reported in AIP Analytics.
ApplicationId = clientId,
ApplicationName = appName,
ApplicationVersion = appVersion
};
BS1Aip.RcvCmd(new Action(apInfo, sDelegatedUserEmail), new Action(apInfo)); // 이렇게 하면 권한 오류 발생함. 재부팅 전까지 권한발급 안됨 24_0723 kku
//BS1Aip.RcvCmd(new Action(apInfo, sDelegatedUserEmail));
return;
}
//return; // 연동 외 cmd 명령 실행방식 지원하지 않도록 조치 23_1025 kku
if (bInputMode)
{
Console.Write("AIP로 암호화된 파일 경로 : ");
sEncPath = Console.ReadLine();
Console.Write("복호화해서 저장될 파일 경로: ");
sDecPath = Console.ReadLine();
}
//if (sEncPath == "" || ((nMode < 2) && sDecPath == ""))
// return;
//Console.WriteLine(string.Format("SrcPath : {0}", sEncPath));
//Console.WriteLine(string.Format("DestPath : {0}", sDecPath));
// Create ApplicationInfo, setting the clientID from Azure AD App Registration as the ApplicationId
// If any of these values are not set API throws BadInputException.
ApplicationInfo appInfo = new ApplicationInfo()
{
// ApplicationId should ideally be set to the same ClientId found in the Azure AD App Registration.
// This ensures that the clientID in AAD matches the AppId reported in AIP Analytics.
ApplicationId = clientId,
ApplicationName = appName,
ApplicationVersion = appVersion
};
// Initialize Action class, passing in AppInfo.
Action action = new Action(appInfo);
//if (nMode == 1)
//{
/*
var templates = action.ListTemplates();
for (int i = 0; i < templates.Count; i++)
{
Console.WriteLine("{0}: Name={1}, ID={2}", i.ToString(), templates[i].Name, templates[i].Id);
}
*/
//}
// List all labels available to the engine created in Action
IEnumerable<Label> labels = action.ListLabels();
Console.WriteLine("레이블 정보 확인 ..");
Console.WriteLine("");
// Enumerate parent and child labels and print name/ID.
foreach (var label in labels)
{
Console.WriteLine(string.Format("{0} - {1}", label.Name, label.Id));
if (label.Children.Count > 0)
{
foreach (Label child in label.Children)
{
Console.WriteLine(string.Format("\t{0} - {1}", child.Name, child.Id));
}
}
}
Console.WriteLine("");
/*
// Prompt user to enter a label ID from above
Console.Write("Enter a label identifier from above: ");
var labelId = Console.ReadLine();
// Prompt for path inputs
Console.Write("Enter an input file path: ");
string sEncPath = Console.ReadLine();
Console.Write("Enter an output file path: ");
string sDecPath = Console.ReadLine();
// Set file options from FileOptions struct. Used to set various parameters for FileHandler
Action.FileOptions options = new Action.FileOptions
{
FileName = sEncPath,
OutputName = sDecPath,
ActionSource = ActionSource.Manual,
AssignmentMethod = AssignmentMethod.Privileged,
DataState = DataState.Rest,
GenerateChangeAuditEvent = true,
IsAuditDiscoveryEnabled = true,
LabelId = labelId
};
//Set the label on the file handler object
Console.WriteLine(string.Format("Set label ID {0} on {1}", labelId, sEncPath));
// Set label, commit change to outputfile, and send audit event if enabled.
bool result = action.SetLabel(options);
*/
// Set file options from FileOptions struct. Used to set various parameters for FileHandler
Action.FileOptions options = new Action.FileOptions
{
FileName = sEncPath,
OutputName = sDecPath,
ActionSource = ActionSource.Manual,
AssignmentMethod = AssignmentMethod.Privileged,
DataState = DataState.Rest,
GenerateChangeAuditEvent = true,
IsAuditDiscoveryEnabled = true,
LabelId = sLabelId
};
//Set the label on the file handler object
// Set label, commit change to outputfile, and send audit event if enabled.
switch (nMode)
{
case 0:
result = action.RemoveProtection(options);
break;
//string sMail = "2323308@hec.co.kr";
//int i = sMail.IndexOf('@');
//if (i > 0)
//{
// sMail = sMail.Substring(0, i);
//}
//string sOwner = action.GetOwner(sEncPath);
//i = sOwner.IndexOf('@');
//if ( i > 0)
//{
// sOwner = sOwner.Substring(0, i);
//}
//if (sMail == sOwner)
// Console.WriteLine(string.Format("사용자 (true) : {0}, Chk : {1}", sOwner, sMail));
//else
// Console.WriteLine(string.Format("사용자 (false) : {0}, Chk : {1}", sOwner, sMail));
//return;
case 1:
result = action.SetProtection(options);
break;
case 2:
result = action.SetLabel(options);
break;
case 4:
result = action.RemoveLabel(options);
break;
case 5:
//Directory.SetCurrentDirectory("C:\\Windows");
IntPtr hMod;
//if (4 < nVoidPtrLen)
hMod = LoadLibrary("C:\\Windows\\DSCSLink64.dll");
//else
//hMod = LoadLibrary("C:\\Windows\\DSCSLink.dll");
if (hMod != IntPtr.Zero)
{
IntPtr pFuncAddr = IntPtr.Zero;
pFuncAddr = GetProcAddress(hMod, "DSCSIsEncryptedFile");
if (pFuncAddr != IntPtr.Zero)
DSCSIsEncryptedFile = (FP_DSCSIsEncryptedFile)Marshal.GetDelegateForFunctionPointer(
pFuncAddr, typeof(FP_DSCSIsEncryptedFile));
else
Console.WriteLine(string.Format("GetProcAddress 실패 .. Error = {0}", GetLastError()));
pFuncAddr = GetProcAddress(hMod, "DSCSDecryptFile");
if (pFuncAddr != IntPtr.Zero)
DSCSDecryptFile = (FP_DSCSDecryptFile)Marshal.GetDelegateForFunctionPointer(
pFuncAddr, typeof(FP_DSCSDecryptFile));
if ((DSCSIsEncryptedFile != null) && (DSCSDecryptFile != null))
{
if (DSCSIsEncryptedFile(sEncPath) == 1)
result = DSCSDecryptFile(sEncPath, sDecPath) == 1;
}
//FreeLibrary(hMod);
}
break;
case 6:
var ALabel = action.GetLabel(options);
var sLabelName = "None";
if (ALabel != null)
sLabelName = ALabel.Label.Name;
Console.WriteLine(string.Format("레이블 : {0}", sLabelName));
return;
}
if (result)
{
//Console.WriteLine(string.Format("Committed label ID {0} to {1}", labelId, sDecPath));
// Create a new handler to read the labeled file metadata.
//Console.WriteLine(string.Format("Getting the label committed to file: {0}", sDecPath));
switch (nMode)
{
case 0:
Console.WriteLine(string.Format("복호화가 완료되었습니다 : {0}", sDecPath));
break;
case 1:
Console.WriteLine(string.Format("암호화가 완료되었습니다 : {0}", sDecPath));
break;
case 2:
options.FileName = options.OutputName;
var ContentLabel = action.GetLabel(options);
Console.WriteLine(string.Format("레이블이 지정 되었습니다 : {0}", ContentLabel.Label.Name));
break;
case 4:
Console.WriteLine(string.Format("레이블이 제거 되었습니다. : {0}", sDecPath));
break;
case 5:
Console.WriteLine(string.Format("소캠 복호화가 완료되었습니다 : {0}", sDecPath));
break;
}
// Update options to read the previously generated file output.
//options.FileName = options.OutputName;
// Read label from the previously labeled file.
//var contentLabel = action.GetLabel(options);
// Display the label with protection information.
//Console.WriteLine(string.Format("File Label: {0} \r\nIsProtected: {1}", contentLabel.Label.Name, contentLabel.IsProtectionAppliedFromLabel.ToString()));
}
else
{
//Console.WriteLine("No changes to file {0}", sEncPath);
switch (nMode)
{
case 0:
Console.WriteLine(string.Format("복호화 중 오류가 발생했습니다"));
break;
case 1:
Console.WriteLine(string.Format("AIP로 암호화 중 오류가 발생했습니다."));
break;
case 2:
Console.WriteLine(string.Format("레이블 처리 중 오류가 발생했습니다."));
break;
case 3:
Console.WriteLine(string.Format("레이블 지정 오류."));
break;
case 4:
Console.WriteLine(string.Format("레이블 제거 오류."));
break;
case 5:
Console.WriteLine(string.Format("소캠 복호화 중 오류가 발생했습니다."));
break;
}
}
}
catch (Exception ex)
{
Console.WriteLine("Fail .. " + ex.Message);
if (ex.InnerException != null)
Console.WriteLine("Fail .. 내부 예외 : " + ex.InnerException.Message);
}
#if DEBUG
Console.WriteLine("Press a key to quit.");
Console.WriteLine("아무키나 누르면 종료 됩니다.");
Console.ReadKey();
#endif
}
}
}

18
Tocsg.Module/BlueMon/BlueMon.dpr Normal file
View File

@ -0,0 +1,18 @@
program BlueMon;
uses
Vcl.Forms,
DBlueMonMain in 'DBlueMonMain.pas' {DlgBlueMon},
GlobalDefine in '..\..\eCrmHE\LIB_Common\GlobalDefine.pas',
Define in 'Define.pas',
Condition in '..\..\eCrmHE\LIB_Common\Condition.pas',
DNoticeBT in 'DNoticeBT.pas' {DlgNoticeBT};
{$R *.res}
begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(TDlgBlueMon, DlgBlueMon);
Application.Run;
end.

1024
Tocsg.Module/BlueMon/BlueMon.dproj Normal file
View File

File diff suppressed because it is too large Load Diff

BIN
Tocsg.Module/BlueMon/BlueMon_Icon.ico Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 5.3 KiB

356
Tocsg.Module/BlueMon/DBlueMonMain.dfm Normal file
View File

@ -0,0 +1,356 @@
object DlgBlueMon: TDlgBlueMon
Left = 0
Top = 0
BorderIcons = [biSystemMenu, biMinimize]
Caption = 'BlueMon'
ClientHeight = 315
ClientWidth = 541
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Segoe UI'
Font.Style = []
Position = poScreenCenter
TextHeight = 15
object pcMain: TPageControl
Left = 0
Top = 0
Width = 541
Height = 315
ActivePage = tabBlueList
Align = alClient
TabOrder = 0
ExplicitWidth = 537
ExplicitHeight = 314
object tabBlueList: TTabSheet
Caption = #48660#47336#53804#49828' '#47785#47197' '#51221#48372
object pnTop: TPanel
Left = 0
Top = 0
Width = 533
Height = 29
Align = alTop
BevelOuter = bvNone
TabOrder = 0
ExplicitWidth = 529
object btnRefresh: TButton
Left = 0
Top = 1
Width = 75
Height = 25
Caption = #49352#47196#44256#52840
TabOrder = 0
OnClick = btnRefreshClick
end
end
object vtList: TVirtualStringTree
Left = 0
Top = 29
Width = 533
Height = 256
Align = alClient
Colors.BorderColor = 15987699
Colors.DisabledColor = clGray
Colors.DropMarkColor = 15385233
Colors.DropTargetColor = 15385233
Colors.DropTargetBorderColor = 15385233
Colors.FocusedSelectionColor = 15385233
Colors.FocusedSelectionBorderColor = 15385233
Colors.GridLineColor = 15987699
Colors.HeaderHotColor = clBlack
Colors.HotColor = clBlack
Colors.SelectionRectangleBlendColor = 15385233
Colors.SelectionRectangleBorderColor = 15385233
Colors.SelectionTextColor = clBlack
Colors.TreeLineColor = 9471874
Colors.UnfocusedColor = clGray
Colors.UnfocusedSelectionColor = clWhite
Colors.UnfocusedSelectionBorderColor = clWhite
Header.AutoSizeIndex = 0
Header.Options = [hoColumnResize, hoDrag, hoShowSortGlyphs, hoVisible]
PopupMenu = popFun
TabOrder = 1
TreeOptions.PaintOptions = [toHideFocusRect, toShowButtons, toShowDropmark, toShowTreeLines, toThemeAware, toUseBlendedImages]
TreeOptions.SelectionOptions = [toFullRowSelect, toRightClickSelect]
OnContextPopup = vtListContextPopup
OnFreeNode = vtListFreeNode
OnGetText = vtListGetText
OnGetNodeDataSize = vtListGetNodeDataSize
OnHeaderClick = vtListHeaderClick
Touch.InteractiveGestures = [igPan, igPressAndTap]
Touch.InteractiveGestureOptions = [igoPanSingleFingerHorizontal, igoPanSingleFingerVertical, igoPanInertia, igoPanGutter, igoParentPassthrough]
Columns = <
item
Position = 0
Text = #48264#54840
end
item
Position = 1
Text = #49345#53468
Width = 70
end
item
Position = 2
Text = #51060#47492
Width = 120
end
item
Position = 3
Text = 'CoD'
Width = 80
end
item
Position = 4
Text = #51333#47448' (Major)'
Width = 90
end
item
Position = 5
Text = #51333#47448' (Minor)'
Width = 90
end
item
Position = 6
Text = #51064#51613
end
item
Position = 7
Text = #51109#52824' '#51452#49548
Width = 110
end
item
Position = 8
Text = #52572#44540' '#49324#50857' '#51068#49884
Width = 150
end
item
Position = 9
Text = #52572#44540' '#48156#44204' '#51068#49884
Width = 150
end>
DefaultText = ''
end
end
object tabBlueMon: TTabSheet
Caption = #48660#47336#53804#49828' '#44048#49884'/'#52264#45800
ImageIndex = 1
object Label1: TLabel
Left = 29
Top = 64
Width = 146
Height = 15
Caption = #50672#44208' '#52264#45800' '#50696#50808' (; '#51004#47196' '#44396#48516')'
end
object btnPB_MJAdd: TSpeedButton
Left = 428
Top = 55
Width = 23
Height = 23
Caption = '+'
OnClick = btnPB_MJAddClick
end
object btnPB_MNAdd: TSpeedButton
Left = 428
Top = 178
Width = 23
Height = 23
Caption = '+'
OnClick = btnPB_MNAddClick
end
object btnPB_MJDel: TSpeedButton
Left = 454
Top = 55
Width = 23
Height = 23
Caption = '-'
OnClick = btnPB_MJDelClick
end
object btnPB_MNDel: TSpeedButton
Left = 454
Top = 178
Width = 23
Height = 23
Caption = '-'
OnClick = btnPB_MNDelClick
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 533
Height = 29
Align = alTop
BevelOuter = bvNone
TabOrder = 0
object btnBlueMon: TButton
Left = 0
Top = 1
Width = 97
Height = 25
Caption = #44048#49884'/'#52264#45800' '#49884#51089
TabOrder = 0
OnClick = btnBlueMonClick
end
end
object chPreventBtAll: TCheckBox
Left = 16
Top = 36
Width = 183
Height = 17
Caption = #47784#46304' '#48660#47336#53804#49828' '#51109#52824' '#50672#44208' '#52264#45800
TabOrder = 1
end
object mmExcept: TMemo
Left = 29
Top = 85
Width = 228
Height = 97
Lines.Strings = (
'04:52:C7:1A:12:2F')
ScrollBars = ssVertical
TabOrder = 2
end
object chPB_Name: TCheckBox
Left = 16
Top = 214
Width = 273
Height = 17
Caption = #48660#47336#53804#49828' '#51109#52824' '#51060#47492#50640' '#45796#51020' '#47928#44396#44032' '#51080#51004#47732' '#52264#45800
TabOrder = 3
end
object edPB_Name: TEdit
Left = 16
Top = 237
Width = 257
Height = 23
TabOrder = 4
Text = 'LG'
end
object cbPB_MJ: TComboBox
Left = 320
Top = 55
Width = 105
Height = 23
Style = csDropDownList
ItemIndex = 0
TabOrder = 6
Text = 'Misc'
Items.Strings = (
'Misc'
'Computer'
'Phone'
'LanAccessPoint'
'Audio/Video'
'Peripheral'
'Imaging'
'Unclassified')
end
object chPB_MJ: TCheckBox
Left = 304
Top = 32
Width = 233
Height = 17
Caption = #48660#47336#53804#49828' '#51109#52824' Major '#51333#47448#47196' '#52264#45800
TabOrder = 5
end
object cbPB_MN: TComboBox
Left = 320
Top = 178
Width = 105
Height = 23
Style = csDropDownList
ItemIndex = 0
TabOrder = 9
Text = 'Uncategorised'
Items.Strings = (
'Uncategorised'
'Desktop'
'Server'
'Laptop'
'Handheld'
'Palm'
'Wearable'
'Mobile'
'Cordless'
'Smart phone'
'Wired modem or voice gateway'
'Common ISDN access'
'Sim card reader'
'Device conforms to the Headset profile'
'Hands-free'
'Reserved'
'Microphone'
'Loudspeaker'
'Headphones'
'Portable audio'
'Car audio'
'Set-top box'
'HiFi audio device'
'VCR'
'Video camera'
'Camcorder'
'Video monitor'
'Video display and loudspeaker'
'Video conferencing'
'Gaming/toy'
'Keyboard'
'Pointing device'
'Display'
'Camera'
'Scanner'
'Printer'
'Wrist watch'
'Pager'
'Jacket'
'Helmet'
'Glasses'
'Robot'
'Vehicle'
'Doll/action figure'
'Controller'
'Game')
end
object chPB_MN: TCheckBox
Left = 304
Top = 155
Width = 233
Height = 17
Caption = #48660#47336#53804#49828' '#51109#52824' Minor '#51333#47448#47196' '#52264#45800
TabOrder = 8
end
object lxPB_MJ: TListBox
Left = 320
Top = 83
Width = 157
Height = 61
ItemHeight = 15
TabOrder = 7
end
object lxPB_MN: TListBox
Left = 320
Top = 207
Width = 157
Height = 61
ItemHeight = 15
TabOrder = 10
end
end
end
object popFun: TPopupMenu
AutoHotkeys = maManual
Left = 260
Top = 98
object miPreventBlue: TMenuItem
Caption = #50672#44208' '#54644#51228
OnClick = miPreventBlueClick
end
object N1: TMenuItem
Caption = '-'
end
object miCopyCB: TMenuItem
Caption = #53364#47549#48372#46300#47196' '#48373#49324
ShortCut = 16451
OnClick = miCopyCBClick
end
end
end

756
Tocsg.Module/BlueMon/DBlueMonMain.pas Normal file
View File

@ -0,0 +1,756 @@
unit DBlueMonMain;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, Vcl.ComCtrls,
VirtualTrees, Tocsg.Bluetooth, EM.jwabluetoothapis, Vcl.Menus, Vcl.Buttons;
type
PBlueEnt = ^TBlueEnt;
TBlueEnt = record
sName,
sMajor,
sMinor,
sAddress: String;
nClassofDevice: Integer;
bAuth,
bConnected: Boolean;
dtSeen,
dtRecent: TDateTime;
Address: BLUETOOTH_ADDRESS;
end;
TPreventBlue = record
bPreventAll,
bPvIncName,
bPvMajor,
bPvMinor: Boolean;
// sExcepDev,
// sPvIncName,
// sPvMajor,
// sPvMinor: String;
end;
TDlgBlueMon = class(TForm)
pcMain: TPageControl;
tabBlueList: TTabSheet;
pnTop: TPanel;
btnRefresh: TButton;
tabBlueMon: TTabSheet;
vtList: TVirtualStringTree;
popFun: TPopupMenu;
miPreventBlue: TMenuItem;
Panel1: TPanel;
btnBlueMon: TButton;
N1: TMenuItem;
miCopyCB: TMenuItem;
chPreventBtAll: TCheckBox;
Label1: TLabel;
mmExcept: TMemo;
chPB_Name: TCheckBox;
edPB_Name: TEdit;
cbPB_MJ: TComboBox;
btnPB_MJAdd: TSpeedButton;
chPB_MJ: TCheckBox;
cbPB_MN: TComboBox;
btnPB_MNAdd: TSpeedButton;
chPB_MN: TCheckBox;
lxPB_MJ: TListBox;
btnPB_MJDel: TSpeedButton;
btnPB_MNDel: TSpeedButton;
lxPB_MN: TListBox;
procedure btnRefreshClick(Sender: TObject);
procedure vtListGetNodeDataSize(Sender: TBaseVirtualTree;
var NodeDataSize: Integer);
procedure vtListFreeNode(Sender: TBaseVirtualTree; Node: PVirtualNode);
procedure vtListHeaderClick(Sender: TVTHeader; HitInfo: TVTHeaderHitInfo);
procedure vtListGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
Column: TColumnIndex; TextType: TVSTTextType; var CellText: string);
procedure miPreventBlueClick(Sender: TObject);
procedure vtListContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
procedure miCopyCBClick(Sender: TObject);
procedure btnBlueMonClick(Sender: TObject);
procedure btnPB_MJAddClick(Sender: TObject);
procedure btnPB_MNAddClick(Sender: TObject);
procedure btnPB_MJDelClick(Sender: TObject);
procedure btnPB_MNDelClick(Sender: TObject);
private
{ Private declarations }
ThdBlueMon_: TThdBtDevNotify;
PreventBlue_: TPreventBlue;
PvBtNameList_,
PvMajorList_,
PvMinorList_,
ExcepBtDevList_: TStringList;
procedure RefreshBtList;
function ProcessPreventBT(pEnt: PBtDevEnt): Boolean;
procedure OnBtDevEntNotify(pEnt: PBtDevEnt; csBT: TBTChangeStates; var bPrevent: Boolean);
public
{ Public declarations }
Constructor Create(aOwner: TComponent); override;
Destructor Destroy; override;
end;
var
DlgBlueMon: TDlgBlueMon;
implementation
uses
Tocsg.Safe, VirtualTrees.Types, Tocsg.Convert, Tocsg.VTUtil,
Tocsg.Strings, Define, GlobalDefine, superobject, Tocsg.Driver,
Tocsg.Exception, DNoticeBT;
{$R *.dfm}
Constructor TDlgBlueMon.Create(aOwner: TComponent);
begin
Inherited Create(aOwner);
Caption := APP_TITLE;
ThdBlueMon_ := nil;
PvBtNameList_ := TStringList.Create;
PvMajorList_ := TStringList.Create;
PvMinorList_ := TStringList.Create;
ExcepBtDevList_ := TStringList.Create;
RefreshBtList;
pcMain.ActivePageIndex := 0;
end;
Destructor TDlgBlueMon.Destroy;
begin
if ThdBlueMon_ <> nil then
FreeAndNil(ThdBlueMon_);
FreeAndNil(ExcepBtDevList_);
FreeAndNil(PvMinorList_);
FreeAndNil(PvMajorList_);
FreeAndNil(PvBtNameList_);
Inherited;
end;
procedure TDlgBlueMon.RefreshBtList;
var
BTDevice: TBluetoothDevice;
i: Integer;
pData: PBlueEnt;
sMajor, sMinor: String;
begin
Guard(BTDevice, TBluetoothDevice.Create);
BTDevice.RefreshBTDevice;
vtList.BeginUpdate;
try
vtList.Clear;
for i := 0 to BTDevice.Count - 1 do
begin
BtDevTypeToStr(BTDevice[i].dInfo.ulClassofDevice, sMajor, sMinor);
pData := VT_AddChildData(vtList);
pData.sName := BTDevice[i].dInfo.szName;
pData.sMajor := sMajor;
pData.sMinor := sMinor;
pData.nClassofDevice := BTDevice[i].dInfo.ulClassofDevice;
pData.sAddress := BTDevice[i].sAddress;
pData.bConnected := BTDevice[i].dInfo.fConnected;
pData.bAuth := BTDevice[i].dInfo.fAuthenticated;
pData.dtSeen := BTDevice[i].dtLastSeen;
pData.dtRecent := BTDevice[i].dtLastUsed;
pData.Address := BTDevice[i].dInfo.Address;
end;
finally
vtList.EndUpdate;
end;
end;
procedure PopMsg(pEnt: PBtDevEnt; bPrevent: Boolean);
var
O: ISuperObject;
sMajor, sMinor, sData: String;
begin
BtDevTypeToStr(pEnt.dInfo.ulClassofDevice, sMajor, sMinor);
O := SO;
O.I['T'] := TYPE_MSG_PREVENT_BLUETOOTH;
sData := String(pEnt.dInfo.szName) + '|' + Format('%s (%s)', [sMajor, sMinor]) + '|' + pEnt.sAddress;
if bPrevent then
sData := sData + '|PV';
O.S['D'] := sData;
TDlgNoticeBT.Create(nil).PopupMessage(O.AsString);
end;
function TDlgBlueMon.ProcessPreventBT(pEnt: PBtDevEnt): Boolean;
var
sTemp1, sTemp2: String;
i: Integer;
begin
Result := false;
if not pEnt.dInfo.fConnected then
exit;
if ExcepBtDevList_.IndexOf(pEnt.sAddress) <> -1 then
exit;
if PreventBlue_.bPreventAll then
begin
Result := BluetoothRemoveDevice(pEnt.dInfo.Address) = 0;
Result := true; // 차단 대상이면 위 작업과 별개로 장치 차단을 하도록 함 22_0630 09:15:10 kku
exit;
end;
if PreventBlue_.bPvIncName then
begin
sTemp1 := UpperCase(pEnt.dInfo.szName);
for i := 0 to PvBtNameList_.Count - 1 do
begin
if sTemp1.Contains(PvBtNameList_[i]) then
begin
Result := BluetoothRemoveDevice(pEnt.dInfo.Address) = 0;
Result := true; // 차단 대상이면 위 작업과 별개로 장치 차단을 하도록 함 22_0630 09:15:10 kku
exit;
end;
end;
end;
if PreventBlue_.bPvMajor or PreventBlue_.bPvMinor then
begin
BtDevTypeToStr(pEnt.dInfo.ulClassofDevice, sTemp1, sTemp2);
if PreventBlue_.bPvMajor and (PvMajorList_.IndexOf(sTemp1) <> -1) then
begin
Result := BluetoothRemoveDevice(pEnt.dInfo.Address) = 0;
Result := true; // 차단 대상이면 위 작업과 별개로 장치 차단을 하도록 함 22_0630 09:15:10 kku
exit;
end;
if PreventBlue_.bPvMinor and (PvMinorList_.IndexOf(sTemp2) <> -1) then
begin
Result := BluetoothRemoveDevice(pEnt.dInfo.Address) = 0;
Result := true; // 차단 대상이면 위 작업과 별개로 장치 차단을 하도록 함 22_0630 09:15:10 kku
end;
end;
end;
procedure TDlgBlueMon.OnBtDevEntNotify(pEnt: PBtDevEnt; csBT: TBTChangeStates; var bPrevent: Boolean);
var
bPreventBtEnt: Boolean;
begin
if (csConnected in csBT) or (csAuthenticated in csBT) then
begin
bPreventBtEnt := ProcessPreventBT(pEnt);
bPrevent := bPrevent or bPreventBtEnt;
PopMsg(pEnt, bPreventBtEnt);
end;
end;
procedure TDlgBlueMon.btnBlueMonClick(Sender: TObject);
var
BTDevice: TBluetoothDevice;
i: Integer;
bPvreventCurBT: Boolean;
begin
if ThdBlueMon_ = nil then
begin
mmExcept.Text := Trim(mmExcept.Text);
edPB_Name.Text := Trim(edPB_Name.Text);
if chPB_Name.Checked and (edPB_Name.Text = '') then
begin
MessageBox(Handle, PChar('차단 문구를 입력해 주십시오.'), PChar(Caption), MB_ICONWARNING or MB_OK);
edPB_Name.SetFocus;
exit;
end;
if chPB_MJ.Checked and (lxPB_MJ.Count = 0) then
begin
MessageBox(Handle, PChar('차단 Major 정보를 하나이상 추가해 주십시오.'), PChar(Caption), MB_ICONWARNING or MB_OK);
exit;
end;
if chPB_MN.Checked and (lxPB_MN.Count = 0) then
begin
MessageBox(Handle, PChar('차단 Minor 정보를 하나이상 추가해 주십시오.'), PChar(Caption), MB_ICONWARNING or MB_OK);
exit;
end;
ZeroMemory(@PreventBlue_, SizeOf(PreventBlue_));
PreventBlue_.bPreventAll := chPreventBtAll.Checked;
PreventBlue_.bPvIncName := chPB_Name.Checked;
PreventBlue_.bPvMajor := chPB_MJ.Checked;
PreventBlue_.bPvMinor := chPB_MN.Checked;
SplitString(mmExcept.Text, ';', ExcepBtDevList_);
SplitString(UpperCase(edPB_Name.Text), ';', PvBtNameList_);
SplitString(lxPB_MJ.Items.CommaText, ',', PvMajorList_);
SplitString(lxPB_MN.Items.CommaText, ',', PvMinorList_);
bPvreventCurBT := false;
Guard(BTDevice, TBluetoothDevice.Create);
BTDevice.RefreshBTDevice;
for i := 0 to BTDevice.Count - 1 do
bPvreventCurBT := bPvreventCurBT or ProcessPreventBT(BTDevice[i]);
ThdBlueMon_ := TThdBtDevNotify.Create(true);
ThdBlueMon_.PreventBtDevs := bPvreventCurBT;
ThdBlueMon_.OnChangeBTDevice := OnBtDevEntNotify;
ThdBlueMon_.StartThread;
btnBlueMon.Caption := '감시/차단 중지';
end else begin
FreeAndNil(ThdBlueMon_);
btnBlueMon.Caption := '감시/차단 시작';
end;
chPreventBtAll.Enabled := ThdBlueMon_ = nil;
tabBlueList.TabVisible := chPreventBtAll.Enabled;
Label1.Enabled := chPreventBtAll.Enabled;
mmExcept.Enabled := chPreventBtAll.Enabled;
chPB_Name.Enabled := chPreventBtAll.Enabled;
edPB_Name.Enabled := chPreventBtAll.Enabled;
chPB_MJ.Enabled := chPreventBtAll.Enabled;
cbPB_MJ.Enabled := chPreventBtAll.Enabled;
btnPB_MJAdd.Enabled := chPreventBtAll.Enabled;
btnPB_MJDel.Enabled := chPreventBtAll.Enabled;
lxPB_MJ.Enabled := chPreventBtAll.Enabled;
chPB_MN.Enabled := chPreventBtAll.Enabled;
cbPB_MN.Enabled := chPreventBtAll.Enabled;
btnPB_MNAdd.Enabled := chPreventBtAll.Enabled;
btnPB_MNDel.Enabled := chPreventBtAll.Enabled;
lxPB_MN.Enabled := chPreventBtAll.Enabled;
if tabBlueList.TabVisible then
RefreshBtList;
Application.ProcessMessages;
end;
procedure TDlgBlueMon.btnPB_MJAddClick(Sender: TObject);
var
sAdd: String;
begin
sAdd := cbPB_MJ.Text;
if lxPB_MJ.Items.IndexOf(sAdd) = -1 then
lxPB_MJ.Items.Add(sAdd);
end;
procedure TDlgBlueMon.btnPB_MJDelClick(Sender: TObject);
begin
if lxPB_MJ.SelCount = 0 then
begin
MessageBox(Handle, PChar('삭제할 항목을 선택해 주십시오.'), PChar(Caption), MB_ICONWARNING or MB_OK);
exit;
end;
lxPB_MJ.DeleteSelected;
end;
procedure TDlgBlueMon.btnPB_MNAddClick(Sender: TObject);
var
sAdd: String;
begin
sAdd := cbPB_MN.Text;
if lxPB_MN.Items.IndexOf(sAdd) = -1 then
lxPB_MN.Items.Add(sAdd);
end;
procedure TDlgBlueMon.btnPB_MNDelClick(Sender: TObject);
begin
if lxPB_MN.SelCount = 0 then
begin
MessageBox(Handle, PChar('삭제할 항목을 선택해 주십시오.'), PChar(Caption), MB_ICONWARNING or MB_OK);
exit;
end;
lxPB_MN.DeleteSelected;
end;
procedure TDlgBlueMon.btnRefreshClick(Sender: TObject);
begin
RefreshBtList;
end;
function FindFirstBluetoothDevicePath(out ADevicePath: string): Boolean;
const
GUID_BLUETOOTH_DEVICE_INTERFACE: TGUID = '{E0CBF06C-CD8B-4647-BB8A-263B43F0F974}'; // 클래식
GUID_BLUETOOTHLE_DEVICE_INTERFACE: TGUID = '{781AEE18-7733-4CE4-ADD0-91F41C67B592}'; // BLE
type
TGuidArray = array[0..1] of TGUID;
var
Guids: TGuidArray;
FlagsArr: array[0..1] of DWORD;
g, f: Integer;
hDev: HDEVINFO;
DevIfData: SP_DEVICE_INTERFACE_DATA;
Required: DWORD;
Detail: PSPDeviceInterfaceDetailData;
Index: DWORD;
begin
Result := False;
ADevicePath := '';
Guids[0] := GUID_BLUETOOTH_DEVICE_INTERFACE; // 클래식
Guids[1] := GUID_BLUETOOTHLE_DEVICE_INTERFACE; // BLE
// PRESENT 유무 두 번 시도: (1) PRESENT 포함, (2) PRESENT 제외
FlagsArr[0] := DIGCF_DEVICEINTERFACE or DIGCF_PRESENT;
FlagsArr[1] := DIGCF_DEVICEINTERFACE;
for g := Low(Guids) to High(Guids) do
begin
for f := Low(FlagsArr) to High(FlagsArr) do
begin
hDev := SetupDiGetClassDevs(@Guids[g], nil, 0, FlagsArr[f]);
if hDev = INVALID_HANDLE_VALUE then
Continue;
try
Index := 0;
while True do
begin
ZeroMemory(@DevIfData, SizeOf(DevIfData));
DevIfData.cbSize := SizeOf(DevIfData);
if not SetupDiEnumDeviceInterfaces(hDev, nil, Guids[g], Index, DevIfData) then
begin
if GetLastError = ERROR_NO_MORE_ITEMS then
Break
else
Break; // 다른 오류라면 필요시 로그
end;
// 1차 호출: 필요한 버퍼 크기 얻기 (여기서는 실패 + ERROR_INSUFFICIENT_BUFFER가 정상)
Required := 0;
SetupDiGetDeviceInterfaceDetail(hDev, @DevIfData, nil, 0, Required, nil);
if (Required = 0) then
begin
Inc(Index);
Continue;
end;
Detail := PSPDeviceInterfaceDetailData(AllocMem(Required));
try
Detail.cbSize := SizeOf(TSPDeviceInterfaceDetailData);
if SetupDiGetDeviceInterfaceDetail(hDev, @DevIfData, Detail, Required, Required, nil) then
begin
{$IFDEF UNICODE}
ADevicePath := Detail.DevicePath;
{$ELSE}
ADevicePath := string(Detail.DevicePath); // 필요시 변환
{$ENDIF}
Result := True;
Exit; // 첫 번째 것만 반환. 모두 수집하려면 리스트에 Add하고 계속.
end;
finally
FreeMem(Detail);
end;
Inc(Index);
end;
finally
SetupDiDestroyDeviceInfoList(hDev);
end;
end;
end;
end;
function GetBluetoothDevicePath: string;
const
GUID_BLUETOOTH_DEVICE_INTERFACE: TGUID = '{E0CBF06C-CD8B-4647-BB8A-263B43F0F974}';
GUID_BLUETOOTHLE_DEVICE_INTERFACE: TGUID = '{781AEE18-7733-4CE4-ADD0-91F41C67B592}'; // BLE
GUID_BTHPORT_DEVICE_INTERFACE: TGUID = '{0850302A-B344-4FDA-9BE9-90576B8D46F0}';
var
hDInfo: HDEVINFO;
DevInfData: TSPDeviceInterfaceData;
pBuf: TBytes;
dwReqSize: DWORD;
begin
Result := '';
// FindFirstBluetoothDevicePath(Result);
// exit;
// DeviceInfoSet := SetupDiGetClassDevs(nil, 'BTHENUM', 0, DIGCF_PRESENT or DIGCF_ALLCLASSES);
// DeviceInfoSet := SetupDiGetClassDevs(@GUID_DEVCLASS_BLUETOOTH, nil, 0, DIGCF_PRESENT or DIGCF_ALLCLASSES);
// DeviceInfoSet := SetupDiGetClassDevs(@GUID_BLUETOOTH_DEVICE_INTERFACE, nil, 0, DIGCF_PRESENT or DIGCF_DEVICEINTERFACE);
hDInfo := SetupDiGetClassDevs(@GUID_BTHPORT_DEVICE_INTERFACE, nil, 0, DIGCF_PRESENT or DIGCF_DEVICEINTERFACE);
if hDInfo = INVALID_HANDLE_VALUE then
exit;
try
ZeroMemory(@DevInfData, SizeOf(DevInfData));
DevInfData.cbSize := SizeOf(SP_DEVICE_INTERFACE_DATA);
if SetupDiEnumDeviceInterfaces(hDInfo, nil, GUID_BTHPORT_DEVICE_INTERFACE, 0, DevInfData) then
begin
SetupDiGetDeviceInterfaceDetail(hDInfo, @DevInfData, nil, 0, dwReqSize, nil);
// DeviceInterfaceDetailData := AllocMem(RequiredSize);
SetLength(pBuf, dwReqSize);
ZeroMemory(pBuf, dwReqSize);
PSPDeviceInterfaceDetailData(@pBuf[0]).cbSize := SizeOf(TSPDeviceInterfaceDetailData);
try
if SetupDiGetDeviceInterfaceDetail(hDInfo, @DevInfData, PSPDeviceInterfaceDetailData(@pBuf[0]), dwReqSize, dwReqSize, nil) then
Result := PChar(@pBuf[4]);
finally
//
end;
end;
finally
SetupDiDestroyDeviceInfoList(hDInfo);
end;
end;
function BluetoothDisconnectDevice(aBtAddr: BLUETOOTH_ADDRESS): Boolean;
const
IOCTL_BTH_DISCONNECT_DEVICE = (
(FILE_DEVICE_BLUETOOTH shl 16) or (METHOD_BUFFERED shl 14) or
($0301 shl 2) or FILE_ANY_ACCESS);
// CTL_CODE(FILE_DEVICE_BLUETOOTH, 6, METHOD_BUFFERED, FILE_ANY_ACCESS);
var
BtFindParams: BLUETOOTH_FIND_RADIO_PARAMS;
hRadio: THandle;
hDevice: THandle;
sDevPath: String;
ulllBuf: ULONGLONG;
begin
Result := false;
// 블루투스 라디오 핸들 가져오기
// hRadio := 0;
hDevice := 0;
// ZeroMemory(@BtFindParams, SizeOf(BtFindParams));
// BtFindParams.dwSize := SizeOf(BtFindParams);
// if BluetoothFindFirstRadio(@BtFindParams, hRadio) <> 0 then
// begin
// try
// Bluetooth 장치 핸들 열기
sDevPath := GetBluetoothDevicePath;
if sDevPath = '' then
exit;
// hDevice := CreateFile(PChar('\\.\BTHENUM#' + IntToStr(aBtAddr.ullLong)),
// hDevice := CreateFile(PChar('\\.\BTHLE\DEV_BC87FA05FBF7\7&17003C4D&0&BC87FA05FBF7'),
hDevice := CreateFile(PChar(sDevPath),
GENERIC_WRITE or GENERIC_READ,
FILE_SHARE_READ or FILE_SHARE_WRITE,
nil,
OPEN_EXISTING,
0,
0);
if hDevice <> INVALID_HANDLE_VALUE then
begin
try
ulllBuf := aBtAddr.ullLong;
// DeviceIoControl을 사용하여 연결 해제
Result := DeviceIoControl(hDevice,
IOCTL_BTH_DISCONNECT_DEVICE,
@ulllBuf,
SizeOf(ulllBuf),
nil,
0,
DWORD(nil^),
nil);
finally
CloseHandle(hDevice);
end;
end;
// finally
// CloseHandle(hRadio);
// end;
// end;
end;
function BluetoothDisconnectDevice2(aBtAddr: BLUETOOTH_ADDRESS): Boolean;
const
// 표준 Bluetooth 서비스 GUID
BLUETOOTH_SERVICE_GUID: TGUID = '{00001124-0000-1000-8000-00805F9B34FB}';
// 서비스 GUID 목록
SERVICE_GUID_A2DP: TGUID = '{0000110D-0000-1000-8000-00805F9B34FB}'; // Advanced Audio Distribution
SERVICE_GUID_AVRCP: TGUID = '{0000110E-0000-1000-8000-00805F9B34FB}'; // Audio/Video Remote Control
SERVICE_GUID_HFP: TGUID = '{0000111E-0000-1000-8000-00805F9B34FB}'; // Hands-Free Profile
SERVICE_GUID_HID: TGUID = '{00001124-0000-1000-8000-00805F9B34FB}'; // Human Interface Device
SERVICE_GUID_PANU: TGUID = '{00001115-0000-1000-8000-00805F9B34FB}'; // Personal Area Networking
SERVICE_GUID_SPP: TGUID = '{00001101-0000-1000-8000-00805F9B34FB}'; // Serial Port Profile
var
hFindRadio: HBLUETOOTH_RADIO_FIND;
hFindDev: HBLUETOOTH_DEVICE_FIND;
hRadio: THandle;
BtRadiFindParam: BLUETOOTH_FIND_RADIO_PARAMS;
// BtRadiInfo: BLUETOOTH_RADIO_INFO;
BtDevInfo: BLUETOOTH_DEVICE_INFO;
searchParams: BLUETOOTH_DEVICE_SEARCH_PARAMS;
pInfo: PBtRdiEnt;
begin
Result := false;
ZeroMemory(@BtRadiFindParam, SizeOf(BtRadiFindParam));
BtRadiFindParam.dwSize := SizeOf(BtRadiFindParam);
// ZeroMemory(@BtRadiInfo, SizeOf(BtRadiInfo));
// BtRadiInfo.dwSize := SizeOf(BtRadiInfo);
hFindRadio := 0;
hFindDev := 0;
hRadio := 0;
hFindRadio := BluetoothFindFirstRadio(@BtRadiFindParam, hRadio);
if hFindRadio = 0 then
exit;
try
ZeroMemory(@searchParams, SizeOf(searchParams));
searchParams.dwSize := SizeOf(searchParams);
searchParams.fReturnAuthenticated := True;
searchParams.fReturnRemembered := True;
searchParams.fReturnConnected := True;
searchParams.fReturnUnknown := False;
searchParams.hRadio := hRadio;
ZeroMemory(@BtDevInfo, SizeOf(BtDevInfo));
BtDevInfo.dwSize := SizeOf(BtDevInfo);
hFindDev := BluetoothFindFirstDevice(searchParams, BtDevInfo);
if hFindDev = 0 then
exit;
repeat
// 주소 비교
if CompareMem(@BtDevInfo.Address, @aBtAddr, SizeOf(aBtAddr)) then
begin
// 장치 연결 해제 시도
Result := BluetoothSetServiceState(hRadio, BtDevInfo, SERVICE_GUID_A2DP, BLUETOOTH_SERVICE_DISABLE) = ERROR_SUCCESS;
if not Result then
Result := BluetoothSetServiceState(hRadio, BtDevInfo, SERVICE_GUID_AVRCP, BLUETOOTH_SERVICE_DISABLE) = ERROR_SUCCESS;
if not Result then
Result := BluetoothSetServiceState(hRadio, BtDevInfo, SERVICE_GUID_HFP, BLUETOOTH_SERVICE_DISABLE) = ERROR_SUCCESS;
if not Result then
Result := BluetoothSetServiceState(hRadio, BtDevInfo, SERVICE_GUID_HID, BLUETOOTH_SERVICE_DISABLE) = ERROR_SUCCESS;
if not Result then
Result := BluetoothSetServiceState(hRadio, BtDevInfo, SERVICE_GUID_PANU, BLUETOOTH_SERVICE_DISABLE) = ERROR_SUCCESS;
if not Result then
Result := BluetoothSetServiceState(hRadio, BtDevInfo, SERVICE_GUID_SPP, BLUETOOTH_SERVICE_DISABLE) = ERROR_SUCCESS;
exit;
end;
until not BluetoothFindNextDevice(hFindDev, BtDevInfo);
finally
if hFindDev <> 0 then
BluetoothFindDeviceClose(hFindDev);
if hFindRadio <> 0 then
BluetoothFindRadioClose(hFindRadio);
end;
end;
procedure TDlgBlueMon.miPreventBlueClick(Sender: TObject);
var
pNode: PVirtualNode;
pData: PBlueEnt;
dwResult: DWORD;
begin
pNode := vtList.GetFirstSelected;
if pNode = nil then
exit;
if MessageBox(Handle, PChar('연결을 해제 하시겠습니까?'),
PChar(Caption), MB_ICONQUESTION or MB_YESNO) = IDNO then exit;
pData := vtList.GetNodeData(pNode);
// dwResult := BluetoothRemoveDevice(pData.Address);
// if dwResult = 0 then
if BluetoothDisconnectDevice2(pData.Address) then
vtList.DeleteNode(pNode)
else
ShowMessage(Format('Fail .. %d', [dwResult]));
end;
procedure TDlgBlueMon.miCopyCBClick(Sender: TObject);
begin
VT_CopyToClipboardSelectedInfo(vtList);
MessageBox(Handle, PChar('클립보드로 복사되었습니다.'), PChar(Caption), MB_ICONINFORMATION or MB_OK);
end;
procedure TDlgBlueMon.vtListContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
Handled := vtList.GetNodeAt(MousePos) = nil;
end;
procedure TDlgBlueMon.vtListFreeNode(Sender: TBaseVirtualTree;
Node: PVirtualNode);
var
pData: PBlueEnt;
begin
pData := Sender.GetNodeData(Node);
Finalize(pData^);
end;
procedure TDlgBlueMon.vtListGetNodeDataSize(Sender: TBaseVirtualTree;
var NodeDataSize: Integer);
begin
NodeDataSize := SizeOf(TBlueEnt);
end;
procedure TDlgBlueMon.vtListGetText(Sender: TBaseVirtualTree;
Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
var CellText: string);
var
pData: PBlueEnt;
begin
pData := Sender.GetNodeData(Node);
case Column of
0 : CellText := IntToStr(Node.Index + 1);
1 : CellText := BooleanToStr(pData.bConnected, '연결됨', '연결안됨');
2 : CellText := pData.sName;
3 : CellText := Format('0x%.6x', [pData.nClassofDevice]);
4 : CellText := pData.sMajor;
5 : CellText := pData.sMinor;
6 : CellText := BooleanToStr(pData.bAuth, 'O', 'X');
7 : CellText := pData.sAddress;
8 : if pData.dtRecent <> 0 then CellText := DateTimeToStr(pData.dtRecent);
9 : if pData.dtSeen <> 0 then CellText := DateTimeToStr(pData.dtSeen);
end;
end;
procedure TDlgBlueMon.vtListHeaderClick(Sender: TVTHeader;
HitInfo: TVTHeaderHitInfo);
begin
if HitInfo.Button = mbLeft then
begin
if HitInfo.Column < 0 then
exit;
with Sender, Treeview do
begin
if SortColumn > NoColumn then
Columns[SortColumn].Options := Columns[SortColumn].Options + [coParentColor];
if HitInfo.Column = 0 then
SortColumn := NoColumn
else
begin
if (SortColumn = NoColumn) or (SortColumn <> HitInfo.Column) then
begin
SortColumn := HitInfo.Column;
SortDirection := sdAscending;
end else
if SortDirection = sdAscending then
SortDirection := sdDescending
else
SortDirection := sdAscending;
Columns[SortColumn].Color := $00EFEFEF;
vtList.BeginUpdate;
try
vtList.SortTree(SortColumn, SortDirection, False);
finally
vtList.EndUpdate;
end;
end;
end;
end;
end;
end.

1567
Tocsg.Module/BlueMon/DNoticeBT.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

998
Tocsg.Module/BlueMon/DNoticeBT.pas Normal file
View File

@ -0,0 +1,998 @@
unit DNoticeBT;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.Imaging.pngimage,
Vcl.StdCtrls, System.ImageList, Vcl.ImgList, PngImageList, Tocsg.Win32,
Define, Vcl.WinXPanels, superobject;
const
PARAM_GO_SETPASS = '/c explorer ms-settings:signinoptions'; // '/c control userpasswords';
PARAM_GO_ANTIVIRUS = '/c explorer windowsdefender:';
PARAM_GO_FIREWALL = '/c control firewall.cpl';
PARAM_GO_FIREWALL2 = '/c explorer windowsdefender://network/';
PARAM_GO_WINUPDATE = '/c explorer ms-settings:windowsupdate';
PARAM_GO_SETSAVER = '/c rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,1';
PARAM_GO_SYSTEMINFO = '/c control /name Microsoft.System';
PARAM_GO_UNINSTALL = '/c appwiz.cpl';
type
TDlgNoticeBT = class(TForm)
imgTop: TImage;
lbTitle: TLabel;
imgBtnList: TPngImageList;
tInit: TTimer;
btnClose: TButton;
imgTitles: TPngImageCollection;
cpMain: TCardPanel;
cdDef: TCard;
imgOk: TImage;
imgSet: TImage;
lbOk: TLabel;
mmMsg: TMemo;
lbSet: TLabel;
cdPI: TCard;
Label2: TLabel;
lbGrade: TLabel;
Label5: TLabel;
lbPiCnt: TLabel;
lbMsgEx: TLabel;
tClose: TTimer;
pnTop: TPanel;
lbMode: TLabel;
procedure imgOkMouseEnter(Sender: TObject);
procedure imgOkMouseLeave(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure imgOkClick(Sender: TObject);
procedure imgSetClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FormKeyPress(Sender: TObject; var Key: Char);
procedure imgTopMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure tInitTimer(Sender: TObject);
procedure btnCloseClick(Sender: TObject);
procedure lbPiCntMouseEnter(Sender: TObject);
procedure lbPiCntMouseLeave(Sender: TObject);
procedure lbPiCntClick(Sender: TObject);
procedure tCloseTimer(Sender: TObject);
private
{ Private declarations }
sCmdParam_,
sNotiCenterMsg_: String;
Mutex_: TTgMutex;
procedure SetNotiForm;
procedure SetImgBtn(imgBtn: TImage; nImgIdx: Integer);
procedure SetOneButtion;
procedure SetPiResult4HEC(nRstCnt: Integer);
public
{ Public declarations }
Constructor Create(aOwner: TComponent); override;
procedure CreateParams(var Params: TCreateParams); override; // 작업표시줄에 표시
Destructor Destroy; override;
procedure PopupMessage(sJsonData: String);
property NotiCenterMsg: String read sNotiCenterMsg_;
end;
var
DlgNoticeBT: TDlgNoticeBT;
resourcestring
RS_SecuViol = '보안 정책 위반';
RS_Vul = '취약점 발생';
RS_Noti = '공지 사항';
RS_Info = '정보 알림';
RS_SetVul = '조치';
RS_DevExcept = '예외';
implementation
uses
Tocsg.Exception, Tocsg.Safe, Tocsg.Shell, GlobalDefine,
Tocsg.Strings, Vcl.Clipbrd, Condition, Tocsg.Path, Tocsg.Trace,
Tocsg.WTS, Tocsg.Process, Tocsg.Json, Tocsg.Hash, Tocsg.Convert;
resourcestring
RS_TitleVul = '보안 취약점이 발견되었습니다.';
RS_TitlePrevent = '보안정책 관련 활동이 탐지되었습니다'; // '보안정책 위반 행위가 탐지되었습니다.';
RS_TitlePreventSimple = '보안정책 위반 행위 탐지';
RS_SafeCompleted = '취약점 점검 대상 항목 조치가 완료되었습니다.';
RS_SafeCompletedSimple = '보안 취약점 조치 완료';
RS_InitRemoteConn = '보안 취약점이 모두 조치 되어서' + #13#10 + '보안모드를 사용할 수 있습니다.'; // '이제 원격접속을 시작할 수 있습니다.';
RS_SafeCompletedLX = '보안 취약점 조치가 완료되었습니다.';
RS_InitRemoteConnLX = '원격 접속을 사용할 수 있습니다.';
RS_UnsafeOS = '사용하시는 OS는 안전하지 않습니다.';
RS_EOSVersion = '(End-of-Service 버전)';
RS_NoAllVulCheck = '특정 취약점검은 동작하지 않을 수 있습니다.';
RS_NoAllVulCheckLX = '최신 OS 버전으로 업데이트 후 사용하시기 바랍니다.';
RS_NoUpToDateOS = '윈도우 보안 패치가 최신이 아닙니다.';
RS_OSPatchAction1 = ' 조치 버튼 클릭 후 "업데이트 확인"을 통해 패치를';
RS_OSPatchAction2 = ' 진행하세요.';
RS_OSPatchAction3 = ' 보안 패치에 따라 PC재부팅이 필요합니다.';
RS_OSPatchActionLX = '조치 버튼 클릭 후 최신 보안 패치를 설치를 권고합니다.';
RS_VulPW1 = '사용자 계정 암호가 설정되어 있지 않습니다.';
RS_VulPW2 = ' 조치 버튼 클릭 후 "PC설정에서 내 계정 변경"';
RS_VulPW3 = ' -> "로그인옵션"';
RS_VulPW4 = ' -> "비밀번호"에서 암호를 설정하세요.';
RS_VulPW2LX = '조치 버튼 클릭 후 [사용자 계정 변경]';
RS_VulPW3LX = '– [다른 계정 관리] – [암호 만들기]에서 암호를 생성 후';
RS_VulPW4LX = '사용하시기 바랍니다. ';
RS_LastChangePw = '마지막으로 암호 설정한 날짜 :';
RS_VulPwDate1 = '사용자 계정 암호가 오래되었습니다.';
RS_VulPwDate2 = ' 조치 버튼 클릭 후 "다른 계정 관리"';
RS_VulPwDate3 = ' -> "계정 클릭"';
RS_VulPwDate4 = ' -> "암호 변경"에서 새암호를 설정하세요.';
RS_VulAV1 = '백신 프로그램이 설정되어 있지 않습니다.';
RS_VulAV2 = ' 조치 버튼 클릭 후 "Windows 보안센터"';
RS_VulAV3 = ' -> "바이러스 및 위협 방지"에서';
RS_VulAV4 = ' 백신을 활성화 하세요.';
RS_VulAV2LX = '조치 버튼 클릭 후 [바이러스 및 위협 방지]';
RS_VulAV3LX = '– [앱 열기] – [환경설정] – [백신 실시간 검사 사용]을';
RS_VulAV4LX = '활성화하시기 바랍니다.';
RS_VulFW1 = '방화벽 설정이 되어있지 않습니다.';
RS_VulFW2 = ' 조치 버튼 클릭 후 "권장 설정 사용"을';
RS_VulFW3 = ' 눌러 방화벽을 활성화하세요.';
RS_VulFW2LX = '조치 버튼 클릭 후 [권장 설정 사용]을 눌러 방화벽을';
RS_VulFW3LX = '활성화하시기 바랍니다.';
RS_VulScreen1 = '화면 보호기가 설정되어 있지 않습니다.';
RS_VulScreen2 = ' 조치 버튼 클릭 후 "다시 시작할 때 로그온 화면 표시';
RS_VulScreen3 = ' 체크박스"를 활성화 하세요.';
RS_VulScreen2LX = '조치 버튼 클릭 후 [다시 시작할 때 로그온 화면 표시';
RS_VulScreen3LX = '체크박스]를 활성화하시기 바랍니다. ';
RS_VulEmpNo1 = '서버에서 검증되지 않은 사번입니다.';
RS_VulEmpNo2 = '조치 버튼 클릭 후 검증된 사번을 입력하거나';
RS_VulEmpNo3 = '관리자에게 검증을 요청 해주십시오.';
RS_InvalidEmpNo = ' 미검증 사번 : ';
RS_VulAllow1 = '접속 승인이 되지 않았습니다.';
RS_VulAllow2 = '접속 승인 여부를 확인 후 재시도하세요.';
RS_NoAccessMAC = '현재 PC의 MAC이 접속허용되지 않았습니다.';
RS_RequestManager = '관리자에게 문의하세요.';
RS_ExpireConnDate = '접속 승인 기간이 만료되었습니다.';
RS_PersonalInfoOver = '개인정보 임계치가 초과 되었습니다.';
RS_PersonalInfoOver1 = '검출출된 개인정보 결과를 확인 / 조치 후';
RS_PersonalInfoOver2 = '개인정보 검사를 수행해 주십시오.';
RS_UpdateCompleted = '업데이트 완료';
RS_MsgUpdateCompleted = '프로그램이 업데이트 되었습니다.';
RS_FMT_Version = ' - 버전 : %s';
RS_WriteReport = '사용 보고서 작성';
RS_MsgWriteReport1 = '다시 보안 모드에 진입하기 전에';
RS_MsgWriteReport2 = '사용 보고서를 작성 해주십시오.';
RS_MsgLxPrevent = '** 원격지 근무 보안 정책이 위반되었습니다 **';
RS_ClipCutLX = '- 복사, 캡쳐를 금지합니다.';
RS_ClipCut = '클립보드 (복사, 캡쳐) 사용이 차단 되었습니다.';
RS_FMT_ClipCutApp = '사용 프로그램 : %s';
RS_USBCutLX = '** USB 사용을 금지합니다. **';
RS_USB_RO_LX = '** USB가 쓰기 금지됩니다. **';
RS_USBCut = '외부 저장소 연결이 해제 되었습니다.';
RS_USB_RO = '외부 저장소의 쓰기가 금지됩니다.';
RS_CDROMCut = 'CD/DVD 저장소 연결이 해제 되었습니다.';
RS_CDROMCutLX = '** CD/DCD 사용을 금지합니다. **';
RS_RouteCutLX = '라우팅 테이블 변경이 차단 되었습니다.';
RS_RouteCut = '라우팅 테이블 변경이 차단 되었습니다.';
RS_FWaterLX = '워터마크가 적용되었습니다.';
RS_FWater = '워터마크가 적용되었습니다.';
RS_FWatchLX = '파일 변경이 탐지되었습니다.';
RS_FWatch = '로컬 파일 변경이 탐지되었습니다.';
RS_FCutLX = '파일 저장이 차단됩니다.';
RS_FDelAfter = '만약 사용 중이면, 사용 후 삭제됩니다.';
RS_FCut = '파일 생성이 차단 되었습니다.';
RS_TempConnect = '임시 접속이 허용되었습니다. (Unsafe Mode)';
RS_TempConnectExit = '본 연결은 %d분 뒤 강제 종료됩니다.';
RS_TerminateApp = '앱이 종료되었습니다.';
RS_MonitorApp = '앱 실행이 감지되었습니다.';
RS_ExeWhiteAppLX = '- 필수 앱을 실행해 주세요.';
RS_ExeWhiteApp1 = '다음 필수 앱이 실행되고 있지 않습니다.';
RS_ExeWhiteApp2 = '연결이 초기화됩니다.';
RS_FMaskLX = '민감정보를 마스킹합니다.';
RS_FMask = '파일이 마스킹 되었습니다.';
RS_URLCut = 'URL 연결이 차단 되었습니다.';
RS_URLMon = 'URL 연결이 감지 되었습니다.';
RS_FMT_URLCut = ' - URL : %s';
RS_FMT_URLInfo = ' - URL 평판 : %s';
RS_DetectAppInstSankyo = '비인가 소프트웨어 설치 행위가 탐지되었습니다.';
RS_DetectAppInstSankyo2 = '비인가 프로그램 설치가 감지되었습니다.';
RS_DetectAppInst = '프로그램 설치가 감지되었습니다.';
RS_DetectAppInst1 = '아래 ''조치'' 버튼을 눌러 제어판에서 해당 프로그램을';
RS_DetectAppInst2 = '삭제 해주시기 바랍니다.';
RS_DetectWIFI = '무선 네트워크 접속(WIFI)이 감지되었습니다.';
RS_AfterCut = '잠시 후 차단됩니다.';
RS_DetectBlue = '블루투스 연결이 감지되었습니다.';
RS_BlueCut = '블루투스 연결을 차단합니다.';
RS_DetectMTP = 'MTP 연결이 감지되었습니다.';
RS_MTPCut = 'MTP 연결을 차단합니다.';
RS_DetectPrinter = '프린터 사용이 감지되었습니다.';
RS_NotSupportWT = '워터마크를 지원하지 않는 프로그램입니다.';
RS_NotSupportPTR = '승인되지 않은 프린터 입니다.';
RS_NotSupportPTR_IP = '승인되지 않은 프린터 IP 입니다.';
RS_NotSupportAPP = '승인되지 않은 APP : ';
RS_NotSupportURL = '승인되지 않은 URL : ';
RS_FoundCtt = '개인정보 검출됨 : ';
RS_PrinterCut = '프린터 사용을 차단합니다.';
RS_MsgCopyClipboard = '메시지가 클립보드에 복사 되었습니다.';
RS_CTTSCH = '개인정보 검사';
RS_CTTSCH_START = '개인정보 검사가 시작되었습니다.';
RS_CTTSCH_COMPLETE = '개인정보 검사를 완료했습니다.';
RS_CTTSCH_TILE = '검사 시간';
RS_CTTSCH_RESULT_COUNT = '검출된 파일 수';
RS_CttSchVulModeMsg1 = '많은 수의 개인정보가 추출 되었습니다.';
RS_CttSchVulModeMsg2 = '개인정보 검사 결과를 확인하고 조치 후';
RS_CttSchVulModeMsg3 = '개인정보 검사를 다시 수행해 주십시오.';
RS_DetectCopyCapture = '- 복사, 캡쳐가 감지 되었습니다.';
RS_DetectCB = '클립보드 (복사, 캡쳐) 사용이 감지 되었습니다.';
RS_DetectRemoveableDev = '외부 저장소 연결이 감지 되었습니다.';
RS_DetectCdrom = 'CD/DVD 연결이 감지 되었습니다.';
RS_DeleteInstApp = '설치된 프로그램을 삭제합니다.';
RS_DeleteInstAppMsg1 = '아래 ''조치'' 버튼을 눌러 삭제를 확인하고,';
RS_DeleteInstAppMsg2 = '삭제가 되지 않았다면 삭제해주십시오.';
RS_PrintWater1 = '프린트 워터마크 적용';
RS_PrintWater2 = '프린트 워터마크가 적용 되었습니다.';
RS_DetectFileUse = '파일 첨부, 사용이 감지 되었습니다.';
RS_DetectFileBlock = '파일 첨부, 사용이 차단 되었습니다.';
RS_Program = '프로그램 : ';
RS_FileName = '파일 이름 : ';
RS_FilePath = '파일 경로 : ';
RS_FileTag = '파일 태그 : ';
RS_OpenDrm1 = 'DRM 문서 열람';
RS_OpenDrm2 = 'DRM 문서를 확인합니다.';
RS_OpenDrm3 = 'DRM 문서를 수정할 수 없습니다..';
RS_BlockDrm1 = 'DRM 문서를 열람할 수 없습니다.';
RS_BlockDrm2 = '관리자에게 열람 권한을 문의해 주십시오.';
RS_BlockDrm3 = '다른 환경에서 만들어진 DRM 문서입니다.';
RS_EncDrm1 = 'DRM 문서 암호화';
RS_EncDrm2 = 'DRM 문서 암호화가 적용됩니다.';
RS_DocName = '문서이름 : ';
RS_DetectFRename = '파일 이름변경이 감지 되었습니다.';
RS_BlockFRename = '파일 이름변경이 차단 되었습니다.';
RS_OrgName = '원본 이름 : ';
RS_ChgName = '변경 이름 : ';
RS_BlockShareFolder = '공유 폴더 설정이 차단 되었습니다.';
RS_DetectShareFolder = '공유 폴더 설정이 감지 되었습니다.';
RS_BlockCappApp = '캡쳐 APP이 차단 되었습니다.';
RS_DetectCappApp = '캡쳐 APP이 감지 되었습니다.';
RS_MsgVul1_ABL = '%s 설정이 되어 있지 않습니다.';
RS_MsgVul2_ABL = '[취약상태]로 되어 있는 버튼을 클릭하여 설정을 변경하세요.';
RS_ScrSv_ABL = '[화면 보호기]';
RS_AV_ABL = '[Anti-Virus]';
RS_UserPw_ABL = '[계정 비밀번호]';
RS_FW_ABL = '[방화벽]';
RS_OsVer_ABL = '[OS 버전]';
RS_OsPatch_ABL = '[OS 패치]';
RS_TITLE = '제목 : ';
RS_CC = '참조 : ';
RS_TO = '수신자 : ';
RS_OutlookMonMsg = '아웃룩 메일 전송이 감지 되었습니다.';
RS_OutlookMaskMsg = '아웃룩 전송 메일이 마스킹 되었습니다.';
RS_OutlookBlockMsg = '아웃룩 메일 전송이 차단 되었습니다.';
RS_OutlookBlockApp = '아웃룩이 보안 정책으로 차단 되었습니다.';
RS_OutlookBlockAppMsg1 = '아래 "조치" 버튼을 눌러서';
RS_OutlookBlockAppMsg2 = '아웃룩 보안 모듈을 적용 후 다시 실행 해주십시오.';
RS_OutlookSecu = '아웃룩 보안 적용';
RS_OutlookSecuMsg = '아웃룩 보안이 적용되었습니다.';
RS_BLOCK_MTP_WRITE = 'MTP 장치에서 파일쓰기가 차단 되었습니다.';
RS_RELEASE_QUARANTINE = '검역소에 격리된 파일이 해제 되었습니다.';
RS_RELEASE_FILE_QUARANTINE = '파일 격리 해제';
RS_ChangeMode = '모드 변경';
RS_BlockTethering = '네트워크가 차단 되었습니다.';
RS_MsgModeSleep = '[수면 모드 입니다]';
RS_MsgModeSecu = '[보안 모드 입니다]';
RS_MsgModeVul = '[취약 모드 입니다. 취약점을 조치해주세요]';
RS_RS_MsgModeNoId = '[미인증 모드 입니다. ID 인증이 필요합니다]';
RS_MsgModeOff = '[오프라인 모드 입니다]';
RS_MsgModeExpt = '[예외 모드 입니다]';
RS_ReqApproval = '결재 승인 요청';
RS_Confirm = '승인';
RS_MsgConfirm = '확인하시고 승인 바랍니다';
RS_PrtApproval = '출력 요청';
RS_MsgPrtApproval = '출력이 요청 되었습니다.';
RS_UsbExcept = 'USB 매체 예외';
RS_MsgUsbExcept = 'USB 매체 예외가 요청 되었습니다.';
RS_UrlExcept = '브라우저 접근 예외';
RS_MsgUrlExcept = '브라우저 접근 예외가 요청 되었습니다.';
RS_DecExcept = 'DRM 해제 요청';
RS_MsgDecExcept = 'DRM 해제가 요청 되었습니다.';
RS_FileExpExcept = '파일 반출 요청';
RS_MsgFileExpExcept = '파일 반출이 요청 되었습니다.';
RS_MtpExcept = 'MTP 매체 예외';
RS_MtpUrlExcept = 'MTP 매체 예외 요청 되었습니다.';
RS_BtExcept = 'Bluetooth 매체 예외';
RS_BtUrlExcept = 'Bluetooth 매체 예외 요청 되었습니다.';
RS_CdExcept = 'CD/DVD 매체 예외';
RS_CdUrlExcept = 'CD/DVD 매체 예외 요청 되었습니다.';
RS_PrtWaterExcept = '프린트 워터마크 예외';
RS_MsgPrtWaterExcept = '프린트 워터마크가 예외 요청 되었습니다.';
RS_ApprovalResult = '결재 확인';
RS_NotFoundPrintInfo = '출력 정보를 찾을 수 없습니다. (%s)';
RS_PrintPass = '출력 요청이 승인 되었습니다.';
RS_PrintReqReject = '출력 요청이 반려 되었습니다.';
RS_MsgError = '오류가 발생했습니다';
RS_UsbReqPass = 'USB 매체 예외가 승인 되었습니다.';
RS_UsbReqReject = 'USB 매체 예외 요청이 반려 되었습니다.';
RS_UrlReqPass = '브라우저 접근 예외가 승인 되었습니다.';
RS_DrmReqPass = 'DRM 해제 요청이 승인 되었습니다.';
RS_DrmReqReject = 'DRM 해제 요청이 반려 되었습니다.';
RS_FileExpReqPass = '파일 반출 요청이 승인 되었습니다.';
RS_FileExpReqReject = '파일 반출 요청이 반려 되었습니다.';
RS_UrlReqReject = '브라우저 접근 예외 요청이 반려 되었습니다.';
RS_MtpReqPass = 'MTP 매체 예외가 승인 되었습니다.';
RS_MtpReqReject = 'MTP 매체 예외 요청이 반려 되었습니다.';
RS_BtReqPass = 'Bluetooth 매체 예외가 승인 되었습니다.';
RS_BtReqReject = 'Bluetooth 매체 예외 요청이 반려 되었습니다.';
RS_CdReqPass = 'CD/DVD 매체 예외가 승인 되었습니다.';
RS_PrtWaterReqPass = '프린트 워터마크 예외가 승인 되었습니다.';
RS_CdReqReject = 'CD/DVD 매체 예외 요청이 반려 되었습니다.';
RS_PrtWaterReject = '프린트 워터마크 예외 요청이 반려 되었습니다.';
RS_ApprovalReason = '결재 처리 사유';
RS_NoApprovalInfo = '결재자 정보를 가져올 수 없습니다.';
RS_UpdateReboot = '업데이트 기능 적용을 위해 PC를 재부팅해야 합니다.';
{$R *.dfm}
var
_nNotiCnt: Integer = 0;
Constructor TDlgNoticeBT.Create(aOwner: TComponent);
var
hTarkBar: HWND;
r: TRect;
nVCnt, nHPos: Integer;
begin
Inherited Create(aOwner);
Caption := APP_TITLE;
if CUSTOMER_TYPE = CUSTOMER_TMAP then // 티맵은 위치 고정
_nNotiCnt := 1
else
Inc(_nNotiCnt);
sCmdParam_ := '';
sNotiCenterMsg_ := '';
Mutex_ := nil;
hTarkBar := FindWindow('Shell_TrayWnd', '');
if hTarkBar <> 0 then
begin
SetNotiForm;
GetWindowRect(hTarkBar, r);
// Top가 0이면 위, 왼쪽 아님 오른쪽
if (r.Left <= 0) and (r.Right < Screen.PrimaryMonitor.Width) then
begin
// 왼쪽
Top := Screen.PrimaryMonitor.Height;
Left := Screen.PrimaryMonitor.Width;
end else
if (r.Left <= 0) and (r.Top = 0) and
(r.Bottom < Screen.PrimaryMonitor.Height) then
begin
// 위쪽
Top := Screen.PrimaryMonitor.Height;
Left := Screen.PrimaryMonitor.Width;
end else
if (r.Left <= 0) and (r.Top > 0) then
begin
// 아래쪽
Top := Screen.PrimaryMonitor.Height - (r.Bottom - r.Top);
Left := Screen.PrimaryMonitor.Width;// - Width;
end else begin
// 오른쪽
Top := Screen.PrimaryMonitor.Height;
Left := Screen.PrimaryMonitor.Width - (r.Right - r.Left);// - Width - (r.Right - r.Left);
end;
// if CUSTOMER_TYPE = CUSTOMER_TMAP then
// begin
// nVCnt := 1; // 티맵은 위치 고정
// nHPos := 0;
// end else begin
//
// end;
nVCnt := Screen.PrimaryMonitor.Height div Height;
nHPos := _nNotiCnt mod nVCnt;
if nHPos = 0 then
begin
Left := Left - (_nNotiCnt div nVCnt) * Width;
nHPos := nVCnt;
end else
Left := Left - ((_nNotiCnt div nVCnt) + 1) * Width;
Top := Top - (nHPos * Height);
end;
tInit.Enabled := true;
{$IFDEF _HE_}
nHPos := gMgSvc.ModePolicy.NotiCloseSec;
if nHPos > 0 then
begin
tClose.Interval := nHPos * 1000;;
tClose.Enabled := true;
end else
if IsHD then
begin
tClose.Interval := 5000;
tClose.Enabled := true;
end;
{$ENDIF}
end;
procedure TDlgNoticeBT.CreateParams(var Params: TCreateParams);
begin
Inherited CreateParams(Params);
Params.ExStyle := WS_EX_APPWINDOW;
end;
Destructor TDlgNoticeBT.Destroy;
begin
if Mutex_ <> nil then
FreeAndNil(Mutex_);
Inherited;
end;
procedure TDlgNoticeBT.SetNotiForm;
begin
cpMain.ActiveCard := cdDef;
// if aNotiType = nftNormal then
// begin
// lbTitle.Caption := RS_TitleVul;
// imgTop.Picture.Assign(imgTitles.Items[0].PngImage);
// Width := 454;
// Height := 461;
// lbTitle.Top := 193;
// lbTitle.Left := 31;
// mmMsg.Top := 44;
// mmMsg.Left := 31;
// lbMode.Left := 31;
// lbOk.Top := 187;
// lbOk.Left := 31;
// imgOk.Top := 187;
// imgOk.Left := 31;
// lbSet.Top := 187;
// lbSet.Left := 243;
// imgSet.Top := 187;
// imgSet.Left := 243;
// lbMsgEx.Top := 163;
//
// if pnTop.Visible then
// begin
// Height := Height + pnTop.Height;
// lbTitle.Top := lbTitle.Top + pnTop.Height;
// mmMsg.Top := mmMsg.Top + pnTop.Height;
//// lbOk.Top := lbOk.Top + pnTop.Height;
//// imgOk.Top := imgOk.Top + pnTop.Height;
//// lbSet.Top := lbSet.Top + pnTop.Height;
//// imgSet.Top := imgSet.Top + pnTop.Height;
// lbMsgEx.Top := lbMsgEx.Top + pnTop.Height;
// end;
// end else
begin
if not pnTop.Visible then
Height := Height - pnTop.Height;
end;
end;
procedure TDlgNoticeBT.PopupMessage(sJsonData: String);
var
O: ISuperObject;
MsgList: TStringList;
sTemp: String;
StrList: TStringList;
procedure SetOneNomal(bShowTitle: Boolean = false);
begin
SetOneButtion;
lbTitle.Visible := bShowTitle;
mmMsg.Font.Color := $635653;
mmMsg.Font.Style := mmMsg.Font.Style + [fsBold];
// if not bShowTitle and (NotiType <> nftMin) then
// mmMsg.Top := lbTitle.Top;
end;
procedure SetPrevent(bOneButton: Boolean = true; bReqDevExcept: Boolean = false);
begin
if bOneButton then
begin
SetOneButtion;
end else
if bReqDevExcept then
begin
imgSet.Tag := 4;
SetImgBtn(imgSet, imgSet.Tag);
sCmdParam_ := 'RegDevExcept';
end;
// if NotiType = nftMin then
lbTitle.Caption := RS_TitlePreventSimple;
// else
// lbTitle.Caption := RS_TitlePrevent;
mmMsg.Font.Color := $635653;
mmMsg.Font.Style := mmMsg.Font.Style + [fsBold];
// MsgList.Add(APP_TITLE);
// MsgList.Add('보안정책 위반행위가 탐지되었습니다.');
// MsgList.Add('');
end;
var
nType: Integer;
begin
try
Guard(StrList, TStringList.Create);
O := SO(sJsonData);
nType := O.I['T'];
Guard(MsgList, TStringList.Create);
// TTgTrace.T('PopupMessage() .. Type=%d', [O.I['T']]);
case nType of
TYPE_MSG_PREVENT_BLUETOOTH :
begin
if CUSTOMER_TYPE = CUSTOMER_LX then
SetOneButtion
else begin
{$IFDEF _HE_}
if IsApproveSupport and gMgSvc.UseApproval then
SetPrevent((gMgSvc.IsNewApi and not PO.AbleBtExceptReq and not PO.BtApproval) or
(CUSTOMER_TYPE = CUSTOMER_HDENG) or (CUSTOMER_TYPE = CUSTOMER_GEC), true)
else
SetPrevent((gMgSvc.IsNewApi and not PO.AbleBtExceptReq) or
(CUSTOMER_TYPE = CUSTOMER_HDENG) or (CUSTOMER_TYPE = CUSTOMER_GEC), true)
{$ELSE}
SetPrevent(true, true);
{$ENDIF}
end;
MsgList.Add(RS_DetectBlue);
SplitString2(O.S['D'], '|', StrList, true);
{$IFDEF _HE_}
ReqDevExceptInfo_.ReqDevType := rdtBluetooth;
// ReqDevExceptInfo_.sDevName := Format('Ts (%s)', [StrList[0], StrList[1]]); // 이거 왜 이렇게 했는지 기억이 안남... 25_0218 08:50:41 kku
ReqDevExceptInfo_.sDevName := Format('%s, %s', [StrList[0], StrList[1]]);
try
ReqDevExceptInfo_.sSerial := StrList[2];
except
ReqDevExceptInfo_.sSerial := 'Unknown';
end;
{$ENDIF}
MsgList.Add(Format(' - Name : %s', [StrList[0]]));
MsgList.Add(Format(' - Type : %s', [StrList[1]]));
// if StrList.Count > 2 then
// MsgList.Add(Format(' - Adress : %s', [StrList[2]]));
if StrList.Count > 3 then
MsgList.Add(RS_BlueCut);
end;
end;
{$IFDEF _HE_}
if PO.NotifyType = nftACenter then
begin
_nNotiCnt := 0; // 알림센터에서 일반 팝업 으로 넘어갈때를 위함, 일단 여기에 넣음..22_0825 09:02:09 kku
var sTitle: String := RS_SecuViol;
case O.I['T'] of
TYPE_MSG_SAFEAPPLIED : sTitle := RS_Info;
TYPE_MSG_OLD_WINDOWS,
TYPE_MSG_VUL_OS,
TYPE_MSG_VUL_PW,
TYPE_MSG_VUL_AV,
TYPE_MSG_VUL_FW,
TYPE_MSG_VUL_SCREEN,
TYPE_MSG_VUL_ALLOWACCESS,
TYPE_MSG_VUL_EMPNO : sTitle := RS_Vul;
// TYPE_MSG_NOTIFICATION,
TYPE_MSG_UPDATE,
TYPE_MSG_AFTERREPORT :
begin
sTitle := RS_Info;
end;
TYPE_MSG_NOTIFICATION : sTitle := RS_Noti;
end;
sNotiCenterMsg_ := sTitle + ':' + MsgList.Text;
end else
{$ENDIF}
begin
mmMsg.Text := MsgList.Text;
// if ((NotiType = nftNormal) and (mmMsg.Lines.Count > 9)) or
// ((NotiType = nftMin) and (mmMsg.Lines.Count > 5)) then
if mmMsg.Lines.Count > 5 then
mmMsg.ScrollBars := TScrollStyle.ssVertical;
{$IFNDEF _HE_}
Show;
{$ENDIF}
end;
except
on E: Exception do
ETgException.TraceException(Self, E, 'Fail .. PopupMessage()');
end;
end;
procedure TDlgNoticeBT.FormClose(Sender: TObject; var Action: TCloseAction);
begin
try
if _nNotiCnt > 0 then
Dec(_nNotiCnt);
Action := caFree;
except
on E: Exception do
ETgException.TraceException(Self, E, 'Fail .. FormClose()');
end;
end;
procedure TDlgNoticeBT.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #27 then
begin
try
Close;
except
on E: Exception do
ETgException.TraceException(Self, E, 'Fail .. FormKeyPress()');
end;
end;
end;
procedure TDlgNoticeBT.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0);
end;
procedure TDlgNoticeBT.FormShow(Sender: TObject);
begin
FormStyle := fsNormal;
end;
procedure TDlgNoticeBT.imgOkClick(Sender: TObject);
begin
try
Close;
except
on E: Exception do
ETgException.TraceException(Self, E, 'Fail .. imgOkClick()');
end;
end;
procedure TDlgNoticeBT.imgOkMouseEnter(Sender: TObject);
var
img: TImage;
begin
if Sender = nil then
exit;
if Sender is TImage then
img := TImage(Sender)
else if Sender = lbOk then
img := imgOk
else
img := imgSet;
SetImgBtn(img, img.Tag + 1);
end;
procedure TDlgNoticeBT.imgOkMouseLeave(Sender: TObject);
var
img: TImage;
begin
if Sender = nil then
exit;
if Sender is TImage then
img := TImage(Sender)
else if Sender = lbOk then
img := imgOk
else
img := imgSet;
SetImgBtn(img, img.Tag);
end;
procedure TDlgNoticeBT.imgSetClick(Sender: TObject);
var
sHlpExe: String;
begin
{$IFDEF _HE_}
if sCmdParam_ <> '' then
begin
if sCmdParam_ = 'ChangeEmpNo' then
begin
if gMain <> nil then
begin
gMain.imgChangeEmpNoClick(nil);
end;
end else
if sCmdParam_ = 'RegDevExcept' then
begin
if (IsApproveSupport and gMgSvc.UseApproval and gMgSvc.ModePolicy.UsbApproval and (ReqDevExceptInfo_.ReqDevType = rdtUsbDrive)) or
(IsApproveSupport and gMgSvc.UseApproval and gMgSvc.ModePolicy.CdApproval and (ReqDevExceptInfo_.ReqDevType = rdtCdrom)) or
(IsApproveSupport and gMgSvc.UseApproval and gMgSvc.ModePolicy.MtpApproval and (ReqDevExceptInfo_.ReqDevType = rdtMtp)) or
(IsApproveSupport and gMgSvc.UseApproval and gMgSvc.ModePolicy.BtApproval and (ReqDevExceptInfo_.ReqDevType = rdtBluetooth)) or
(IsApproveSupport and gMgSvc.UseApproval and gMgSvc.ModePolicy.ExFApproval and (ReqDevExceptInfo_.ReqDevType = rdtExpFile)) then
begin
var nType: Integer := -1;
ZeroMemory(@LogInfo, SizeOf(LogInfo));
LogInfo.sCode := REQUEST_APPROVAL;
LogInfo.sDevName := ReqDevExceptInfo_.sDevName;
LogInfo.sDevSerial := ReqDevExceptInfo_.sSerial;
case ReqDevExceptInfo_.ReqDevType of
rdtUsbDrive :
begin
nType := 1;
LogInfo.sSummary := 'Approval Request : USB';
end;
rdtExpFile :
begin
nType := 4;
LogInfo.sDevSerial := '';
var O: ISuperObject := nil;
try
O := SO(ReqDevExceptInfo_.sSerial);
except
end;
if (O <> nil) and (O.DataType = stArray) then
begin
LogInfo.sSummary := Format('Approval Request : File Export (%d)', [O.AsArray.Length]);
if O.AsArray.Length = 1 then
LogInfo.sPath := O.AsArray[0].S['filePath'];
end else
LogInfo.sSummary := 'Approval Request : File Export';
end;
rdtMtp :
begin
nType := 5;
LogInfo.sSummary := 'Approval Request : MTP';
end;
rdtBluetooth :
begin
nType := 6;
LogInfo.sSummary := 'Approval Request : Bluetooth';
end;
rdtCdrom :
begin
nType := 7;
LogInfo.sSummary := 'Approval Request : CD/DVD';
end;
end;
var sUrl: String := gMgSvc.SendApproval(nType, @ReqDevExceptInfo_);
if sUrl = '' then
begin
TTgTrace.T('Fail .. SendApproval(1)');
MessageBox(Handle, PChar(RS_NoApprovalInfo), PChar(APP_TITLE), MB_ICONWARNING or MB_OK);
end else begin
gMgSvc.SendEventLogEx(@LogInfo, false);
// ExecutePath(gMgSvc.DestIPort + sUrl);
sHlpExe := GetRunExePathDir + DIR_CONF + EXE_HLP;
if FileExists(sHlpExe) then
begin
var O: ISuperObject := SO;
O.I['RcvWnd'] := Handle;
O.I['Cmd'] := HPCMD_EXECUTE_FILE;
O.S['Path'] := gMgSvc.DestIPort + sUrl;
SaveJsonObjToFile(O, GetRunExePathDir + DIR_CONF + DAT_PARAM);
{$IFDEF DEBUG}
ExecutePath(sHlpExe);
{$ELSE}
ExecuteAppAsUser('explorer.exe', sHlpExe, '', SW_SHOWNORMAL);
{$ENDIF}
end else
ExecutePath(gMgSvc.DestIPort + sUrl);
end;
end else
if Pos('412', FreeLocalizer.LanguageFile) = 0 then
begin
TDlgReqDevExcept.Create(nil, ReqDevExceptInfo_).Show;
end else begin
var sExe: String := GetRunExePathDir + DIR_CONF + EXE_HLP;
if FileExists(sExe) then
begin
var O: ISuperObject := SO;
O.I['RcvWnd'] := gMgSvc.RcvHwnd;
O.I['Cmd'] := HPCMD_REQ_DEVICE_EXCEPT;
O.S['WinCap'] := APP_TITLE;
O.O['ReqInfo'] := TTgJson.ValueToJsonObject<TReqDevExceptInfo>(ReqDevExceptInfo_);
O.I['CT'] := CUSTOMER_TYPE;
SaveJsonObjToFile(O, GetRunExePathDir + DIR_CONF + DAT_PARAM);
{$IFDEF DEBUG}
ExecutePath(sExe);
{$ELSE}
ExecuteAppAsUser('explorer.exe', sExe, '', SW_SHOWNORMAL);
{$ENDIF}
end;
end;
end else
if (sCmdParam_ = 'RegUrlExcept') and IsApproveSupport and gMgSvc.UseApproval and gMgSvc.ModePolicy.WebUrlApproval then
begin
var sUrl: String := gMgSvc.SendApproval(2, @ReqDevExceptInfo_.sSerial[1]);
if sUrl = '' then
begin
TTgTrace.T('Fail .. SendApproval(2)');
MessageBox(Handle, PChar(RS_NoApprovalInfo), PChar(APP_TITLE), MB_ICONWARNING or MB_OK);
end else begin
LogInfo.sCode := REQUEST_APPROVAL;
LogInfo.sDestIpUrl := ReqDevExceptInfo_.sSerial;
LogInfo.sSummary := 'Approval Request : URL';
gMgSvc.SendEventLogEx(@LogInfo, false);
// ExecutePath(gMgSvc.DestIPort + sUrl);
sHlpExe := GetRunExePathDir + DIR_CONF + EXE_HLP;
if FileExists(sHlpExe) then
begin
var O: ISuperObject := SO;
O.I['RcvWnd'] := Handle;
O.I['Cmd'] := HPCMD_EXECUTE_FILE;
O.S['Path'] := gMgSvc.DestIPort + sUrl;
SaveJsonObjToFile(O, GetRunExePathDir + DIR_CONF + DAT_PARAM);
{$IFDEF DEBUG}
ExecutePath(sHlpExe);
{$ELSE}
ExecuteAppAsUser('explorer.exe', sHlpExe, '', SW_SHOWNORMAL);
{$ENDIF}
end else
ExecutePath(gMgSvc.DestIPort + sUrl);
end;
end else
if sCmdParam_ = 'CttSch' then
begin
gMain.lbCttSchRstClick(nil);
// TDlgViewCustomCttSchResult.Create(nil).Show;
end else
if sCmdParam_ = 'OutlookAddin' then
begin
sHlpExe := GetRunExePathDir + DIR_CONF + EXE_HP;
if FileExists(sHlpExe) then
begin
var O: ISuperObject := SO;
O.I['RcvWnd'] := gMain.Handle;
O.B['RunAs'] := true;
O.I['Cmd'] := HPCMD_INSTALL_OUTLOOK_ADDIN;
O.S['MdDir'] := GetRunExePathDir + DIR_CONF;
SaveJsonObjToFile(O, GetRunExePathDir + DIR_CONF + DAT_PARAM);
{$IFDEF DEBUG}
ExecutePath(sHlpExe);
{$ELSE}
ExecuteAppAsUser('explorer.exe', sHlpExe, '', SW_SHOWNORMAL);
{$ENDIF}
end;
end else
if sCmdParam_.StartsWith('http') then
begin
sHlpExe := GetRunExePathDir + DIR_CONF + EXE_HLP;
if FileExists(sHlpExe) then
begin
var O: ISuperObject := SO;
O.I['RcvWnd'] := Handle;
O.I['Cmd'] := HPCMD_EXECUTE_FILE;
O.S['Path'] := sCmdParam_;
SaveJsonObjToFile(O, GetRunExePathDir + DIR_CONF + DAT_PARAM);
{$IFDEF DEBUG}
ExecutePath(sHlpExe);
{$ELSE}
ExecuteAppAsUser('explorer.exe', sHlpExe, '', SW_SHOWNORMAL);
{$ENDIF}
end else
ExecutePath(sCmdParam_);
end else
if sCmdParam_.StartsWith('/c') then
ExecutePath_hide('cmd.exe', sCmdParam_)
end;
{$ENDIF}
Close;
end;
procedure TDlgNoticeBT.imgTopMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0);
end;
procedure TDlgNoticeBT.lbPiCntClick(Sender: TObject);
begin
{$IFDEF _HE_}
gMain.lbCttSchRstClick(nil);
{$ENDIF}
end;
procedure TDlgNoticeBT.lbPiCntMouseEnter(Sender: TObject);
begin
lbPiCnt.Font.Style := lbPiCnt.Font.Style + [fsUnderline];
lbPiCnt.Font.Color := clBlue;
end;
procedure TDlgNoticeBT.lbPiCntMouseLeave(Sender: TObject);
begin
lbPiCnt.Font.Style := lbPiCnt.Font.Style - [fsUnderline];
lbPiCnt.Font.Color := clBlack;
end;
procedure TDlgNoticeBT.SetImgBtn(imgBtn: TImage; nImgIdx: Integer);
begin
try
if imgBtnList.Count <= nImgIdx then
exit;
imgBtnList.GetIcon(nImgIdx, imgBtn.Picture.Icon);
imgBtn.Repaint;
case nImgIdx of
2, 3 :
begin
lbSet.Font.Color := clGreen;
if lbSet.Caption <> RS_Confirm then // 음.. 깔끔하진 않지만 일단 이렇게 처리 25_0218 11:29:22 kku
lbSet.Caption := RS_SetVul;
end;
4, 5 :
begin
lbSet.Font.Color := clPurple;
lbSet.Caption := RS_DevExcept;
end;
end;
except
on E: Exception do
ETgException.TraceException(Self, E, 'Fail .. SetImgBtn()');
end;
end;
procedure TDlgNoticeBT.SetOneButtion;
begin
imgSet.Visible := false;
lbSet.Visible := imgSet.Visible;
imgOk.Left := (Width div 2) - (imgOk.Width div 2);
lbOk.Left := imgOk.Left;
end;
procedure TDlgNoticeBT.SetPiResult4HEC(nRstCnt: Integer);
begin
// lbTitle.Visible := false;
if lbTitle.Top = 193 then
begin
// Label1.Left := Label1.Left + 25;
Label2.Left := Label2.Left + 25;
lbGrade.Left := lbGrade.Left + 25;
lbPiCnt.Left := lbPiCnt.Left + 25;
Label5.Left := Label5.Left + 25;
end;
lbPiCnt.Caption := Format('(%d)', [nRstCnt]);
// if nRstCnt < gMgSvc.PrefModel.PersonalInfoFileMax then
{$IFDEF _HE_}
if (gMgSvc.ProcCampn <> nil) and (gMgSvc.ProcCampn.Info.nNotiWarIfCnt > nRstCnt) then
begin
lbGrade.Caption := '''양호''';
lbGrade.Font.Color := clBlue;
end;
{$ENDIF}
cpMain.ActiveCard := cdPI;
end;
procedure TDlgNoticeBT.tCloseTimer(Sender: TObject);
begin
tClose.Enabled := false;
btnClose.Click;
end;
procedure TDlgNoticeBT.tInitTimer(Sender: TObject);
begin
tInit.Enabled := false;
SetImgBtn(imgOk, imgOk.Tag);
SetImgBtn(imgSet, imgSet.Tag);
Application.ProcessMessages;
end;
procedure TDlgNoticeBT.btnCloseClick(Sender: TObject);
begin
Close;
end;
end.

10
Tocsg.Module/BlueMon/Define.pas Normal file
View File

@ -0,0 +1,10 @@
unit Define;
interface
const
APP_TITLE = 'BlueMon';
implementation
end.

16
Tocsg.Module/BrowserMon/BrowserMon.dpr Normal file
View File

@ -0,0 +1,16 @@
program BrowserMon;
uses
Vcl.Forms,
DBrowserMonMain in 'DBrowserMonMain.pas' {DlgBrowserMon};
{$R *.res}
begin
ReportMemoryLeaksOnShutdown := DebugHook <> 0;
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(TDlgBrowserMon, DlgBrowserMon);
Application.Run;
end.

975
Tocsg.Module/BrowserMon/BrowserMon.dproj Normal file
View File

@ -0,0 +1,975 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{769FA8B4-EBB5-46E1-BD9D-1B616F50A793}</ProjectGuid>
<ProjectVersion>19.5</ProjectVersion>
<FrameworkType>VCL</FrameworkType>
<Base>True</Base>
<Config Condition="'$(Config)'==''">Debug</Config>
<Platform Condition="'$(Platform)'==''">Win32</Platform>
<TargetedPlatforms>1</TargetedPlatforms>
<AppType>Application</AppType>
<MainSource>BrowserMon.dpr</MainSource>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
<Base_Win32>true</Base_Win32>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
<Base_Win64>true</Base_Win64>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_1)'!=''">
<Cfg_1>true</Cfg_1>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win32)'!=''">
<Cfg_1_Win32>true</Cfg_1_Win32>
<CfgParent>Cfg_1</CfgParent>
<Cfg_1>true</Cfg_1>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_2)'!=''">
<Cfg_2>true</Cfg_2>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
<Cfg_2_Win32>true</Cfg_2_Win32>
<CfgParent>Cfg_2</CfgParent>
<Cfg_2>true</Cfg_2>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Base)'!=''">
<DCC_DcuOutput>.\_OUT_Object\$(Platform)\$(Config)</DCC_DcuOutput>
<DCC_ExeOutput>.\OUT_$(Config) - $(Platform)</DCC_ExeOutput>
<DCC_E>false</DCC_E>
<DCC_N>false</DCC_N>
<DCC_S>false</DCC_S>
<DCC_F>false</DCC_F>
<DCC_K>false</DCC_K>
<DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace)</DCC_Namespace>
<Icon_MainIcon>$(BDS)\bin\delphi_PROJECTICON.ico</Icon_MainIcon>
<UWP_DelphiLogo44>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png</UWP_DelphiLogo44>
<UWP_DelphiLogo150>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png</UWP_DelphiLogo150>
<SanitizedProjectName>BrowserMon</SanitizedProjectName>
<DCC_Define>TRACE;TRACE_OBJ;TRACE_FILE;$(DCC_Define)</DCC_Define>
<VerInfo_Locale>1042</VerInfo_Locale>
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Win32)'!=''">
<DCC_UsePackage>vclwinx;DataSnapServer;fmx;emshosting;vclie;DbxCommonDriver;bindengine;IndyIPCommon;VCLRESTComponents;DBXMSSQLDriver;FireDACCommonODBC;emsclient;FireDACCommonDriver;FFmpegRtl_DXT4;appanalytics;IndyProtocols;vclx;adxBuildD28;IndyIPClient;dbxcds;vcledge;bindcompvclwinx;FmxTeeUI;FFmpegVcl_DXT4;emsedge;bindcompfmx;hclcore_xe104;DBXFirebirdDriver;htmlreports_xe104;inetdb;ibmonitor;FireDACSqliteDriver;DbxClientDriver;PKIECtrl24;FireDACASADriver;Tee;soapmidas;vclactnband;TeeUI;fmxFireDAC;dbexpress;FireDACInfxDriver;DBXMySQLDriver;VclSmp;inet;DataSnapCommon;vcltouch;fmxase;DBXOdbcDriver;dbrtl;FireDACDBXDriver;FireDACOracleDriver;fmxdae;TeeDB;FireDACMSAccDriver;CustomIPTransport;FireDACMSSQLDriver;AbbreviaVCLD;DataSnapIndy10ServerTransport;DataSnapConnectors;vcldsnap;DBXInterBaseDriver;htmlcomp_xe104;FireDACMongoDBDriver;IndySystem;PngComponentsD;FireDACTDataDriver;vcldb;ibxbindings;VirtualTreesR;vclFireDAC;bindcomp;FireDACCommon;DataSnapServerMidas;FireDACODBCDriver;emsserverresource;htmledit_xe104;IndyCore;RESTBackendComponents;bindcompdbx;rtl;FireDACMySQLDriver;FireDACADSDriver;htmleditcore_xe104;RESTComponents;DBXSqliteDriver;vcl;IndyIPServer;dsnapxml;dsnapcon;DataSnapClient;DataSnapProviderClient;adortl;DBXSybaseASEDriver;DBXDb2Driver;vclimg;DataSnapFireDAC;emsclientfiredac;FireDACPgDriver;FireDAC;FireDACDSDriver;inetdbxpress;xmlrtl;tethering;ibxpress;bindcompvcl;dsnap;CloudService;DBXSybaseASADriver;DBXOracleDriver;FireDACDb2Driver;DBXInformixDriver;adxolBuildD28;vclib;fmxobj;bindcompvclsmp;FMXTee;DataSnapNativeClient;DatasnapConnectorsFreePascal;soaprtl;soapserver;FireDACIBDriver;$(DCC_UsePackage)</DCC_UsePackage>
<DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
<BT_BuildType>Debug</BT_BuildType>
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
<VerInfo_Locale>1033</VerInfo_Locale>
<Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Win64)'!=''">
<DCC_UsePackage>vclwinx;DataSnapServer;fmx;emshosting;vclie;DbxCommonDriver;bindengine;IndyIPCommon;VCLRESTComponents;DBXMSSQLDriver;FireDACCommonODBC;emsclient;FireDACCommonDriver;FFmpegRtl_DXT4;appanalytics;IndyProtocols;vclx;adxBuildD28;IndyIPClient;dbxcds;vcledge;bindcompvclwinx;FmxTeeUI;FFmpegVcl_DXT4;emsedge;bindcompfmx;DBXFirebirdDriver;inetdb;ibmonitor;FireDACSqliteDriver;DbxClientDriver;PKIECtrl24;FireDACASADriver;Tee;soapmidas;vclactnband;TeeUI;fmxFireDAC;dbexpress;FireDACInfxDriver;DBXMySQLDriver;VclSmp;inet;DataSnapCommon;vcltouch;fmxase;DBXOdbcDriver;dbrtl;FireDACDBXDriver;FireDACOracleDriver;fmxdae;TeeDB;FireDACMSAccDriver;CustomIPTransport;FireDACMSSQLDriver;AbbreviaVCLD;DataSnapIndy10ServerTransport;DataSnapConnectors;vcldsnap;DBXInterBaseDriver;FireDACMongoDBDriver;IndySystem;PngComponentsD;FireDACTDataDriver;vcldb;ibxbindings;VirtualTreesR;vclFireDAC;bindcomp;FireDACCommon;DataSnapServerMidas;FireDACODBCDriver;emsserverresource;IndyCore;RESTBackendComponents;bindcompdbx;rtl;FireDACMySQLDriver;FireDACADSDriver;QESTComponents;DBXSqliteDriver;vcl;IndyIPServer;dsnapxml;dsnapcon;DataSnapClient;DataSnapProviderClient;adortl;DBXSybaseASEDriver;DBXDb2Driver;vclimg;DataSnapFireDAC;emsclientfiredac;FireDACPgDriver;FireDAC;FireDACDSDriver;inetdbxpress;xmlrtl;tethering;ibxpress;bindcompvcl;dsnap;CloudService;DBXSybaseASADriver;DBXOracleDriver;FireDACDb2Driver;DBXInformixDriver;adxolBuildD28;vclib;fmxobj;bindcompvclsmp;FMXTee;DataSnapNativeClient;DatasnapConnectorsFreePascal;soaprtl;soapserver;FireDACIBDriver;$(DCC_UsePackage)</DCC_UsePackage>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_1)'!=''">
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
<DCC_DebugDCUs>true</DCC_DebugDCUs>
<DCC_Optimize>false</DCC_Optimize>
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
<DCC_DebugInfoInExe>true</DCC_DebugInfoInExe>
<DCC_RemoteDebug>true</DCC_RemoteDebug>
<DCC_IntegerOverflowCheck>true</DCC_IntegerOverflowCheck>
<DCC_RangeChecking>true</DCC_RangeChecking>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
<DCC_RemoteDebug>false</DCC_RemoteDebug>
<AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
<VerInfo_Locale>1033</VerInfo_Locale>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2)'!=''">
<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_DebugInformation>0</DCC_DebugInformation>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
<AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
</PropertyGroup>
<ItemGroup>
<DelphiCompile Include="$(MainSource)">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="DBrowserMonMain.pas">
<Form>DlgBrowserMon</Form>
<FormType>dfm</FormType>
</DCCReference>
<BuildConfiguration Include="Base">
<Key>Base</Key>
</BuildConfiguration>
<BuildConfiguration Include="Debug">
<Key>Cfg_1</Key>
<CfgParent>Base</CfgParent>
</BuildConfiguration>
<BuildConfiguration Include="Release">
<Key>Cfg_2</Key>
<CfgParent>Base</CfgParent>
</BuildConfiguration>
</ItemGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
<Borland.ProjectType>Application</Borland.ProjectType>
<BorlandProject>
<Delphi.Personality>
<Source>
<Source Name="MainSource">BrowserMon.dpr</Source>
</Source>
<Excluded_Packages>
<Excluded_Packages Name="$(BDSBIN)\dcloffice2k280.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
<Excluded_Packages Name="$(BDSBIN)\dclofficexp280.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
</Excluded_Packages>
</Delphi.Personality>
<Deployment Version="4">
<DeployFile LocalName="Win32\Debug\BrowserMon.exe" Configuration="Debug" Class="ProjectOutput">
<Platform Name="Win32">
<RemoteName>BrowserMon.exe</RemoteName>
<Overwrite>true</Overwrite>
</Platform>
</DeployFile>
<DeployClass Name="AdditionalDebugSymbols">
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
<Platform Name="OSX32">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidClasses">
<Platform Name="Android">
<RemoteDir>classes</RemoteDir>
<Operation>64</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>classes</RemoteDir>
<Operation>64</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidFileProvider">
<Platform Name="Android">
<RemoteDir>res\xml</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\xml</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidGDBServer">
<Platform Name="Android">
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidLibnativeArmeabiFile">
<Platform Name="Android">
<RemoteDir>library\lib\armeabi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>library\lib\armeabi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidLibnativeArmeabiv7aFile">
<Platform Name="Android64">
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidLibnativeMipsFile">
<Platform Name="Android">
<RemoteDir>library\lib\mips</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>library\lib\mips</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidServiceOutput">
<Platform Name="Android">
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>library\lib\arm64-v8a</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidServiceOutput_Android32">
<Platform Name="Android64">
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidSplashImageDef">
<Platform Name="Android">
<RemoteDir>res\drawable</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidSplashStyles">
<Platform Name="Android">
<RemoteDir>res\values</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\values</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidSplashStylesV21">
<Platform Name="Android">
<RemoteDir>res\values-v21</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\values-v21</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_Colors">
<Platform Name="Android">
<RemoteDir>res\values</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\values</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_DefaultAppIcon">
<Platform Name="Android">
<RemoteDir>res\drawable</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_LauncherIcon144">
<Platform Name="Android">
<RemoteDir>res\drawable-xxhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-xxhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_LauncherIcon192">
<Platform Name="Android">
<RemoteDir>res\drawable-xxxhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-xxxhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_LauncherIcon36">
<Platform Name="Android">
<RemoteDir>res\drawable-ldpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-ldpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_LauncherIcon48">
<Platform Name="Android">
<RemoteDir>res\drawable-mdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-mdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_LauncherIcon72">
<Platform Name="Android">
<RemoteDir>res\drawable-hdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-hdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_LauncherIcon96">
<Platform Name="Android">
<RemoteDir>res\drawable-xhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-xhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_NotificationIcon24">
<Platform Name="Android">
<RemoteDir>res\drawable-mdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-mdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_NotificationIcon36">
<Platform Name="Android">
<RemoteDir>res\drawable-hdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-hdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_NotificationIcon48">
<Platform Name="Android">
<RemoteDir>res\drawable-xhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-xhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_NotificationIcon72">
<Platform Name="Android">
<RemoteDir>res\drawable-xxhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-xxhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_NotificationIcon96">
<Platform Name="Android">
<RemoteDir>res\drawable-xxxhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-xxxhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_SplashImage426">
<Platform Name="Android">
<RemoteDir>res\drawable-small</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-small</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_SplashImage470">
<Platform Name="Android">
<RemoteDir>res\drawable-normal</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-normal</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_SplashImage640">
<Platform Name="Android">
<RemoteDir>res\drawable-large</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-large</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_SplashImage960">
<Platform Name="Android">
<RemoteDir>res\drawable-xlarge</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-xlarge</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_Strings">
<Platform Name="Android">
<RemoteDir>res\values</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\values</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="DebugSymbols">
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
<Platform Name="OSX32">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
</Platform>
</DeployClass>
<DeployClass Name="DependencyFramework">
<Platform Name="OSX32">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
<Extensions>.framework</Extensions>
</Platform>
<Platform Name="OSX64">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
<Extensions>.framework</Extensions>
</Platform>
<Platform Name="OSXARM64">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
<Extensions>.framework</Extensions>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
</Platform>
</DeployClass>
<DeployClass Name="DependencyModule">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="iOSSimARM64">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="OSX32">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="OSX64">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="OSXARM64">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
<Extensions>.dll;.bpl</Extensions>
</Platform>
</DeployClass>
<DeployClass Required="true" Name="DependencyPackage">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="iOSSimARM64">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="OSX32">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="OSX64">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="OSXARM64">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
<Extensions>.bpl</Extensions>
</Platform>
</DeployClass>
<DeployClass Name="File">
<Platform Name="Android">
<Operation>0</Operation>
</Platform>
<Platform Name="Android64">
<Operation>0</Operation>
</Platform>
<Platform Name="iOSDevice32">
<Operation>0</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>0</Operation>
</Platform>
<Platform Name="iOSSimARM64">
<Operation>0</Operation>
</Platform>
<Platform Name="OSX32">
<RemoteDir>Contents\Resources\StartUp\</RemoteDir>
<Operation>0</Operation>
</Platform>
<Platform Name="OSX64">
<RemoteDir>Contents\Resources\StartUp\</RemoteDir>
<Operation>0</Operation>
</Platform>
<Platform Name="OSXARM64">
<RemoteDir>Contents\Resources\StartUp\</RemoteDir>
<Operation>0</Operation>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iOS_AppStore1024">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimARM64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_AppIcon152">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimARM64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_AppIcon167">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimARM64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_Launch2x">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimARM64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_LaunchDark2x">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimARM64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_Notification40">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimARM64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_Setting58">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimARM64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_SpotLight80">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimARM64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_AppIcon120">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimARM64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_AppIcon180">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimARM64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Launch2x">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimARM64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Launch3x">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimARM64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_LaunchDark2x">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimARM64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_LaunchDark3x">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimARM64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Notification40">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimARM64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Notification60">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimARM64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Setting58">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimARM64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Setting87">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimARM64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Spotlight120">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimARM64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Spotlight80">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimARM64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectAndroidManifest">
<Platform Name="Android">
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectiOSDeviceDebug">
<Platform Name="iOSDevice32">
<RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimARM64">
<RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectiOSEntitlements">
<Platform Name="iOSDevice32">
<RemoteDir>..\</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<RemoteDir>..\</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimARM64">
<RemoteDir>..\</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectiOSInfoPList">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimARM64">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectiOSLaunchScreen">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen</RemoteDir>
<Operation>64</Operation>
</Platform>
<Platform Name="iOSSimARM64">
<RemoteDir>..\$(PROJECTNAME).launchscreen</RemoteDir>
<Operation>64</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectiOSResource">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimARM64">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectOSXDebug">
<Platform Name="OSX64">
<RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="OSXARM64">
<RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectOSXEntitlements">
<Platform Name="OSX32">
<RemoteDir>..\</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="OSX64">
<RemoteDir>..\</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="OSXARM64">
<RemoteDir>..\</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectOSXInfoPList">
<Platform Name="OSX32">
<RemoteDir>Contents</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="OSX64">
<RemoteDir>Contents</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="OSXARM64">
<RemoteDir>Contents</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectOSXResource">
<Platform Name="OSX32">
<RemoteDir>Contents\Resources</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="OSX64">
<RemoteDir>Contents\Resources</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="OSXARM64">
<RemoteDir>Contents\Resources</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Required="true" Name="ProjectOutput">
<Platform Name="Android">
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>library\lib\arm64-v8a</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimARM64">
<Operation>1</Operation>
</Platform>
<Platform Name="Linux64">
<Operation>1</Operation>
</Platform>
<Platform Name="OSX32">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="OSX64">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="OSXARM64">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectOutput_Android32">
<Platform Name="Android64">
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectUWPManifest">
<Platform Name="Win32">
<Operation>1</Operation>
</Platform>
<Platform Name="Win64">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="UWP_DelphiLogo150">
<Platform Name="Win32">
<RemoteDir>Assets</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Win64">
<RemoteDir>Assets</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="UWP_DelphiLogo44">
<Platform Name="Win32">
<RemoteDir>Assets</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Win64">
<RemoteDir>Assets</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<ProjectRoot Platform="Android" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="Android64" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="iOSDevice32" Name="$(PROJECTNAME).app"/>
<ProjectRoot Platform="iOSDevice64" Name="$(PROJECTNAME).app"/>
<ProjectRoot Platform="iOSSimARM64" Name="$(PROJECTNAME).app"/>
<ProjectRoot Platform="Linux64" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="OSX32" Name="$(PROJECTNAME).app"/>
<ProjectRoot Platform="OSX64" Name="$(PROJECTNAME).app"/>
<ProjectRoot Platform="OSXARM64" Name="$(PROJECTNAME).app"/>
<ProjectRoot Platform="Win32" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="Win64" Name="$(PROJECTNAME)"/>
</Deployment>
<Platforms>
<Platform value="Win32">True</Platform>
<Platform value="Win64">False</Platform>
</Platforms>
</BorlandProject>
<ProjectFileVersion>12</ProjectFileVersion>
</ProjectExtensions>
<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
<Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
<Import Project="$(MSBuildProjectName).deployproj" Condition="Exists('$(MSBuildProjectName).deployproj')"/>
</Project>

79
Tocsg.Module/BrowserMon/DBrowserMonMain.dfm Normal file
View File

@ -0,0 +1,79 @@
object DlgBrowserMon: TDlgBrowserMon
Left = 0
Top = 0
Caption = 'BrowserMon'
ClientHeight = 441
ClientWidth = 624
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Segoe UI'
Font.Style = []
Position = poScreenCenter
TextHeight = 15
object pnTop: TPanel
Left = 0
Top = 0
Width = 624
Height = 65
Align = alTop
BevelOuter = bvNone
TabOrder = 0
DesignSize = (
624
65)
object Label1: TLabel
Left = 8
Top = 13
Width = 81
Height = 15
Caption = #54532#47196#49464#49828' '#51060#47492' :'
end
object Label2: TLabel
Left = 20
Top = 40
Width = 69
Height = 15
Caption = #50952#46020#50864' '#52897#49496' :'
end
object lbPName: TLabel
Left = 104
Top = 13
Width = 51
Height = 15
Caption = 'Unknown'
end
object lbWndCaption: TLabel
Left = 104
Top = 40
Width = 51
Height = 15
Caption = 'Unknown'
end
object btnFind: TButton
Left = 430
Top = 6
Width = 185
Height = 25
Anchors = [akTop, akRight]
Caption = #48652#46972#50864#51200' '#52286#44256' '#53581#49828#53944' '#52628#52636
TabOrder = 0
OnClick = btnFindClick
end
end
object mmText: TMemo
Left = 0
Top = 65
Width = 624
Height = 376
Align = alClient
ReadOnly = True
ScrollBars = ssBoth
TabOrder = 1
ExplicitLeft = 216
ExplicitTop = 200
ExplicitWidth = 185
ExplicitHeight = 89
end
end

157
Tocsg.Module/BrowserMon/DBrowserMonMain.pas Normal file
View File

@ -0,0 +1,157 @@
unit DBrowserMonMain;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, VirtualTrees, Vcl.ExtCtrls, Vcl.StdCtrls;
const
WEB_BROWSERS = 'iexplore.exe|msedge.exe|whale.exe|chrome.exe|firefox.exe|opera.exe|vivaldi.exe';
type
TDlgBrowserMon = class(TForm)
pnTop: TPanel;
btnFind: TButton;
Label1: TLabel;
Label2: TLabel;
lbPName: TLabel;
lbWndCaption: TLabel;
mmText: TMemo;
procedure btnFindClick(Sender: TObject);
private
{ Private declarations }
WebList_: TStringList;
procedure RefreshItems(hWebWnd: HWND);
public
{ Public declarations }
Constructor Create(aOwner: TComponent); override;
Destructor Destroy; override;
end;
var
DlgBrowserMon: TDlgBrowserMon;
implementation
uses
Tocsg.Strings, Tocsg.Exception, Tocsg.WndUtil, Tocsg.Process, Tocsg.MSAA,
Winapi.oleacc, Winapi.ActiveX;
{$R *.dfm}
Constructor TDlgBrowserMon.Create(aOwner: TComponent);
begin
Inherited Create(aOwner);
WebList_ := TStringList.Create;
WebList_.CaseSensitive := false;
SplitString(WEB_BROWSERS, '|', WebList_);
CoInitialize(nil);
end;
Destructor TDlgBrowserMon.Destroy;
begin
CoUninitialize;
FreeAndNil(WebList_);
Inherited;
end;
procedure TDlgBrowserMon.btnFindClick(Sender: TObject);
var
h, hc: HWND;
sCap, sPName: String;
llStyle: LONGLONG;
begin
try
h := FindWindow(nil, nil);
while h <> 0 do
begin
llStyle := GetWindowStyle(h);
if ((llStyle and WS_VISIBLE) <> 0) then
begin
sCap := GetWindowCaption(h);
if sCap <> '' then
begin
sPName := GetProcessNameFromWndHandle(h);
if (sPName <> '') and (WebList_.IndexOf(sPName) <> -1) then
begin
lbPName.Caption := sPName;
lbWndCaption.Caption := sCap;
// if (sPName = 'chrome.exe') or then
begin
hc := GetWndChildClass(h, 'Chrome_RenderWidgetHostHWND');
if hc = 0 then
hc := GetWndChildClass(h, 'Chrome_WidgetWin');
end;
// else
// hc := 0;
if hc <> 0 then
RefreshItems(hc)
else
RefreshItems(h);
Application.ProcessMessages;
exit;
end;
end;
end;
h := GetWindow(h, GW_HWNDNEXT);
end;
except
on E: Exception do
ETgException.TraceException(Self, E, 'Fail .. btnFindClick()');
end;
end;
procedure TDlgBrowserMon.RefreshItems(hWebWnd: HWND);
var
ProcEnumAccessible: TProcessEnumAccessible;
arrRoleStr: array [0..300] of Char;
begin
try
mmText.Clear;
if hWebWnd = 0 then
exit;
ProcEnumAccessible :=
procedure(aAccObj: IAccessible; varChild: OleVariant; h: HWND; nLevel: Integer; var bContinue: Boolean)
var
sName,
sRole: String;
begin
bContinue := true;
try
if Assigned(aAccObj) then
begin
sName := Trim(LowerCase(GetObjectName(aAccObj, varChild)));
sRole := '';
ZeroMemory(@arrRoleStr, SizeOf(arrRoleStr));
if GetObjectRoleString(aAccObj, varChild, @arrRoleStr) then
sRole := DeleteNullTail(String(@arrRoleStr));
if not VarIsNull(varChild) and
(sName <> '') and
(sRole = '텍스트') then
begin
mmText.Lines.Add(sName);
end;
end;
except
// ..
end;
end;
EnumAccessible(hWebWnd, ProcEnumAccessible);
except
on E: Exception do
ETgException.TraceException(E, 'Fail .. GetCurBrowserUrl()');
end;
end;
end.

14
Tocsg.Module/CDRomBlock/CDRomBlock.dpr Normal file
View File

@ -0,0 +1,14 @@
program CDRomBlock;
uses
Vcl.Forms,
DCdBlkMain in 'DCdBlkMain.pas' {DlgCdBlkMain};
{$R *.res}
begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(TDlgCdBlkMain, DlgCdBlkMain);
Application.Run;
end.

1005
Tocsg.Module/CDRomBlock/CDRomBlock.dproj Normal file
View File

File diff suppressed because it is too large Load Diff

BIN
Tocsg.Module/CDRomBlock/CDRomBlock_Icon.ico Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 31 KiB

51
Tocsg.Module/CDRomBlock/DCdBlkMain.dfm Normal file
View File

@ -0,0 +1,51 @@
object DlgCdBlkMain: TDlgCdBlkMain
Left = 0
Top = 0
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = 'CDRomBlock'
ClientHeight = 242
ClientWidth = 363
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Segoe UI'
Font.Style = []
Position = poScreenCenter
TextHeight = 15
object btnFindBlock: TButton
Left = 8
Top = 8
Width = 145
Height = 25
Caption = 'CDROM '#52286#50500#49436' '#52264#45800
TabOrder = 0
OnClick = btnFindBlockClick
end
object mmInfo: TMemo
Left = 9
Top = 39
Width = 345
Height = 194
ReadOnly = True
ScrollBars = ssVertical
TabOrder = 1
end
object edDrive: TEdit
Left = 209
Top = 10
Width = 65
Height = 23
TabOrder = 2
end
object btnGetType: TButton
Left = 280
Top = 8
Width = 75
Height = 25
Caption = 'GetType'
TabOrder = 3
OnClick = btnGetTypeClick
end
end

101
Tocsg.Module/CDRomBlock/DCdBlkMain.pas Normal file
View File

@ -0,0 +1,101 @@
unit DCdBlkMain;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Tocsg.Trace;
type
TDlgCdBlkMain = class(TForm)
btnFindBlock: TButton;
mmInfo: TMemo;
edDrive: TEdit;
btnGetType: TButton;
procedure btnFindBlockClick(Sender: TObject);
procedure btnGetTypeClick(Sender: TObject);
private
{ Private declarations }
Trace_: TTgTrace;
public
{ Public declarations }
Constructor Create(aOwner: TComponent); override;
Destructor Destroy; override;
end;
var
DlgCdBlkMain: TDlgCdBlkMain;
implementation
uses
Tocsg.Disk, Tocsg.Safe, Tocsg.Strings, Tocsg.Driver, Tocsg.Path;
{$R *.dfm}
Constructor TDlgCdBlkMain.Create(aOwner: TComponent);
begin
Inherited Create(aOwner);
DeleteFile(GetRunExePathDir + 'CDRomBlock.log');
Trace_ := TTgTrace.Create(GetRunExePathDir, 'CDRomBlock.log');
Trace_.Level := 99;
end;
Destructor TDlgCdBlkMain.Destroy;
begin
FreeAndNil(Trace_);
Inherited;
end;
procedure TDlgCdBlkMain.btnGetTypeClick(Sender: TObject);
begin
edDrive.Text := Trim(edDrive.Text);
if edDrive.Text = '' then
begin
MessageBox(Handle, PChar('드라이브를 입력해주십시오.'), PChar(Caption), MB_ICONWARNING or MB_OK);
exit;
end;
if not DirectoryExists(edDrive.Text) then
begin
MessageBox(Handle, PChar('존재하지 않는 드라이브 입니다.'), PChar(Caption), MB_ICONWARNING or MB_OK);
exit;
end;
ShowMessage(Format('DriveType=%d', [GetDriveType(PChar(edDrive.Text))]));
end;
procedure TDlgCdBlkMain.btnFindBlockClick(Sender: TObject);
var
DriveList: TStringList;
i: Integer;
sDrive,
sResult: String;
begin
Guard(DriveList, TStringList.Create);
SplitString(GetDrivesFromMask(GetLogicalDrives), ',', DriveList);
for i := 0 to DriveList.Count - 1 do
begin
sDrive := DriveList[i];
case GetDriveType(PChar(sDrive)) of
DRIVE_CDROM :
begin
mmInfo.Lines.Add('CDROM : ' + sDrive);
mmInfo.Lines.Add(Format('"%s" 차단 시도...', [sDrive]));
sResult := EjectDrive(sDrive, nil, false, true);
if sResult = FAIL_EJECT then
sResult := EjectDrive2(sDrive, nil, false, true);
if (sResult = FAIL_EJECT) or (GetDriveType(PChar(sDrive)) = DRIVE_CDROM) then
mmInfo.Lines.Add('차단을 실패했습니다...')
else
mmInfo.Lines.Add('차단 성공!! - ' + sResult);
exit;
end;
end;
end;
mmInfo.Lines.Add('CDROM을 발견하지 못했습니다.')
end;
end.

BIN
Tocsg.Module/CDRomBlock/Images/Images.zip Normal file
View File

Binary file not shown.

19
Tocsg.Module/COCrypto/COCrypto.dpr Normal file
View File

@ -0,0 +1,19 @@
program COCrypto;
uses
Vcl.Forms,
System.TypInfo,
DCoCryptoMain in 'DCoCryptoMain.pas' {DlgCoCryptoMain},
Tocsg.COLib in 'Tocsg.COLib.pas',
Tocsg.COLib.Encrypt in 'Tocsg.COLib.Encrypt.pas';
{$R *.res}
begin
ReportMemoryLeaksOnShutdown := DebugHook <> 0;
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(TDlgCoCryptoMain, DlgCoCryptoMain);
Application.Run;
end.

1014
Tocsg.Module/COCrypto/COCrypto.dproj Normal file
View File

File diff suppressed because it is too large Load Diff

Some files were not shown because too many files have changed in this diff Show More