Add 10.3.3 v26.0.36039.7899 Activator
This commit is contained in:
lsuper
parent
cbf91045d1
commit
e74bd45de5
GPG Key ID:
B130BB104C2CA3A9
183
10.3.3/Activator/Activator.bdsproj
Normal file
183
10.3.3/Activator/Activator.bdsproj
Normal file
@ -0,0 +1,183 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<BorlandProject>
|
||||||
|
<PersonalityInfo>
|
||||||
|
<Option>
|
||||||
|
<Option Name="Personality">Delphi.Personality</Option>
|
||||||
|
<Option Name="ProjectType">VCLApplication</Option>
|
||||||
|
<Option Name="Version">1.0</Option>
|
||||||
|
<Option Name="GUID">{5CDEFC4B-53B9-445E-9A4F-AE44E310FA07}</Option>
|
||||||
|
</Option>
|
||||||
|
</PersonalityInfo>
|
||||||
|
<Delphi.Personality>
|
||||||
|
<Source>
|
||||||
|
<Source Name="MainSource">Activator.dpr</Source>
|
||||||
|
</Source>
|
||||||
|
<FileVersion>
|
||||||
|
<FileVersion Name="Version">7.0</FileVersion>
|
||||||
|
</FileVersion>
|
||||||
|
<Compiler>
|
||||||
|
<Compiler Name="A">8</Compiler>
|
||||||
|
<Compiler Name="B">0</Compiler>
|
||||||
|
<Compiler Name="C">0</Compiler>
|
||||||
|
<Compiler Name="D">0</Compiler>
|
||||||
|
<Compiler Name="E">0</Compiler>
|
||||||
|
<Compiler Name="F">0</Compiler>
|
||||||
|
<Compiler Name="G">1</Compiler>
|
||||||
|
<Compiler Name="H">1</Compiler>
|
||||||
|
<Compiler Name="I">1</Compiler>
|
||||||
|
<Compiler Name="J">1</Compiler>
|
||||||
|
<Compiler Name="K">0</Compiler>
|
||||||
|
<Compiler Name="L">0</Compiler>
|
||||||
|
<Compiler Name="M">0</Compiler>
|
||||||
|
<Compiler Name="N">1</Compiler>
|
||||||
|
<Compiler Name="O">1</Compiler>
|
||||||
|
<Compiler Name="P">1</Compiler>
|
||||||
|
<Compiler Name="Q">0</Compiler>
|
||||||
|
<Compiler Name="R">0</Compiler>
|
||||||
|
<Compiler Name="S">0</Compiler>
|
||||||
|
<Compiler Name="T">0</Compiler>
|
||||||
|
<Compiler Name="U">0</Compiler>
|
||||||
|
<Compiler Name="V">1</Compiler>
|
||||||
|
<Compiler Name="W">0</Compiler>
|
||||||
|
<Compiler Name="X">1</Compiler>
|
||||||
|
<Compiler Name="Y">0</Compiler>
|
||||||
|
<Compiler Name="Z">1</Compiler>
|
||||||
|
<Compiler Name="ShowHints">True</Compiler>
|
||||||
|
<Compiler Name="ShowWarnings">True</Compiler>
|
||||||
|
<Compiler Name="UnitAliases">Classes=;mirror=</Compiler>
|
||||||
|
<Compiler Name="NamespacePrefix"></Compiler>
|
||||||
|
<Compiler Name="GenerateDocumentation">False</Compiler>
|
||||||
|
<Compiler Name="DefaultNamespace"></Compiler>
|
||||||
|
<Compiler Name="SymbolDeprecated">False</Compiler>
|
||||||
|
<Compiler Name="SymbolLibrary">True</Compiler>
|
||||||
|
<Compiler Name="SymbolPlatform">False</Compiler>
|
||||||
|
<Compiler Name="SymbolExperimental">True</Compiler>
|
||||||
|
<Compiler Name="UnitLibrary">True</Compiler>
|
||||||
|
<Compiler Name="UnitPlatform">False</Compiler>
|
||||||
|
<Compiler Name="UnitDeprecated">True</Compiler>
|
||||||
|
<Compiler Name="UnitExperimental">True</Compiler>
|
||||||
|
<Compiler Name="HResultCompat">True</Compiler>
|
||||||
|
<Compiler Name="HidingMember">True</Compiler>
|
||||||
|
<Compiler Name="HiddenVirtual">True</Compiler>
|
||||||
|
<Compiler Name="Garbage">True</Compiler>
|
||||||
|
<Compiler Name="BoundsError">True</Compiler>
|
||||||
|
<Compiler Name="ZeroNilCompat">True</Compiler>
|
||||||
|
<Compiler Name="StringConstTruncated">True</Compiler>
|
||||||
|
<Compiler Name="ForLoopVarVarPar">True</Compiler>
|
||||||
|
<Compiler Name="TypedConstVarPar">True</Compiler>
|
||||||
|
<Compiler Name="AsgToTypedConst">True</Compiler>
|
||||||
|
<Compiler Name="CaseLabelRange">True</Compiler>
|
||||||
|
<Compiler Name="ForVariable">True</Compiler>
|
||||||
|
<Compiler Name="ConstructingAbstract">True</Compiler>
|
||||||
|
<Compiler Name="ComparisonFalse">True</Compiler>
|
||||||
|
<Compiler Name="ComparisonTrue">True</Compiler>
|
||||||
|
<Compiler Name="ComparingSignedUnsigned">True</Compiler>
|
||||||
|
<Compiler Name="CombiningSignedUnsigned">True</Compiler>
|
||||||
|
<Compiler Name="UnsupportedConstruct">True</Compiler>
|
||||||
|
<Compiler Name="FileOpen">True</Compiler>
|
||||||
|
<Compiler Name="FileOpenUnitSrc">True</Compiler>
|
||||||
|
<Compiler Name="BadGlobalSymbol">True</Compiler>
|
||||||
|
<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
|
||||||
|
<Compiler Name="InvalidDirective">True</Compiler>
|
||||||
|
<Compiler Name="PackageNoLink">True</Compiler>
|
||||||
|
<Compiler Name="PackageThreadVar">True</Compiler>
|
||||||
|
<Compiler Name="ImplicitImport">True</Compiler>
|
||||||
|
<Compiler Name="HPPEMITIgnored">True</Compiler>
|
||||||
|
<Compiler Name="NoRetVal">True</Compiler>
|
||||||
|
<Compiler Name="UseBeforeDef">True</Compiler>
|
||||||
|
<Compiler Name="ForLoopVarUndef">True</Compiler>
|
||||||
|
<Compiler Name="UnitNameMismatch">True</Compiler>
|
||||||
|
<Compiler Name="NoCFGFileFound">True</Compiler>
|
||||||
|
<Compiler Name="ImplicitVariants">True</Compiler>
|
||||||
|
<Compiler Name="UnicodeToLocale">True</Compiler>
|
||||||
|
<Compiler Name="LocaleToUnicode">True</Compiler>
|
||||||
|
<Compiler Name="ImagebaseMultiple">True</Compiler>
|
||||||
|
<Compiler Name="SuspiciousTypecast">True</Compiler>
|
||||||
|
<Compiler Name="PrivatePropAccessor">True</Compiler>
|
||||||
|
<Compiler Name="UnsafeType">False</Compiler>
|
||||||
|
<Compiler Name="UnsafeCode">False</Compiler>
|
||||||
|
<Compiler Name="UnsafeCast">False</Compiler>
|
||||||
|
<Compiler Name="OptionTruncated">True</Compiler>
|
||||||
|
<Compiler Name="WideCharReduced">True</Compiler>
|
||||||
|
<Compiler Name="DuplicatesIgnored">True</Compiler>
|
||||||
|
<Compiler Name="UnitInitSeq">True</Compiler>
|
||||||
|
<Compiler Name="LocalPInvoke">True</Compiler>
|
||||||
|
<Compiler Name="MessageDirective">True</Compiler>
|
||||||
|
<Compiler Name="TypeInfoImplicitlyAdded">True</Compiler>
|
||||||
|
<Compiler Name="XMLWhitespaceNotAllowed">True</Compiler>
|
||||||
|
<Compiler Name="XMLUnknownEntity">True</Compiler>
|
||||||
|
<Compiler Name="XMLInvalidNameStart">True</Compiler>
|
||||||
|
<Compiler Name="XMLInvalidName">True</Compiler>
|
||||||
|
<Compiler Name="XMLExpectedCharacter">True</Compiler>
|
||||||
|
<Compiler Name="XMLCRefNoResolve">True</Compiler>
|
||||||
|
<Compiler Name="XMLNoParm">True</Compiler>
|
||||||
|
<Compiler Name="XMLNoMatchingParm">True</Compiler>
|
||||||
|
<Compiler Name="CodePage"></Compiler>
|
||||||
|
</Compiler>
|
||||||
|
<Linker>
|
||||||
|
<Linker Name="MapFile">0</Linker>
|
||||||
|
<Linker Name="OutputObjs">0</Linker>
|
||||||
|
<Linker Name="GenerateHpps">False</Linker>
|
||||||
|
<Linker Name="ConsoleApp">1</Linker>
|
||||||
|
<Linker Name="DebugInfo">False</Linker>
|
||||||
|
<Linker Name="RemoteSymbols">False</Linker>
|
||||||
|
<Linker Name="GenerateDRC">False</Linker>
|
||||||
|
<Linker Name="MinStackSize">16384</Linker>
|
||||||
|
<Linker Name="MaxStackSize">1048576</Linker>
|
||||||
|
<Linker Name="ImageBase">4194304</Linker>
|
||||||
|
<Linker Name="ExeDescription"></Linker>
|
||||||
|
</Linker>
|
||||||
|
<Directories>
|
||||||
|
<Directories Name="OutputDir">..\Release</Directories>
|
||||||
|
<Directories Name="UnitOutputDir">..\Dcu</Directories>
|
||||||
|
<Directories Name="PackageDLLOutputDir"></Directories>
|
||||||
|
<Directories Name="PackageDCPOutputDir"></Directories>
|
||||||
|
<Directories Name="SearchPath">..\KOL</Directories>
|
||||||
|
<Directories Name="Packages">vcl;rtl</Directories>
|
||||||
|
<Directories Name="Conditionals">KOL_MCK;NOT_USE_RICHEDIT;USE_MHTOOLTIP;xDEBUGMODE</Directories>
|
||||||
|
<Directories Name="DebugSourceDirs"></Directories>
|
||||||
|
<Directories Name="UsePackages">False</Directories>
|
||||||
|
</Directories>
|
||||||
|
<Parameters>
|
||||||
|
<Parameters Name="RunParams"></Parameters>
|
||||||
|
<Parameters Name="HostApplication"></Parameters>
|
||||||
|
<Parameters Name="Launcher"></Parameters>
|
||||||
|
<Parameters Name="UseLauncher">False</Parameters>
|
||||||
|
<Parameters Name="DebugCWD"></Parameters>
|
||||||
|
<Parameters Name="Debug Symbols Search Path"></Parameters>
|
||||||
|
<Parameters Name="LoadAllSymbols">True</Parameters>
|
||||||
|
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
|
||||||
|
</Parameters>
|
||||||
|
<Signing>
|
||||||
|
<Signing Name="SignAssembly">False</Signing>
|
||||||
|
</Signing>
|
||||||
|
<VersionInfo>
|
||||||
|
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
|
||||||
|
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
||||||
|
<VersionInfo Name="MajorVer">26</VersionInfo>
|
||||||
|
<VersionInfo Name="MinorVer">0</VersionInfo>
|
||||||
|
<VersionInfo Name="Release">36039</VersionInfo>
|
||||||
|
<VersionInfo Name="Build">7899</VersionInfo>
|
||||||
|
<VersionInfo Name="Debug">False</VersionInfo>
|
||||||
|
<VersionInfo Name="PreRelease">False</VersionInfo>
|
||||||
|
<VersionInfo Name="Special">False</VersionInfo>
|
||||||
|
<VersionInfo Name="Private">False</VersionInfo>
|
||||||
|
<VersionInfo Name="DLL">False</VersionInfo>
|
||||||
|
<VersionInfo Name="Locale">1033</VersionInfo>
|
||||||
|
<VersionInfo Name="CodePage">1252</VersionInfo>
|
||||||
|
</VersionInfo>
|
||||||
|
<VersionInfoKeys>
|
||||||
|
<VersionInfoKeys Name="CompanyName">Lsuper</VersionInfoKeys>
|
||||||
|
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
|
||||||
|
<VersionInfoKeys Name="FileVersion">26.0.36039.7899</VersionInfoKeys>
|
||||||
|
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
|
||||||
|
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
|
||||||
|
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
|
||||||
|
<VersionInfoKeys Name="OriginalFilename">Activator.exe</VersionInfoKeys>
|
||||||
|
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
|
||||||
|
<VersionInfoKeys Name="ProductVersion">26.0</VersionInfoKeys>
|
||||||
|
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
|
||||||
|
</VersionInfoKeys>
|
||||||
|
<buildevents/>
|
||||||
|
</Delphi.Personality>
|
||||||
|
</BorlandProject>
|
||||||
32
10.3.3/Activator/Activator.dpr
Normal file
32
10.3.3/Activator/Activator.dpr
Normal file
@ -0,0 +1,32 @@
|
|||||||
|
{ KOL MCK } // Do not remove this line!
|
||||||
|
program Activator;
|
||||||
|
|
||||||
|
uses
|
||||||
|
KOL,
|
||||||
|
FileUtils in 'FileUtils.pas',
|
||||||
|
PatchData in 'PatchData.pas',
|
||||||
|
WinUtils in 'WinUtils.pas',
|
||||||
|
|
||||||
|
AnsiStrings in '..\Keygen\AnsiStrings.pas',
|
||||||
|
FGInt in '..\Keygen\FGInt.pas',
|
||||||
|
RadKeygen in '..\Keygen\RadKeygen.pas',
|
||||||
|
RadLicense in '..\Keygen\RadLicense.pas',
|
||||||
|
RadVersion in '..\Keygen\RadVersion.pas',
|
||||||
|
Sha1 in '..\Keygen\Sha1.pas',
|
||||||
|
|
||||||
|
MainFrm in 'MainFrm.pas' {MainForm};
|
||||||
|
|
||||||
|
{$R *.res}
|
||||||
|
|
||||||
|
begin // PROGRAM START HERE -- Please do not remove this comment
|
||||||
|
|
||||||
|
{$IF Defined(KOL_MCK)} {$I Activator_0.inc} {$ELSE}
|
||||||
|
|
||||||
|
Application.Initialize;
|
||||||
|
Application.MainFormOnTaskbar := True;
|
||||||
|
Application.CreateForm(TMainForm, MainForm);
|
||||||
|
Application.Run;
|
||||||
|
|
||||||
|
{$IFEND}
|
||||||
|
|
||||||
|
end.
|
||||||
BIN
10.3.3/Activator/Activator.res
Normal file
BIN
10.3.3/Activator/Activator.res
Normal file
Binary file not shown.
20
10.3.3/Activator/Activator_0.inc
Normal file
20
10.3.3/Activator/Activator_0.inc
Normal file
@ -0,0 +1,20 @@
|
|||||||
|
{ KOL MCK } // Do not remove this line!
|
||||||
|
{ Activator_0.inc
|
||||||
|
Do not edit this file manually - it is generated automatically.
|
||||||
|
You can only modify Activator_1.inc and Activator_3.inc
|
||||||
|
files. }
|
||||||
|
|
||||||
|
{$IFDEF Pcode}
|
||||||
|
InstallCollapse;
|
||||||
|
{$ENDIF Pcode}
|
||||||
|
NewMainForm( MainForm, nil );
|
||||||
|
{$I Activator_1.inc}
|
||||||
|
|
||||||
|
{$I Activator_2.inc}
|
||||||
|
|
||||||
|
{$I Activator_3.inc}
|
||||||
|
|
||||||
|
Run( MainForm.Form );
|
||||||
|
|
||||||
|
{$I Activator_4.inc}
|
||||||
|
|
||||||
9
10.3.3/Activator/Activator_1.inc
Normal file
9
10.3.3/Activator/Activator_1.inc
Normal file
@ -0,0 +1,9 @@
|
|||||||
|
{ Activator_1.inc
|
||||||
|
This file is for you. Place here any code to run it
|
||||||
|
just following Applet creation (if it present) but
|
||||||
|
before creating other forms. E.g., You can place here
|
||||||
|
<IF> statement, which prevents running of application
|
||||||
|
in some cases. TIP: always use Applet for such checks
|
||||||
|
and make it invisible until final decision if to run
|
||||||
|
application or not. }
|
||||||
|
|
||||||
4
10.3.3/Activator/Activator_2.inc
Normal file
4
10.3.3/Activator/Activator_2.inc
Normal file
@ -0,0 +1,4 @@
|
|||||||
|
{ KOL MCK } // Do not remove this line!
|
||||||
|
{ Activator_2.inc
|
||||||
|
Do not modify this file manually - it is generated automatically. }
|
||||||
|
|
||||||
4
10.3.3/Activator/Activator_3.inc
Normal file
4
10.3.3/Activator/Activator_3.inc
Normal file
@ -0,0 +1,4 @@
|
|||||||
|
{ Activator_3.inc
|
||||||
|
This file is for you. Place here any code to run it
|
||||||
|
after forms creating, but before Run call, if necessary. }
|
||||||
|
|
||||||
4
10.3.3/Activator/Activator_4.inc
Normal file
4
10.3.3/Activator/Activator_4.inc
Normal file
@ -0,0 +1,4 @@
|
|||||||
|
{ Activator_4.inc
|
||||||
|
This file is for you. Place here any code to be inserted
|
||||||
|
after Run call, if necessary. }
|
||||||
|
|
||||||
BIN
10.3.3/Activator/Admin.res
Normal file
BIN
10.3.3/Activator/Admin.res
Normal file
Binary file not shown.
65
10.3.3/Activator/FileUtils.pas
Normal file
65
10.3.3/Activator/FileUtils.pas
Normal file
@ -0,0 +1,65 @@
|
|||||||
|
{ *********************************************************************** }
|
||||||
|
{ }
|
||||||
|
{ 工具单元 }
|
||||||
|
{ }
|
||||||
|
{ 设计：Lsuper 2013.02.16 }
|
||||||
|
{ 备注： }
|
||||||
|
{ 审核： }
|
||||||
|
{ }
|
||||||
|
{ Copyright (c) 1998-2014 Super Studio }
|
||||||
|
{ }
|
||||||
|
{ *********************************************************************** }
|
||||||
|
|
||||||
|
unit FileUtils;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
SysUtils, Classes;
|
||||||
|
|
||||||
|
function LoadDataFromFile(const AFile: string): AnsiString;
|
||||||
|
procedure SaveDataToFile(const AFile: string; const ABuffer; ASize: Integer);
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses
|
||||||
|
Windows;
|
||||||
|
|
||||||
|
////////////////////////////////////////////////////////////////////////////////
|
||||||
|
//设计：Lsuper 2010.01.19
|
||||||
|
//功能：加载文件内容
|
||||||
|
//参数：
|
||||||
|
////////////////////////////////////////////////////////////////////////////////
|
||||||
|
function LoadDataFromFile(const AFile: string): AnsiString;
|
||||||
|
begin
|
||||||
|
with TFileStream.Create(AFile, fmOpenRead or fmShareDenyWrite) do
|
||||||
|
try
|
||||||
|
SetLength(Result, Size);
|
||||||
|
ReadBuffer(PAnsiChar(Result)^, Size);
|
||||||
|
finally
|
||||||
|
Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
////////////////////////////////////////////////////////////////////////////////
|
||||||
|
//设计：Lsuper 2010.01.19
|
||||||
|
//功能：保存文件内容
|
||||||
|
//参数：
|
||||||
|
////////////////////////////////////////////////////////////////////////////////
|
||||||
|
procedure SaveDataToFile(const AFile: string; const ABuffer;
|
||||||
|
ASize: Integer);
|
||||||
|
var
|
||||||
|
F: string;
|
||||||
|
begin
|
||||||
|
F := ExtractFileDir(AFile);
|
||||||
|
ForceDirectories(F);
|
||||||
|
with TFileStream.Create(AFile, fmCreate or fmShareDenyWrite) do
|
||||||
|
try
|
||||||
|
Position := 0;
|
||||||
|
WriteBuffer(ABuffer, ASize);
|
||||||
|
finally
|
||||||
|
Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
425
10.3.3/Activator/MainFrm.dfm
Normal file
425
10.3.3/Activator/MainFrm.dfm
Normal file
@ -0,0 +1,425 @@
|
|||||||
|
object MainForm: TMainForm
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
HorzScrollBar.Visible = False
|
||||||
|
VertScrollBar.Visible = False
|
||||||
|
Caption = 'Delphi 10.3.3 Activator'
|
||||||
|
ClientHeight = 122
|
||||||
|
ClientWidth = 534
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
OldCreateOrder = True
|
||||||
|
Scaled = False
|
||||||
|
PixelsPerInch = 96
|
||||||
|
TextHeight = 13
|
||||||
|
object btnExit: TKOLButton
|
||||||
|
Tag = 0
|
||||||
|
Left = 428
|
||||||
|
Top = 16
|
||||||
|
Width = 90
|
||||||
|
Height = 90
|
||||||
|
Hint = 'Exit'
|
||||||
|
HelpType = htKeyword
|
||||||
|
HelpContext = 0
|
||||||
|
IgnoreDefault = True
|
||||||
|
AnchorLeft = False
|
||||||
|
AnchorTop = False
|
||||||
|
AnchorRight = False
|
||||||
|
AnchorBottom = False
|
||||||
|
AcceptChildren = False
|
||||||
|
MouseTransparent = False
|
||||||
|
TabOrder = 2
|
||||||
|
MinWidth = 0
|
||||||
|
MinHeight = 0
|
||||||
|
MaxWidth = 0
|
||||||
|
MaxHeight = 0
|
||||||
|
PlaceDown = False
|
||||||
|
PlaceRight = False
|
||||||
|
PlaceUnder = False
|
||||||
|
Visible = True
|
||||||
|
Enabled = True
|
||||||
|
DoubleBuffered = False
|
||||||
|
Align = caNone
|
||||||
|
CenterOnParent = False
|
||||||
|
Caption = '&Exit'
|
||||||
|
Ctl3D = True
|
||||||
|
Color = clBtnFace
|
||||||
|
parentColor = False
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.FontStyle = []
|
||||||
|
Font.FontHeight = 0
|
||||||
|
Font.FontWidth = 0
|
||||||
|
Font.FontWeight = 0
|
||||||
|
Font.FontName = 'System'
|
||||||
|
Font.FontOrientation = 0
|
||||||
|
Font.FontCharset = 1
|
||||||
|
Font.FontPitch = fpDefault
|
||||||
|
Font.FontQuality = fqDefault
|
||||||
|
parentFont = True
|
||||||
|
OnClick = btnExitClick
|
||||||
|
EraseBackground = False
|
||||||
|
Localizy = loForm
|
||||||
|
Border = 2
|
||||||
|
TextAlign = taCenter
|
||||||
|
VerticalAlign = vaCenter
|
||||||
|
TabStop = True
|
||||||
|
autoSize = False
|
||||||
|
DefaultBtn = False
|
||||||
|
CancelBtn = False
|
||||||
|
windowed = True
|
||||||
|
Flat = False
|
||||||
|
WordWrap = False
|
||||||
|
LikeSpeedButton = False
|
||||||
|
end
|
||||||
|
object btnAbout: TKOLButton
|
||||||
|
Tag = 0
|
||||||
|
Left = 325
|
||||||
|
Top = 16
|
||||||
|
Width = 90
|
||||||
|
Height = 90
|
||||||
|
Hint = 'About'
|
||||||
|
HelpType = htKeyword
|
||||||
|
HelpContext = 0
|
||||||
|
IgnoreDefault = True
|
||||||
|
AnchorLeft = False
|
||||||
|
AnchorTop = False
|
||||||
|
AnchorRight = False
|
||||||
|
AnchorBottom = False
|
||||||
|
AcceptChildren = False
|
||||||
|
MouseTransparent = False
|
||||||
|
TabOrder = 0
|
||||||
|
MinWidth = 0
|
||||||
|
MinHeight = 0
|
||||||
|
MaxWidth = 0
|
||||||
|
MaxHeight = 0
|
||||||
|
PlaceDown = False
|
||||||
|
PlaceRight = False
|
||||||
|
PlaceUnder = False
|
||||||
|
Visible = True
|
||||||
|
Enabled = True
|
||||||
|
DoubleBuffered = False
|
||||||
|
Align = caNone
|
||||||
|
CenterOnParent = False
|
||||||
|
Caption = '&About'
|
||||||
|
Ctl3D = True
|
||||||
|
Color = clBtnFace
|
||||||
|
parentColor = False
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.FontStyle = []
|
||||||
|
Font.FontHeight = 0
|
||||||
|
Font.FontWidth = 0
|
||||||
|
Font.FontWeight = 0
|
||||||
|
Font.FontName = 'System'
|
||||||
|
Font.FontOrientation = 0
|
||||||
|
Font.FontCharset = 1
|
||||||
|
Font.FontPitch = fpDefault
|
||||||
|
Font.FontQuality = fqDefault
|
||||||
|
parentFont = True
|
||||||
|
OnClick = btnAboutClick
|
||||||
|
EraseBackground = False
|
||||||
|
Localizy = loForm
|
||||||
|
Border = 2
|
||||||
|
TextAlign = taCenter
|
||||||
|
VerticalAlign = vaCenter
|
||||||
|
TabStop = True
|
||||||
|
autoSize = False
|
||||||
|
DefaultBtn = False
|
||||||
|
CancelBtn = False
|
||||||
|
windowed = True
|
||||||
|
Flat = False
|
||||||
|
WordWrap = False
|
||||||
|
LikeSpeedButton = False
|
||||||
|
end
|
||||||
|
object btnReset: TKOLButton
|
||||||
|
Tag = 0
|
||||||
|
Left = 222
|
||||||
|
Top = 16
|
||||||
|
Width = 90
|
||||||
|
Height = 90
|
||||||
|
Hint = 'Reset Delphi 10.3.2'
|
||||||
|
HelpType = htKeyword
|
||||||
|
HelpContext = 0
|
||||||
|
IgnoreDefault = True
|
||||||
|
AnchorLeft = False
|
||||||
|
AnchorTop = False
|
||||||
|
AnchorRight = False
|
||||||
|
AnchorBottom = False
|
||||||
|
AcceptChildren = False
|
||||||
|
MouseTransparent = False
|
||||||
|
TabOrder = 1
|
||||||
|
MinWidth = 0
|
||||||
|
MinHeight = 0
|
||||||
|
MaxWidth = 0
|
||||||
|
MaxHeight = 0
|
||||||
|
PlaceDown = False
|
||||||
|
PlaceRight = False
|
||||||
|
PlaceUnder = False
|
||||||
|
Visible = True
|
||||||
|
Enabled = True
|
||||||
|
DoubleBuffered = False
|
||||||
|
Align = caNone
|
||||||
|
CenterOnParent = False
|
||||||
|
Caption = 'Re&set'
|
||||||
|
Ctl3D = True
|
||||||
|
Color = clBtnFace
|
||||||
|
parentColor = False
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.FontStyle = []
|
||||||
|
Font.FontHeight = 0
|
||||||
|
Font.FontWidth = 0
|
||||||
|
Font.FontWeight = 0
|
||||||
|
Font.FontName = 'System'
|
||||||
|
Font.FontOrientation = 0
|
||||||
|
Font.FontCharset = 1
|
||||||
|
Font.FontPitch = fpDefault
|
||||||
|
Font.FontQuality = fqDefault
|
||||||
|
parentFont = True
|
||||||
|
OnClick = btnResetClick
|
||||||
|
EraseBackground = False
|
||||||
|
Localizy = loForm
|
||||||
|
Border = 2
|
||||||
|
TextAlign = taCenter
|
||||||
|
VerticalAlign = vaCenter
|
||||||
|
TabStop = True
|
||||||
|
autoSize = False
|
||||||
|
DefaultBtn = False
|
||||||
|
CancelBtn = False
|
||||||
|
windowed = True
|
||||||
|
Flat = False
|
||||||
|
WordWrap = False
|
||||||
|
LikeSpeedButton = False
|
||||||
|
end
|
||||||
|
object btnRunBds: TKOLButton
|
||||||
|
Tag = 0
|
||||||
|
Left = 119
|
||||||
|
Top = 16
|
||||||
|
Width = 90
|
||||||
|
Height = 90
|
||||||
|
Hint = 'Run Delphi 10.3.2'
|
||||||
|
HelpType = htKeyword
|
||||||
|
HelpContext = 0
|
||||||
|
IgnoreDefault = True
|
||||||
|
AnchorLeft = False
|
||||||
|
AnchorTop = False
|
||||||
|
AnchorRight = False
|
||||||
|
AnchorBottom = False
|
||||||
|
AcceptChildren = False
|
||||||
|
MouseTransparent = False
|
||||||
|
TabOrder = 3
|
||||||
|
MinWidth = 0
|
||||||
|
MinHeight = 0
|
||||||
|
MaxWidth = 0
|
||||||
|
MaxHeight = 0
|
||||||
|
PlaceDown = False
|
||||||
|
PlaceRight = False
|
||||||
|
PlaceUnder = False
|
||||||
|
Visible = True
|
||||||
|
Enabled = True
|
||||||
|
DoubleBuffered = False
|
||||||
|
Align = caNone
|
||||||
|
CenterOnParent = False
|
||||||
|
Caption = '&Run'
|
||||||
|
Ctl3D = True
|
||||||
|
Color = clBtnFace
|
||||||
|
parentColor = False
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.FontStyle = []
|
||||||
|
Font.FontHeight = 0
|
||||||
|
Font.FontWidth = 0
|
||||||
|
Font.FontWeight = 0
|
||||||
|
Font.FontName = 'System'
|
||||||
|
Font.FontOrientation = 0
|
||||||
|
Font.FontCharset = 1
|
||||||
|
Font.FontPitch = fpDefault
|
||||||
|
Font.FontQuality = fqDefault
|
||||||
|
parentFont = True
|
||||||
|
OnClick = btnRunBdsClick
|
||||||
|
EraseBackground = False
|
||||||
|
Localizy = loForm
|
||||||
|
Border = 2
|
||||||
|
TextAlign = taCenter
|
||||||
|
VerticalAlign = vaCenter
|
||||||
|
TabStop = True
|
||||||
|
autoSize = False
|
||||||
|
DefaultBtn = False
|
||||||
|
CancelBtn = False
|
||||||
|
windowed = True
|
||||||
|
Flat = False
|
||||||
|
WordWrap = False
|
||||||
|
LikeSpeedButton = False
|
||||||
|
end
|
||||||
|
object btnActive: TKOLButton
|
||||||
|
Tag = 0
|
||||||
|
Left = 16
|
||||||
|
Top = 16
|
||||||
|
Width = 90
|
||||||
|
Height = 90
|
||||||
|
Hint = 'Active Delphi 10.3.2'
|
||||||
|
HelpType = htKeyword
|
||||||
|
HelpContext = 0
|
||||||
|
IgnoreDefault = True
|
||||||
|
AnchorLeft = False
|
||||||
|
AnchorTop = False
|
||||||
|
AnchorRight = False
|
||||||
|
AnchorBottom = False
|
||||||
|
AcceptChildren = False
|
||||||
|
MouseTransparent = False
|
||||||
|
TabOrder = 4
|
||||||
|
MinWidth = 0
|
||||||
|
MinHeight = 0
|
||||||
|
MaxWidth = 0
|
||||||
|
MaxHeight = 0
|
||||||
|
PlaceDown = False
|
||||||
|
PlaceRight = False
|
||||||
|
PlaceUnder = False
|
||||||
|
Visible = True
|
||||||
|
Enabled = True
|
||||||
|
DoubleBuffered = False
|
||||||
|
Align = caNone
|
||||||
|
CenterOnParent = False
|
||||||
|
Caption = '&Active'
|
||||||
|
Ctl3D = True
|
||||||
|
Color = clBtnFace
|
||||||
|
parentColor = False
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.FontStyle = []
|
||||||
|
Font.FontHeight = 0
|
||||||
|
Font.FontWidth = 0
|
||||||
|
Font.FontWeight = 0
|
||||||
|
Font.FontName = 'System'
|
||||||
|
Font.FontOrientation = 0
|
||||||
|
Font.FontCharset = 1
|
||||||
|
Font.FontPitch = fpDefault
|
||||||
|
Font.FontQuality = fqDefault
|
||||||
|
parentFont = True
|
||||||
|
OnClick = btnActiveClick
|
||||||
|
EraseBackground = False
|
||||||
|
Localizy = loForm
|
||||||
|
Border = 2
|
||||||
|
TextAlign = taCenter
|
||||||
|
VerticalAlign = vaCenter
|
||||||
|
TabStop = True
|
||||||
|
autoSize = False
|
||||||
|
DefaultBtn = False
|
||||||
|
CancelBtn = False
|
||||||
|
windowed = True
|
||||||
|
Flat = False
|
||||||
|
WordWrap = False
|
||||||
|
LikeSpeedButton = False
|
||||||
|
end
|
||||||
|
object kolActivator: TKOLProject
|
||||||
|
Locked = False
|
||||||
|
Localizy = False
|
||||||
|
projectName = 'Activator'
|
||||||
|
projectDest = 'Activator'
|
||||||
|
sourcePath = 'F:\LITE\D10.3\15.3\Crack\Activator\'
|
||||||
|
outdcuPath = '0"..\Dcu\'
|
||||||
|
dprResource = True
|
||||||
|
protectFiles = True
|
||||||
|
showReport = False
|
||||||
|
isKOLProject = True
|
||||||
|
autoBuild = True
|
||||||
|
autoBuildDelay = 500
|
||||||
|
BUILD = False
|
||||||
|
consoleOut = False
|
||||||
|
SupportAnsiMnemonics = 0
|
||||||
|
PaintType = ptWYSIWIG
|
||||||
|
ShowHint = True
|
||||||
|
ReportDetailed = False
|
||||||
|
GeneratePCode = False
|
||||||
|
NewIF = True
|
||||||
|
DefaultFont.Color = clWindowText
|
||||||
|
DefaultFont.FontStyle = []
|
||||||
|
DefaultFont.FontHeight = 0
|
||||||
|
DefaultFont.FontWidth = 0
|
||||||
|
DefaultFont.FontWeight = 0
|
||||||
|
DefaultFont.FontName = 'System'
|
||||||
|
DefaultFont.FontOrientation = 0
|
||||||
|
DefaultFont.FontCharset = 1
|
||||||
|
DefaultFont.FontPitch = fpDefault
|
||||||
|
DefaultFont.FontQuality = fqDefault
|
||||||
|
FormCompactDisabled = False
|
||||||
|
Left = 32
|
||||||
|
Top = 8
|
||||||
|
end
|
||||||
|
object kolMainForm: TKOLForm
|
||||||
|
Tag = 0
|
||||||
|
ForceIcon16x16 = False
|
||||||
|
Caption = 'Delphi 10.3.3 Activator'
|
||||||
|
Visible = True
|
||||||
|
OnMessage = kolMainFormMessage
|
||||||
|
OnDestroy = kolMainFormDestroy
|
||||||
|
AllBtnReturnClick = False
|
||||||
|
Tabulate = False
|
||||||
|
TabulateEx = False
|
||||||
|
UnitSourcePath = 'F:\LITE\D10.3\15.3\Crack\Activator\'
|
||||||
|
Locked = False
|
||||||
|
formUnit = 'MainFrm'
|
||||||
|
formMain = True
|
||||||
|
Enabled = True
|
||||||
|
defaultSize = False
|
||||||
|
defaultPosition = False
|
||||||
|
MinWidth = 0
|
||||||
|
MinHeight = 0
|
||||||
|
MaxWidth = 0
|
||||||
|
MaxHeight = 0
|
||||||
|
HasBorder = True
|
||||||
|
HasCaption = True
|
||||||
|
StayOnTop = False
|
||||||
|
CanResize = False
|
||||||
|
CenterOnScreen = True
|
||||||
|
Ctl3D = True
|
||||||
|
WindowState = wsNormal
|
||||||
|
minimizeIcon = False
|
||||||
|
maximizeIcon = False
|
||||||
|
closeIcon = True
|
||||||
|
helpContextIcon = False
|
||||||
|
borderStyle = fbsSingle
|
||||||
|
HelpContext = 0
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.FontStyle = []
|
||||||
|
Font.FontHeight = 0
|
||||||
|
Font.FontWidth = 0
|
||||||
|
Font.FontWeight = 0
|
||||||
|
Font.FontName = 'System'
|
||||||
|
Font.FontOrientation = 0
|
||||||
|
Font.FontCharset = 1
|
||||||
|
Font.FontPitch = fpDefault
|
||||||
|
Font.FontQuality = fqDefault
|
||||||
|
FontDefault = True
|
||||||
|
Brush.Color = clBtnFace
|
||||||
|
Brush.BrushStyle = bsSolid
|
||||||
|
DoubleBuffered = False
|
||||||
|
PreventResizeFlicks = False
|
||||||
|
Transparent = False
|
||||||
|
AlphaBlend = 255
|
||||||
|
Border = 2
|
||||||
|
MarginLeft = 0
|
||||||
|
MarginRight = 0
|
||||||
|
MarginTop = 0
|
||||||
|
MarginBottom = 0
|
||||||
|
MinimizeNormalAnimated = False
|
||||||
|
RestoreNormalMaximized = False
|
||||||
|
zOrderChildren = False
|
||||||
|
statusSizeGrip = True
|
||||||
|
Localizy = False
|
||||||
|
ShowHint = True
|
||||||
|
KeyPreview = False
|
||||||
|
OnShow = kolMainFormShow
|
||||||
|
OnFormCreate = kolMainFormFormCreate
|
||||||
|
EraseBackground = False
|
||||||
|
supportMnemonics = False
|
||||||
|
FormCompact = False
|
||||||
|
GenerateCtlNames = False
|
||||||
|
Unicode = False
|
||||||
|
OverrideScrollbars = False
|
||||||
|
AssignTabOrders = False
|
||||||
|
Left = 64
|
||||||
|
Top = 8
|
||||||
|
end
|
||||||
|
end
|
||||||
736
10.3.3/Activator/MainFrm.pas
Normal file
736
10.3.3/Activator/MainFrm.pas
Normal file
@ -0,0 +1,736 @@
|
|||||||
|
{ KOL MCK } // Do not remove this line!
|
||||||
|
{$DEFINE KOL_MCK}
|
||||||
|
unit MainFrm;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
{$IFDEF KOL_MCK}
|
||||||
|
uses Windows, Messages, KOL {$IF Defined(KOL_MCK)}{$ELSE}, mirror, Classes, Controls, mckCtrls, mckObjs, Graphics {$IFEND (place your units here->)};
|
||||||
|
{$ELSE}
|
||||||
|
{$I uses.inc}
|
||||||
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, mirror;
|
||||||
|
{$ENDIF}
|
||||||
|
|
||||||
|
type
|
||||||
|
{$IF Defined(KOL_MCK)}
|
||||||
|
{$I MCKfakeClasses.inc}
|
||||||
|
{$IFDEF KOLCLASSES} {$I TMainFormclass.inc} {$ELSE OBJECTS} PMainForm = ^TMainForm; {$ENDIF CLASSES/OBJECTS}
|
||||||
|
{$IFDEF KOLCLASSES}{$I TMainForm.inc}{$ELSE} TMainForm = object(TObj) {$ENDIF}
|
||||||
|
Form: PControl;
|
||||||
|
{$ELSE not_KOL_MCK}
|
||||||
|
TMainForm = class(TForm)
|
||||||
|
{$IFEND KOL_MCK}
|
||||||
|
btnAbout: TKOLButton;
|
||||||
|
btnActive: TKOLButton;
|
||||||
|
btnExit: TKOLButton;
|
||||||
|
btnReset: TKOLButton;
|
||||||
|
btnRunBds: TKOLButton;
|
||||||
|
kolActivator: TKOLProject;
|
||||||
|
kolMainForm: TKOLForm;
|
||||||
|
procedure btnAboutClick(Sender: PObj);
|
||||||
|
procedure btnActiveClick(Sender: PObj);
|
||||||
|
procedure btnExitClick(Sender: PObj);
|
||||||
|
procedure btnResetClick(Sender: PObj);
|
||||||
|
procedure btnRunBdsClick(Sender: PObj);
|
||||||
|
procedure kolMainFormDestroy(Sender: PObj);
|
||||||
|
procedure kolMainFormFormCreate(Sender: PObj);
|
||||||
|
function kolMainFormMessage(var Msg: TMsg; var Rslt: Integer): Boolean;
|
||||||
|
procedure kolMainFormShow(Sender: PObj);
|
||||||
|
private
|
||||||
|
FAppPath,
|
||||||
|
FBdsPath: string;
|
||||||
|
FCurFileBuild: Integer;
|
||||||
|
FSerialNumber,
|
||||||
|
FRegCode,
|
||||||
|
FInformation: string;
|
||||||
|
private
|
||||||
|
function FindBdsPath: Boolean;
|
||||||
|
|
||||||
|
function GetSystemHostsFile: string;
|
||||||
|
|
||||||
|
procedure BeginCursor;
|
||||||
|
procedure EndCursor;
|
||||||
|
|
||||||
|
procedure CopyFile(const ASrcFile, ADestFile: string);
|
||||||
|
|
||||||
|
procedure DeleteFile(const AFile: string);
|
||||||
|
procedure DeleteFiles(const AFileMask: string);
|
||||||
|
private
|
||||||
|
procedure BuildNormalCglmFile;
|
||||||
|
procedure BuildNormalSlipFile;
|
||||||
|
|
||||||
|
procedure GenerateRegistrationCode;
|
||||||
|
procedure GenerateKeyGenLicense;
|
||||||
|
|
||||||
|
procedure PatchLicenseHostsFile;
|
||||||
|
procedure RestoreLicenseHostsFile;
|
||||||
|
|
||||||
|
procedure PatchBdsFile;
|
||||||
|
procedure RestoreBdsFile;
|
||||||
|
|
||||||
|
procedure DeleteTrialFiles;
|
||||||
|
procedure DeleteTrialRegKeys;
|
||||||
|
private
|
||||||
|
procedure DoActive;
|
||||||
|
procedure DoReset;
|
||||||
|
procedure DoRunBds;
|
||||||
|
|
||||||
|
procedure ShowAboutMessage;
|
||||||
|
|
||||||
|
procedure Execute;
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
MainForm {$IFDEF KOL_MCK} : PMainForm {$ELSE} : TMainForm {$ENDIF} ;
|
||||||
|
|
||||||
|
{$IFDEF KOL_MCK}
|
||||||
|
procedure NewMainForm( var Result: PMainForm; AParent: PControl );
|
||||||
|
{$ENDIF}
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{.$DEFINE DEBUGMODE}
|
||||||
|
|
||||||
|
uses
|
||||||
|
SysUtils, ShellAPI, Registry, FileUtils, PatchData, WinUtils, RadKeygen, RadVersion;
|
||||||
|
|
||||||
|
{$IF Defined(KOL_MCK)}{$ELSE}{$R *.DFM}{$IFEND}
|
||||||
|
|
||||||
|
{$IFDEF KOL_MCK}
|
||||||
|
{$I MainFrm_1.inc}
|
||||||
|
{$ENDIF}
|
||||||
|
|
||||||
|
const
|
||||||
|
CSIDL_APPDATA = $001A; // Application Data, new for NT4, <user name>\Application Data
|
||||||
|
CSIDL_COMMON_APPDATA = $0023; // All Users\Application Data
|
||||||
|
|
||||||
|
UM_SHOWABOUT = 100;
|
||||||
|
|
||||||
|
const
|
||||||
|
defAppMessage = 'Many thanks to elseif, tonzi, freecat, unis, x-force, cjack and others who worked for this keygen!';
|
||||||
|
defAppVersion = '15.3';
|
||||||
|
|
||||||
|
defAppHelperFileName = 'SHFolder.dll';
|
||||||
|
|
||||||
|
defBdsVersion = '20.0';
|
||||||
|
|
||||||
|
defBdsLicenseFile = 'RADStudio10_2.slip';
|
||||||
|
defBdsLicenseManager = '"%s" -reg -skey 8220_21 -loadKey 2026 -a';
|
||||||
|
|
||||||
|
defBdsPatchFileName = 'SHFolder.dll';
|
||||||
|
|
||||||
|
defLicenseHosts: array[0..17] of string = (
|
||||||
|
'127.0.0.1 appanalytics.embarcadero.com',
|
||||||
|
'127.0.0.1 comapi.embarcadero.com',
|
||||||
|
'127.0.0.1 embt.usertility.com',
|
||||||
|
'127.0.0.1 external.ws.sanctx.embarcadero.com',
|
||||||
|
'127.0.0.1 getit.embarcadero.com',
|
||||||
|
'127.0.0.1 installers.codegear.com',
|
||||||
|
'127.0.0.1 installers.embarcadero.com',
|
||||||
|
'127.0.0.1 license-stage.codegear.com',
|
||||||
|
'127.0.0.1 license.codegear.com',
|
||||||
|
'127.0.0.1 license.embarcadero.com',
|
||||||
|
'127.0.0.1 object.ws.sanctx.embarcadero.com',
|
||||||
|
'127.0.0.1 services.server.v8.srs.sanctuary.codegear.com',
|
||||||
|
'127.0.0.1 themindelectric.com',
|
||||||
|
'127.0.0.1 track.embarcadero.com',
|
||||||
|
'127.0.0.1 www.themindelectric.com',
|
||||||
|
|
||||||
|
'127.0.0.1 LicenseRenewalServicesImpl.services.server.v8.srs.sanctuary.codegear.com',
|
||||||
|
'127.0.0.1 LicenseUsageServicesImpl.services.server.v8.srs.sanctuary.codegear.com',
|
||||||
|
'127.0.0.1 RegistrationServicesImpl.services.server.v8.srs.sanctuary.codegear.com'
|
||||||
|
);
|
||||||
|
|
||||||
|
{ TMainForm }
|
||||||
|
|
||||||
|
procedure TMainForm.BeginCursor;
|
||||||
|
begin
|
||||||
|
SetCursor(LoadCursor(0, IDC_WAIT));
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.btnAboutClick(Sender: PObj);
|
||||||
|
begin
|
||||||
|
{$IFDEF DEBUGMODE}
|
||||||
|
LogMessage('About');
|
||||||
|
{$ENDIF}
|
||||||
|
ShowAboutMessage;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.btnActiveClick(Sender: PObj);
|
||||||
|
begin
|
||||||
|
{$IFDEF DEBUGMODE}
|
||||||
|
LogMessage('Active');
|
||||||
|
{$ENDIF}
|
||||||
|
BeginCursor;
|
||||||
|
try
|
||||||
|
DoActive;
|
||||||
|
finally
|
||||||
|
EndCursor;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.btnExitClick(Sender: PObj);
|
||||||
|
begin
|
||||||
|
{$IFDEF DEBUGMODE}
|
||||||
|
LogMessage('Exit');
|
||||||
|
{$ENDIF}
|
||||||
|
Self.Form.Close;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.btnResetClick(Sender: PObj);
|
||||||
|
begin
|
||||||
|
{$IFDEF DEBUGMODE}
|
||||||
|
LogMessage('Reset');
|
||||||
|
{$ENDIF}
|
||||||
|
BeginCursor;
|
||||||
|
try
|
||||||
|
DoReset;
|
||||||
|
finally
|
||||||
|
EndCursor;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.btnRunBdsClick(Sender: PObj);
|
||||||
|
begin
|
||||||
|
{$IFDEF DEBUGMODE}
|
||||||
|
LogMessage('Run');
|
||||||
|
{$ENDIF}
|
||||||
|
BeginCursor;
|
||||||
|
try
|
||||||
|
DoRunBds;
|
||||||
|
finally
|
||||||
|
EndCursor;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.BuildNormalCglmFile;
|
||||||
|
var
|
||||||
|
S: string;
|
||||||
|
begin
|
||||||
|
S := FBdsPath + 'Bin\cglm.ini';
|
||||||
|
SaveDataToFile(S, defCglmFileDatas, Length(defCglmFileDatas));
|
||||||
|
S := GetShellFolderPath(CSIDL_COMMON_APPDATA) + 'Embarcadero\Studio\' + defBdsVersion + '\cglm.ini';
|
||||||
|
SaveDataToFile(S, defCglmFileDatas, Length(defCglmFileDatas));
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.BuildNormalSlipFile;
|
||||||
|
var
|
||||||
|
S: string;
|
||||||
|
begin
|
||||||
|
S := FBdsPath + 'License\*.slip';
|
||||||
|
DeleteFiles(S);
|
||||||
|
S := FBdsPath + 'License\' + defBdsLicenseFile;
|
||||||
|
SaveDataToFile(S, defSlipFileDatas, Length(defSlipFileDatas));
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.CopyFile(const ASrcFile, ADestFile: string);
|
||||||
|
{$IFDEF DEBUGMODE}
|
||||||
|
var
|
||||||
|
bRet: Boolean;
|
||||||
|
{$ENDIF}
|
||||||
|
begin
|
||||||
|
{$IFDEF DEBUGMODE}
|
||||||
|
bRet := Windows.CopyFile(PChar(ASrcFile), PChar(ADestFile), False);
|
||||||
|
if bRet then
|
||||||
|
LogMessage('CopyFile.OK: ' + ADestFile)
|
||||||
|
else LogMessage('CopyFile.Error: ' + ADestFile + ', ' + SysErrorMessage(GetLastError));
|
||||||
|
{$ELSE}
|
||||||
|
Windows.CopyFile(PChar(ASrcFile), PChar(ADestFile), False);
|
||||||
|
{$ENDIF}
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.DeleteFile(const AFile: string);
|
||||||
|
{$IFDEF DEBUGMODE}
|
||||||
|
var
|
||||||
|
bRet: Boolean;
|
||||||
|
{$ENDIF}
|
||||||
|
begin
|
||||||
|
{$IFDEF DEBUGMODE}
|
||||||
|
LogMessage('DeleteFile: ' + AFile + ' ...');
|
||||||
|
bRet := Windows.DeleteFile(PChar(AFile));
|
||||||
|
if bRet then
|
||||||
|
LogMessage('DeleteFile.OK: ' + AFile)
|
||||||
|
else LogMessage('DeleteFile.Error: ' + AFile + ', ' + SysErrorMessage(GetLastError));
|
||||||
|
{$ELSE}
|
||||||
|
Windows.DeleteFile(PChar(AFile));
|
||||||
|
{$ENDIF}
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.DeleteFiles(const AFileMask: string);
|
||||||
|
////////////////////////////////////////////////////////////////////////////////
|
||||||
|
//设计: Lsuper 2005.09.21
|
||||||
|
//功能: 判断特殊文件
|
||||||
|
//参数：
|
||||||
|
////////////////////////////////////////////////////////////////////////////////
|
||||||
|
function IsDirNotation(const AName: string): Boolean;
|
||||||
|
begin
|
||||||
|
Result := (AName = '.') or (AName = '..');
|
||||||
|
end;
|
||||||
|
var
|
||||||
|
cSearchRec: TSearchRec;
|
||||||
|
strFilePath: string;
|
||||||
|
begin
|
||||||
|
{$IFDEF DEBUGMODE}
|
||||||
|
LogMessage('DeleteFiles: ' + AFileMask + ' ...');
|
||||||
|
{$ENDIF}
|
||||||
|
strFilePath := ExtractFilePath(AFileMask);
|
||||||
|
if FindFirst(AFileMask, faAnyFile, cSearchRec) = 0 then
|
||||||
|
repeat
|
||||||
|
if (cSearchRec.Name <> '') and not IsDirNotation(cSearchRec.Name) then
|
||||||
|
begin
|
||||||
|
{$IFDEF DEBUGMODE}
|
||||||
|
LogMessage('DeleteFiles, File: ' + strFilePath + cSearchRec.Name);
|
||||||
|
{$ENDIF}
|
||||||
|
SysUtils.DeleteFile(strFilePath + cSearchRec.Name);
|
||||||
|
end;
|
||||||
|
until FindNext(cSearchRec) <> 0;
|
||||||
|
SysUtils.FindClose(cSearchRec);
|
||||||
|
end;
|
||||||
|
|
||||||
|
////////////////////////////////////////////////////////////////////////////////
|
||||||
|
//设计：Lsuper 2011.01.05
|
||||||
|
//功能：清理授权信息
|
||||||
|
//参数：
|
||||||
|
////////////////////////////////////////////////////////////////////////////////
|
||||||
|
procedure TMainForm.DeleteTrialFiles;
|
||||||
|
var
|
||||||
|
AllUsersPath, UserPath: string;
|
||||||
|
begin
|
||||||
|
{$IFDEF DEBUGMODE}
|
||||||
|
LogMessage('DeleteTrialFiles');
|
||||||
|
{$ENDIF}
|
||||||
|
AllUsersPath := GetShellFolderPath(CSIDL_COMMON_APPDATA) + 'Embarcadero\';
|
||||||
|
UserPath := GetShellFolderPath(CSIDL_APPDATA) + 'Embarcadero\';
|
||||||
|
|
||||||
|
{$IFDEF DEBUGMODE}
|
||||||
|
LogMessage('DeleteTrialFiles.AllUsersPath: ' + AllUsersPath);
|
||||||
|
LogMessage('DeleteTrialFiles.UserPath: ' + UserPath);
|
||||||
|
{$ENDIF}
|
||||||
|
|
||||||
|
DeleteFile(UserPath + '.cgb_license');
|
||||||
|
DeleteFile(AllUsersPath + '.cgb_license');
|
||||||
|
|
||||||
|
DeleteFile(UserPath + '.licenses\.cg_license');
|
||||||
|
DeleteFile(AllUsersPath + '.licenses\.cg_license');
|
||||||
|
|
||||||
|
DeleteFile(AllUsersPath + 'RAD Studio Activation.slip');
|
||||||
|
|
||||||
|
DeleteFiles(AllUsersPath + '.82*.slip');
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.DeleteTrialRegKeys;
|
||||||
|
begin
|
||||||
|
{$IFDEF DEBUGMODE}
|
||||||
|
LogMessage('DeleteTrialRegKeys');
|
||||||
|
{$ENDIF}
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.DoActive;
|
||||||
|
var
|
||||||
|
S: string;
|
||||||
|
nBuild: Integer;
|
||||||
|
begin
|
||||||
|
{$IFDEF DEBUGMODE}
|
||||||
|
LogMessage('DoActive');
|
||||||
|
{$ENDIF}
|
||||||
|
if not FindBdsPath then
|
||||||
|
begin
|
||||||
|
ShowError('No BDS find!');
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
S := FBdsPath + 'Bin\bds.exe';
|
||||||
|
nBuild := GetFileBuildVersion(S);
|
||||||
|
if nBuild <> FCurFileBuild then
|
||||||
|
begin
|
||||||
|
ShowError('BDS version not support!');
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
BuildNormalCglmFile;
|
||||||
|
BuildNormalSlipFile;
|
||||||
|
RestoreBdsFile;
|
||||||
|
|
||||||
|
GenerateRegistrationCode;
|
||||||
|
GenerateKeyGenLicense;
|
||||||
|
PatchBdsFile;
|
||||||
|
PatchLicenseHostsFile;
|
||||||
|
{
|
||||||
|
ShowMessage('Active', 'OK!');
|
||||||
|
}
|
||||||
|
ShowMessage('Active', 'OK! Code: ' + FRegCode + ', Serial: ' + FSerialNumber);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.DoReset;
|
||||||
|
begin
|
||||||
|
{$IFDEF DEBUGMODE}
|
||||||
|
LogMessage('DoReset');
|
||||||
|
{$ENDIF}
|
||||||
|
if not FindBdsPath then
|
||||||
|
begin
|
||||||
|
ShowError('No BDS find!');
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
DeleteTrialFiles;
|
||||||
|
DeleteTrialRegKeys;
|
||||||
|
BuildNormalCglmFile;
|
||||||
|
BuildNormalSlipFile;
|
||||||
|
RestoreBdsFile;
|
||||||
|
RestoreLicenseHostsFile;
|
||||||
|
ShowMessage('Reset', 'OK!');
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.DoRunBds;
|
||||||
|
var
|
||||||
|
BdsExe: string;
|
||||||
|
begin
|
||||||
|
{$IFDEF DEBUGMODE}
|
||||||
|
LogMessage('DoRunBds');
|
||||||
|
{$ENDIF}
|
||||||
|
if not FindBdsPath then
|
||||||
|
begin
|
||||||
|
ShowError('No BDS find!');
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
FBdsPath := FBdsPath + 'Bin';
|
||||||
|
BdsExe := FBdsPath + '\bds.exe';
|
||||||
|
ShellExecute(0, 'open', PChar(BdsExe), '-pDelphi', PChar(FBdsPath), SW_NORMAL);
|
||||||
|
Delay(20);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.EndCursor;
|
||||||
|
begin
|
||||||
|
SetCursor(LoadCursor(0, IDC_ARROW));
|
||||||
|
end;
|
||||||
|
|
||||||
|
////////////////////////////////////////////////////////////////////////////////
|
||||||
|
//设计：Lsuper 2011.09.20
|
||||||
|
//功能：直接执行 Lite 的安装任务
|
||||||
|
//参数：
|
||||||
|
////////////////////////////////////////////////////////////////////////////////
|
||||||
|
procedure TMainForm.Execute;
|
||||||
|
var
|
||||||
|
S: string;
|
||||||
|
nBuild: Integer;
|
||||||
|
begin
|
||||||
|
if not FindBdsPath then
|
||||||
|
begin
|
||||||
|
LogMessage('No BDS find!');
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
S := FBdsPath + 'Bin\bds.exe';
|
||||||
|
nBuild := GetFileBuildVersion(S);
|
||||||
|
if nBuild <> FCurFileBuild then
|
||||||
|
begin
|
||||||
|
LogMessage('BDS version not support!');
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
|
||||||
|
GenerateRegistrationCode;
|
||||||
|
GenerateKeyGenLicense;
|
||||||
|
BuildNormalCglmFile;
|
||||||
|
BuildNormalSlipFile;
|
||||||
|
PatchBdsFile;
|
||||||
|
PatchLicenseHostsFile;
|
||||||
|
{
|
||||||
|
LogMessage('Done.');
|
||||||
|
}
|
||||||
|
LogMessage('Done. Code: ' + FRegCode + ', Serial: ' + FSerialNumber);
|
||||||
|
end;
|
||||||
|
|
||||||
|
////////////////////////////////////////////////////////////////////////////////
|
||||||
|
//设计：Lsuper 2013.02.15
|
||||||
|
//功能：查找 Delphi
|
||||||
|
//参数：
|
||||||
|
////////////////////////////////////////////////////////////////////////////////
|
||||||
|
function TMainForm.FindBdsPath: Boolean;
|
||||||
|
begin
|
||||||
|
Result := False;
|
||||||
|
with TRegistry.Create do
|
||||||
|
try
|
||||||
|
Access := KEY_READ;
|
||||||
|
RootKey := HKEY_LOCAL_MACHINE;
|
||||||
|
if OpenKeyReadOnly('SOFTWARE\Embarcadero\BDS\' + defBdsVersion) then
|
||||||
|
begin
|
||||||
|
FBdsPath := ReadString('RootDir');
|
||||||
|
CloseKey;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
Free;
|
||||||
|
end;
|
||||||
|
if FBdsPath <> '' then
|
||||||
|
begin
|
||||||
|
FBdsPath := IncludeTrailingPathDelimiter(FBdsPath);
|
||||||
|
Result := FileExists(FBdsPath + 'Bin\bds.exe');
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
////////////////////////////////////////////////////////////////////////////////
|
||||||
|
//设计：Lsuper 2013.05.01
|
||||||
|
//功能：
|
||||||
|
//参数：
|
||||||
|
//注意：设置环境变量，用于 IPC 通知、通讯
|
||||||
|
////////////////////////////////////////////////////////////////////////////////
|
||||||
|
procedure TMainForm.GenerateKeyGenLicense;
|
||||||
|
|
||||||
|
function CurrentRadStudioVersion: PRadStudioVersion; inline;
|
||||||
|
begin
|
||||||
|
Assert(RadStudioVersionList.Count > 0);
|
||||||
|
Result := PRadStudioVersion(RadStudioVersionList.Objects[0]);
|
||||||
|
end;
|
||||||
|
begin
|
||||||
|
{$IFDEF DEBUGMODE}
|
||||||
|
LogMessage('GenerateKeyGenLicense');
|
||||||
|
{$ENDIF}
|
||||||
|
FSerialNumber := RadKeygen.GenerateSerialNumber;
|
||||||
|
FRegCode := RadKeygen.GetRegistrationCode;
|
||||||
|
RadKeygen.GenerateLicenseFile(FSerialNumber, FRegCode, CurrentRadStudioVersion, FInformation);
|
||||||
|
end;
|
||||||
|
|
||||||
|
////////////////////////////////////////////////////////////////////////////////
|
||||||
|
//设计: Lsuper 2006.09.19
|
||||||
|
//功能: 注入启动
|
||||||
|
//参数：
|
||||||
|
//注意：设置环境变量，用于 IPC 通知、通讯
|
||||||
|
////////////////////////////////////////////////////////////////////////////////
|
||||||
|
procedure TMainForm.GenerateRegistrationCode;
|
||||||
|
var
|
||||||
|
si: TStartupInfo;
|
||||||
|
pi: TProcessInformation;
|
||||||
|
nExitCode: LongWord;
|
||||||
|
strHelper, strCommandLine, strWorkDir: string;
|
||||||
|
begin
|
||||||
|
{$IFDEF DEBUGMODE}
|
||||||
|
LogMessage('GenerateRegistrationCode');
|
||||||
|
{$ENDIF}
|
||||||
|
strHelper := FAppPath + defAppHelperFileName;
|
||||||
|
if not FileExists(strHelper) then
|
||||||
|
SaveDataToFile(strHelper, defHelperDatas, Length(defHelperDatas));
|
||||||
|
strWorkDir := FBdsPath + 'Bin';
|
||||||
|
strCommandLine := Format('%s\LicenseManager.exe', [strWorkDir]);
|
||||||
|
if not FileExists(strCommandLine) then
|
||||||
|
raise Exception.CreateFmt('File %s not exists!', [strCommandLine]);
|
||||||
|
strCommandLine := Format(defBdsLicenseManager, [strCommandLine]);
|
||||||
|
FillChar(si, SizeOf(TStartupInfo), 0);
|
||||||
|
with si do
|
||||||
|
begin
|
||||||
|
cb := SizeOf(TStartupInfo);
|
||||||
|
dwFlags := STARTF_USESHOWWINDOW + STARTF_FORCEONFEEDBACK;
|
||||||
|
wShowWindow := SW_HIDE;
|
||||||
|
end;
|
||||||
|
if CreateProcessEx(nil, PChar(strCommandLine), nil, nil, False, 0, nil, PChar(strWorkDir), si, pi, AnsiString(strHelper)) then
|
||||||
|
try
|
||||||
|
WaitForSingleObject(pi.hProcess, INFINITE);
|
||||||
|
GetExitCodeProcess(pi.hProcess, nExitCode);
|
||||||
|
if nExitCode <> 0 then
|
||||||
|
raise Exception.Create('BdsReg error!');
|
||||||
|
finally
|
||||||
|
CloseHandle(pi.hThread);
|
||||||
|
CloseHandle(pi.hProcess);
|
||||||
|
end
|
||||||
|
else RaiseLastOSError;
|
||||||
|
end;
|
||||||
|
|
||||||
|
////////////////////////////////////////////////////////////////////////////////
|
||||||
|
//设计：Lsuper 2009.01.30
|
||||||
|
//功能：取Windows系统目录
|
||||||
|
//参数：
|
||||||
|
////////////////////////////////////////////////////////////////////////////////
|
||||||
|
function TMainForm.GetSystemHostsFile: string;
|
||||||
|
const
|
||||||
|
defHostsFilePath = 'drivers\etc\hosts';
|
||||||
|
var
|
||||||
|
nRet: LongWord;
|
||||||
|
begin
|
||||||
|
SetLength(Result, MAX_PATH);
|
||||||
|
nRet := GetSystemDirectory(PChar(Result), MAX_PATH);
|
||||||
|
if nRet = 0 then
|
||||||
|
Result := ''
|
||||||
|
else begin
|
||||||
|
SetLength(Result, nRet);
|
||||||
|
Result := IncludeTrailingPathDelimiter(Result) + defHostsFilePath;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.kolMainFormDestroy(Sender: PObj);
|
||||||
|
begin
|
||||||
|
LogMessage('Destroy');
|
||||||
|
{$IFNDEF DEBUGMODE}
|
||||||
|
DeleteFiles(FAppPath + '*.*');
|
||||||
|
RemoveDirectory(PChar(FAppPath));
|
||||||
|
{$ENDIF}
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.kolMainFormFormCreate(Sender: PObj);
|
||||||
|
var
|
||||||
|
S: string;
|
||||||
|
begin
|
||||||
|
LogMessage('Create');
|
||||||
|
|
||||||
|
FAppPath := GetShellFolderPath(CSIDL_APPDATA);
|
||||||
|
FAppPath := IncludeTrailingPathDelimiter(FAppPath) + 'Activator\' + defAppVersion + '\';
|
||||||
|
ForceDirectories(FAppPath);
|
||||||
|
S := GetModuleName(HInstance);
|
||||||
|
FCurFileBuild := GetFileBuildVersion(S);
|
||||||
|
|
||||||
|
SetEnvironmentVariable('SESSIONNAME', 'Conso1e');
|
||||||
|
|
||||||
|
if ParamStr(1) = '-process' then
|
||||||
|
begin
|
||||||
|
Execute;
|
||||||
|
Halt(1);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
////////////////////////////////////////////////////////////////////////////////
|
||||||
|
//设计：Lsuper 2003.09.21
|
||||||
|
//功能：处理系统菜单
|
||||||
|
//参数：
|
||||||
|
////////////////////////////////////////////////////////////////////////////////
|
||||||
|
function TMainForm.kolMainFormMessage(var Msg: TMsg;
|
||||||
|
var Rslt: Integer): Boolean;
|
||||||
|
begin
|
||||||
|
if (Msg.message = WM_SYSCOMMAND) and (Msg.WParam = UM_SHOWABOUT) then
|
||||||
|
ShowAboutMessage;
|
||||||
|
Result := False;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.kolMainFormShow(Sender: PObj);
|
||||||
|
var
|
||||||
|
hMain : HMENU;
|
||||||
|
begin
|
||||||
|
LogMessage('Show');
|
||||||
|
|
||||||
|
hMain := GetSystemMenu(Self.Form.Handle, False);
|
||||||
|
AppendMenu(hMain, MF_SEPARATOR, 0, nil);
|
||||||
|
AppendMenu(hMain, MF_STRING{ or MF_CHECKED}, UM_SHOWABOUT, 'About ...');
|
||||||
|
SetMainFormHandle(Self.Form.Handle);
|
||||||
|
end;
|
||||||
|
|
||||||
|
////////////////////////////////////////////////////////////////////////////////
|
||||||
|
//设计：Lsuper 2011.09.21
|
||||||
|
//功能：修改 BDS.exe 文件
|
||||||
|
//参数：
|
||||||
|
////////////////////////////////////////////////////////////////////////////////
|
||||||
|
procedure TMainForm.PatchBdsFile;
|
||||||
|
var
|
||||||
|
S: string;
|
||||||
|
begin
|
||||||
|
{$IFDEF DEBUGMODE}
|
||||||
|
LogMessage('PatchBdsFile');
|
||||||
|
{$ENDIF}
|
||||||
|
S := FBdsPath + 'Bin\' + defBdsPatchFileName;
|
||||||
|
{$IFDEF DEBUGMODE}
|
||||||
|
LogMessage('Patch: ' + S);
|
||||||
|
{$ENDIF}
|
||||||
|
SaveDataToFile(S, defBdsPatchDllDatas, SizeOf(defBdsPatchDllDatas));
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.PatchLicenseHostsFile;
|
||||||
|
var
|
||||||
|
F, S: string;
|
||||||
|
nIndex, I: Integer;
|
||||||
|
pList, pHosts: PStrListEx;
|
||||||
|
begin
|
||||||
|
{$IFDEF DEBUGMODE}
|
||||||
|
LogMessage('PatchLicenseHostsFile');
|
||||||
|
{$ENDIF}
|
||||||
|
F := GetSystemHostsFile;
|
||||||
|
pHosts := NewStrListEx;
|
||||||
|
with pHosts^ do
|
||||||
|
try
|
||||||
|
if FileExists(F) then
|
||||||
|
LoadFromFile(F);
|
||||||
|
pList := NewStrListEx;
|
||||||
|
for S in defLicenseHosts do
|
||||||
|
pList.Add(S);
|
||||||
|
for I := 0 to Count - 1 do
|
||||||
|
begin
|
||||||
|
S := Trim(Items[I]);
|
||||||
|
nIndex := pList.IndexOf(S);
|
||||||
|
if nIndex >= 0 then
|
||||||
|
pList.Delete(nIndex);
|
||||||
|
end;
|
||||||
|
if pList.Count > 0 then
|
||||||
|
try
|
||||||
|
{$IFDEF DEBUGMODE}
|
||||||
|
LogMessage('PatchLicenseHostsFile, SaveToFile: ' + F);
|
||||||
|
{$ENDIF}
|
||||||
|
AddStrings(pList);
|
||||||
|
FileSetReadOnly(F, False);
|
||||||
|
SaveToFile(F);
|
||||||
|
except
|
||||||
|
on E: Exception do
|
||||||
|
LogMessage('Disable Hosts Error: ' + E.Message);
|
||||||
|
end;
|
||||||
|
pList.Free;
|
||||||
|
finally
|
||||||
|
Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.RestoreBdsFile;
|
||||||
|
var
|
||||||
|
S: string;
|
||||||
|
begin
|
||||||
|
{$IFDEF DEBUGMODE}
|
||||||
|
LogMessage('RestoreBdsFile');
|
||||||
|
{$ENDIF}
|
||||||
|
S := FBdsPath + 'Bin\' + defBdsPatchFileName;
|
||||||
|
{$IFDEF DEBUGMODE}
|
||||||
|
LogMessage('Restore: ' + S);
|
||||||
|
{$ENDIF}
|
||||||
|
Self.DeleteFile(S);;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.RestoreLicenseHostsFile;
|
||||||
|
var
|
||||||
|
F, S: string;
|
||||||
|
nIndex, nRet, I: Integer;
|
||||||
|
pList, pHosts: PStrListEx;
|
||||||
|
begin
|
||||||
|
{$IFDEF DEBUGMODE}
|
||||||
|
LogMessage('RestoreLicenseHostsFile');
|
||||||
|
{$ENDIF}
|
||||||
|
F := GetSystemHostsFile;
|
||||||
|
if not FileExists(F) then
|
||||||
|
Exit;
|
||||||
|
pHosts := NewStrListEx;
|
||||||
|
with pHosts^ do
|
||||||
|
try
|
||||||
|
LoadFromFile(F);
|
||||||
|
pList := NewStrListEx;
|
||||||
|
for S in defLicenseHosts do
|
||||||
|
pList.Add(S);
|
||||||
|
nRet := 0;
|
||||||
|
for I := Count - 1 downto 0 do
|
||||||
|
begin
|
||||||
|
S := Trim(Items[I]);
|
||||||
|
nIndex := pList.IndexOf(S);
|
||||||
|
if nIndex < 0 then
|
||||||
|
Continue;
|
||||||
|
pHosts.Delete(I);
|
||||||
|
Inc(nRet);
|
||||||
|
end;
|
||||||
|
if nRet > 0 then
|
||||||
|
try
|
||||||
|
{$IFDEF DEBUGMODE}
|
||||||
|
LogMessage('RestoreLicenseHostsFile, SaveToFile: ' + F);
|
||||||
|
{$ENDIF}
|
||||||
|
FileSetReadOnly(F, False);
|
||||||
|
SaveToFile(F);
|
||||||
|
except
|
||||||
|
on E: Exception do
|
||||||
|
LogMessage('Disable Hosts Error: ' + E.Message);
|
||||||
|
end;
|
||||||
|
pList.Free;
|
||||||
|
finally
|
||||||
|
Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.ShowAboutMessage;
|
||||||
|
begin
|
||||||
|
with Self.Form^ do
|
||||||
|
ShellAbout(Handle, PChar(string(Caption) + ', Lsuper'), PAnsiChar(AnsiString(defAppMessage)), Icon);
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
49
10.3.3/Activator/MainFrm_1.inc
Normal file
49
10.3.3/Activator/MainFrm_1.inc
Normal file
@ -0,0 +1,49 @@
|
|||||||
|
{ KOL MCK } // Do not remove this line!
|
||||||
|
|
||||||
|
procedure NewMainForm( var Result: PMainForm; AParent: PControl );
|
||||||
|
begin
|
||||||
|
|
||||||
|
{$IFDEF KOLCLASSES}
|
||||||
|
Result := PMainForm.Create;
|
||||||
|
{$ELSE OBJECTS}
|
||||||
|
New( Result, Create );
|
||||||
|
{$ENDIF KOL CLASSES/OBJECTS}
|
||||||
|
Result.Form := NewForm( AParent, 'Delphi 10.3.3 Activator' ).SetPosition( 8, 8 );
|
||||||
|
Applet := Result.Form;
|
||||||
|
Result.Form.Add2AutoFree( Result );
|
||||||
|
Result.Form.Style := Result.Form.Style and not (WS_MINIMIZEBOX or WS_MAXIMIZEBOX);
|
||||||
|
Result.Form.SetClientSize( 534, 122 );
|
||||||
|
Result.Form.OnMessage := Result.kolMainFormMessage;
|
||||||
|
Result.Form.OnShow := Result.kolMainFormShow;
|
||||||
|
Result.Form.OnDestroy := Result.kolMainFormDestroy;
|
||||||
|
Result.btnAbout := NewButton( Result.Form, '&About' ).SetPosition( 325, 16 ).SetSize( 90, 90 );
|
||||||
|
{$IFDEF USE_MHTOOLTIP}
|
||||||
|
Result.btnAbout.Hint.Text := 'About';
|
||||||
|
{$ENDIF USE_MHTOOLTIP}
|
||||||
|
Result.btnReset := NewButton( Result.Form, 'Re&set' ).SetPosition( 222, 16 ).SetSize( 90, 90 );
|
||||||
|
{$IFDEF USE_MHTOOLTIP}
|
||||||
|
Result.btnReset.Hint.Text := 'Reset Delphi 10.3.2';
|
||||||
|
{$ENDIF USE_MHTOOLTIP}
|
||||||
|
Result.btnExit := NewButton( Result.Form, '&Exit' ).SetPosition( 428, 16 ).SetSize( 90, 90 );
|
||||||
|
{$IFDEF USE_MHTOOLTIP}
|
||||||
|
Result.btnExit.Hint.Text := 'Exit';
|
||||||
|
{$ENDIF USE_MHTOOLTIP}
|
||||||
|
Result.btnRunBds := NewButton( Result.Form, '&Run' ).SetPosition( 119, 16 ).SetSize( 90, 90 );
|
||||||
|
{$IFDEF USE_MHTOOLTIP}
|
||||||
|
Result.btnRunBds.Hint.Text := 'Run Delphi 10.3.2';
|
||||||
|
{$ENDIF USE_MHTOOLTIP}
|
||||||
|
Result.btnActive := NewButton( Result.Form, '&Active' ).SetPosition( 16, 16 ).SetSize( 90, 90 );
|
||||||
|
{$IFDEF USE_MHTOOLTIP}
|
||||||
|
Result.btnActive.Hint.Text := 'Active Delphi 10.3.2';
|
||||||
|
{$ENDIF USE_MHTOOLTIP}
|
||||||
|
Result.btnAbout.OnClick := Result.btnAboutClick;
|
||||||
|
Result.btnReset.OnClick := Result.btnResetClick;
|
||||||
|
Result.btnExit.OnClick := Result.btnExitClick;
|
||||||
|
Result.btnRunBds.OnClick := Result.btnRunBdsClick;
|
||||||
|
Result.btnActive.OnClick := Result.btnActiveClick;
|
||||||
|
Result.Form.CenterOnParent.CanResize := False;
|
||||||
|
Result.Form.Perform( WM_INITMENU, 0, 0 );
|
||||||
|
Result.kolMainFormFormCreate( Result );
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
3415
10.3.3/Activator/PatchData.inc
Normal file
3415
10.3.3/Activator/PatchData.inc
Normal file
File diff suppressed because it is too large
Load Diff
26
10.3.3/Activator/PatchData.pas
Normal file
26
10.3.3/Activator/PatchData.pas
Normal file
@ -0,0 +1,26 @@
|
|||||||
|
{ *********************************************************************** }
|
||||||
|
{ }
|
||||||
|
{ 工具单元 }
|
||||||
|
{ }
|
||||||
|
{ 设计：Lsuper 2013.02.16 }
|
||||||
|
{ 备注： }
|
||||||
|
{ 审核： }
|
||||||
|
{ }
|
||||||
|
{ Copyright (c) 1998-2014 Super Studio }
|
||||||
|
{ }
|
||||||
|
{ *********************************************************************** }
|
||||||
|
|
||||||
|
unit PatchData;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
SysUtils, Classes;
|
||||||
|
|
||||||
|
const
|
||||||
|
|
||||||
|
{$I PatchData.inc} { 文件补丁数据 }
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
end.
|
||||||
1
10.3.3/Activator/TMainForm.inc
Normal file
1
10.3.3/Activator/TMainForm.inc
Normal file
@ -0,0 +1 @@
|
|||||||
|
TMainForm = class(TObj)
|
||||||
1
10.3.3/Activator/TMainFormclass.inc
Normal file
1
10.3.3/Activator/TMainFormclass.inc
Normal file
@ -0,0 +1 @@
|
|||||||
|
TMainForm = class; PMainForm = TMainForm;
|
||||||
383
10.3.3/Activator/WinUtils.pas
Normal file
383
10.3.3/Activator/WinUtils.pas
Normal file
@ -0,0 +1,383 @@
|
|||||||
|
{ *********************************************************************** }
|
||||||
|
{ }
|
||||||
|
{ Win 辅助函数单元 }
|
||||||
|
{ }
|
||||||
|
{ 设计：Lsuper 2013.04.26 }
|
||||||
|
{ 备注： }
|
||||||
|
{ 审核： }
|
||||||
|
{ }
|
||||||
|
{ Copyright (c) 1998-2014 Super Studio }
|
||||||
|
{ }
|
||||||
|
{ *********************************************************************** }
|
||||||
|
|
||||||
|
unit WinUtils;
|
||||||
|
|
||||||
|
{$WARNINGS OFF}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
SysUtils, Windows;
|
||||||
|
|
||||||
|
function GetCommandLineOutput(const ACommandLine, AWorkDir: string;
|
||||||
|
out ExitCode: LongWord): string;
|
||||||
|
function GetFileBuildVersion(const AFile: string): Integer;
|
||||||
|
function GetShellFolderPath(nFolder: Integer): string;
|
||||||
|
function GetWindowsPath: string;
|
||||||
|
|
||||||
|
function TaskMessageBox(const AHandle: THandle; const AText, ACaption: string;
|
||||||
|
const Icon, Buttons: Integer): Integer;
|
||||||
|
function IsWindowsVista: Boolean;
|
||||||
|
|
||||||
|
procedure Delay(ASeconds: Double);
|
||||||
|
|
||||||
|
function CreateProcessEx(lpApplicationName: PChar; lpCommandLine: PChar;
|
||||||
|
lpProcessAttributes, lpThreadAttributes: PSecurityAttributes;
|
||||||
|
bInheritHandles: BOOL; dwCreationFlags: DWORD; lpEnvironment: Pointer;
|
||||||
|
lpCurrentDirectory: PChar; const lpStartupInfo: TStartupInfo;
|
||||||
|
var lpProcessInformation: TProcessInformation; const ALibraryName: AnsiString): Boolean;
|
||||||
|
function InjectLibraryModule(AProcessID: LongWord; const ALibraryName: AnsiString): Boolean;
|
||||||
|
|
||||||
|
procedure LogMessage(const AMessage: string);
|
||||||
|
|
||||||
|
procedure ShowMessage(const ACaption, AMessage: string);
|
||||||
|
procedure ShowError(const AMessage: string);
|
||||||
|
|
||||||
|
procedure SetMainFormHandle(const AHandle: HWND);
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses
|
||||||
|
ShlObj;
|
||||||
|
|
||||||
|
const
|
||||||
|
TD_BUTTON_OK = 01;
|
||||||
|
TD_BUTTON_YES = 02;
|
||||||
|
TD_BUTTON_NO = 04;
|
||||||
|
TD_BUTTON_CANCEL = 08;
|
||||||
|
TD_BUTTON_RETRY = 16;
|
||||||
|
TD_BUTTON_CLOSE = 32;
|
||||||
|
|
||||||
|
TD_ICON_BLANK = 00;
|
||||||
|
TD_ICON_WARNING = 84;
|
||||||
|
TD_ICON_QUESTION = 99;
|
||||||
|
TD_ICON_ERROR = 98;
|
||||||
|
TD_ICON_INFORMATION = 81;
|
||||||
|
|
||||||
|
TD_ICON_SHIELD_QUESTION = 104;
|
||||||
|
TD_ICON_SHIELD_ERROR = 105;
|
||||||
|
TD_ICON_SHIELD_OK = 106;
|
||||||
|
TD_ICON_SHIELD_WARNING = 107;
|
||||||
|
|
||||||
|
var
|
||||||
|
MainFormHandle: HWND = 0;
|
||||||
|
|
||||||
|
////////////////////////////////////////////////////////////////////////////////
|
||||||
|
// 说明：用于延迟n秒
|
||||||
|
// 参数：ASeconds -- 延迟秒数
|
||||||
|
////////////////////////////////////////////////////////////////////////////////
|
||||||
|
procedure Delay(ASeconds: Double);
|
||||||
|
////////////////////////////////////////////////////////////////////////////////
|
||||||
|
//设计: Lsuper 2004.11.10
|
||||||
|
//功能: 调用消息循环，防止僵死
|
||||||
|
//参数：
|
||||||
|
////////////////////////////////////////////////////////////////////////////////
|
||||||
|
procedure ProcessMessages;
|
||||||
|
const
|
||||||
|
WM_QUIT = $0012;
|
||||||
|
var
|
||||||
|
Msg: TMsg;
|
||||||
|
begin
|
||||||
|
while PeekMessage(Msg, 0, 0, 0, PM_REMOVE) do
|
||||||
|
begin
|
||||||
|
if Msg.Message = WM_QUIT then
|
||||||
|
Halt(Msg.wParam);
|
||||||
|
TranslateMessage(Msg);
|
||||||
|
DispatchMessage(Msg);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
var
|
||||||
|
nTimeOut: TDateTime;
|
||||||
|
nHours, nMins, nSeconds, nMilliSecs: Integer;
|
||||||
|
begin
|
||||||
|
nSeconds := Trunc(ASeconds);
|
||||||
|
nMilliSecs := Round(Frac(ASeconds) * 1000);
|
||||||
|
nHours := nSeconds div 3600;
|
||||||
|
nMins := (nSeconds mod 3600) div 60;
|
||||||
|
nSeconds := nSeconds mod 60;
|
||||||
|
nTimeOut := Now + EncodeTime(nHours, nMins, nSeconds, nMilliSecs);
|
||||||
|
// wait until the TimeOut time
|
||||||
|
while Now < nTimeOut do
|
||||||
|
ProcessMessages;
|
||||||
|
end;
|
||||||
|
|
||||||
|
////////////////////////////////////////////////////////////////////////////////
|
||||||
|
//设计: Lsuper 2003.09.21
|
||||||
|
//功能: 取得运行命令行的输出
|
||||||
|
//参数：
|
||||||
|
////////////////////////////////////////////////////////////////////////////////
|
||||||
|
function GetCommandLineOutput(const ACommandLine, AWorkDir: string;
|
||||||
|
out ExitCode: LongWord): string;
|
||||||
|
var
|
||||||
|
strCommandLine,
|
||||||
|
strWorkDir: string;
|
||||||
|
strOutLine,
|
||||||
|
strBuffer: AnsiString;
|
||||||
|
bRunResult: Boolean;
|
||||||
|
nBytesRead: Cardinal;
|
||||||
|
nStdOutPipeRead,
|
||||||
|
nStdOutPipeWrite: THandle;
|
||||||
|
PI: TProcessInformation;
|
||||||
|
SA: TSecurityAttributes;
|
||||||
|
SI: TStartupInfo;
|
||||||
|
begin
|
||||||
|
with SA do
|
||||||
|
begin
|
||||||
|
nLength := SizeOf(SA);
|
||||||
|
bInheritHandle := True;
|
||||||
|
lpSecurityDescriptor := nil;
|
||||||
|
end;
|
||||||
|
if not CreatePipe(nStdOutPipeRead, nStdOutPipeWrite, @SA, 0) then
|
||||||
|
RaiseLastOSError;
|
||||||
|
try
|
||||||
|
with SI do
|
||||||
|
begin
|
||||||
|
FillChar(SI, SizeOf(SI), 0);
|
||||||
|
cb := SizeOf(SI);
|
||||||
|
dwFlags := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;
|
||||||
|
wShowWindow := SW_HIDE;
|
||||||
|
hStdInput := GetStdHandle(STD_INPUT_HANDLE);
|
||||||
|
hStdOutput := nStdOutPipeWrite;
|
||||||
|
hStdError := nStdOutPipeWrite;
|
||||||
|
end;
|
||||||
|
if DirectoryExists(AWorkDir) then
|
||||||
|
strWorkDir := AWorkDir
|
||||||
|
else strWorkDir := GetCurrentDir;
|
||||||
|
strCommandLine := ACommandLine;
|
||||||
|
UniqueString(strCommandLine);
|
||||||
|
bRunResult := CreateProcess(nil, PChar(strCommandLine), nil, nil, True, 0, nil,
|
||||||
|
PChar(strWorkDir), SI, PI);
|
||||||
|
CloseHandle(nStdOutPipeWrite);
|
||||||
|
if bRunResult then
|
||||||
|
try
|
||||||
|
strOutLine := '';
|
||||||
|
SetLength(strBuffer, MAXBYTE);
|
||||||
|
repeat
|
||||||
|
nBytesRead := 0;
|
||||||
|
bRunResult := ReadFile(nStdOutPipeRead, PAnsiChar(strBuffer)^, Length(strBuffer), nBytesRead, nil);
|
||||||
|
if nBytesRead > 0 then
|
||||||
|
strOutLine := strOutLine + Copy(strBuffer, 1, nBytesRead);
|
||||||
|
until not bRunResult or (nBytesRead = 0);
|
||||||
|
WaitForSingleObject(PI.hProcess, INFINITE);
|
||||||
|
GetExitCodeProcess(PI.hProcess, ExitCode);
|
||||||
|
finally
|
||||||
|
CloseHandle(PI.hThread);
|
||||||
|
CloseHandle(PI.hProcess);
|
||||||
|
end
|
||||||
|
else RaiseLastOSError;
|
||||||
|
finally
|
||||||
|
CloseHandle(nStdOutPipeRead);
|
||||||
|
Result := string(strOutLine);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function GetFileBuildVersion(const AFile: string): Integer;
|
||||||
|
var
|
||||||
|
nInfoSize, dwHandle: DWORD;
|
||||||
|
cFileInfo: PVSFixedFileInfo;
|
||||||
|
nVerSize: DWORD;
|
||||||
|
strBuffer: AnsiString;
|
||||||
|
begin
|
||||||
|
Result := 0;
|
||||||
|
nInfoSize := GetFileVersionInfoSize(PChar(AFile), dwHandle);
|
||||||
|
if nInfoSize = 0 then
|
||||||
|
Exit;
|
||||||
|
SetLength(strBuffer, nInfoSize);
|
||||||
|
if not GetFileVersionInfo(PChar(AFile), dwHandle, nInfoSize, Pointer(strBuffer)) then
|
||||||
|
Exit;
|
||||||
|
if VerQueryValue(Pointer(strBuffer), '\', Pointer(cFileInfo), nVerSize) then
|
||||||
|
Result := LOWORD(cFileInfo.dwFileVersionLS);
|
||||||
|
end;
|
||||||
|
|
||||||
|
////////////////////////////////////////////////////////////////////////////////
|
||||||
|
//设计：Lsuper 2010.04.09
|
||||||
|
//功能：获取 Shell 文件夹位置，如 GetSpecialFolderPath(CSIDL_COMMON_APPDATA) 等
|
||||||
|
//参数：
|
||||||
|
////////////////////////////////////////////////////////////////////////////////
|
||||||
|
function GetShellFolderPath(nFolder: Integer): string;
|
||||||
|
begin
|
||||||
|
SetLength(Result, MAX_PATH);
|
||||||
|
SHGetSpecialFolderPath(0, PChar(Result), nFolder, False);
|
||||||
|
SetLength(Result, StrLen(PChar(Result)));
|
||||||
|
if (Result <> '') and (Result[Length(Result)] <> '\') then
|
||||||
|
Result := Result + '\';
|
||||||
|
end;
|
||||||
|
|
||||||
|
function GetWindowsPath: string;
|
||||||
|
var
|
||||||
|
nRet: LongWord;
|
||||||
|
begin
|
||||||
|
SetLength(Result, MAX_PATH);
|
||||||
|
nRet := GetWindowsDirectory(PChar(Result), MAX_PATH);
|
||||||
|
if nRet = 0 then
|
||||||
|
Result := ''
|
||||||
|
else begin
|
||||||
|
SetLength(Result, nRet);
|
||||||
|
if (Result <> '') and (Result[Length(Result)] <> '\') then
|
||||||
|
Result := Result + '\';
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
////////////////////////////////////////////////////////////////////////////////
|
||||||
|
//设计：Lsuper 2013.05.01
|
||||||
|
//功能：创建注入进程
|
||||||
|
//参数：
|
||||||
|
//注意：加入 500ms 等待时间，确保 dll 加载成功后执行
|
||||||
|
////////////////////////////////////////////////////////////////////////////////
|
||||||
|
function CreateProcessEx(lpApplicationName: PChar; lpCommandLine: PChar;
|
||||||
|
lpProcessAttributes, lpThreadAttributes: PSecurityAttributes;
|
||||||
|
bInheritHandles: BOOL; dwCreationFlags: DWORD; lpEnvironment: Pointer;
|
||||||
|
lpCurrentDirectory: PChar; const lpStartupInfo: TStartupInfo;
|
||||||
|
var lpProcessInformation: TProcessInformation; const ALibraryName: AnsiString): Boolean;
|
||||||
|
begin
|
||||||
|
Result := False;
|
||||||
|
if not CreateProcess(lpApplicationName, lpCommandLine, lpProcessAttributes, lpThreadAttributes, bInheritHandles, dwCreationFlags or CREATE_SUSPENDED, lpEnvironment, lpCurrentDirectory, lpStartupInfo, lpProcessInformation) then
|
||||||
|
Exit;
|
||||||
|
Result := InjectLibraryModule(lpProcessInformation.hProcess, ALibraryName);
|
||||||
|
{
|
||||||
|
Result := uallHook.InjectLibrary(lpProcessInformation.dwProcessId, PChar(ALibraryName));
|
||||||
|
}
|
||||||
|
Sleep(500);
|
||||||
|
ResumeThread(lpProcessInformation.hThread);
|
||||||
|
end;
|
||||||
|
|
||||||
|
////////////////////////////////////////////////////////////////////////////////
|
||||||
|
//设计：Lsuper 2013.05.01
|
||||||
|
//功能：注入 DLL
|
||||||
|
//参数：
|
||||||
|
////////////////////////////////////////////////////////////////////////////////
|
||||||
|
function InjectLibraryModule(AProcessID: LongWord; const ALibraryName: AnsiString): Boolean;
|
||||||
|
var
|
||||||
|
dwProcessID2: DWord;
|
||||||
|
dwMemSize: DWord;
|
||||||
|
dwWritten: DWord;
|
||||||
|
dwThreadID: DWord;
|
||||||
|
pLLA: Pointer;
|
||||||
|
pTargetMemory: Pointer;
|
||||||
|
begin
|
||||||
|
Assert(ALibraryName <> '');
|
||||||
|
Result := False;
|
||||||
|
dwProcessID2 := OpenProcess(PROCESS_ALL_ACCESS, False, AProcessID);
|
||||||
|
if (dwProcessID2 <> 0) then
|
||||||
|
AProcessID := dwProcessID2;
|
||||||
|
dwMemSize := Length(ALibraryName) + 1;
|
||||||
|
pTargetMemory := VirtualAllocEx(AProcessID, nil, dwMemSize, MEM_COMMIT or MEM_RESERVE, PAGE_EXECUTE_READWRITE);
|
||||||
|
pLLA := GetProcAddress(GetModuleHandleA('kernel32.dll'), 'LoadLibraryA');
|
||||||
|
if (pLLA <> nil) and (pTargetMemory <> nil) then
|
||||||
|
begin
|
||||||
|
if WriteProcessMemory(AProcessID, pTargetMemory, PChar(ALibraryName), dwMemSize, dwWritten) and (dwWritten = dwMemSize) then
|
||||||
|
Result := CreateRemoteThread(AProcessID, nil, 0, pLLA, pTargetMemory, 0, dwThreadID) <> 0;
|
||||||
|
end;
|
||||||
|
if (dwProcessID2 <> 0) then
|
||||||
|
CloseHandle(dwProcessID2);
|
||||||
|
end;
|
||||||
|
|
||||||
|
////////////////////////////////////////////////////////////////////////////////
|
||||||
|
//设计：Lsuper 2009.10.25
|
||||||
|
//功能：判断是否 Vista/7
|
||||||
|
//参数：
|
||||||
|
////////////////////////////////////////////////////////////////////////////////
|
||||||
|
function IsWindowsVista: Boolean;
|
||||||
|
var
|
||||||
|
hKernel32: HMODULE;
|
||||||
|
begin
|
||||||
|
hKernel32 := GetModuleHandle('kernel32');
|
||||||
|
if hKernel32 > 0 then
|
||||||
|
Result := GetProcAddress(hKernel32, 'GetLocaleInfoEx') <> nil
|
||||||
|
else Result := false;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure LogMessage(const AMessage: string);
|
||||||
|
begin
|
||||||
|
OutputDebugString(PChar(AMessage));
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure SetMainFormHandle(const AHandle: HWND);
|
||||||
|
begin
|
||||||
|
MainFormHandle := AHandle;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure ShowError(const AMessage: string);
|
||||||
|
begin
|
||||||
|
TaskMessageBox(MainFormHandle, AMessage, 'Error', TD_ICON_ERROR, TD_BUTTON_OK);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure ShowMessage(const ACaption, AMessage: string);
|
||||||
|
begin
|
||||||
|
TaskMessageBox(MainFormHandle, AMessage, ACaption, TD_ICON_INFORMATION, TD_BUTTON_OK);
|
||||||
|
end;
|
||||||
|
|
||||||
|
////////////////////////////////////////////////////////////////////////////////
|
||||||
|
//设计：Lsuper 2009.10.25
|
||||||
|
//功能: 内部使用的用于显示对话框的函数，适应 Vista/7 系统风格
|
||||||
|
//参数：
|
||||||
|
//注意：参考 Application 的 MessageBox 和 Dialogs 的 代码，忽略多显示器判断代码
|
||||||
|
// http://www.tmssoftware.com/site/atbdev5.asp
|
||||||
|
////////////////////////////////////////////////////////////////////////////////
|
||||||
|
function TaskMessageBox(const AHandle: THandle; const AText, ACaption: string;
|
||||||
|
const Icon, Buttons: Integer): Integer;
|
||||||
|
const
|
||||||
|
conTaskDialogProcName = 'TaskDialog';
|
||||||
|
var
|
||||||
|
DLLHandle: THandle;
|
||||||
|
wTitle, wContent: array[0..1024] of widechar;
|
||||||
|
TaskDialogProc: function(HWND: THandle; hInstance: THandle; cTitle,
|
||||||
|
cDescription, cContent: PWideChar; Buttons: Integer; Icon: Integer;
|
||||||
|
ResButton: PInteger): Integer; cdecl stdcall;
|
||||||
|
Flags: Integer;
|
||||||
|
begin
|
||||||
|
Result := 0;
|
||||||
|
if IsWindowsVista then
|
||||||
|
begin
|
||||||
|
DLLHandle := LoadLibrary(comctl32);
|
||||||
|
@TaskDialogProc := GetProcAddress(DLLHandle, conTaskDialogProcName);
|
||||||
|
end
|
||||||
|
else TaskDialogProc := nil;
|
||||||
|
if Assigned(TaskDialogProc) then
|
||||||
|
begin
|
||||||
|
StringToWideChar(ACaption, wTitle, SizeOf(wTitle));
|
||||||
|
StringToWideChar(AText, wContent, SizeOf(wContent));
|
||||||
|
TaskDialogProc(AHandle, 0, wTitle, nil, wContent, Buttons, Icon, @Result);
|
||||||
|
end
|
||||||
|
else begin
|
||||||
|
Flags := 0;
|
||||||
|
if Buttons = TD_BUTTON_OK then
|
||||||
|
Flags := MB_OK;
|
||||||
|
if Buttons = TD_BUTTON_OK or TD_BUTTON_CANCEL then
|
||||||
|
Flags := MB_OKCANCEL;
|
||||||
|
if Buttons = TD_BUTTON_CLOSE or TD_BUTTON_RETRY or TD_BUTTON_CANCEL then
|
||||||
|
Flags := MB_ABORTRETRYIGNORE;
|
||||||
|
if Buttons = TD_BUTTON_YES or TD_BUTTON_NO or TD_BUTTON_CANCEL then
|
||||||
|
Flags := MB_YESNOCANCEL;
|
||||||
|
if Buttons = TD_BUTTON_YES or TD_BUTTON_NO then
|
||||||
|
Flags := MB_YESNO;
|
||||||
|
if Buttons = TD_BUTTON_RETRY or TD_BUTTON_CANCEL then
|
||||||
|
Flags := MB_RETRYCANCEL;
|
||||||
|
case Icon of
|
||||||
|
TD_ICON_BLANK:
|
||||||
|
;
|
||||||
|
TD_ICON_WARNING, TD_ICON_SHIELD_WARNING:
|
||||||
|
Flags := Flags or MB_ICONWARNING;
|
||||||
|
TD_ICON_QUESTION, TD_ICON_SHIELD_QUESTION:
|
||||||
|
Flags := Flags or MB_ICONQUESTION;
|
||||||
|
TD_ICON_ERROR, TD_ICON_SHIELD_ERROR:
|
||||||
|
Flags := Flags or MB_ICONERROR;
|
||||||
|
TD_ICON_INFORMATION, TD_ICON_SHIELD_OK:
|
||||||
|
Flags := Flags or MB_ICONINFORMATION;
|
||||||
|
end;
|
||||||
|
Result := Windows.MessageBox(AHandle, PChar(AText), PChar(ACaption), Flags);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
9
10.3.3/Activator/uses.inc
Normal file
9
10.3.3/Activator/uses.inc
Normal file
@ -0,0 +1,9 @@
|
|||||||
|
{ KOL MCK } // Do not remove this line!
|
||||||
|
{ uses.inc
|
||||||
|
This file is generated automatically - do not modify it manually.
|
||||||
|
It is included to be recognized by compiler, but replacing word
|
||||||
|
<uses> with compiler directive <$I uses.inc> fakes auto-completion
|
||||||
|
preventing it from automatic references adding to VCL units into
|
||||||
|
uses clause aimed for KOL environment only. }
|
||||||
|
|
||||||
|
uses
|
||||||
1
10.3.3/Dcu/dirinfo.txt
Normal file
1
10.3.3/Dcu/dirinfo.txt
Normal file
@ -0,0 +1 @@
|
|||||||
|
This directory is intended as a common place for sample application's EXE files
|
||||||
7
10.3.3/Keygen/AnsiStrings.pas
Normal file
7
10.3.3/Keygen/AnsiStrings.pas
Normal file
@ -0,0 +1,7 @@
|
|||||||
|
unit AnsiStrings;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
end.
|
||||||
2282
10.3.3/Keygen/FGInt.pas
Normal file
2282
10.3.3/Keygen/FGInt.pas
Normal file
File diff suppressed because it is too large
Load Diff
328
10.3.3/Keygen/RadKeygen.pas
Normal file
328
10.3.3/Keygen/RadKeygen.pas
Normal file
@ -0,0 +1,328 @@
|
|||||||
|
unit RadKeygen;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
SysUtils, Classes, Windows, Registry, SHFolder, Sha1, FGInt, RadVersion, RadLicense;
|
||||||
|
|
||||||
|
function GenerateSerialNumber():string;
|
||||||
|
function GetRegistrationCode():string;
|
||||||
|
function GenerateLicenseFile(SerialNumber,RegistrationCode:string;RadStudioVersion:PRadStudioVersion;var FileName:string):Boolean;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
function GetAppDataPath():string;
|
||||||
|
var
|
||||||
|
Path:array [0..MAX_PATH-1] of Char;
|
||||||
|
begin
|
||||||
|
if Succeeded(SHGetFolderPath(0, CSIDL_COMMON_APPDATA, 0, 0, @Path[0])) then
|
||||||
|
Result:=string(Path)
|
||||||
|
else
|
||||||
|
Result:='';
|
||||||
|
end;
|
||||||
|
|
||||||
|
function GenerateSerialNumber():string;
|
||||||
|
const
|
||||||
|
StrMap:string='ABC2DE34FGHJKLM5NPQRST6U7VWX8YZ9';
|
||||||
|
ByteMap:array[0..255] of Byte=($00, $07, $0E, $09, $1C, $1B, $12, $15, $38, $3F,
|
||||||
|
$36, $31, $24, $23, $2A, $2D, $70, $77, $7E, $79,
|
||||||
|
$6C, $6B, $62, $65, $48, $4F, $46, $41, $54, $53,
|
||||||
|
$5A, $5D, $E0, $E7, $EE, $E9, $FC, $FB, $F2, $F5,
|
||||||
|
$D8, $DF, $D6, $D1, $C4, $C3, $CA, $CD, $90, $97,
|
||||||
|
$9E, $99, $8C, $8B, $82, $85, $A8, $AF, $A6, $A1,
|
||||||
|
$B4, $B3, $BA, $BD, $C7, $C0, $C9, $CE, $DB, $DC,
|
||||||
|
$D5, $D2, $FF, $F8, $F1, $F6, $E3, $E4, $ED, $EA,
|
||||||
|
$B7, $B0, $B9, $BE, $AB, $AC, $A5, $A2, $8F, $88,
|
||||||
|
$81, $86, $93, $94, $9D, $9A, $27, $20, $29, $2E,
|
||||||
|
$3B, $3C, $35, $32, $1F, $18, $11, $16, $03, $04,
|
||||||
|
$0D, $0A, $57, $50, $59, $5E, $4B, $4C, $45, $42,
|
||||||
|
$6F, $68, $61, $66, $73, $74, $7D, $7A, $89, $8E,
|
||||||
|
$87, $80, $95, $92, $9B, $9C, $B1, $B6, $BF, $B8,
|
||||||
|
$AD, $AA, $A3, $A4, $F9, $FE, $F7, $F0, $E5, $E2,
|
||||||
|
$EB, $EC, $C1, $C6, $CF, $C8, $DD, $DA, $D3, $D4,
|
||||||
|
$69, $6E, $67, $60, $75, $72, $7B, $7C, $51, $56,
|
||||||
|
$5F, $58, $4D, $4A, $43, $44, $19, $1E, $17, $10,
|
||||||
|
$05, $02, $0B, $0C, $21, $26, $2F, $28, $3D, $3A,
|
||||||
|
$33, $34, $4E, $49, $40, $47, $52, $55, $5C, $5B,
|
||||||
|
$76, $71, $78, $7F, $6A, $6D, $64, $63, $3E, $39,
|
||||||
|
$30, $37, $22, $25, $2C, $2B, $06, $01, $08, $0F,
|
||||||
|
$1A, $1D, $14, $13, $AE, $A9, $A0, $A7, $B2, $B5,
|
||||||
|
$BC, $BB, $96, $91, $98, $9F, $8A, $8D, $84, $83,
|
||||||
|
$DE, $D9, $D0, $D7, $C2, $C5, $CC, $CB, $E6, $E1,
|
||||||
|
$E8, $EF, $FA, $FD, $F4, $F3);
|
||||||
|
var
|
||||||
|
i,v1,v2,v3,v4,v5,v6,v7,v8,v9:Integer;
|
||||||
|
SumValue:string;
|
||||||
|
ByteArray:array[0..19] of Byte;
|
||||||
|
begin
|
||||||
|
Randomize();
|
||||||
|
v1:=0;
|
||||||
|
v2:=0;
|
||||||
|
v3:=0;
|
||||||
|
v4:=0;
|
||||||
|
v5:=1;
|
||||||
|
v6:=8217;
|
||||||
|
v7:=53;
|
||||||
|
v8:= Random(32) shl 8;
|
||||||
|
v8:=v8 xor Random(32);
|
||||||
|
v8:= v8 mod $10000;
|
||||||
|
SumValue:=Format('%d',[v1 + v2 + v3 + v4 + v5 + v6 + v7 + v8]);
|
||||||
|
v9:=0;
|
||||||
|
|
||||||
|
for i := 0 to Length(SumValue)-1 do
|
||||||
|
begin
|
||||||
|
v9:=v9 xor ByteMap[Ord(SumValue[i+1])];
|
||||||
|
end;
|
||||||
|
ByteArray[0] := ((v8 shr 1) and 8) or ((v8 shr 5) and 4) or (2 * v5 and 2);
|
||||||
|
ByteArray[1] := ((v7 shr 1) and 16) or ((v7 shr 4) and 8) or ((v6 shr 5) and 2) or ((v6 shr 8) and 1);
|
||||||
|
ByteArray[2] := (2 * v7 and 16) or (8 * v8 and 8) or ((v5 shr 1) and 4) or ((v6 shr 4) and 2) or (v3 and 1);
|
||||||
|
ByteArray[3] := (4 * v5 and 16);
|
||||||
|
ByteArray[4] := (4 * v9 and 16) or ((v6 shr 4) and 8);
|
||||||
|
ByteArray[5] := (8 * v4 and 8) or ((v8 shr 1) and 4) or ((v8 shr 12) and 2);
|
||||||
|
ByteArray[6] := ((v9 shr 3) and 8) or ((v8 shr 4) and 4) or (2 * v1 and 2);
|
||||||
|
ByteArray[7] := ((v8 shr 11) and 16) or ((v8 shr 7) and 8) or (4 * v6 and 4) or ((v5 shr 3) and 2);
|
||||||
|
ByteArray[8] := ((v8 shr 7) and 16) or ((v6 shr 1) and 1);
|
||||||
|
ByteArray[9] := (4 * v6 and 16) or (v9 and 8) or (v8 and 4);
|
||||||
|
ByteArray[10] := ((v8 shr 9) and 8);
|
||||||
|
ByteArray[11] := (4 * v9 and 8) or (4 * v9 and 4) or (v8 and 2) or ((v8 shr 5) and 1);
|
||||||
|
ByteArray[12] := ((v8 shr 8) and 1);
|
||||||
|
ByteArray[13] := ((v6 shr 7) and 16) or ((v9 shr 7) and 1);
|
||||||
|
ByteArray[14] := (2 * v7 and 2) or ((v7 shr 1) and 1);
|
||||||
|
ByteArray[15] := (v6 and 8) or ((v6 shr 2) and 4) or ((v8 shr 9) and 1);
|
||||||
|
ByteArray[16] := (16 * v2 and 16) or (2 * v7 and 8) or ((v5 shr 1) and 1);
|
||||||
|
ByteArray[17] := ((v9 shr 3) and 2);
|
||||||
|
ByteArray[18] := (v7 and 16) or ((v6 shr 6) and 8) or ((v6 shr 8) and 4) or ((v8 shr 13) and 2) or ((v9 shr 5) and 1);
|
||||||
|
ByteArray[19] := ((v6 shr 9) and 16) or ((v7 shr 3) and 8) or ((v6 shr 11) and 2);
|
||||||
|
|
||||||
|
Result:='';
|
||||||
|
for i := 0 to Length(ByteArray)-1 do
|
||||||
|
begin
|
||||||
|
if (i=4) or (i=10) or (i=16) then Result:=Result+'-';
|
||||||
|
Result:=Result+StrMap[ByteArray[i]+1];
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function GetRegistrationCode():string;
|
||||||
|
|
||||||
|
function GetKey():DWORD;
|
||||||
|
const
|
||||||
|
KeyMap:string='ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890X';
|
||||||
|
var
|
||||||
|
ComputerName:array[0..MAX_PATH-1] of Char;
|
||||||
|
Key:string;
|
||||||
|
nSize:Cardinal;
|
||||||
|
i,j:Integer;
|
||||||
|
begin
|
||||||
|
Result:=$ED864640;
|
||||||
|
if (GetComputerName(@ComputerName[0],nSize)=False) then
|
||||||
|
Key:='localhost'
|
||||||
|
else
|
||||||
|
Key:=string(ComputerName);
|
||||||
|
|
||||||
|
Key:=UpperCase(Key);
|
||||||
|
for i := 0 to Length(Key)-1 do
|
||||||
|
begin
|
||||||
|
for j := 0 to Length(KeyMap)-1 do
|
||||||
|
begin
|
||||||
|
if (Key[i+1]=KeyMap[j+1]) then Break;
|
||||||
|
end;
|
||||||
|
if j>=Length(KeyMap) then
|
||||||
|
Result:=Result+16*88
|
||||||
|
else
|
||||||
|
Result:=Result+16*Ord(KeyMap[36-j]);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
FileName:string;
|
||||||
|
MemoryStream:TMemoryStream;
|
||||||
|
dwVerify,dwSize:DWORD;
|
||||||
|
pBuf,p:PByte;
|
||||||
|
i,j,eax,ebx,esi:Cardinal;
|
||||||
|
|
||||||
|
begin
|
||||||
|
Result:='';
|
||||||
|
MemoryStream:=TMemoryStream.Create;
|
||||||
|
try
|
||||||
|
if GetAppDataPath<>'' then
|
||||||
|
begin
|
||||||
|
FileName:=GetAppDataPath+'\Embarcadero\.licenses\.cg_license';
|
||||||
|
if FileExists(FileName) then
|
||||||
|
begin
|
||||||
|
MemoryStream.LoadFromFile(FileName);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
FileName:=GetAppDataPath+'\Embarcadero\.cg_license';
|
||||||
|
if FileExists(FileName) then
|
||||||
|
begin
|
||||||
|
MemoryStream.LoadFromFile(FileName);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
if MemoryStream.Size>8 then
|
||||||
|
begin
|
||||||
|
MemoryStream.Position:=0;
|
||||||
|
MemoryStream.Read(dwVerify,SizeOf(dwVerify));
|
||||||
|
MemoryStream.Read(dwSize,SizeOf(dwSize));
|
||||||
|
dwVerify:=(Swap(loWord(dwVerify)) shl 16) or Swap(HiWord(dwVerify));
|
||||||
|
dwSize:=(Swap(loWord(dwSize)) shl 16) or Swap(HiWord(dwSize));
|
||||||
|
pBuf:=AllocMem(dwSize);
|
||||||
|
MemoryStream.Read(pBuf^,dwSize);
|
||||||
|
p:=pBuf;
|
||||||
|
eax:=GetKey();
|
||||||
|
for i := 0 to dwSize-1 do
|
||||||
|
begin
|
||||||
|
esi:=p^;
|
||||||
|
if (esi and $80)=$80 then esi:=esi or $ffffff00;
|
||||||
|
ebx:=(eax shr 24) and $FF;
|
||||||
|
p^:=p^ xor ebx;
|
||||||
|
inc(p);
|
||||||
|
eax:=eax xor esi;
|
||||||
|
ebx:=eax shl 8;
|
||||||
|
eax:=eax xor ebx;
|
||||||
|
ebx:=eax shl 16;
|
||||||
|
eax:= eax xor ebx;
|
||||||
|
ebx:=eax shl 24;
|
||||||
|
eax:=eax xor ebx;
|
||||||
|
end;
|
||||||
|
eax:=eax and $7FFFFFFF;
|
||||||
|
if eax=dwVerify then
|
||||||
|
begin
|
||||||
|
for i := 0 to dwSize-1 do
|
||||||
|
begin
|
||||||
|
if PByte(Cardinal(pBuf)+i)^=36 then Break; //$
|
||||||
|
end;
|
||||||
|
Inc(i);
|
||||||
|
j:=0;
|
||||||
|
while (i<dwSize) and (PByte(Cardinal(pBuf)+i)^<>13) and (j<10) do
|
||||||
|
begin
|
||||||
|
Result:=Result+Chr(PByte(Cardinal(pBuf)+i)^);
|
||||||
|
Inc(i);
|
||||||
|
inc(j);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
FreeMem(pBuf,dwSize);
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
MemoryStream.Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function GenerateLicenseFile(SerialNumber,RegistrationCode:string;RadStudioVersion:PRadStudioVersion;var FileName:string):Boolean;
|
||||||
|
const
|
||||||
|
ModStr:string='8EBD9E688D7106E57BCF63D41BADCE133FEB4CDB718F48F7BF39F6A26EB60BAE'+
|
||||||
|
'0E930DC984FDED2537750C9DCFBB87D7AC7F3AA4D65D9E35C2D277BCB0ECDCA0'+
|
||||||
|
'2D7DAE739AC8BCAE86914F6E77C17A82C77438421FC315DC38F09C7E840AF41E'+
|
||||||
|
'663C5562222E661ED22578A234B58481F862CEABF477C89AE70F15134F83BC7E'+
|
||||||
|
'C2EF57E7274EB74353DE22283113485D9803D4050EF46DB1467EE9D066B104EB'+
|
||||||
|
'385D3C36BD29B58E237E22C0BE66D450BDFCED524481B6DCE3F83BBEC547F926'+
|
||||||
|
'AD23057504DEDB9723EBFD26218167AAC79485FF608F8881D9A6AF5C57BE9A2F'+
|
||||||
|
'B52047ABA92F806955580517F6D147BA1FD5DB3EEF1CEE4CA250D1C0FA824CD9';
|
||||||
|
ExpStr:string='7E8325B1791B628766F2EB82057E4895DB234C1D7B4B09DB3B8BBE433D68F075'+
|
||||||
|
'36C9B38096F51088D9DC4E7058BBD7AC9A60B1B383A3BA23E026F6A53112DE80'+
|
||||||
|
'C191115BB9268DC509D424D8BE1FA7DBDDB7EE5CFD15C57C48A349B1008B4CCE'+
|
||||||
|
'DCC240D31784945260E3814612FD871242FA203F5C1006A6F47FF3A807E3B4DE'+
|
||||||
|
'39535FB5523ABED7B4337606E69245EC13BF9B553FD6F45B0FD290D7CBBEB8C8'+
|
||||||
|
'DF2252DE7EB6A83A679873CC9842B52A093ED00742F11CD23CB5278873253E79'+
|
||||||
|
'0E30B16AC72B7ACF9824B568ED971D768B95CA9D4C9A40C884542B8696AADF58'+
|
||||||
|
'184CE6376E51451EF8D266ECA691ECAB25E15AA8E527312755A55C2B7D390AD9';
|
||||||
|
var
|
||||||
|
Slip,Tmp:AnsiString;
|
||||||
|
Len,v2,v5:Cardinal;
|
||||||
|
FGInt,exp,modb,res:TFGInt;
|
||||||
|
i:Integer;
|
||||||
|
Stream:TMemoryStream;
|
||||||
|
SearchRec:TSearchRec;
|
||||||
|
begin
|
||||||
|
Result:=False;
|
||||||
|
if (Trim(SerialNumber)='') or (Trim(RegistrationCode)='') or
|
||||||
|
(TryStrToInt(Trim(RegistrationCode),i)=False) then Exit;
|
||||||
|
|
||||||
|
Slip:=AnsiString(CreateLicenseText(SerialNumber,RegistrationCode,RadStudioVersion));
|
||||||
|
|
||||||
|
Len:= Length(Slip);
|
||||||
|
Len:=(Swap(loWord(Len)) shl 16) or Swap(HiWord(Len));
|
||||||
|
Tmp:=PChar(@Len)^+(PChar(@Len)+1)^+(PChar(@Len)+2)^+(PChar(@Len)+3)^+Slip;
|
||||||
|
Tmp:='01'+StringOfChar('F',66)+'00'+UpperCase(SHA1Print(SHA1String(Tmp)));
|
||||||
|
|
||||||
|
ConvertHexStringToBase256String(Tmp,Tmp);
|
||||||
|
Base256StringToFGInt(Tmp,FGInt);
|
||||||
|
|
||||||
|
ConvertHexStringToBase256String(ExpStr,Tmp);
|
||||||
|
Base256StringToFGInt(Tmp,exp);
|
||||||
|
|
||||||
|
ConvertHexStringToBase256String(ModStr,Tmp);
|
||||||
|
Base256StringToFGInt(Tmp,modb);
|
||||||
|
|
||||||
|
FGIntModExp(FGInt,exp,modb,res);
|
||||||
|
FGIntToBase256String(res,Tmp);
|
||||||
|
PGPConvertBase256to64(Tmp,Tmp);
|
||||||
|
|
||||||
|
FGIntDestroy(FGInt);
|
||||||
|
FGIntDestroy(exp);
|
||||||
|
FGIntDestroy(modb);
|
||||||
|
FGIntDestroy(res);
|
||||||
|
|
||||||
|
Slip:=StringReplace(Slip,'e.sign'#10'0'#10,'e.sign'#10'CgeEeu66fCgQJBaqKQwwyiqyHYb22nc2VZRmQVasSDnZAtB/QTLt0CYdgdN16XCz/Nt032fMwTsytchG0l2UeA=='#10,[rfReplaceAll]);
|
||||||
|
Slip:=StringReplace(Slip,'e.sign2'#10'0'#10,'e.sign2'#10'JWKzOwTKBL+zOP5wrouG5ta/mH+Fvsgb7hb8oJTzu4r3gK/6sh95zKAWKiydqsgvV9pxPXTAlkxv9wAecqJKTQ=='#10,[rfReplaceAll]);
|
||||||
|
Slip:=StringReplace(Slip,'e.sign3'#10'0'#10,'e.sign3'#10+Tmp+#10,[rfReplaceAll]);
|
||||||
|
|
||||||
|
v2:=$E7F931C2;
|
||||||
|
for i := 0 to Length(Slip) - 1 do
|
||||||
|
begin
|
||||||
|
Slip[i+1]:= AnsiChar(Chr(Ord(Slip[i+1]) xor ((v2 shr 24) and $FF)));
|
||||||
|
v5:=Ord(Slip[i+1]);
|
||||||
|
if (v5 and $80)=$80 then v5:=v5 or $ffffff00;
|
||||||
|
v5:= v5 xor v2;
|
||||||
|
v5:=(v5 shl 8) xor v5;
|
||||||
|
v5:=(v5 shl 16) xor v5;
|
||||||
|
v5:=(v5 shl 24) xor v5;
|
||||||
|
v2:=v5;
|
||||||
|
end;
|
||||||
|
|
||||||
|
v2:=(Swap(loWord(v2)) shl 16) or Swap(HiWord(v2));
|
||||||
|
Len:=Length(Slip);
|
||||||
|
Len:=(Swap(loWord(Len)) shl 16) or Swap(HiWord(Len));
|
||||||
|
|
||||||
|
Stream:=TMemoryStream.Create;
|
||||||
|
try
|
||||||
|
Stream.Write(v2,4);
|
||||||
|
Stream.Write(Len,4);
|
||||||
|
Stream.Write(Slip[1],Length(Slip));
|
||||||
|
if (FileName='') or (not DirectoryExists(ExtractFilePath(FileName))) then
|
||||||
|
begin
|
||||||
|
if DirectoryExists(GetAppDataPath+'\Embarcadero') then
|
||||||
|
begin
|
||||||
|
Tmp:=Format('%s\Embarcadero\.%d_%d.19*.slip',[GetAppDataPath,RadStudioVersion^.LicHostPID,RadStudioVersion^.LicHostSKU]);
|
||||||
|
{
|
||||||
|
if (FindFirst(Tmp,faAnyFile,SearchRec)=0) and
|
||||||
|
(MessageBox(0,PAnsiChar(Format('Do you want to Delete the old slip file int %s folder',[GetAppDataPath])), 'Rad Studio Keygen',MB_YESNO + MB_ICONQUESTION) = IDYES) then
|
||||||
|
}
|
||||||
|
if (FindFirst(Tmp,faAnyFile,SearchRec)=0) then
|
||||||
|
begin
|
||||||
|
DeleteFile(PAnsiChar(Format('%s\Embarcadero\%s',[GetAppDataPath,SearchRec.Name])));
|
||||||
|
while FindNext(SearchRec)=0 do
|
||||||
|
begin
|
||||||
|
DeleteFile(PAnsiChar(Format('%s\Embarcadero\%s',[GetAppDataPath,SearchRec.Name])));
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
SysUtils.FindClose(SearchRec);
|
||||||
|
FileName:=Format('%s\Embarcadero\.%d_%d.19%d%d%d%d%d%d%d%d%d%d%d.slip',[GetAppDataPath,RadStudioVersion^.LicHostPID,RadStudioVersion^.LicHostSKU,
|
||||||
|
Random(10),Random(10),Random(10),Random(10),Random(10),
|
||||||
|
Random(10),Random(10),Random(10),Random(10),Random(10),Random(10)]);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
FileName:=ExtractFileDir(ParamStr(0))+'\RAD Studio Activation.slip';
|
||||||
|
end;
|
||||||
|
Stream.SaveToFile(FileName);
|
||||||
|
{
|
||||||
|
PatchmOasisRuntime(RadStudioVersion);
|
||||||
|
}
|
||||||
|
Result:=True;
|
||||||
|
finally
|
||||||
|
Stream.Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
248
10.3.3/Keygen/RadLicense.pas
Normal file
248
10.3.3/Keygen/RadLicense.pas
Normal file
@ -0,0 +1,248 @@
|
|||||||
|
unit RadLicense;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses RadVersion,SysUtils;
|
||||||
|
|
||||||
|
function CreateLicenseText(SerialNumber,ActiveCode:string;RadStudioVersion:PRadStudioVersion):string;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
function CreateLicenseText(SerialNumber,ActiveCode:string;RadStudioVersion:PRadStudioVersion):string;
|
||||||
|
var
|
||||||
|
pid,skuid:string;
|
||||||
|
begin
|
||||||
|
pid:=IntToStr(RadStudioVersion^.LicHostPID);
|
||||||
|
skuid:=IntToStr(RadStudioVersion^.LicHostSKU);
|
||||||
|
|
||||||
|
Result:='11'#10;
|
||||||
|
Result:=Result+'e.pkg'#10'Embarcadero RAD Studio '+ RadStudioVersion^.LicVerStr +' Architect'#10;
|
||||||
|
Result:=Result+'e.pt'#10'10'#10;
|
||||||
|
Result:=Result+'e.sign'#10'0'#10;
|
||||||
|
Result:=Result+'e.sign2'#10'0'#10;
|
||||||
|
Result:=Result+'e.sign3'#10'0'#10;
|
||||||
|
Result:=Result+'export.allowed'#10'0'#10;
|
||||||
|
Result:=Result+'import.allowed'#10'1'#10;
|
||||||
|
Result:=Result+'import.silent'#10'1'#10;
|
||||||
|
Result:=Result+'licensed.serialno'#10+SerialNumber+#10;
|
||||||
|
Result:=Result+'nodelock.node'#10'0'#10;
|
||||||
|
Result:=Result+'nodelock.session'#10+ActiveCode+#10;
|
||||||
|
|
||||||
|
Result:=Result+'4'#10;
|
||||||
|
|
||||||
|
Result:=Result+'26'#10;
|
||||||
|
Result:=Result+'active'#10'T'#10;
|
||||||
|
Result:=Result+'beta'#10'0'#10;
|
||||||
|
Result:=Result+'exportable'#10'0'#10;
|
||||||
|
Result:=Result+'hostpid'#10+pid+#10;
|
||||||
|
Result:=Result+'hostskuid'#10+skuid+#10;
|
||||||
|
Result:=Result+'internaluse'#10'0'#10;
|
||||||
|
Result:=Result+'naggy'#10'0'#10;
|
||||||
|
Result:=Result+'noncommercial'#10'0'#10;
|
||||||
|
Result:=Result+'noncommercial_label'#10'No'#10;
|
||||||
|
Result:=Result+'platform'#10'1'#10;
|
||||||
|
Result:=Result+'platform_label'#10'Windows'#10;
|
||||||
|
Result:=Result+'product'#10'2000'#10;
|
||||||
|
Result:=Result+'productid'#10+ RadStudioVersion^.LicDelphiPID +#10;
|
||||||
|
Result:=Result+'productid_label'#10'Delphi '+ RadStudioVersion^.LicVerStr +#10;
|
||||||
|
Result:=Result+'productsku'#10+skuid+#10;
|
||||||
|
Result:=Result+'productsku_label'#10'Architect'#10;
|
||||||
|
Result:=Result+'rndkey'#10'20264023'#10;
|
||||||
|
Result:=Result+'serialno'#10+SerialNumber+#10;
|
||||||
|
Result:=Result+'sku'#10+skuid+#10;
|
||||||
|
Result:=Result+'templicense'#10'0'#10;
|
||||||
|
Result:=Result+'termtype'#10'0'#10;
|
||||||
|
Result:=Result+'termtype_label'#10'Unlimited'#10;
|
||||||
|
Result:=Result+'title'#10'Delphi '+ RadStudioVersion^.LicVerStr +' Architect'#10;
|
||||||
|
Result:=Result+'trial'#10'0'#10;
|
||||||
|
Result:=Result+'upgrade'#10'0'#10;
|
||||||
|
Result:=Result+'version'#10'26'#10;
|
||||||
|
Result:=Result+'27'#10;
|
||||||
|
Result:=Result+'Android'#10'T'#10;
|
||||||
|
Result:=Result+'DESIGNDIAGRAMS'#10'TRUE'#10;
|
||||||
|
Result:=Result+'DESIGNPROJECTS'#10'TRUE'#10;
|
||||||
|
Result:=Result+'Desktop'#10'T'#10;
|
||||||
|
Result:=Result+'FULLQA'#10'TRUE'#10;
|
||||||
|
Result:=Result+'FulliOS'#10'T'#10;
|
||||||
|
Result:=Result+'Linux64'#10'T'#10;
|
||||||
|
Result:=Result+'MODELLING'#10'TRUE'#10;
|
||||||
|
Result:=Result+'Mobile'#10'T'#10;
|
||||||
|
Result:=Result+'OSX32'#10'T'#10;
|
||||||
|
Result:=Result+'OSX64'#10'T'#10;
|
||||||
|
Result:=Result+'Win32'#10'T'#10;
|
||||||
|
Result:=Result+'Win64'#10'T'#10;
|
||||||
|
Result:=Result+'a100'#10'MakeThingsHappen'#10;
|
||||||
|
Result:=Result+'a1000'#10'PrintMoreMoney'#10;
|
||||||
|
Result:=Result+'a101'#10'ImGivinItAllShesGot'#10;
|
||||||
|
Result:=Result+'a200'#10'StampIt'#10;
|
||||||
|
Result:=Result+'a250'#10'ItsToolTimeBaby'#10;
|
||||||
|
Result:=Result+'a300'#10'TheMalteseFalcon'#10;
|
||||||
|
Result:=Result+'a301'#10'GlueSolvent'#10;
|
||||||
|
Result:=Result+'hostsuite'#10+pid+#10;
|
||||||
|
Result:=Result+'iOSDevice'#10'T'#10;
|
||||||
|
Result:=Result+'iOSDevice32'#10'T'#10;
|
||||||
|
Result:=Result+'iOSDevice64'#10'T'#10;
|
||||||
|
Result:=Result+'iOSSimulator'#10'T'#10;
|
||||||
|
Result:=Result+'updatelevel'#10'0.0'#10;
|
||||||
|
Result:=Result+'updates'#10'1'#10;
|
||||||
|
|
||||||
|
Result:=Result+'26'#10;
|
||||||
|
Result:=Result+'active'#10'T'#10;
|
||||||
|
Result:=Result+'beta'#10'0'#10;
|
||||||
|
Result:=Result+'exportable'#10'0'#10;
|
||||||
|
Result:=Result+'hostpid'#10+pid+#10;
|
||||||
|
Result:=Result+'hostskuid'#10+skuid+#10;
|
||||||
|
Result:=Result+'internaluse'#10'0'#10;
|
||||||
|
Result:=Result+'naggy'#10'0'#10;
|
||||||
|
Result:=Result+'noncommercial'#10'0'#10;
|
||||||
|
Result:=Result+'noncommercial_label'#10'No'#10;
|
||||||
|
Result:=Result+'platform'#10'1'#10;
|
||||||
|
Result:=Result+'platform_label'#10'Windows'#10;
|
||||||
|
Result:=Result+'product'#10'4000'#10;
|
||||||
|
Result:=Result+'productid'#10+ RadStudioVersion^.LicCBuilderPID +#10;
|
||||||
|
Result:=Result+'productid_label'#10'C++Builder '+ RadStudioVersion^.LicVerStr +#10;
|
||||||
|
Result:=Result+'productsku'#10+skuid+#10;
|
||||||
|
Result:=Result+'productsku_label'#10'Architect'#10; //Architect
|
||||||
|
Result:=Result+'rndkey'#10'20264023'#10;
|
||||||
|
Result:=Result+'serialno'#10+SerialNumber+#10;
|
||||||
|
Result:=Result+'sku'#10+skuid+#10;
|
||||||
|
Result:=Result+'templicense'#10'0'#10;
|
||||||
|
Result:=Result+'termtype'#10'0'#10;
|
||||||
|
Result:=Result+'termtype_label'#10'Unlimited'#10;
|
||||||
|
Result:=Result+'title'#10'C++Builder '+ RadStudioVersion^.LicVerStr +' Architect'#10;
|
||||||
|
Result:=Result+'trial'#10'0'#10;
|
||||||
|
Result:=Result+'upgrade'#10'0'#10;
|
||||||
|
Result:=Result+'version'#10'20'#10;
|
||||||
|
Result:=Result+'26'#10;
|
||||||
|
Result:=Result+'Android'#10'T'#10;
|
||||||
|
Result:=Result+'DESIGNDIAGRAMS'#10'TRUE'#10;
|
||||||
|
Result:=Result+'DESIGNPROJECTS'#10'TRUE'#10;
|
||||||
|
Result:=Result+'Desktop'#10'T'#10;
|
||||||
|
Result:=Result+'FULLQA'#10'TRUE'#10;
|
||||||
|
Result:=Result+'FulliOS'#10'T'#10;
|
||||||
|
Result:=Result+'MODELLING'#10'TRUE'#10;
|
||||||
|
Result:=Result+'Mobile'#10'T'#10;
|
||||||
|
Result:=Result+'OSX32'#10'T'#10;
|
||||||
|
Result:=Result+'OSX64'#10'T'#10;
|
||||||
|
Result:=Result+'Win32'#10'T'#10;
|
||||||
|
Result:=Result+'Win64'#10'T'#10;
|
||||||
|
Result:=Result+'a100'#10'MakeThingsHappen'#10;
|
||||||
|
Result:=Result+'a1000'#10'PrintMoreMoney'#10;
|
||||||
|
Result:=Result+'a101'#10'ImGivinItAllShesGot'#10;
|
||||||
|
Result:=Result+'a200'#10'StampIt'#10;
|
||||||
|
Result:=Result+'a250'#10'ItsToolTimeBaby'#10;
|
||||||
|
Result:=Result+'a300'#10'TheMalteseFalcon'#10;
|
||||||
|
Result:=Result+'a301'#10'GlueSolvent'#10;
|
||||||
|
Result:=Result+'hostsuite'#10+pid+#10;
|
||||||
|
Result:=Result+'iOSDevice'#10'T'#10;
|
||||||
|
Result:=Result+'iOSDevice32'#10'T'#10;
|
||||||
|
Result:=Result+'iOSDevice64'#10'T'#10;
|
||||||
|
Result:=Result+'iOSSimulator'#10'T'#10;
|
||||||
|
Result:=Result+'updatelevel'#10'0.0'#10;
|
||||||
|
Result:=Result+'updates'#10'1'#10;
|
||||||
|
|
||||||
|
Result:=Result+'26'#10;
|
||||||
|
Result:=Result+'active'#10'T'#10;
|
||||||
|
Result:=Result+'beta'#10'0'#10;
|
||||||
|
Result:=Result+'exportable'#10'0'#10;
|
||||||
|
Result:=Result+'hostpid'#10+pid+#10;
|
||||||
|
Result:=Result+'hostskuid'#10+skuid+#10;
|
||||||
|
Result:=Result+'internaluse'#10'0'#10;
|
||||||
|
Result:=Result+'naggy'#10'0'#10;
|
||||||
|
Result:=Result+'noncommercial'#10'0'#10;
|
||||||
|
Result:=Result+'noncommercial_label'#10'No'#10;
|
||||||
|
Result:=Result+'platform'#10'0'#10;
|
||||||
|
Result:=Result+'platform_label'#10'Cross Platform'#10;
|
||||||
|
Result:=Result+'product'#10'7000'#10;
|
||||||
|
Result:=Result+'productid'#10'7113'#10;
|
||||||
|
Result:=Result+'productid_label'#10'InterBase 2020'#10; //InterBase 2020
|
||||||
|
Result:=Result+'productsku'#10'0'#10;
|
||||||
|
Result:=Result+'productsku_label'#10'Server'#10; //Server
|
||||||
|
Result:=Result+'rndkey'#10'20264023'#10;
|
||||||
|
Result:=Result+'serialno'#10+SerialNumber+#10;
|
||||||
|
Result:=Result+'sku'#10'0'#10;
|
||||||
|
Result:=Result+'templicense'#10'0'#10;
|
||||||
|
Result:=Result+'termtype'#10'0'#10;
|
||||||
|
Result:=Result+'termtype_label'#10'Unlimited'#10;
|
||||||
|
Result:=Result+'title'#10'InterBase 2020 Server'#10; //InterBase 2020 Server
|
||||||
|
Result:=Result+'trial'#10'0'#10;
|
||||||
|
Result:=Result+'upgrade'#10'0'#10;
|
||||||
|
Result:=Result+'version'#10'8'#10;
|
||||||
|
Result:=Result+'21'#10;
|
||||||
|
Result:=Result+'changeView'#10'1'#10;
|
||||||
|
Result:=Result+'connectionMonitoring'#10'1'#10;
|
||||||
|
Result:=Result+'connectionsPerUser'#10'200'#10;
|
||||||
|
Result:=Result+'customVarId'#10' '#10;
|
||||||
|
Result:=Result+'databaseAccess'#10'1'#10;
|
||||||
|
Result:=Result+'dbEncryption'#10'1'#10;
|
||||||
|
Result:=Result+'ddlOperations'#10'1'#10;
|
||||||
|
Result:=Result+'devLicense'#10'1'#10;
|
||||||
|
Result:=Result+'externalFileAccess'#10'1'#10;
|
||||||
|
Result:=Result+'internetAccess'#10'1'#10;
|
||||||
|
Result:=Result+'languages'#10'ALL'#10;
|
||||||
|
Result:=Result+'licensedCpus'#10'32'#10;
|
||||||
|
Result:=Result+'licensedUsers'#10'5000'#10;
|
||||||
|
Result:=Result+'nodeID'#10' '#10;
|
||||||
|
Result:=Result+'otwEncryption'#10'1'#10;
|
||||||
|
Result:=Result+'remoteAccess'#10'1'#10;
|
||||||
|
Result:=Result+'serverAccess'#10'1'#10;
|
||||||
|
Result:=Result+'togoAccess'#10'0'#10;
|
||||||
|
Result:=Result+'updatelevel'#10'0.0'#10;
|
||||||
|
Result:=Result+'useAddons'#10'0'#10;
|
||||||
|
Result:=Result+'version'#10'14.0'#10;
|
||||||
|
|
||||||
|
Result:=Result+'26'#10;
|
||||||
|
Result:=Result+'active'#10'T'#10;
|
||||||
|
Result:=Result+'beta'#10'0'#10;
|
||||||
|
Result:=Result+'exportable'#10'0'#10;
|
||||||
|
Result:=Result+'hostpid'#10+pid+#10;
|
||||||
|
Result:=Result+'hostskuid'#10+skuid+#10;
|
||||||
|
Result:=Result+'internaluse'#10'0'#10;
|
||||||
|
Result:=Result+'naggy'#10'0'#10;
|
||||||
|
Result:=Result+'noncommercial'#10'0'#10;
|
||||||
|
Result:=Result+'noncommercial_label'#10'No'#10;
|
||||||
|
Result:=Result+'platform'#10'0'#10;
|
||||||
|
Result:=Result+'platform_label'#10'All'#10;
|
||||||
|
Result:=Result+'product'#10'7000'#10;
|
||||||
|
Result:=Result+'productid'#10'7113'#10;
|
||||||
|
Result:=Result+'productid_label'#10'InterBase 2020'#10; //InterBase 2020
|
||||||
|
Result:=Result+'productsku'#10'16'#10;
|
||||||
|
Result:=Result+'productsku_label'#10'ToGo Edition'#10; //ToGo Edition
|
||||||
|
Result:=Result+'rndkey'#10'20264023'#10;
|
||||||
|
Result:=Result+'serialno'#10+SerialNumber+#10;
|
||||||
|
Result:=Result+'sku'#10'16'#10;
|
||||||
|
Result:=Result+'templicense'#10'0'#10;
|
||||||
|
Result:=Result+'termtype'#10'0'#10;
|
||||||
|
Result:=Result+'termtype_label'#10'Unlimited'#10;
|
||||||
|
Result:=Result+'title'#10'InterBase 2020 ToGo Edition'#10; //InterBase 2020 ToGo Edition
|
||||||
|
Result:=Result+'trial'#10'0'#10;
|
||||||
|
Result:=Result+'upgrade'#10'0'#10;
|
||||||
|
Result:=Result+'version'#10'8'#10;
|
||||||
|
Result:=Result+'21'#10;
|
||||||
|
Result:=Result+'changeView'#10'1'#10;
|
||||||
|
Result:=Result+'connectionMonitoring'#10'1'#10;
|
||||||
|
Result:=Result+'connectionsPerUser'#10'200'#10;
|
||||||
|
Result:=Result+'customVarId'#10' '#10;
|
||||||
|
Result:=Result+'databaseAccess'#10'1'#10;
|
||||||
|
Result:=Result+'dbEncryption'#10'1'#10;
|
||||||
|
Result:=Result+'ddlOperations'#10'1'#10;
|
||||||
|
Result:=Result+'devLicense'#10'1'#10;
|
||||||
|
Result:=Result+'externalFileAccess'#10'1'#10;
|
||||||
|
Result:=Result+'internetAccess'#10'1'#10;
|
||||||
|
Result:=Result+'languages'#10'ALL'#10;
|
||||||
|
Result:=Result+'licensedCpus'#10'32'#10;
|
||||||
|
Result:=Result+'licensedUsers'#10'5000'#10;
|
||||||
|
Result:=Result+'nodeID'#10' '#10;
|
||||||
|
Result:=Result+'otwEncryption'#10'1'#10;
|
||||||
|
Result:=Result+'remoteAccess'#10'1'#10;
|
||||||
|
Result:=Result+'serverAccess'#10'1'#10;
|
||||||
|
Result:=Result+'togoAccess'#10'1'#10;
|
||||||
|
Result:=Result+'updatelevel'#10'0.0'#10;
|
||||||
|
Result:=Result+'useAddons'#10'0'#10;
|
||||||
|
Result:=Result+'version'#10'14.0'#10;
|
||||||
|
|
||||||
|
Result:=Result+'1'#10;
|
||||||
|
Result:=Result+'updatelevel'#10'0.0'#10;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
85
10.3.3/Keygen/RadVersion.pas
Normal file
85
10.3.3/Keygen/RadVersion.pas
Normal file
@ -0,0 +1,85 @@
|
|||||||
|
unit RadVersion;
|
||||||
|
|
||||||
|
interface
|
||||||
|
uses Windows,Classes,SysUtils;
|
||||||
|
type
|
||||||
|
TPatchInfo=record
|
||||||
|
Crc:DWORD;
|
||||||
|
Sha1:string;
|
||||||
|
PatchOffset:DWORD;
|
||||||
|
FinalizeArrayOffset:DWORD;
|
||||||
|
end;
|
||||||
|
|
||||||
|
TRadStudioVersion=record
|
||||||
|
Name:string; // Rad Studio 10.2 Tokyo Update2
|
||||||
|
Ver:string; // 25.0.29039.2004
|
||||||
|
BDSVersion:string; // 19.0
|
||||||
|
LicVerStr:string; // 10.2 Tokyo
|
||||||
|
LicHostPID:Integer; // 8219
|
||||||
|
LicHostSKU:Integer; // 52
|
||||||
|
LicDelphiPID:string; // 2025
|
||||||
|
LicCBuilderPID:string; // 4022
|
||||||
|
// BdsPatchInfo:TPatchInfo;
|
||||||
|
// LicenseManagerPatchInfo:TPatchInfo;
|
||||||
|
// mOasisRuntimePatchInfo:TPatchInfo;
|
||||||
|
// SetupGUID:string;
|
||||||
|
// ISOUrl:string;
|
||||||
|
// ISOMd5:string;
|
||||||
|
end;
|
||||||
|
PRadStudioVersion=^TRadStudioVersion;
|
||||||
|
var
|
||||||
|
RadStudioVersionList:TStringList;
|
||||||
|
implementation
|
||||||
|
|
||||||
|
procedure InitRadStudioVersion(VerList:TStringList);
|
||||||
|
var
|
||||||
|
RadStudioVersion:PRadStudioVersion;
|
||||||
|
begin
|
||||||
|
New(RadStudioVersion);
|
||||||
|
with RadStudioVersion^ do
|
||||||
|
begin
|
||||||
|
Name := 'Rad Studio 10.3.3 Rio 7899 Architect';
|
||||||
|
Ver := '26.0.36039.7899';
|
||||||
|
BDSVersion := '20.0';
|
||||||
|
LicVerStr := '10.3';
|
||||||
|
LicHostPID := 8220;
|
||||||
|
LicHostSKU := 53;
|
||||||
|
LicDelphiPID := '2026';
|
||||||
|
LicCBuilderPID := '4023';
|
||||||
|
// BdsPatchInfo.Crc := $C426EC4A;
|
||||||
|
// BdsPatchInfo.Sha1 := '43BB879FE9EFD7B8752F2B5D99DF31F7CD948D68';
|
||||||
|
// BdsPatchInfo.PatchOffset := $1F724;
|
||||||
|
// BdsPatchInfo.FinalizeArrayOffset := $11EF7C;
|
||||||
|
// LicenseManagerPatchInfo.Crc := $0D512F70;
|
||||||
|
// LicenseManagerPatchInfo.Sha1 := '8D16D4521BCC12D537EB20B33864654E7A5B81C0';
|
||||||
|
// LicenseManagerPatchInfo.PatchOffset := $1F002C;
|
||||||
|
// LicenseManagerPatchInfo.FinalizeArrayOffset := $6227A4;
|
||||||
|
// mOasisRuntimePatchInfo.Sha1 := '101FC6D71A1DDEAF3B079477560DD0307ADE3C80';
|
||||||
|
// mOasisRuntimePatchInfo.PatchOffset := $0016CFE9;
|
||||||
|
// SetupGUID := '{426A3606-6CB8-4CF8-87A8-44388377C47D}';
|
||||||
|
// ISOUrl := 'http://altd.embarcadero.com/download/radstudio/10.3/delphicbuilder10_3_0_94364.iso';
|
||||||
|
// ISOMd5 := '0882D58CB53A7D0A828CC45D06C6ECD0';
|
||||||
|
end;
|
||||||
|
VerList.AddObject(RadStudioVersion^.Name, TObject(RadStudioVersion));
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure FinallyRadStudioVersion(VerList:TStringList);
|
||||||
|
var
|
||||||
|
RadStudioVersion:PRadStudioVersion;
|
||||||
|
begin
|
||||||
|
while VerList.Count>0 do
|
||||||
|
begin
|
||||||
|
RadStudioVersion:=PRadStudioVersion(VerList.Objects[0]);
|
||||||
|
if RadStudioVersion<>nil then Dispose(RadStudioVersion);
|
||||||
|
VerList.Delete(0);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
initialization
|
||||||
|
RadStudioVersionList:= TStringList.Create;
|
||||||
|
InitRadStudioVersion(RadStudioVersionList);
|
||||||
|
finalization
|
||||||
|
FinallyRadStudioVersion(RadStudioVersionList);
|
||||||
|
FreeAndNil(RadStudioVersionList);
|
||||||
|
|
||||||
|
end.
|
||||||
251
10.3.3/Keygen/Sha1.pas
Normal file
251
10.3.3/Keygen/Sha1.pas
Normal file
@ -0,0 +1,251 @@
|
|||||||
|
{
|
||||||
|
|
||||||
|
***************************************************
|
||||||
|
* A binary compatible SHA1 implementation *
|
||||||
|
* written by Dave Barton (davebarton@bigfoot.com) *
|
||||||
|
***************************************************
|
||||||
|
* 160bit hash size *
|
||||||
|
***************************************************
|
||||||
|
|
||||||
|
}
|
||||||
|
unit SHA1;
|
||||||
|
|
||||||
|
interface
|
||||||
|
uses
|
||||||
|
Windows,SysUtils;
|
||||||
|
|
||||||
|
type
|
||||||
|
TSHA1Digest = array[0..19] of byte;
|
||||||
|
TSHA1Context = record
|
||||||
|
Hash: array[0..4] of DWord;
|
||||||
|
Hi, Lo: integer;
|
||||||
|
Buffer: array[0..63] of byte;
|
||||||
|
Index: integer;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure SHA1Init(var Context: TSHA1Context);
|
||||||
|
procedure SHA1Update(var Context: TSHA1Context; Buffer: pointer; Len: integer);
|
||||||
|
procedure SHA1Final(var Context: TSHA1Context; var Digest: TSHA1Digest);
|
||||||
|
|
||||||
|
|
||||||
|
function SHA1String(M: AnsiString): TSHA1Digest;
|
||||||
|
function SHA1File(N: string): TSHA1Digest;
|
||||||
|
function SHA1Print(Digest: TSHA1Digest): AnsiString;
|
||||||
|
|
||||||
|
//******************************************************************************
|
||||||
|
implementation
|
||||||
|
{
|
||||||
|
$R-
|
||||||
|
}
|
||||||
|
|
||||||
|
function LRot16(X: Word; c: longint): Word;
|
||||||
|
begin
|
||||||
|
LRot16 := (X shl c) or (X shr (16 - c));
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
function RRot16(X: Word; c: longint): Word;
|
||||||
|
begin
|
||||||
|
RRot16 := (X shr c) or (X shl (16 - c));
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
function LRot32(X: DWord; c: longint): DWord;
|
||||||
|
begin
|
||||||
|
LRot32 := (X shl c) or (X shr (32 - c));
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
function RRot32(X: DWord; c: longint): DWord;
|
||||||
|
begin
|
||||||
|
RRot32 := (X shr c) or (X shl (32 - c));
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
//******************************************************************************
|
||||||
|
|
||||||
|
function F1(x, y, z: DWord): DWord;
|
||||||
|
begin
|
||||||
|
Result := z xor (x and (y xor z));
|
||||||
|
end;
|
||||||
|
|
||||||
|
function F2(x, y, z: DWord): DWord;
|
||||||
|
begin
|
||||||
|
Result := x xor y xor z;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function F3(x, y, z: DWord): DWord;
|
||||||
|
begin
|
||||||
|
Result := (x and y) or (z and (x or y));
|
||||||
|
end;
|
||||||
|
|
||||||
|
//******************************************************************************
|
||||||
|
|
||||||
|
function RB(A: DWord): DWord;
|
||||||
|
begin
|
||||||
|
Result := (A shr 24) or ((A shr 8) and $FF00) or ((A shl 8) and $FF0000) or (A shl 24);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure SHA1Compress(var Data: TSHA1Context);
|
||||||
|
var
|
||||||
|
A, B, C, D, E, T: DWord;
|
||||||
|
W: array[0..79] of DWord;
|
||||||
|
i: integer;
|
||||||
|
begin
|
||||||
|
Move(Data.Buffer, W, Sizeof(Data.Buffer));
|
||||||
|
for i := 0 to 15 do
|
||||||
|
W[i] := RB(W[i]);
|
||||||
|
for i := 16 to 79 do
|
||||||
|
W[i] := LRot32(W[i - 3] xor W[i - 8] xor W[i - 14] xor W[i - 16], 1);
|
||||||
|
A := Data.Hash[0]; B := Data.Hash[1]; C := Data.Hash[2]; D := Data.Hash[3]; E := Data.Hash[4];
|
||||||
|
for i := 0 to 19 do
|
||||||
|
begin
|
||||||
|
T := LRot32(A, 5) + F1(B, C, D) + E + W[i] + $5A827999;
|
||||||
|
E := D; D := C; C := LRot32(B, 30); B := A; A := T;
|
||||||
|
end;
|
||||||
|
for i := 20 to 39 do
|
||||||
|
begin
|
||||||
|
T := LRot32(A, 5) + F2(B, C, D) + E + W[i] + $6ED9EBA1;
|
||||||
|
E := D; D := C; C := LRot32(B, 30); B := A; A := T;
|
||||||
|
end;
|
||||||
|
for i := 40 to 59 do
|
||||||
|
begin
|
||||||
|
T := LRot32(A, 5) + F3(B, C, D) + E + W[i] + $8F1BBCDC;
|
||||||
|
E := D; D := C; C := LRot32(B, 30); B := A; A := T;
|
||||||
|
end;
|
||||||
|
for i := 60 to 79 do
|
||||||
|
begin
|
||||||
|
T := LRot32(A, 5) + F2(B, C, D) + E + W[i] + $CA62C1D6;
|
||||||
|
E := D; D := C; C := LRot32(B, 30); B := A; A := T;
|
||||||
|
end;
|
||||||
|
Data.Hash[0] := Data.Hash[0] + A;
|
||||||
|
Data.Hash[1] := Data.Hash[1] + B;
|
||||||
|
Data.Hash[2] := Data.Hash[2] + C;
|
||||||
|
Data.Hash[3] := Data.Hash[3] + D;
|
||||||
|
Data.Hash[4] := Data.Hash[4] + E;
|
||||||
|
FillChar(W, Sizeof(W), 0);
|
||||||
|
FillChar(Data.Buffer, Sizeof(Data.Buffer), 0);
|
||||||
|
end;
|
||||||
|
|
||||||
|
//******************************************************************************
|
||||||
|
|
||||||
|
procedure SHA1Init(var Context: TSHA1Context);
|
||||||
|
begin
|
||||||
|
Context.Hi := 0; Context.Lo := 0;
|
||||||
|
Context.Index := 0;
|
||||||
|
FillChar(Context.Buffer, Sizeof(Context.Buffer), 0);
|
||||||
|
Context.Hash[0] := $67452301;
|
||||||
|
Context.Hash[1] := $EFCDAB89;
|
||||||
|
Context.Hash[2] := $98BADCFE;
|
||||||
|
Context.Hash[3] := $10325476;
|
||||||
|
Context.Hash[4] := $C3D2E1F0;
|
||||||
|
end;
|
||||||
|
|
||||||
|
//******************************************************************************
|
||||||
|
|
||||||
|
procedure SHA1UpdateLen(var Context: TSHA1Context; Len: integer);
|
||||||
|
var
|
||||||
|
i, k: integer;
|
||||||
|
begin
|
||||||
|
for k := 0 to 7 do
|
||||||
|
begin
|
||||||
|
i := Context.Lo;
|
||||||
|
Inc(Context.Lo, Len);
|
||||||
|
if Context.Lo < i then
|
||||||
|
Inc(Context.Hi);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
//******************************************************************************
|
||||||
|
|
||||||
|
procedure SHA1Update(var Context: TSHA1Context; Buffer: pointer; Len: integer);
|
||||||
|
type
|
||||||
|
PByte = ^Byte;
|
||||||
|
begin
|
||||||
|
SHA1UpdateLen(Context, Len);
|
||||||
|
while Len > 0 do
|
||||||
|
begin
|
||||||
|
Context.Buffer[Context.Index] := PByte(Buffer)^;
|
||||||
|
Inc(PByte(Buffer));
|
||||||
|
Inc(Context.Index);
|
||||||
|
Dec(Len);
|
||||||
|
if Context.Index = 64 then
|
||||||
|
begin
|
||||||
|
Context.Index := 0;
|
||||||
|
SHA1Compress(Context);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
//******************************************************************************
|
||||||
|
|
||||||
|
procedure SHA1Final(var Context: TSHA1Context; var Digest: TSHA1Digest);
|
||||||
|
type
|
||||||
|
PDWord = ^DWord;
|
||||||
|
begin
|
||||||
|
Context.Buffer[Context.Index] := $80;
|
||||||
|
if Context.Index >= 56 then
|
||||||
|
SHA1Compress(Context);
|
||||||
|
PDWord(@Context.Buffer[56])^ := RB(Context.Hi);
|
||||||
|
PDWord(@Context.Buffer[60])^ := RB(Context.Lo);
|
||||||
|
SHA1Compress(Context);
|
||||||
|
Context.Hash[0] := RB(Context.Hash[0]);
|
||||||
|
Context.Hash[1] := RB(Context.Hash[1]);
|
||||||
|
Context.Hash[2] := RB(Context.Hash[2]);
|
||||||
|
Context.Hash[3] := RB(Context.Hash[3]);
|
||||||
|
Context.Hash[4] := RB(Context.Hash[4]);
|
||||||
|
Move(Context.Hash, Digest, Sizeof(Digest));
|
||||||
|
FillChar(Context, Sizeof(Context), 0);
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
function SHA1String(M: AnsiString): TSHA1Digest;
|
||||||
|
var
|
||||||
|
Context: TSHA1Context;
|
||||||
|
begin
|
||||||
|
SHA1Init(Context);
|
||||||
|
SHA1Update(Context, PAnsiChar(M), length(M));
|
||||||
|
SHA1Final(Context, Result);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function SHA1File(N: string): TSHA1Digest;
|
||||||
|
var
|
||||||
|
FileHandle: THandle;
|
||||||
|
MapHandle: THandle;
|
||||||
|
ViewPointer: pointer;
|
||||||
|
Context: TSHA1Context;
|
||||||
|
begin
|
||||||
|
SHA1Init(Context);
|
||||||
|
FileHandle := CreateFile(pChar(N), GENERIC_READ, FILE_SHARE_READ or FILE_SHARE_WRITE,
|
||||||
|
nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL or FILE_FLAG_SEQUENTIAL_SCAN, 0);
|
||||||
|
if FileHandle <> INVALID_HANDLE_VALUE then try
|
||||||
|
MapHandle := CreateFileMapping(FileHandle, nil, PAGE_READONLY, 0, 0, nil);
|
||||||
|
if MapHandle <> 0 then try
|
||||||
|
ViewPointer := MapViewOfFile(MapHandle, FILE_MAP_READ, 0, 0, 0);
|
||||||
|
if ViewPointer <> nil then try
|
||||||
|
SHA1Update(Context, ViewPointer, GetFileSize(FileHandle, nil));
|
||||||
|
finally
|
||||||
|
UnmapViewOfFile(ViewPointer);
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
CloseHandle(MapHandle);
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
CloseHandle(FileHandle);
|
||||||
|
end;
|
||||||
|
SHA1Final(Context, Result);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function SHA1Print(Digest: TSHA1Digest): AnsiString;
|
||||||
|
var
|
||||||
|
I: byte;
|
||||||
|
const
|
||||||
|
Digits: array[0..15] of AnsiChar =
|
||||||
|
('0', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'a', 'b', 'c', 'd', 'e', 'f');
|
||||||
|
begin
|
||||||
|
Result := '';
|
||||||
|
for I := 0 to 19 do Result := Result + Digits[(Digest[I] shr 4) and $0F] + Digits[Digest[I] and $0F];
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
BIN
10.3.3/Release/Activator.exe
Normal file
BIN
10.3.3/Release/Activator.exe
Normal file
Binary file not shown.
41
10.3.3/Release/Readme.txt
Normal file
41
10.3.3/Release/Readme.txt
Normal file
@ -0,0 +1,41 @@
|
|||||||
|
为了便于在 Lite 15.x 中使用大侠们的特别补丁，初步写成这个：Activator.exe
|
||||||
|
|
||||||
|
他的主要作用：
|
||||||
|
|
||||||
|
1、整合各位大虾的 Keygen
|
||||||
|
2、相对原始部署方式，这个 Activator 实现“一键激活”！
|
||||||
|
|
||||||
|
使用方法：
|
||||||
|
|
||||||
|
1、执行 Activator.exe
|
||||||
|
|
||||||
|
发布历史：
|
||||||
|
|
||||||
|
2019.11.19 - v15.3
|
||||||
|
|
||||||
|
1、根据 26.0.36039.7899 原版制作，基于 RADStudioKeyPatch.exe 的成果
|
||||||
|
|
||||||
|
2019.07.22 - v15.2.1
|
||||||
|
|
||||||
|
1、根据 26.0.34749.6593 原版制作，基于 RADStudioKeyPatch.exe 的成果
|
||||||
|
2、根据 wg961423 的反馈完善对 macOS64 的支持
|
||||||
|
|
||||||
|
2019.02.16 - v15.1
|
||||||
|
|
||||||
|
1、根据 26.0.33219.4899 原版制作，基于 RADStudioKeyPatch_Lite.exe 的成果
|
||||||
|
|
||||||
|
2018.11.26 - v15.0
|
||||||
|
|
||||||
|
1、根据 26.0.32429.4364 原版制作，基于 RadStudioKeygenSourceCodeV10.3.4364.rar 的成果
|
||||||
|
|
||||||
|
已知问题：
|
||||||
|
|
||||||
|
1、在一些操作系统上如果出现安全提示，直接确定即可。
|
||||||
|
|
||||||
|
特别感谢：
|
||||||
|
|
||||||
|
1、elseif, tonzi, freecat, unis, x-force, cjack, c5soft 等大侠的特别补丁，感谢诸位我知道的不知道的的大虾们的辛勤劳动！
|
||||||
|
2、iny、nevergrief、snakejiao、star5、tintin1943、ti9er、wang_80919、wuxiangyang、wg961423 等等我知道的不知道的的网友们的热情测试！
|
||||||
|
3、andreas hausladen 等大虾们的无私贡献！
|
||||||
|
|
||||||
|
O(∩_∩)O~
|
||||||
Loading…
Reference in New Issue
Block a user