pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

onguard: Fix compilation with at least Laz 1.4.4 / FPC 2.6.4

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8736 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-02-23 13:55:39 +00:00
parent 0a8755d05b
commit a5bdd38008
54 changed files with 926 additions and 505 deletions
Download Patch File Download Diff File Expand all files Collapse all files

163
components/onguard/examples/codegen/codegen.lpi
View File

@ -39,7 +39,7 @@
<MinVersion Valid="True"/> <MinVersion Valid="True"/>
</Item2> </Item2>
</RequiredPackages> </RequiredPackages>
<Units Count="26"> <Units Count="27">
<Unit0> <Unit0>
<Filename Value="codegen.lpr"/> <Filename Value="codegen.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
@ -58,7 +58,7 @@
<UnitName Value="CodeGenU"/> <UnitName Value="CodeGenU"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<TopLine Value="28"/> <TopLine Value="28"/>
<CursorPos X="28" Y="57"/> <CursorPos X="35" Y="57"/>
<UsageCount Value="28"/> <UsageCount Value="28"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
@ -124,10 +124,9 @@
</Unit9> </Unit9>
<Unit10> <Unit10>
<Filename Value="..\..\source\onguard.pas"/> <Filename Value="..\..\source\onguard.pas"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="4"/> <EditorIndex Value="4"/>
<TopLine Value="62"/> <TopLine Value="62"/>
<CursorPos X="3" Y="81"/> <CursorPos X="59" Y="77"/>
<UsageCount Value="11"/> <UsageCount Value="11"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit10> </Unit10>
@ -199,11 +198,10 @@
</Unit19> </Unit19>
<Unit20> <Unit20>
<Filename Value="..\..\source\idesn.pas"/> <Filename Value="..\..\source\idesn.pas"/>
<EditorIndex Value="7"/> <EditorIndex Value="-1"/>
<TopLine Value="137"/> <TopLine Value="137"/>
<CursorPos X="6" Y="155"/> <CursorPos X="6" Y="155"/>
<UsageCount Value="11"/> <UsageCount Value="11"/>
<Loaded Value="True"/>
</Unit20> </Unit20>
<Unit21> <Unit21>
<Filename Value="..\..\..\..\..\..\temp\fpc\rtl\inc\systemh.inc"/> <Filename Value="..\..\..\..\..\..\temp\fpc\rtl\inc\systemh.inc"/>
@ -213,19 +211,17 @@
</Unit21> </Unit21>
<Unit22> <Unit22>
<Filename Value="..\..\source\onguard.inc"/> <Filename Value="..\..\source\onguard.inc"/>
<EditorIndex Value="10"/> <EditorIndex Value="-1"/>
<TopLine Value="31"/> <TopLine Value="31"/>
<CursorPos X="19" Y="50"/> <CursorPos X="19" Y="50"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit22> </Unit22>
<Unit23> <Unit23>
<Filename Value="..\..\source\ogfirst.pas"/> <Filename Value="..\..\source\ogfirst.pas"/>
<EditorIndex Value="8"/> <EditorIndex Value="-1"/>
<TopLine Value="133"/> <TopLine Value="133"/>
<CursorPos X="9" Y="152"/> <CursorPos X="9" Y="152"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit23> </Unit23>
<Unit24> <Unit24>
<Filename Value="..\..\source\ogproexe.pas"/> <Filename Value="..\..\source\ogproexe.pas"/>
@ -237,133 +233,102 @@
</Unit24> </Unit24>
<Unit25> <Unit25>
<Filename Value="..\..\source\ogsrmgr.pas"/> <Filename Value="..\..\source\ogsrmgr.pas"/>
<EditorIndex Value="9"/> <EditorIndex Value="-1"/>
<TopLine Value="456"/> <TopLine Value="456"/>
<CursorPos X="9" Y="482"/> <CursorPos X="9" Y="482"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit25> </Unit25>
<Unit26>
<Filename Value="..\exdmod\exdmodu1.pas"/>
<UnitName Value="Exdmodu1"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="7"/>
<TopLine Value="137"/>
<CursorPos Y="166"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit26>
</Units> </Units>
<JumpHistory Count="30" HistoryIndex="29"> <JumpHistory Count="20" HistoryIndex="19">
<Position1> <Position1>
<Filename Value="..\..\source\qonguard2.pas"/>
<Caret Line="209" Column="19" TopLine="209"/>
</Position1>
<Position2>
<Filename Value="..\..\source\qonguard2.pas"/>
</Position2>
<Position3>
<Filename Value="..\..\source\idesn.pas"/>
<Caret Line="155" Column="6" TopLine="137"/>
</Position3>
<Position4>
<Filename Value="..\..\source\ogfirst.pas"/>
<Caret Line="69" Column="9" TopLine="50"/>
</Position4>
<Position5>
<Filename Value="..\..\source\ogfirst.pas"/>
<Caret Line="86" Column="11" TopLine="55"/>
</Position5>
<Position6>
<Filename Value="..\..\source\ogfirst.pas"/>
<Caret Line="97" Column="9" TopLine="78"/>
</Position6>
<Position7>
<Filename Value="..\..\source\ogfirst.pas"/>
<Caret Line="152" Column="9" TopLine="133"/>
</Position7>
<Position8>
<Filename Value="..\..\source\ogproexe.pas"/> <Filename Value="..\..\source\ogproexe.pas"/>
<Caret Line="675" Column="24" TopLine="643"/> <Caret Line="675" Column="24" TopLine="643"/>
</Position8> </Position1>
<Position9> <Position2>
<Filename Value="..\..\source\ogproexe.pas"/> <Filename Value="..\..\source\ogproexe.pas"/>
<Caret Line="262" Column="9" TopLine="243"/> <Caret Line="262" Column="9" TopLine="243"/>
</Position9> </Position2>
<Position10> <Position3>
<Filename Value="..\..\source\ogproexe.pas"/> <Filename Value="..\..\source\ogproexe.pas"/>
<Caret Line="377" Column="9" TopLine="358"/> <Caret Line="377" Column="9" TopLine="358"/>
</Position10> </Position3>
<Position11> <Position4>
<Filename Value="..\..\source\ogproexe.pas"/> <Filename Value="..\..\source\ogproexe.pas"/>
<Caret Line="532" Column="9" TopLine="513"/> <Caret Line="532" Column="9" TopLine="513"/>
</Position11> </Position4>
<Position12> <Position5>
<Filename Value="..\..\source\ogproexe.pas"/> <Filename Value="..\..\source\ogproexe.pas"/>
<Caret Line="663" Column="9" TopLine="644"/> <Caret Line="663" Column="9" TopLine="644"/>
</Position12> </Position5>
<Position13> <Position6>
<Filename Value="..\..\source\ogsrmgr.pas"/>
<Caret Line="482" Column="18" TopLine="456"/>
</Position13>
<Position14>
<Filename Value="..\..\source\ogsrmgr.pas"/>
<Caret Line="100" Column="9" TopLine="81"/>
</Position14>
<Position15>
<Filename Value="..\..\source\ogsrmgr.pas"/>
<Caret Line="142" Column="9" TopLine="123"/>
</Position15>
<Position16>
<Filename Value="..\..\source\ogsrmgr.pas"/>
<Caret Line="190" Column="9" TopLine="172"/>
</Position16>
<Position17>
<Filename Value="..\..\source\ogsrmgr.pas"/>
<Caret Line="228" Column="9" TopLine="209"/>
</Position17>
<Position18>
<Filename Value="..\..\source\ogsrmgr.pas"/>
<Caret Line="482" Column="9" TopLine="456"/>
</Position18>
<Position19>
<Filename Value="..\..\source\ogutil.pas"/> <Filename Value="..\..\source\ogutil.pas"/>
<Caret Line="55" Column="9" TopLine="36"/> <Caret Line="55" Column="9" TopLine="36"/>
</Position19> </Position6>
<Position20> <Position7>
<Filename Value="..\..\source\ogutil.pas"/> <Filename Value="..\..\source\ogutil.pas"/>
<Caret Line="77" Column="11" TopLine="58"/> <Caret Line="77" Column="11" TopLine="58"/>
</Position20> </Position7>
<Position21> <Position8>
<Filename Value="..\..\source\ogutil.pas"/> <Filename Value="..\..\source\ogutil.pas"/>
<Caret Line="304" Column="19" TopLine="288"/> <Caret Line="304" Column="19" TopLine="288"/>
</Position21> </Position8>
<Position22> <Position9>
<Filename Value="..\..\source\ogutil.pas"/> <Filename Value="..\..\source\ogutil.pas"/>
<Caret Line="548" Column="9" TopLine="529"/> <Caret Line="548" Column="9" TopLine="529"/>
</Position22> </Position9>
<Position23> <Position10>
<Filename Value="..\..\source\ogutil.pas"/> <Filename Value="..\..\source\ogutil.pas"/>
<Caret Line="847" Column="18" TopLine="831"/> <Caret Line="847" Column="18" TopLine="831"/>
</Position23> </Position10>
<Position24> <Position11>
<Filename Value="..\..\source\ogutil.pas"/> <Filename Value="..\..\source\ogutil.pas"/>
<Caret Line="1159" Column="18" TopLine="1143"/> <Caret Line="1159" Column="18" TopLine="1143"/>
</Position24> </Position11>
<Position25> <Position12>
<Filename Value="..\..\source\ogutil.pas"/> <Filename Value="..\..\source\ogutil.pas"/>
<Caret Line="1271" Column="6" TopLine="1247"/> <Caret Line="1271" Column="6" TopLine="1247"/>
</Position25> </Position12>
<Position26> <Position13>
<Filename Value="..\..\source\onguard.inc"/>
<Caret Line="50" Column="19" TopLine="31"/>
</Position26>
<Position27>
<Filename Value="codegen.lpr"/> <Filename Value="codegen.lpr"/>
<Caret Line="15" Column="73"/> <Caret Line="15" Column="73"/>
</Position27> </Position13>
<Position28> <Position14>
<Filename Value="codegenu.pas"/> <Filename Value="codegenu.pas"/>
<Caret Line="49" TopLine="13"/> <Caret Line="49" TopLine="13"/>
</Position28> </Position14>
<Position29> <Position15>
<Filename Value="codegenu.pas"/> <Filename Value="codegenu.pas"/>
<Caret Line="61" TopLine="28"/> <Caret Line="61" TopLine="28"/>
</Position29> </Position15>
<Position30> <Position16>
<Filename Value="codegenu.pas"/> <Filename Value="codegenu.pas"/>
<Caret Line="57" Column="28" TopLine="28"/> <Caret Line="57" Column="28" TopLine="28"/>
</Position30> </Position16>
<Position17>
<Filename Value="codegenu.pas"/>
<Caret Line="28" Column="23" TopLine="28"/>
</Position17>
<Position18>
<Filename Value="codegenu.pas"/>
</Position18>
<Position19>
<Filename Value="codegenu.pas"/>
<Caret Line="57" Column="35" TopLine="28"/>
</Position19>
<Position20>
<Filename Value="..\exdmod\exdmodu1.pas"/>
<Caret Line="167" Column="5" TopLine="150"/>
</Position20>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>

3
components/onguard/examples/codegen/codegenu.pas
View File

@ -54,8 +54,7 @@ begin
OgMakeCodes1.SetKey(CKey); OgMakeCodes1.SetKey(CKey);
if OgMakeCodes1.Execute then begin if OgMakeCodes1.Execute then begin
{get the code} {get the code}
Work := Default(TCode); OgMakeCodes1.GetCode(Work{%H-});
OgMakeCodes1.GetCode(Work);
{display the code} {display the code}
CodeEd.Text := OgUtil.BufferToHex(Work, SizeOf(Work)); CodeEd.Text := OgUtil.BufferToHex(Work, SizeOf(Work));
end; end;

113
components/onguard/examples/exdmod/exdmod.lpi
View File

@ -59,8 +59,8 @@
<UnitName Value="Exdmodu1"/> <UnitName Value="Exdmodu1"/>
<IsVisibleTab Value="True"/> <IsVisibleTab Value="True"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<TopLine Value="177"/> <TopLine Value="83"/>
<CursorPos X="3" Y="228"/> <CursorPos X="8" Y="92"/>
<UsageCount Value="21"/> <UsageCount Value="21"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
@ -73,6 +73,7 @@
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="Exdmodu2"/> <UnitName Value="Exdmodu2"/>
<EditorIndex Value="2"/> <EditorIndex Value="2"/>
<CursorPos X="29" Y="9"/>
<UsageCount Value="21"/> <UsageCount Value="21"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
@ -158,123 +159,123 @@
<JumpHistory Count="30" HistoryIndex="29"> <JumpHistory Count="30" HistoryIndex="29">
<Position1> <Position1>
<Filename Value="..\..\source\ogutil.pas"/> <Filename Value="..\..\source\ogutil.pas"/>
<Caret Line="516" TopLine="495"/> <Caret Line="522" TopLine="495"/>
</Position1> </Position1>
<Position2> <Position2>
<Filename Value="..\..\source\ogutil.pas"/> <Filename Value="exdmodu1.pas"/>
<Caret Line="522" TopLine="495"/> <Caret Line="176" TopLine="155"/>
</Position2> </Position2>
<Position3> <Position3>
<Filename Value="..\..\source\ogutil.pas"/> <Filename Value="exdmodu1.pas"/>
<Caret Line="517" TopLine="496"/> <Caret Line="177" TopLine="156"/>
</Position3> </Position3>
<Position4> <Position4>
<Filename Value="..\..\source\ogutil.pas"/> <Filename Value="exdmodu1.pas"/>
<Caret Line="516" TopLine="495"/> <Caret Line="179" TopLine="158"/>
</Position4> </Position4>
<Position5> <Position5>
<Filename Value="..\..\source\ogutil.pas"/> <Filename Value="exdmodu1.pas"/>
<Caret Line="522" TopLine="495"/> <Caret Line="167" Column="37" TopLine="160"/>
</Position5> </Position5>
<Position6> <Position6>
<Filename Value="exdmodu1.pas"/> <Filename Value="exdmodu1.pas"/>
<Caret Line="176" TopLine="155"/> <Caret Line="182" TopLine="161"/>
</Position6> </Position6>
<Position7> <Position7>
<Filename Value="exdmodu1.pas"/> <Filename Value="..\..\source\onguard.pas"/>
<Caret Line="177" TopLine="156"/> <Caret Line="1179" TopLine="1158"/>
</Position7> </Position7>
<Position8> <Position8>
<Filename Value="exdmodu1.pas"/> <Filename Value="..\..\source\onguard.pas"/>
<Caret Line="179" TopLine="158"/> <Caret Line="1180" TopLine="1159"/>
</Position8> </Position8>
<Position9> <Position9>
<Filename Value="exdmodu1.pas"/> <Filename Value="..\..\source\onguard.pas"/>
<Caret Line="167" Column="37" TopLine="160"/> <Caret Line="1181" TopLine="1160"/>
</Position9> </Position9>
<Position10> <Position10>
<Filename Value="exdmodu1.pas"/> <Filename Value="exdmodu1.pas"/>
<Caret Line="182" TopLine="161"/> <Caret Line="184" TopLine="163"/>
</Position10> </Position10>
<Position11> <Position11>
<Filename Value="..\..\source\onguard.pas"/> <Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1179" TopLine="1158"/> <Caret Line="2085" TopLine="2064"/>
</Position11> </Position11>
<Position12> <Position12>
<Filename Value="..\..\source\onguard.pas"/> <Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1180" TopLine="1159"/> <Caret Line="2086" TopLine="2065"/>
</Position12> </Position12>
<Position13> <Position13>
<Filename Value="..\..\source\onguard.pas"/> <Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1181" TopLine="1160"/> <Caret Line="2087" Column="40" TopLine="2066"/>
</Position13> </Position13>
<Position14> <Position14>
<Filename Value="exdmodu1.pas"/>
<Caret Line="184" TopLine="163"/>
</Position14>
<Position15>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="2085" TopLine="2064"/>
</Position15>
<Position16>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="2086" TopLine="2065"/>
</Position16>
<Position17>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="2087" Column="40" TopLine="2066"/>
</Position17>
<Position18>
<Filename Value="..\..\source\onguard.pas"/> <Filename Value="..\..\source\onguard.pas"/>
<Caret Line="2088" TopLine="2067"/> <Caret Line="2088" TopLine="2067"/>
</Position14>
<Position15>
<Filename Value="exdmodu1.pas"/>
<Caret Line="188" TopLine="137"/>
</Position15>
<Position16>
<Filename Value="exdmodu2.pas"/>
<Caret Line="24" Column="51" TopLine="20"/>
</Position16>
<Position17>
<Filename Value="exdmodu1.pas"/>
<Caret Line="211" Column="75" TopLine="206"/>
</Position17>
<Position18>
<Filename Value="exdmodu1.pas"/>
<Caret Line="176" TopLine="156"/>
</Position18> </Position18>
<Position19> <Position19>
<Filename Value="exdmodu1.pas"/> <Filename Value="exdmodu1.pas"/>
<Caret Line="188" TopLine="137"/> <Caret Line="175" TopLine="155"/>
</Position19> </Position19>
<Position20> <Position20>
<Filename Value="exdmodu2.pas"/> <Filename Value="exdmodu1.pas"/>
<Caret Line="24" Column="51" TopLine="20"/> <Caret Line="178" Column="27" TopLine="156"/>
</Position20> </Position20>
<Position21> <Position21>
<Filename Value="exdmodu1.pas"/> <Filename Value="exdmodu1.pas"/>
<Caret Line="211" Column="75" TopLine="206"/> <Caret Line="45" Column="14" TopLine="24"/>
</Position21> </Position21>
<Position22> <Position22>
<Filename Value="exdmodu1.pas"/> <Filename Value="exdmodu2.pas"/>
<Caret Line="176" TopLine="156"/> <Caret Line="37" Column="52" TopLine="20"/>
</Position22> </Position22>
<Position23> <Position23>
<Filename Value="exdmodu1.pas"/> <Filename Value="exdmodu2.pas"/>
<Caret Line="175" TopLine="155"/> <Caret Line="57" TopLine="22"/>
</Position23> </Position23>
<Position24> <Position24>
<Filename Value="exdmodu1.pas"/> <Filename Value="exdmodu1.pas"/>
<Caret Line="178" Column="27" TopLine="156"/> <Caret Line="210" Column="26" TopLine="199"/>
</Position24> </Position24>
<Position25> <Position25>
<Filename Value="exdmodu1.pas"/> <Filename Value="exdmodu1.pas"/>
<Caret Line="45" Column="14" TopLine="24"/> <Caret Line="212" Column="23" TopLine="200"/>
</Position25> </Position25>
<Position26> <Position26>
<Filename Value="exdmodu2.pas"/> <Filename Value="exdmodu2.pas"/>
<Caret Line="37" Column="52" TopLine="20"/> <Caret Line="20" Column="28" TopLine="20"/>
</Position26> </Position26>
<Position27> <Position27>
<Filename Value="exdmodu2.pas"/> <Filename Value="exdmodu1.pas"/>
<Caret Line="57" TopLine="22"/> <Caret Line="177" Column="61" TopLine="177"/>
</Position27> </Position27>
<Position28> <Position28>
<Filename Value="exdmodu1.pas"/> <Filename Value="exdmodu2.pas"/>
<Caret Line="210" Column="26" TopLine="199"/> <Caret Line="9" Column="29"/>
</Position28> </Position28>
<Position29> <Position29>
<Filename Value="exdmodu1.pas"/> <Filename Value="exdmodu1.pas"/>
<Caret Line="212" Column="23" TopLine="200"/> <Caret Line="143" Column="20" TopLine="135"/>
</Position29> </Position29>
<Position30> <Position30>
<Filename Value="exdmodu2.pas"/> <Filename Value="exdmodu1.pas"/>
<Caret Line="20" Column="28" TopLine="20"/> <Caret Line="167" Column="18" TopLine="131"/>
</Position30> </Position30>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>

7
components/onguard/examples/exdmod/exdmodu1.pas
View File

@ -89,7 +89,7 @@ end;
procedure TfrmMain.OgSerialNumberCode1GetCode(Sender: TObject; var Code: TCode); procedure TfrmMain.OgSerialNumberCode1GetCode(Sender: TObject; var Code: TCode);
var var
S1 : string; S1 : string;
L : integer; {%H-}L : integer;
begin begin
{force the INI file to be in the same directory as the application} {force the INI file to be in the same directory as the application}
TheDir := ExtractFilePath(ParamStr(0)); TheDir := ExtractFilePath(ParamStr(0));
@ -140,7 +140,7 @@ function TfrmMain.GetSNData(var S : string) : integer;
var var
TC : TCode; TC : TCode;
SNC : string; SNC : string;
L : longint; L : longint = 0;
Key : TKey; Key : TKey;
begin begin
Application.CreateForm(TSNEntryDlg, SNEntryDlg); Application.CreateForm(TSNEntryDlg, SNEntryDlg);
@ -163,8 +163,7 @@ begin
OgSerialNumberCode1.Modifier := SNEntryDlg.ModString.Text; OgSerialNumberCode1.Modifier := SNEntryDlg.ModString.Text;
HexToBuffer(SNEntryDlg.ModString.Text, L, SizeOf(L)); HexToBuffer(SNEntryDlg.ModString.Text, L, SizeOf(L));
HexToBuffer(SNEntryDlg.CodeText.Text, TC{%H-}, SizeOf(TCode));
HexToBuffer(SNEntryDlg.CodeText.Text, TC, SizeOf(TCode));
ApplyModifierToKeyPrim(L, Key, SizeOf(TKey)); ApplyModifierToKeyPrim(L, Key, SizeOf(TKey));
if not (IsSerialNumberCodeValid(Key, TC)) then begin if not (IsSerialNumberCodeValid(Key, TC)) then begin

10
components/onguard/examples/exdtp21/exdtp21.lpi
View File

@ -59,8 +59,8 @@
<UnitName Value="Exdtp21u"/> <UnitName Value="Exdtp21u"/>
<IsVisibleTab Value="True"/> <IsVisibleTab Value="True"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<TopLine Value="69"/> <TopLine Value="53"/>
<CursorPos X="3" Y="102"/> <CursorPos Y="69"/>
<UsageCount Value="836"/> <UsageCount Value="836"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
@ -74,7 +74,7 @@
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit2> </Unit2>
</Units> </Units>
<JumpHistory Count="17" HistoryIndex="16"> <JumpHistory Count="18" HistoryIndex="17">
<Position1> <Position1>
<Filename Value="exdtp21u.pas"/> <Filename Value="exdtp21u.pas"/>
<Caret Line="83" Column="17" TopLine="69"/> <Caret Line="83" Column="17" TopLine="69"/>
@ -143,6 +143,10 @@
<Filename Value="exdtp21u.pas"/> <Filename Value="exdtp21u.pas"/>
<Caret Line="123" TopLine="88"/> <Caret Line="123" TopLine="88"/>
</Position17> </Position17>
<Position18>
<Filename Value="exdtp21u.pas"/>
<Caret Line="102" Column="3" TopLine="69"/>
</Position18>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>

1
components/onguard/examples/exdtp21/exdtp21u.pas
View File

@ -66,7 +66,6 @@ var
IniFile : TIniFile; IniFile : TIniFile;
S : string; S : string;
SD, ED : TDateTime; SD, ED : TDateTime;
L : integer;
begin begin
{force the INI file to be in the same directory as the application} {force the INI file to be in the same directory as the application}
TheDir := ExtractFilePath(ParamStr(0)); TheDir := ExtractFilePath(ParamStr(0));

72
components/onguard/examples/exdtreg/exdtreg.lpi
View File

@ -61,8 +61,8 @@
<UnitName Value="ExDTRegU"/> <UnitName Value="ExDTRegU"/>
<IsVisibleTab Value="True"/> <IsVisibleTab Value="True"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<TopLine Value="10"/> <TopLine Value="70"/>
<CursorPos Y="43"/> <CursorPos Y="100"/>
<UsageCount Value="20"/> <UsageCount Value="20"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
@ -84,127 +84,123 @@
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit3> </Unit3>
</Units> </Units>
<JumpHistory Count="30" HistoryIndex="29"> <JumpHistory Count="29" HistoryIndex="28">
<Position1> <Position1>
<Filename Value="exdtregu.pas"/> <Filename Value="exdtregu.pas"/>
<Caret Line="79" TopLine="64"/> <Caret Line="81" TopLine="66"/>
</Position1> </Position1>
<Position2> <Position2>
<Filename Value="exdtregu.pas"/> <Filename Value="exdtregu.pas"/>
<Caret Line="81" TopLine="66"/> <Caret Line="83" TopLine="68"/>
</Position2> </Position2>
<Position3> <Position3>
<Filename Value="exdtregu.pas"/> <Filename Value="..\..\source\onguard.pas"/>
<Caret Line="83" TopLine="68"/> <Caret Line="1217" TopLine="1202"/>
</Position3> </Position3>
<Position4> <Position4>
<Filename Value="..\..\source\onguard.pas"/> <Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1217" TopLine="1202"/> <Caret Line="1218" TopLine="1203"/>
</Position4> </Position4>
<Position5> <Position5>
<Filename Value="..\..\source\onguard.pas"/> <Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1218" TopLine="1203"/> <Caret Line="1324" TopLine="1309"/>
</Position5> </Position5>
<Position6> <Position6>
<Filename Value="..\..\source\onguard.pas"/> <Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1324" TopLine="1309"/> <Caret Line="1326" TopLine="1311"/>
</Position6> </Position6>
<Position7> <Position7>
<Filename Value="..\..\source\onguard.pas"/> <Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1326" TopLine="1311"/> <Caret Line="1327" TopLine="1312"/>
</Position7> </Position7>
<Position8> <Position8>
<Filename Value="..\..\source\onguard.pas"/> <Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1327" TopLine="1312"/> <Caret Line="1331" TopLine="1316"/>
</Position8> </Position8>
<Position9> <Position9>
<Filename Value="..\..\source\onguard.pas"/> <Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1331" TopLine="1316"/> <Caret Line="1864" Column="40" TopLine="1841"/>
</Position9> </Position9>
<Position10> <Position10>
<Filename Value="..\..\source\onguard.pas"/> <Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1864" Column="40" TopLine="1841"/> <Caret Line="1320" TopLine="1305"/>
</Position10> </Position10>
<Position11> <Position11>
<Filename Value="..\..\source\onguard.pas"/> <Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1320" TopLine="1305"/> <Caret Line="1322" TopLine="1307"/>
</Position11> </Position11>
<Position12> <Position12>
<Filename Value="..\..\source\onguard.pas"/> <Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1322" TopLine="1307"/> <Caret Line="1323" TopLine="1308"/>
</Position12> </Position12>
<Position13> <Position13>
<Filename Value="..\..\source\onguard.pas"/> <Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1323" TopLine="1308"/> <Caret Line="1324" TopLine="1309"/>
</Position13> </Position13>
<Position14> <Position14>
<Filename Value="..\..\source\onguard.pas"/> <Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1324" TopLine="1309"/> <Caret Line="1326" TopLine="1311"/>
</Position14> </Position14>
<Position15> <Position15>
<Filename Value="..\..\source\onguard.pas"/> <Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1326" TopLine="1311"/> <Caret Line="1327" TopLine="1312"/>
</Position15> </Position15>
<Position16> <Position16>
<Filename Value="..\..\source\onguard.pas"/> <Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1327" TopLine="1312"/> <Caret Line="1932" TopLine="1917"/>
</Position16> </Position16>
<Position17> <Position17>
<Filename Value="..\..\source\onguard.pas"/> <Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1932" TopLine="1917"/> <Caret Line="1933" TopLine="1918"/>
</Position17> </Position17>
<Position18> <Position18>
<Filename Value="..\..\source\onguard.pas"/> <Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1933" TopLine="1918"/> <Caret Line="1934" TopLine="1919"/>
</Position18> </Position18>
<Position19> <Position19>
<Filename Value="..\..\source\onguard.pas"/> <Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1934" TopLine="1919"/> <Caret Line="1936" TopLine="1921"/>
</Position19> </Position19>
<Position20> <Position20>
<Filename Value="..\..\source\onguard.pas"/> <Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1936" TopLine="1921"/> <Caret Line="1331" TopLine="1316"/>
</Position20> </Position20>
<Position21> <Position21>
<Filename Value="..\..\source\onguard.pas"/> <Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1331" TopLine="1316"/> <Caret Line="1856" TopLine="1841"/>
</Position21> </Position21>
<Position22> <Position22>
<Filename Value="..\..\source\onguard.pas"/> <Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1856" TopLine="1841"/> <Caret Line="1857" TopLine="1842"/>
</Position22> </Position22>
<Position23> <Position23>
<Filename Value="..\..\source\onguard.pas"/> <Filename Value="exdtregu.pas"/>
<Caret Line="1857" TopLine="1842"/> <Caret Line="114" Column="59" TopLine="88"/>
</Position23> </Position23>
<Position24> <Position24>
<Filename Value="exdtregu.pas"/> <Filename Value="exdtregu.pas"/>
<Caret Line="114" Column="59" TopLine="88"/> <Caret Line="43" TopLine="26"/>
</Position24> </Position24>
<Position25> <Position25>
<Filename Value="exdtregu.pas"/> <Filename Value="exdtregu.pas"/>
<Caret Line="43" TopLine="26"/> <Caret Line="42" TopLine="25"/>
</Position25> </Position25>
<Position26> <Position26>
<Filename Value="exdtregu.pas"/> <Filename Value="exdtregu.pas"/>
<Caret Line="42" TopLine="25"/> <Caret Line="43" TopLine="26"/>
</Position26> </Position26>
<Position27> <Position27>
<Filename Value="exdtregu.pas"/> <Filename Value="exdtregu.pas"/>
<Caret Line="43" TopLine="26"/> <Caret Line="127" TopLine="91"/>
</Position27> </Position27>
<Position28> <Position28>
<Filename Value="exdtregu.pas"/> <Filename Value="exdtregu.pas"/>
<Caret Line="40" TopLine="78"/> <Caret Line="39" Column="32" TopLine="18"/>
</Position28> </Position28>
<Position29> <Position29>
<Filename Value="exdtregu.pas"/> <Filename Value="exdtregu.pas"/>
<Caret Line="127" TopLine="91"/> <Caret Line="26" Column="49" TopLine="10"/>
</Position29> </Position29>
<Position30>
<Filename Value="exdtregu.pas"/>
<Caret Line="39" Column="32" TopLine="18"/>
</Position30>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>

3
components/onguard/examples/exdtreg/exdtregu.pas
View File

@ -97,8 +97,7 @@ begin
Ini := TIniFile.Create('ONGUARD.INI'); Ini := TIniFile.Create('ONGUARD.INI');
try try
{store the date code in the ini file if it looks OK} {store the date code in the ini file if it looks OK}
Work := Default(TCode); if HexToBuffer(S, Work{%H-}, SizeOf(Work)) then begin
if HexToBuffer(S, Work, SizeOf(Work)) then begin
{save the value} {save the value}
Ini.WriteString('Codes', 'DateCode', S); Ini.WriteString('Codes', 'DateCode', S);
CodeLbl.Caption := S; CodeLbl.Caption := S;

12
components/onguard/examples/exdyreg/exdyreg.lpi
View File

@ -56,8 +56,6 @@
<UnitName Value="ExDYRegU"/> <UnitName Value="ExDYRegU"/>
<IsVisibleTab Value="True"/> <IsVisibleTab Value="True"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<TopLine Value="79"/>
<CursorPos X="30" Y="102"/>
<UsageCount Value="20"/> <UsageCount Value="20"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
@ -103,7 +101,7 @@
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit7> </Unit7>
</Units> </Units>
<JumpHistory Count="13" HistoryIndex="12"> <JumpHistory Count="15" HistoryIndex="14">
<Position1> <Position1>
<Filename Value="exdyregu.pas"/> <Filename Value="exdyregu.pas"/>
<Caret Line="12" Column="24"/> <Caret Line="12" Column="24"/>
@ -156,6 +154,14 @@
<Filename Value="exdyregu.pas"/> <Filename Value="exdyregu.pas"/>
<Caret Line="147" TopLine="112"/> <Caret Line="147" TopLine="112"/>
</Position13> </Position13>
<Position14>
<Filename Value="exdyregu.pas"/>
<Caret Line="102" TopLine="79"/>
</Position14>
<Position15>
<Filename Value="exdyregu.pas"/>
<Caret Line="84" Column="34" TopLine="84"/>
</Position15>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>

3
components/onguard/examples/exdyreg/exdyregu.pas
View File

@ -99,8 +99,7 @@ begin
Ini := TIniFile.Create('ONGUARD.INI'); Ini := TIniFile.Create('ONGUARD.INI');
try try
{store the date code in the ini file if it looks OK} {store the date code in the ini file if it looks OK}
Work := Default(TCode); if HexToBuffer(S, Work{%H-}, SizeOf(Work)) then begin
if HexToBuffer(S, Work, SizeOf(Work)) then begin
{save the value} {save the value}
Ini.WriteString('Codes', 'DaysCode', S); Ini.WriteString('Codes', 'DaysCode', S);
CodeLbl.Caption := S; CodeLbl.Caption := S;

21
components/onguard/examples/exnet/exnet.lpi
View File

@ -58,8 +58,8 @@
<UnitName Value="Exnetu"/> <UnitName Value="Exnetu"/>
<IsVisibleTab Value="True"/> <IsVisibleTab Value="True"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<TopLine Value="133"/> <TopLine Value="86"/>
<CursorPos X="26" Y="165"/> <CursorPos X="34" Y="104"/>
<UsageCount Value="20"/> <UsageCount Value="20"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
@ -83,7 +83,7 @@
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit4> </Unit4>
</Units> </Units>
<JumpHistory Count="5" HistoryIndex="4"> <JumpHistory Count="9" HistoryIndex="8">
<Position1> <Position1>
<Filename Value="exnetu.pas"/> <Filename Value="exnetu.pas"/>
<Caret Line="141" Column="59" TopLine="118"/> <Caret Line="141" Column="59" TopLine="118"/>
@ -104,6 +104,21 @@
<Filename Value="exnetu.pas"/> <Filename Value="exnetu.pas"/>
<Caret Line="163" TopLine="128"/> <Caret Line="163" TopLine="128"/>
</Position5> </Position5>
<Position6>
<Filename Value="exnetu.pas"/>
<Caret Line="131" Column="44" TopLine="131"/>
</Position6>
<Position7>
<Filename Value="exnetu.pas"/>
</Position7>
<Position8>
<Filename Value="exnetu.pas"/>
<Caret Line="104" TopLine="74"/>
</Position8>
<Position9>
<Filename Value="exnetu.pas"/>
<Caret Line="164" TopLine="132"/>
</Position9>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>

6
components/onguard/examples/exnet/exnetu.pas
View File

@ -101,8 +101,7 @@ begin
Ini := TIniFile.Create('ONGUARD.INI'); Ini := TIniFile.Create('ONGUARD.INI');
try try
{store the code in the ini file if it looks OK} {store the code in the ini file if it looks OK}
Work := Default(TCode); if HexToBuffer(S, Work{%H-}, SizeOf(Work)) then begin
if HexToBuffer(S, Work, SizeOf(Work)) then begin
{save the value} {save the value}
Ini.WriteString('Codes', 'NetCode', S); Ini.WriteString('Codes', 'NetCode', S);
CodeLbl.Caption := S; CodeLbl.Caption := S;
@ -162,8 +161,7 @@ var
Code : TCode; Code : TCode;
begin begin
{force code label to update} {force code label to update}
Code := Default(TCode); GetCode(Self, Code{%H-});
GetCode(Self, Code);
end; end;

56
components/onguard/examples/exprot/exprot.lpi
View File

@ -57,19 +57,19 @@
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="EXPROTU"/> <UnitName Value="EXPROTU"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<TopLine Value="13"/> <TopLine Value="3"/>
<CursorPos Y="32"/> <CursorPos Y="35"/>
<UsageCount Value="20"/> <UsageCount Value="20"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
</Unit1> </Unit1>
<Unit2> <Unit2>
<Filename Value="../../source/ogproexe.pas"/> <Filename Value="../../source/ogproexe.pas"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="2"/> <EditorIndex Value="2"/>
<TopLine Value="432"/> <TopLine Value="421"/>
<CursorPos Y="453"/> <CursorPos X="24" Y="439"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit2> </Unit2>
@ -81,7 +81,7 @@
<DefaultSyntaxHighlighter Value="LFM"/> <DefaultSyntaxHighlighter Value="LFM"/>
</Unit3> </Unit3>
</Units> </Units>
<JumpHistory Count="3" HistoryIndex="2"> <JumpHistory Count="14" HistoryIndex="13">
<Position1> <Position1>
<Filename Value="exprotu.pas"/> <Filename Value="exprotu.pas"/>
<Caret Line="8" Column="15"/> <Caret Line="8" Column="15"/>
@ -94,6 +94,50 @@
<Filename Value="exprotu.pas"/> <Filename Value="exprotu.pas"/>
<Caret Line="37" Column="21" TopLine="12"/> <Caret Line="37" Column="21" TopLine="12"/>
</Position3> </Position3>
<Position4>
<Filename Value="exprotu.pas"/>
<Caret Line="26" Column="68" TopLine="10"/>
</Position4>
<Position5>
<Filename Value="exprotu.pas"/>
<Caret Line="27" Column="53" TopLine="7"/>
</Position5>
<Position6>
<Filename Value="../../source/ogproexe.pas"/>
<Caret Line="148" TopLine="131"/>
</Position6>
<Position7>
<Filename Value="../../source/ogproexe.pas"/>
<Caret Line="274" Column="5" TopLine="246"/>
</Position7>
<Position8>
<Filename Value="exprotu.pas"/>
<Caret Line="35" TopLine="3"/>
</Position8>
<Position9>
<Filename Value="../../source/ogproexe.pas"/>
<Caret Line="266" Column="9" TopLine="248"/>
</Position9>
<Position10>
<Filename Value="../../source/ogproexe.pas"/>
<Caret Line="104" Column="30" TopLine="86"/>
</Position10>
<Position11>
<Filename Value="../../source/ogproexe.pas"/>
<Caret Line="251" TopLine="249"/>
</Position11>
<Position12>
<Filename Value="../../source/ogproexe.pas"/>
<Caret Line="104" Column="15" TopLine="86"/>
</Position12>
<Position13>
<Filename Value="../../source/ogproexe.pas"/>
<Caret Line="251" TopLine="249"/>
</Position13>
<Position14>
<Filename Value="../../source/ogproexe.pas"/>
<Caret Line="309" Column="12" TopLine="291"/>
</Position14>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>

14
components/onguard/examples/exprot/exprotu.pas
View File

@ -4,7 +4,7 @@ interface
uses uses
SysUtils, Classes, Controls, Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, SysUtils, Classes, Controls, Forms, Dialogs, StdCtrls, Buttons, ExtCtrls,
ogutil, ogproexe; ogproexe;
type type
@ -31,18 +31,8 @@ implementation
{$R *.lfm} {$R *.lfm}
procedure TForm1.OgProtectExe1Checked(Sender: TObject; Status: TExeStatus); procedure TForm1.OgProtectExe1Checked(Sender: TObject; Status: TExeStatus);
var
S : string;
begin begin
case Status of StatusLbl.Caption := ExeStatusToStr(Status);
exeSuccess : S := 'EXE file is OK';
exeSizeError : S := 'EXE file size has changed';
exeIntegrityError : S := 'EXE Integrity Error';
exeNotStamped : S := 'EXE file is not stamped';
else
S := 'Unknown error';
end;
StatusLbl.Caption := S;
end; end;

57
components/onguard/examples/exreg/exreg.lpi
View File

@ -58,8 +58,8 @@
<UnitName Value="ExReg1"/> <UnitName Value="ExReg1"/>
<IsVisibleTab Value="True"/> <IsVisibleTab Value="True"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<TopLine Value="74"/> <TopLine Value="58"/>
<CursorPos Y="51"/> <CursorPos X="36" Y="75"/>
<UsageCount Value="20"/> <UsageCount Value="20"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
@ -111,120 +111,119 @@
<JumpHistory Count="30" HistoryIndex="29"> <JumpHistory Count="30" HistoryIndex="29">
<Position1> <Position1>
<Filename Value="exreg1.pas"/> <Filename Value="exreg1.pas"/>
<Caret Line="73" Column="60" TopLine="60"/> <Caret Line="61" Column="14" TopLine="54"/>
</Position1> </Position1>
<Position2> <Position2>
<Filename Value="exreg1.pas"/> <Filename Value="exreg1.pas"/>
<Caret Line="62" Column="13" TopLine="54"/> <Caret Line="65" Column="9" TopLine="54"/>
</Position2> </Position2>
<Position3> <Position3>
<Filename Value="exreg1.pas"/> <Filename Value="exreg1.pas"/>
<Caret Line="65" Column="10" TopLine="54"/> <Caret Line="75" TopLine="57"/>
</Position3> </Position3>
<Position4> <Position4>
<Filename Value="exreg1.pas"/> <Filename Value="exreg1.pas"/>
<Caret Line="61" Column="14" TopLine="54"/> <Caret Line="54" Column="37" TopLine="54"/>
</Position4> </Position4>
<Position5> <Position5>
<Filename Value="exreg1.pas"/> <Filename Value="exreg1.pas"/>
<Caret Line="65" Column="9" TopLine="54"/> <Caret Line="32" Column="22"/>
</Position5> </Position5>
<Position6> <Position6>
<Filename Value="exreg1.pas"/> <Filename Value="exreg1.pas"/>
<Caret Line="75" TopLine="57"/> <Caret Line="91" Column="18" TopLine="62"/>
</Position6> </Position6>
<Position7> <Position7>
<Filename Value="exreg1.pas"/> <Filename Value="exreg1.pas"/>
<Caret Line="54" Column="37" TopLine="54"/> <Caret Line="43" Column="21" TopLine="43"/>
</Position7> </Position7>
<Position8> <Position8>
<Filename Value="exreg1.pas"/> <Filename Value="exreg1.pas"/>
<Caret Line="32" Column="22"/>
</Position8> </Position8>
<Position9> <Position9>
<Filename Value="exreg1.pas"/> <Filename Value="exreg1.pas"/>
<Caret Line="91" Column="18" TopLine="62"/> <Caret Line="91" Column="10" TopLine="61"/>
</Position9> </Position9>
<Position10> <Position10>
<Filename Value="exreg1.pas"/> <Filename Value="exreg1.pas"/>
<Caret Line="43" Column="21" TopLine="43"/> <Caret Line="50" Column="8" TopLine="43"/>
</Position10> </Position10>
<Position11> <Position11>
<Filename Value="exreg1.pas"/> <Filename Value="exreg1.pas"/>
</Position11> </Position11>
<Position12> <Position12>
<Filename Value="exreg1.pas"/> <Filename Value="exreg1.pas"/>
<Caret Line="91" Column="10" TopLine="61"/> <Caret Line="28" Column="30"/>
</Position12> </Position12>
<Position13> <Position13>
<Filename Value="exreg1.pas"/> <Filename Value="exreg1.pas"/>
<Caret Line="50" Column="8" TopLine="43"/> <Caret Line="62" Column="25" TopLine="62"/>
</Position13> </Position13>
<Position14> <Position14>
<Filename Value="exreg1.pas"/> <Filename Value="exreg1.pas"/>
</Position14> </Position14>
<Position15> <Position15>
<Filename Value="exreg1.pas"/> <Filename Value="exreg1.pas"/>
<Caret Line="28" Column="30"/> <Caret Line="14" Column="11"/>
</Position15> </Position15>
<Position16> <Position16>
<Filename Value="exreg1.pas"/> <Filename Value="exreg1.pas"/>
<Caret Line="62" Column="25" TopLine="62"/> <Caret Line="61" Column="24" TopLine="31"/>
</Position16> </Position16>
<Position17> <Position17>
<Filename Value="exreg1.pas"/> <Filename Value="exreg1.pas"/>
<Caret Line="92" TopLine="62"/>
</Position17> </Position17>
<Position18> <Position18>
<Filename Value="exreg1.pas"/> <Filename Value="exreg1.pas"/>
<Caret Line="14" Column="11"/> <Caret Line="54" TopLine="18"/>
</Position18> </Position18>
<Position19> <Position19>
<Filename Value="exreg1.pas"/> <Filename Value="exreg1.pas"/>
<Caret Line="61" Column="24" TopLine="31"/> <Caret Line="67" Column="33" TopLine="45"/>
</Position19> </Position19>
<Position20> <Position20>
<Filename Value="exreg1.pas"/> <Filename Value="exreg1.pas"/>
<Caret Line="92" TopLine="62"/> <Caret Line="30" Column="15" TopLine="12"/>
</Position20> </Position20>
<Position21> <Position21>
<Filename Value="exreg1.pas"/> <Filename Value="exreg1.pas"/>
<Caret Line="54" TopLine="18"/> <Caret Line="73" Column="7" TopLine="43"/>
</Position21> </Position21>
<Position22> <Position22>
<Filename Value="exreg1.pas"/> <Filename Value="exreg1.pas"/>
<Caret Line="67" Column="33" TopLine="45"/> <Caret Line="70" Column="17" TopLine="52"/>
</Position22> </Position22>
<Position23> <Position23>
<Filename Value="exreg1.pas"/> <Filename Value="exreg1.pas"/>
<Caret Line="30" Column="15" TopLine="12"/> <Caret Line="77" Column="26" TopLine="57"/>
</Position23> </Position23>
<Position24> <Position24>
<Filename Value="exreg1.pas"/> <Filename Value="exreg1.pas"/>
<Caret Line="73" Column="7" TopLine="43"/> <Caret Line="92" Column="37" TopLine="74"/>
</Position24> </Position24>
<Position25> <Position25>
<Filename Value="exreg1.pas"/> <Filename Value="exreg1.pas"/>
<Caret Line="70" Column="17" TopLine="52"/> <Caret Line="87" Column="20" TopLine="69"/>
</Position25> </Position25>
<Position26> <Position26>
<Filename Value="exreg1.pas"/> <Filename Value="exreg1.pas"/>
<Caret Line="77" Column="26" TopLine="57"/> <Caret Line="92" Column="26" TopLine="74"/>
</Position26> </Position26>
<Position27> <Position27>
<Filename Value="exreg1.pas"/> <Filename Value="exreg1.pas"/>
<Caret Line="92" Column="37" TopLine="74"/> <Caret Line="87" TopLine="69"/>
</Position27> </Position27>
<Position28> <Position28>
<Filename Value="exreg1.pas"/> <Filename Value="exreg1.pas"/>
<Caret Line="87" Column="20" TopLine="69"/> <Caret Line="71" Column="76" TopLine="71"/>
</Position28> </Position28>
<Position29> <Position29>
<Filename Value="exreg1.pas"/> <Filename Value="exreg1.pas"/>
<Caret Line="92" Column="26" TopLine="74"/>
</Position29> </Position29>
<Position30> <Position30>
<Filename Value="exreg1.pas"/> <Filename Value="exreg1.pas"/>
<Caret Line="87" TopLine="69"/> <Caret Line="75" TopLine="45"/>
</Position30> </Position30>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>

3
components/onguard/examples/exreg/exreg1.pas
View File

@ -72,8 +72,7 @@ begin
Key := EncryptionKey; Key := EncryptionKey;
Modifier := StringHashELF(edtUserName1.Text); Modifier := StringHashELF(edtUserName1.Text);
ApplyModifierToKeyPrim(Modifier, Key, SizeOf(Key)); ApplyModifierToKeyPrim(Modifier, Key, SizeOf(Key));
Code := Default(TCode); InitRegCode(Key, '', D, Code{%H-});
InitRegCode(Key, '', D, Code);
edtRegCode1.Text := BufferToHex(Code, SizeOf(Code)); edtRegCode1.Text := BufferToHex(Code, SizeOf(Code));
end; end;

15
components/onguard/examples/exrgreg/exrgreg.lpi
View File

@ -58,13 +58,13 @@
<IsVisibleTab Value="True"/> <IsVisibleTab Value="True"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<TopLine Value="87"/> <TopLine Value="87"/>
<CursorPos X="32" Y="105"/> <CursorPos X="36" Y="105"/>
<UsageCount Value="20"/> <UsageCount Value="20"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
</Unit1> </Unit1>
</Units> </Units>
<JumpHistory Count="6" HistoryIndex="5"> <JumpHistory Count="9" HistoryIndex="8">
<Position1> <Position1>
<Filename Value="exrgregu.pas"/> <Filename Value="exrgregu.pas"/>
<Caret Line="108" Column="59" TopLine="80"/> <Caret Line="108" Column="59" TopLine="80"/>
@ -89,6 +89,17 @@
<Filename Value="exrgregu.pas"/> <Filename Value="exrgregu.pas"/>
<Caret Line="45" Column="12" TopLine="13"/> <Caret Line="45" Column="12" TopLine="13"/>
</Position6> </Position6>
<Position7>
<Filename Value="exrgregu.pas"/>
<Caret Line="87" Column="70" TopLine="87"/>
</Position7>
<Position8>
<Filename Value="exrgregu.pas"/>
</Position8>
<Position9>
<Filename Value="exrgregu.pas"/>
<Caret Line="105" TopLine="75"/>
</Position9>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>

3
components/onguard/examples/exrgreg/exrgregu.pas
View File

@ -102,8 +102,7 @@ begin
Ini := TIniFile.Create('ONGUARD.INI'); Ini := TIniFile.Create('ONGUARD.INI');
try try
{store the code in the ini file if it looks OK} {store the code in the ini file if it looks OK}
Work := Default(TCode); if HexToBuffer(S, Work{%H-}, SizeOf(Work)) then begin
if HexToBuffer(S, Work, SizeOf(Work)) then begin
{save the value} {save the value}
Ini.WriteString('Codes', 'RegistrationCode', S); Ini.WriteString('Codes', 'RegistrationCode', S);
Ini.WriteString('Codes', 'RegistrationStr', RegStr); Ini.WriteString('Codes', 'RegistrationStr', RegStr);

17
components/onguard/examples/exrgstr/exrgstr.lpi
View File

@ -59,14 +59,14 @@
<UnitName Value="Exrgstru"/> <UnitName Value="Exrgstru"/>
<IsVisibleTab Value="True"/> <IsVisibleTab Value="True"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<TopLine Value="70"/> <TopLine Value="67"/>
<CursorPos X="27" Y="93"/> <CursorPos X="61" Y="85"/>
<UsageCount Value="20"/> <UsageCount Value="20"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
</Unit1> </Unit1>
</Units> </Units>
<JumpHistory Count="16" HistoryIndex="15"> <JumpHistory Count="19" HistoryIndex="18">
<Position1> <Position1>
<Filename Value="exrgstru.pas"/> <Filename Value="exrgstru.pas"/>
<Caret Line="109" Column="77" TopLine="92"/> <Caret Line="109" Column="77" TopLine="92"/>
@ -129,6 +129,17 @@
<Filename Value="exrgstru.pas"/> <Filename Value="exrgstru.pas"/>
<Caret Line="58" TopLine="39"/> <Caret Line="58" TopLine="39"/>
</Position16> </Position16>
<Position17>
<Filename Value="exrgstru.pas"/>
<Caret Line="70" Column="71" TopLine="70"/>
</Position17>
<Position18>
<Filename Value="exrgstru.pas"/>
</Position18>
<Position19>
<Filename Value="exrgstru.pas"/>
<Caret Line="85" TopLine="55"/>
</Position19>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>

3
components/onguard/examples/exrgstr/exrgstru.pas
View File

@ -82,8 +82,7 @@ begin
case Status of case Status of
ogValidCode : begin ogValidCode : begin
TC := Default(TCode); InitRegCode(CKey, ARegStr, ED, TC{%H-});
InitRegCode(CKey, ARegStr, ED, TC);
C1 := BufferToHex(TC, SizeOf(TC)); C1 := BufferToHex(TC, SizeOf(TC));
if (CompareText(C1, CodeStr) <> 0) then begin if (CompareText(C1, CodeStr) <> 0) then begin

21
components/onguard/examples/exselapi/exselapi.lpi
View File

@ -59,8 +59,8 @@
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="Exselap1"/> <UnitName Value="Exselap1"/>
<IsVisibleTab Value="True"/> <IsVisibleTab Value="True"/>
<TopLine Value="45"/> <TopLine Value="48"/>
<CursorPos X="38" Y="59"/> <CursorPos X="3" Y="66"/>
<UsageCount Value="20"/> <UsageCount Value="20"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
@ -108,7 +108,7 @@
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit8> </Unit8>
</Units> </Units>
<JumpHistory Count="11" HistoryIndex="10"> <JumpHistory Count="14" HistoryIndex="13">
<Position1> <Position1>
<Filename Value="exselap1.pas"/> <Filename Value="exselap1.pas"/>
<Caret Line="155" Column="45" TopLine="43"/> <Caret Line="155" Column="45" TopLine="43"/>
@ -146,12 +146,23 @@
</Position9> </Position9>
<Position10> <Position10>
<Filename Value="exselap1.pas"/> <Filename Value="exselap1.pas"/>
<Caret Line="114" TopLine="142"/> <Caret Line="249" Column="5" TopLine="213"/>
</Position10> </Position10>
<Position11> <Position11>
<Filename Value="exselap1.pas"/> <Filename Value="exselap1.pas"/>
<Caret Line="249" Column="5" TopLine="213"/> <Caret Line="45" Column="74" TopLine="45"/>
</Position11> </Position11>
<Position12>
<Filename Value="exselap1.pas"/>
</Position12>
<Position13>
<Filename Value="exselap1.pas"/>
<Caret Line="66" Column="11" TopLine="36"/>
</Position13>
<Position14>
<Filename Value="exselap1.pas"/>
<Caret Line="135" Column="25" TopLine="105"/>
</Position14>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>

17
components/onguard/examples/exselect/exselect.lpi
View File

@ -58,8 +58,8 @@
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="Exselec1"/> <UnitName Value="Exselec1"/>
<IsVisibleTab Value="True"/> <IsVisibleTab Value="True"/>
<TopLine Value="94"/> <TopLine Value="113"/>
<CursorPos X="11" Y="68"/> <CursorPos X="25" Y="143"/>
<UsageCount Value="20"/> <UsageCount Value="20"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
@ -70,7 +70,7 @@
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit2> </Unit2>
</Units> </Units>
<JumpHistory Count="4" HistoryIndex="3"> <JumpHistory Count="7" HistoryIndex="6">
<Position1> <Position1>
<Filename Value="exselec1.pas"/> <Filename Value="exselec1.pas"/>
<Caret Line="300" Column="22" TopLine="290"/> <Caret Line="300" Column="22" TopLine="290"/>
@ -87,6 +87,17 @@
<Filename Value="exselec1.pas"/> <Filename Value="exselec1.pas"/>
<Caret Line="327" TopLine="291"/> <Caret Line="327" TopLine="291"/>
</Position4> </Position4>
<Position5>
<Filename Value="exselec1.pas"/>
<Caret Line="94" Column="44" TopLine="94"/>
</Position5>
<Position6>
<Filename Value="exselec1.pas"/>
</Position6>
<Position7>
<Filename Value="exselec1.pas"/>
<Caret Line="77" Column="11" TopLine="47"/>
</Position7>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>

3
components/onguard/examples/exslcode/exslcod1.pas
View File

@ -87,8 +87,7 @@ begin
Value := Value + FaxMask; Value := Value + FaxMask;
If GoodiesFeat.Checked then If GoodiesFeat.Checked then
Value := Value + GoodiesMask; Value := Value + GoodiesMask;
Code := Default(TCode); InitSpecialCode(Key, Value, Expires, Code{%H-});
InitSpecialCode(Key, Value, Expires, Code);
CodeDisplay.Text := BufferToHex(Code, SizeOf(Code)); CodeDisplay.Text := BufferToHex(Code, SizeOf(Code));
end; end;

25
components/onguard/examples/exslcode/exslcode.lpi
View File

@ -40,7 +40,7 @@
<MinVersion Major="1" Valid="True"/> <MinVersion Major="1" Valid="True"/>
</Item2> </Item2>
</RequiredPackages> </RequiredPackages>
<Units Count="3"> <Units Count="4">
<Unit0> <Unit0>
<Filename Value="exslcode.lpr"/> <Filename Value="exslcode.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
@ -60,7 +60,7 @@
<UnitName Value="Exslcod1"/> <UnitName Value="Exslcod1"/>
<IsVisibleTab Value="True"/> <IsVisibleTab Value="True"/>
<TopLine Value="58"/> <TopLine Value="58"/>
<CursorPos X="26" Y="90"/> <CursorPos X="49" Y="90"/>
<UsageCount Value="20"/> <UsageCount Value="20"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
@ -71,8 +71,16 @@
<UsageCount Value="10"/> <UsageCount Value="10"/>
<DefaultSyntaxHighlighter Value="LFM"/> <DefaultSyntaxHighlighter Value="LFM"/>
</Unit2> </Unit2>
<Unit3>
<Filename Value="../../source/onguard.pas"/>
<EditorIndex Value="2"/>
<TopLine Value="552"/>
<CursorPos X="11" Y="570"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit3>
</Units> </Units>
<JumpHistory Count="7" HistoryIndex="6"> <JumpHistory Count="10" HistoryIndex="9">
<Position1> <Position1>
<Filename Value="exslcod1.pas"/> <Filename Value="exslcod1.pas"/>
<Caret Line="68" Column="34" TopLine="27"/> <Caret Line="68" Column="34" TopLine="27"/>
@ -101,6 +109,17 @@
<Filename Value="exslcod1.pas"/> <Filename Value="exslcod1.pas"/>
<Caret Line="70" Column="24" TopLine="58"/> <Caret Line="70" Column="24" TopLine="58"/>
</Position7> </Position7>
<Position8>
<Filename Value="exslcod1.pas"/>
<Caret Line="56" Column="57" TopLine="56"/>
</Position8>
<Position9>
<Filename Value="exslcod1.pas"/>
</Position9>
<Position10>
<Filename Value="exslcod1.pas"/>
<Caret Line="90" TopLine="58"/>
</Position10>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>

9
components/onguard/examples/exsnreg/exsnreg.lpi
View File

@ -60,13 +60,14 @@
<UnitName Value="Exsnregu"/> <UnitName Value="Exsnregu"/>
<IsVisibleTab Value="True"/> <IsVisibleTab Value="True"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<CursorPos X="12" Y="42"/> <TopLine Value="70"/>
<CursorPos Y="100"/>
<UsageCount Value="20"/> <UsageCount Value="20"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
</Unit1> </Unit1>
</Units> </Units>
<JumpHistory Count="6" HistoryIndex="5"> <JumpHistory Count="7" HistoryIndex="6">
<Position1> <Position1>
<Filename Value="exsnregu.pas"/> <Filename Value="exsnregu.pas"/>
<Caret Line="102" Column="24" TopLine="88"/> <Caret Line="102" Column="24" TopLine="88"/>
@ -91,6 +92,10 @@
<Filename Value="exsnregu.pas"/> <Filename Value="exsnregu.pas"/>
<Caret Line="129" TopLine="93"/> <Caret Line="129" TopLine="93"/>
</Position6> </Position6>
<Position7>
<Filename Value="exsnregu.pas"/>
<Caret Line="19" Column="54"/>
</Position7>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>

3
components/onguard/examples/exsnreg/exsnregu.pas
View File

@ -97,8 +97,7 @@ begin
Ini := TIniFile.Create('ONGUARD.INI'); Ini := TIniFile.Create('ONGUARD.INI');
try try
{store the code in the ini file if it looks OK} {store the code in the ini file if it looks OK}
Work := Default(TCode); if HexToBuffer(S, Work{%H-}, SizeOf(Work)) then begin
if HexToBuffer(S, Work, SizeOf(Work)) then begin
{save the value} {save the value}
Ini.WriteString('Codes', 'SerialNumberCode', S); Ini.WriteString('Codes', 'SerialNumberCode', S);
CodeLbl.Caption := S; CodeLbl.Caption := S;

21
components/onguard/examples/exspname/exspname.lpi
View File

@ -56,8 +56,8 @@
<UnitName Value="ExSpNamu"/> <UnitName Value="ExSpNamu"/>
<IsVisibleTab Value="True"/> <IsVisibleTab Value="True"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<TopLine Value="46"/> <TopLine Value="37"/>
<CursorPos Y="63"/> <CursorPos X="54" Y="55"/>
<UsageCount Value="21"/> <UsageCount Value="21"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
@ -76,7 +76,7 @@
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit3> </Unit3>
</Units> </Units>
<JumpHistory Count="4" HistoryIndex="3"> <JumpHistory Count="8" HistoryIndex="7">
<Position1> <Position1>
<Filename Value="exspnamu.pas"/> <Filename Value="exspnamu.pas"/>
<Caret Line="6" Column="24"/> <Caret Line="6" Column="24"/>
@ -93,6 +93,21 @@
<Filename Value="exspnamu.pas"/> <Filename Value="exspnamu.pas"/>
<Caret Line="55" Column="26" TopLine="37"/> <Caret Line="55" Column="26" TopLine="37"/>
</Position4> </Position4>
<Position5>
<Filename Value="exspnamu.pas"/>
<Caret Line="43" Column="81" TopLine="43"/>
</Position5>
<Position6>
<Filename Value="exspnamu.pas"/>
</Position6>
<Position7>
<Filename Value="exspnamu.pas"/>
<Caret Line="55" TopLine="25"/>
</Position7>
<Position8>
<Filename Value="exspnamu.pas"/>
<Caret Line="64" TopLine="34"/>
</Position8>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>

6
components/onguard/examples/exspname/exspnamu.pas
View File

@ -52,8 +52,7 @@ var
Code : TCode; Code : TCode;
begin begin
HashValue := StringHashElf(edtUserName1.Text); HashValue := StringHashElf(edtUserName1.Text);
Code := Default(TCode); InitSpecialCode(Key, HashValue, Now + 30, Code{%H-});
InitSpecialCode(Key, HashValue, Now + 30, Code);
edtCode1.Text := BufferToHex(Code, SizeOf(Code)); edtCode1.Text := BufferToHex(Code, SizeOf(Code));
end; end;
@ -62,8 +61,7 @@ procedure TForm1.btnCheckCodeClick(Sender: TObject);
var var
Code : TCode; Code : TCode;
begin begin
Code := Default(TCode); HexToBuffer(edtCode2.Text, Code{%H-}, SizeOf(Code));
HexToBuffer(edtCode2.Text, Code, SizeOf(Code));
if not IsSpecialCodeValid(Key, Code) then begin if not IsSpecialCodeValid(Key, Code) then begin
lblCheckResult.Caption := 'Code Invalid'; lblCheckResult.Caption := 'Code Invalid';
Exit; Exit;

19
components/onguard/examples/exspreg/exspreg.lpi
View File

@ -58,14 +58,12 @@
<UnitName Value="Exspregu"/> <UnitName Value="Exspregu"/>
<IsVisibleTab Value="True"/> <IsVisibleTab Value="True"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<TopLine Value="85"/>
<CursorPos X="30" Y="103"/>
<UsageCount Value="20"/> <UsageCount Value="20"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
</Unit1> </Unit1>
</Units> </Units>
<JumpHistory Count="14" HistoryIndex="13"> <JumpHistory Count="18" HistoryIndex="17">
<Position1> <Position1>
<Filename Value="exspregu.pas"/> <Filename Value="exspregu.pas"/>
<Caret Line="22" Column="39"/> <Caret Line="22" Column="39"/>
@ -120,6 +118,21 @@
<Filename Value="exspreg.lpr"/> <Filename Value="exspreg.lpr"/>
<Caret Line="17" Column="28"/> <Caret Line="17" Column="28"/>
</Position14> </Position14>
<Position15>
<Filename Value="exspregu.pas"/>
<Caret Line="85" Column="71" TopLine="85"/>
</Position15>
<Position16>
<Filename Value="exspregu.pas"/>
</Position16>
<Position17>
<Filename Value="exspregu.pas"/>
<Caret Line="103" TopLine="73"/>
</Position17>
<Position18>
<Filename Value="exspregu.pas"/>
<Caret Line="85" Column="69" TopLine="85"/>
</Position18>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>

3
components/onguard/examples/exspreg/exspregu.pas
View File

@ -100,8 +100,7 @@ begin
Ini := TIniFile.Create('ONGUARD.INI'); Ini := TIniFile.Create('ONGUARD.INI');
try try
{store the code in the ini file if it looks OK} {store the code in the ini file if it looks OK}
Work := Default(TCode); if HexToBuffer(S, Work{%H-}, SizeOf(Work)) then begin
if HexToBuffer(S, Work, SizeOf(Work)) then begin
{save the value} {save the value}
Ini.WriteString('Codes', 'SpecialCode', S); Ini.WriteString('Codes', 'SpecialCode', S);
CodeLbl.Caption := S; CodeLbl.Caption := S;

2
components/onguard/examples/exsrnm1/exsrnm1.lpi
View File

@ -60,7 +60,7 @@
<IsVisibleTab Value="True"/> <IsVisibleTab Value="True"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<TopLine Value="149"/> <TopLine Value="149"/>
<CursorPos Y="167"/> <CursorPos X="66" Y="172"/>
<UsageCount Value="20"/> <UsageCount Value="20"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>

3
components/onguard/examples/exsrnm1/exsrnmu1.pas
View File

@ -129,8 +129,7 @@ begin
end; end;
{Check that Release Code was entered correctly} {Check that Release Code was entered correctly}
TC := Default(TCode); HexToBuffer(SNEntryDlg.CodeText.Text, TC{%H-}, SizeOf(TCode));
HexToBuffer(SNEntryDlg.CodeText.Text, TC, SizeOf(TCode));
if not (IsSerialNumberCodeValid(CKey, TC)) then begin if not (IsSerialNumberCodeValid(CKey, TC)) then begin
S := 'Release code not entered correctly'; S := 'Release code not entered correctly';
Result := mrCancel; Result := mrCancel;

13
components/onguard/examples/exusg1/exusg1.lpi
View File

@ -56,14 +56,14 @@
<UnitName Value="Exusg1u"/> <UnitName Value="Exusg1u"/>
<IsVisibleTab Value="True"/> <IsVisibleTab Value="True"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<TopLine Value="87"/> <TopLine Value="42"/>
<CursorPos X="51" Y="105"/> <CursorPos X="4" Y="59"/>
<UsageCount Value="20"/> <UsageCount Value="20"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
</Unit1> </Unit1>
</Units> </Units>
<JumpHistory Count="7" HistoryIndex="6"> <JumpHistory Count="9" HistoryIndex="8">
<Position1> <Position1>
<Filename Value="exusg1u.pas"/> <Filename Value="exusg1u.pas"/>
<Caret Line="105" Column="55" TopLine="96"/> <Caret Line="105" Column="55" TopLine="96"/>
@ -92,6 +92,13 @@
<Filename Value="exusg1u.pas"/> <Filename Value="exusg1u.pas"/>
<Caret Line="116" Column="83" TopLine="86"/> <Caret Line="116" Column="83" TopLine="86"/>
</Position7> </Position7>
<Position8>
<Filename Value="exusg1u.pas"/>
<Caret Line="87" Column="52" TopLine="87"/>
</Position8>
<Position9>
<Filename Value="exusg1u.pas"/>
</Position9>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>

3
components/onguard/examples/exusg1/exusg1u.pas
View File

@ -56,8 +56,7 @@ end;
procedure TForm1.OgUsageCode1GetCode(Sender: TObject; var Code: TCode); procedure TForm1.OgUsageCode1GetCode(Sender: TObject; var Code: TCode);
var var
S : string; S: string;
L : integer;
begin begin
TheDir := ExtractFilePath(ParamStr(0)); TheDir := ExtractFilePath(ParamStr(0));

15
components/onguard/examples/exusg2/exusg2.lpi
View File

@ -57,13 +57,13 @@
<IsVisibleTab Value="True"/> <IsVisibleTab Value="True"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<TopLine Value="46"/> <TopLine Value="46"/>
<CursorPos X="11" Y="50"/> <CursorPos X="4" Y="63"/>
<UsageCount Value="20"/> <UsageCount Value="20"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
</Unit1> </Unit1>
</Units> </Units>
<JumpHistory Count="5" HistoryIndex="4"> <JumpHistory Count="8" HistoryIndex="7">
<Position1> <Position1>
<Filename Value="exusg2u.pas"/> <Filename Value="exusg2u.pas"/>
<Caret Line="102" Column="28" TopLine="85"/> <Caret Line="102" Column="28" TopLine="85"/>
@ -84,6 +84,17 @@
<Filename Value="exusg2u.pas"/> <Filename Value="exusg2u.pas"/>
<Caret Line="154" TopLine="119"/> <Caret Line="154" TopLine="119"/>
</Position5> </Position5>
<Position6>
<Filename Value="exusg2u.pas"/>
<Caret Line="46" Column="57" TopLine="46"/>
</Position6>
<Position7>
<Filename Value="exusg2u.pas"/>
</Position7>
<Position8>
<Filename Value="exusg2u.pas"/>
<Caret Line="105" Column="55" TopLine="88"/>
</Position8>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>

5
components/onguard/examples/exusg2/exusg2u.pas
View File

@ -60,8 +60,7 @@ end;
procedure TForm1.OgUsageCode2GetCode(Sender: TObject; var Code: TCode); procedure TForm1.OgUsageCode2GetCode(Sender: TObject; var Code: TCode);
var var
S : string; S: string;
L : integer;
begin begin
TheDir := ExtractFilePath(ParamStr(0)); TheDir := ExtractFilePath(ParamStr(0));
@ -102,7 +101,7 @@ begin
if not (FileExists(TheDir + 'Usage2.ini')) then begin if not (FileExists(TheDir + 'Usage2.ini')) then begin
S := ''; S := '';
if (InputQuery('Call Vendor NOW', 'Code', S)) then begin if (InputQuery('Call Vendor NOW', 'Code', S)) then begin
if HexToBuffer(S, Code, SizeOf(Code)) then begin if HexToBuffer(S, Code{%H-}, SizeOf(Code)) then begin
IniFile := TIniFile.Create(TheDir + 'Usage2.ini'); IniFile := TIniFile.Create(TheDir + 'Usage2.ini');
try try
IniFile.WriteString('Codes', 'Uses', S); IniFile.WriteString('Codes', 'Uses', S);

24
components/onguard/examples/exusreg/exusreg.lpi
View File

@ -37,7 +37,7 @@
<MinVersion Major="1" Valid="True"/> <MinVersion Major="1" Valid="True"/>
</Item2> </Item2>
</RequiredPackages> </RequiredPackages>
<Units Count="2"> <Units Count="3">
<Unit0> <Unit0>
<Filename Value="exusreg.lpr"/> <Filename Value="exusreg.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
@ -56,14 +56,22 @@
<UnitName Value="ExUSRegU"/> <UnitName Value="ExUSRegU"/>
<IsVisibleTab Value="True"/> <IsVisibleTab Value="True"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<TopLine Value="18"/> <TopLine Value="85"/>
<CursorPos X="50" Y="38"/> <CursorPos X="34" Y="103"/>
<UsageCount Value="21"/> <UsageCount Value="21"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
</Unit1> </Unit1>
<Unit2>
<Filename Value="../../source/onguard.pas"/>
<EditorIndex Value="2"/>
<TopLine Value="555"/>
<CursorPos X="3" Y="126"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit2>
</Units> </Units>
<JumpHistory Count="4" HistoryIndex="3"> <JumpHistory Count="6" HistoryIndex="5">
<Position1> <Position1>
<Filename Value="exusregu.pas"/> <Filename Value="exusregu.pas"/>
<Caret Line="13" Column="36"/> <Caret Line="13" Column="36"/>
@ -80,6 +88,14 @@
<Filename Value="exusregu.pas"/> <Filename Value="exusregu.pas"/>
<Caret Line="152" TopLine="117"/> <Caret Line="152" TopLine="117"/>
</Position4> </Position4>
<Position5>
<Filename Value="exusregu.pas"/>
<Caret Line="41" Column="59" TopLine="24"/>
</Position5>
<Position6>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="126" Column="3" TopLine="555"/>
</Position6>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>

2
components/onguard/examples/exusreg/exusregu.pas
View File

@ -100,7 +100,7 @@ begin
Ini := TIniFile.Create('ONGUARD.INI'); Ini := TIniFile.Create('ONGUARD.INI');
try try
{store the date code in the ini file if it looks OK} {store the date code in the ini file if it looks OK}
if HexToBuffer(S, Work, SizeOf(Work)) then begin if HexToBuffer(S, Work{%H-}, SizeOf(Work)) then begin
{save the value} {save the value}
Ini.WriteString('Codes', 'UsageCode', S); Ini.WriteString('Codes', 'UsageCode', S);
CodeLbl.Caption := S; CodeLbl.Caption := S;

168
components/onguard/examples/fixnaf/fixnaf.lpi
View File

@ -37,12 +37,12 @@
<MinVersion Major="1" Valid="True"/> <MinVersion Major="1" Valid="True"/>
</Item2> </Item2>
</RequiredPackages> </RequiredPackages>
<Units Count="12"> <Units Count="16">
<Unit0> <Unit0>
<Filename Value="fixnaf.lpr"/> <Filename Value="fixnaf.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="FixNAF"/> <UnitName Value="FixNAF"/>
<CursorPos X="3" Y="7"/> <CursorPos X="102" Y="7"/>
<UsageCount Value="22"/> <UsageCount Value="22"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
@ -93,9 +93,11 @@
</Unit5> </Unit5>
<Unit6> <Unit6>
<Filename Value="../../source/onguard.pas"/> <Filename Value="../../source/onguard.pas"/>
<TopLine Value="1179"/> <EditorIndex Value="3"/>
<CursorPos X="45" Y="1184"/> <TopLine Value="834"/>
<CursorPos X="21" Y="852"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit6> </Unit6>
<Unit7> <Unit7>
<Filename Value="../../../../lazarus0915/fpcsrc/rtl/objpas/sysutils/sysutilh.inc"/> <Filename Value="../../../../lazarus0915/fpcsrc/rtl/objpas/sysutils/sysutilh.inc"/>
@ -112,7 +114,7 @@
<Unit9> <Unit9>
<Filename Value="../regdemo/frm_main.pas"/> <Filename Value="../regdemo/frm_main.pas"/>
<UnitName Value="frm_Main"/> <UnitName Value="frm_Main"/>
<EditorIndex Value="2"/> <EditorIndex Value="5"/>
<TopLine Value="24"/> <TopLine Value="24"/>
<CursorPos X="5" Y="60"/> <CursorPos X="5" Y="60"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
@ -121,83 +123,179 @@
<Unit10> <Unit10>
<Filename Value="../regdemo/frm_readme.pas"/> <Filename Value="../regdemo/frm_readme.pas"/>
<UnitName Value="frm_Readme"/> <UnitName Value="frm_Readme"/>
<EditorIndex Value="3"/> <EditorIndex Value="6"/>
<CursorPos Y="35"/> <CursorPos Y="35"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit10> </Unit10>
<Unit11> <Unit11>
<Filename Value="../regdemo/rcg_main.pas"/> <Filename Value="../regdemo/rcg_main.pas"/>
<ComponentName Value="rcgMain"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="rcg_Main"/> <UnitName Value="rcg_Main"/>
<IsVisibleTab Value="True"/> <EditorIndex Value="8"/>
<EditorIndex Value="4"/> <TopLine Value="120"/>
<TopLine Value="122"/>
<CursorPos X="16" Y="136"/> <CursorPos X="16" Y="136"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit11> </Unit11>
<Unit12>
<Filename Value="../../source/ogfirst.pas"/>
<EditorIndex Value="7"/>
<TopLine Value="137"/>
<CursorPos Y="148"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit12>
<Unit13>
<Filename Value="C:/Lazarus/fpc-3.2.2/source/rtl/win/wininc/struct.inc"/>
<EditorIndex Value="9"/>
<TopLine Value="7277"/>
<CursorPos X="6" Y="7295"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit13>
<Unit14>
<Filename Value="C:/Lazarus/fpc-3.2.2/source/rtl/win/wininc/base.inc"/>
<EditorIndex Value="4"/>
<TopLine Value="112"/>
<CursorPos X="6" Y="130"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit14>
<Unit15>
<Filename Value="../../source/ogreg.pas"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="2"/>
<TopLine Value="13"/>
<CursorPos X="48" Y="24"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit15>
</Units> </Units>
<JumpHistory Count="15" HistoryIndex="14"> <JumpHistory Count="30" HistoryIndex="28">
<Position1> <Position1>
<Filename Value="fixnaf.lpr"/> <Filename Value="fixnaf1.pas"/>
<Caret Line="8" Column="37"/> <Caret Line="153" TopLine="118"/>
</Position1> </Position1>
<Position2> <Position2>
<Filename Value="fixnaf1.pas"/> <Filename Value="fixnaf1.pas"/>
<Caret Line="7" Column="72"/> <Caret Line="6" Column="37"/>
</Position2> </Position2>
<Position3> <Position3>
<Filename Value="fixnaf1.pas"/> <Filename Value="fixnaf.lpr"/>
<Caret Line="18" Column="28"/> <Caret Line="7"/>
</Position3> </Position3>
<Position4> <Position4>
<Filename Value="fixnaf1.pas"/> <Filename Value="fixnaf1.pas"/>
<Caret Line="21" Column="39"/> <Caret Line="14" Column="21"/>
</Position4> </Position4>
<Position5> <Position5>
<Filename Value="fixnaf1.pas"/> <Filename Value="fixnaf1.pas"/>
<Caret Line="57" TopLine="22"/> <Caret Line="153" TopLine="117"/>
</Position5> </Position5>
<Position6> <Position6>
<Filename Value="fixnaf1.pas"/> <Filename Value="fixnaf1.pas"/>
<Caret Line="153" TopLine="118"/> <Caret Line="54" TopLine="17"/>
</Position6> </Position6>
<Position7> <Position7>
<Filename Value="fixnaf1.pas"/> <Filename Value="fixnaf.lpr"/>
<Caret Line="6" Column="37"/> <Caret Line="7" Column="3"/>
</Position7> </Position7>
<Position8> <Position8>
<Filename Value="fixnaf.lpr"/> <Filename Value="../regdemo/frm_main.pas"/>
<Caret Line="7"/> <Caret Line="37"/>
</Position8> </Position8>
<Position9> <Position9>
<Filename Value="fixnaf1.pas"/> <Filename Value="../regdemo/frm_main.pas"/>
<Caret Line="14" Column="21"/> <Caret Line="20" Column="22"/>
</Position9> </Position9>
<Position10> <Position10>
<Filename Value="fixnaf1.pas"/> <Filename Value="../regdemo/rcg_main.pas"/>
<Caret Line="153" TopLine="117"/> <Caret Line="94" Column="11" TopLine="58"/>
</Position10> </Position10>
<Position11> <Position11>
<Filename Value="fixnaf1.pas"/> <Filename Value="../regdemo/rcg_main.pas"/>
<Caret Line="54" TopLine="17"/> <Caret Line="136" Column="16" TopLine="120"/>
</Position11> </Position11>
<Position12> <Position12>
<Filename Value="fixnaf.lpr"/> <Filename Value="fixnaf.lpr"/>
<Caret Line="7" Column="3"/> <Caret Line="7" Column="102"/>
</Position12> </Position12>
<Position13> <Position13>
<Filename Value="../regdemo/frm_main.pas"/> <Filename Value="../../source/onguard.pas"/>
<Caret Line="37"/> <Caret Line="181" Column="30" TopLine="165"/>
</Position13> </Position13>
<Position14> <Position14>
<Filename Value="../regdemo/frm_main.pas"/> <Filename Value="../../source/onguard.pas"/>
<Caret Line="20" Column="22"/> <Caret Line="266" Column="30" TopLine="249"/>
</Position14> </Position14>
<Position15> <Position15>
<Filename Value="../regdemo/rcg_main.pas"/> <Filename Value="../../source/onguard.pas"/>
<Caret Line="94" Column="11" TopLine="58"/> <Caret Line="1531" TopLine="1529"/>
</Position15> </Position15>
<Position16>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="266" Column="15" TopLine="248"/>
</Position16>
<Position17>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="315" Column="30" TopLine="297"/>
</Position17>
<Position18>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="1633" TopLine="1631"/>
</Position18>
<Position19>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="315" Column="15" TopLine="297"/>
</Position19>
<Position20>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="181" Column="30" TopLine="165"/>
</Position20>
<Position21>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="1309" TopLine="1305"/>
</Position21>
<Position22>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="181" Column="15" TopLine="165"/>
</Position22>
<Position23>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="1141" Column="54" TopLine="1123"/>
</Position23>
<Position24>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="864" Column="3" TopLine="9"/>
</Position24>
<Position25>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="903" Column="26" TopLine="885"/>
</Position25>
<Position26>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="856" Column="3" TopLine="838"/>
</Position26>
<Position27>
<Filename Value="C:/Lazarus/fpc-3.2.2/source/rtl/win/wininc/struct.inc"/>
<Caret Line="7295" Column="6" TopLine="7277"/>
</Position27>
<Position28>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="873" Column="32" TopLine="855"/>
</Position28>
<Position29>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="852" Column="3" TopLine="834"/>
</Position29>
<Position30>
<Filename Value="C:/Lazarus/fpc-3.2.2/source/rtl/win/wininc/base.inc"/>
<Caret Line="130" Column="6" TopLine="112"/>
</Position30>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>

2
components/onguard/examples/fixnaf/fixnaf.lpr
View File

@ -4,7 +4,7 @@ program FixNAF;
uses uses
Interfaces, Interfaces,
Forms, Forms,
ogfirst, ogfirst in '..\..\source\ogfirst.pas', // ogfirst is windows-only and not included in the package.
FIXNAF1 in 'FIXNAF1.pas' {MainFrm}; FIXNAF1 in 'FIXNAF1.pas' {MainFrm};
{$R *.res} {$R *.res}

49
components/onguard/examples/nafmgr/nafmgr.lpi
View File

@ -40,13 +40,12 @@
<MinVersion Major="1" Valid="True"/> <MinVersion Major="1" Valid="True"/>
</Item2> </Item2>
</RequiredPackages> </RequiredPackages>
<Units Count="5"> <Units Count="6">
<Unit0> <Unit0>
<Filename Value="nafmgr.lpr"/> <Filename Value="nafmgr.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="NAFMgr"/> <UnitName Value="NAFMgr"/>
<IsVisibleTab Value="True"/> <CursorPos X="40" Y="8"/>
<CursorPos X="3" Y="8"/>
<UsageCount Value="22"/> <UsageCount Value="22"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
@ -58,9 +57,10 @@
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="NAFMGR1"/> <UnitName Value="NAFMGR1"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<TopLine Value="123"/> <TopLine Value="40"/>
<CursorPos X="42" Y="141"/> <CursorPos Y="60"/>
<UsageCount Value="21"/> <UsageCount Value="21"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
@ -85,8 +85,16 @@
<UsageCount Value="10"/> <UsageCount Value="10"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit4> </Unit4>
<Unit5>
<Filename Value="../../source/ogfirst.pas"/>
<EditorIndex Value="3"/>
<TopLine Value="135"/>
<CursorPos X="3" Y="153"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit5>
</Units> </Units>
<JumpHistory Count="12" HistoryIndex="11"> <JumpHistory Count="15" HistoryIndex="14">
<Position1> <Position1>
<Filename Value="nafmgr1.pas"/> <Filename Value="nafmgr1.pas"/>
<Caret Line="70" TopLine="53"/> <Caret Line="70" TopLine="53"/>
@ -108,33 +116,44 @@
<Caret Line="28" Column="12" TopLine="28"/> <Caret Line="28" Column="12" TopLine="28"/>
</Position5> </Position5>
<Position6> <Position6>
<Filename Value="nafmgr1.pas"/>
<Caret Line="6" Column="57" TopLine="91"/>
</Position6>
<Position7>
<Filename Value="nafmgr.lpr"/> <Filename Value="nafmgr.lpr"/>
<Caret Line="17" Column="19"/> <Caret Line="17" Column="19"/>
</Position6>
<Position7>
<Filename Value="nafmgr1.pas"/>
<Caret Line="127" Column="19" TopLine="91"/>
</Position7> </Position7>
<Position8> <Position8>
<Filename Value="nafmgr1.pas"/> <Filename Value="nafmgr1.pas"/>
<Caret Line="127" Column="19" TopLine="91"/> <Caret Line="172" TopLine="138"/>
</Position8> </Position8>
<Position9> <Position9>
<Filename Value="nafmgr1.pas"/> <Filename Value="nafmgr1.pas"/>
<Caret Line="172" TopLine="138"/> <Caret Line="156" Column="28" TopLine="138"/>
</Position9> </Position9>
<Position10> <Position10>
<Filename Value="nafmgr1.pas"/> <Filename Value="nafmgr1.pas"/>
<Caret Line="156" Column="28" TopLine="138"/> <Caret Line="141" Column="55" TopLine="122"/>
</Position10> </Position10>
<Position11> <Position11>
<Filename Value="nafmgr1.pas"/> <Filename Value="nafmgr1.pas"/>
<Caret Line="141" Column="55" TopLine="122"/> <Caret Line="139" Column="3" TopLine="122"/>
</Position11> </Position11>
<Position12> <Position12>
<Filename Value="nafmgr1.pas"/> <Filename Value="nafmgr1.pas"/>
<Caret Line="139" Column="3" TopLine="122"/> <Caret Line="124" Column="22" TopLine="124"/>
</Position12> </Position12>
<Position13>
<Filename Value="nafmgr1.pas"/>
</Position13>
<Position14>
<Filename Value="nafmgr.lpr"/>
<Caret Line="8" Column="40"/>
</Position14>
<Position15>
<Filename Value="../../source/ogfirst.pas"/>
<Caret Line="153" Column="3" TopLine="135"/>
</Position15>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>

2
components/onguard/examples/nafmgr/nafmgr.lpr
View File

@ -5,7 +5,7 @@ program NAFMgr;
uses uses
Interfaces, Interfaces,
Forms, Forms,
ogfirst, ogfirst in '..\..\source\ogfirst.pas',
NAFMGR1 in 'NAFMGR1.pas' {NafFrm}; NAFMGR1 in 'NAFMGR1.pas' {NafFrm};
{$R *.res} {$R *.res}

3
components/onguard/examples/nafmgr/nafmgr1.pas
View File

@ -57,9 +57,6 @@ implementation
{$R *.lfm} {$R *.lfm}
uses
IniFiles;
const const
{this applications' key} {this applications' key}
CKey : TKey = ($E5,$8F,$84,$D6,$92,$C9,$A4,$D8,$1A,$FA,$6F,$8D,$AB,$FC,$DF,$B4); CKey : TKey = ($E5,$8F,$84,$D6,$92,$C9,$A4,$D8,$1A,$FA,$6F,$8D,$AB,$FC,$DF,$B4);

39
components/onguard/examples/regdemo/frm_main.lfm
View File

@ -1,4 +1,10 @@
object frmMain: TfrmMain object frmMain: TfrmMain
Left = 383
Height = 143
Top = 289
Width = 367
HorzScrollBar.Page = 366
VertScrollBar.Page = 142
ActiveControl = Button1 ActiveControl = Button1
Caption = 'Hello World' Caption = 'Hello World'
ClientHeight = 143 ClientHeight = 143
@ -6,14 +12,12 @@ object frmMain: TfrmMain
Font.Height = -13 Font.Height = -13
Font.Name = 'Arial' Font.Name = 'Arial'
OnCreate = FormCreate OnCreate = FormCreate
PixelsPerInch = 96 LCLVersion = '2.3.0.0'
HorzScrollBar.Page = 366
VertScrollBar.Page = 142
Left = 383
Height = 143
Top = 289
Width = 367
object Label1: TLabel object Label1: TLabel
Left = 4
Height = 41
Top = 16
Width = 359
Alignment = taCenter Alignment = taCenter
AutoSize = False AutoSize = False
Caption = 'Hello World!' Caption = 'Hello World!'
@ -21,29 +25,26 @@ object frmMain: TfrmMain
Font.Height = -33 Font.Height = -33
Font.Name = 'Arial' Font.Name = 'Arial'
ParentColor = False ParentColor = False
Left = 4 ParentFont = False
Height = 41
Top = 16
Width = 359
end end
object Button1: TButton object Button1: TButton
BorderSpacing.InnerBorder = 4
Caption = 'Close'
OnClick = Button1Click
TabOrder = 0
Left = 280 Left = 280
Height = 25 Height = 25
Top = 88 Top = 88
Width = 75 Width = 75
BorderSpacing.InnerBorder = 4
Caption = 'Close'
OnClick = Button1Click
TabOrder = 0
end end
object btnReadme: TButton object btnReadme: TButton
BorderSpacing.InnerBorder = 4
Caption = 'Readme...'
OnClick = btnReadmeClick
TabOrder = 1
Left = 16 Left = 16
Height = 25 Height = 25
Top = 88 Top = 88
Width = 75 Width = 75
BorderSpacing.InnerBorder = 4
Caption = 'Readme...'
OnClick = btnReadmeClick
TabOrder = 1
end end
end end

4
components/onguard/examples/regdemo/frm_main.pas
View File

@ -36,8 +36,8 @@ uses
procedure TfrmMain.FormCreate(Sender: TObject); procedure TfrmMain.FormCreate(Sender: TObject);
var var
ReleaseCodeString: string; ReleaseCodeString: string = '';
var SerialNumber : longint; SerialNumber: longint = 0;
begin begin
GetRegistrationInformation (ReleaseCodeString, SerialNumber); GetRegistrationInformation (ReleaseCodeString, SerialNumber);
if not IsReleaseCodeValid (ReleaseCodeString, SerialNumber) then if not IsReleaseCodeValid (ReleaseCodeString, SerialNumber) then

135
components/onguard/examples/regdemo/helloworld.lpi
View File

@ -1,26 +1,31 @@
<?xml version="1.0"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="7"/> <Version Value="12"/>
<General> <General>
<Flags> <Flags>
<LRSInOutputDirectory Value="False"/> <LRSInOutputDirectory Value="False"/>
<CompatibilityMode Value="True"/>
</Flags> </Flags>
<MainUnit Value="0"/>
<TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="3"/>
</General> </General>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions> </PublishOptions>
<RunParams> <RunParams>
<local> <local>
<FormatVersion Value="1"/> <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local> </local>
<FormatVersion Value="2"/>
<Modes Count="1">
<Mode0 Name="default">
<local>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
</Mode0>
</Modes>
</RunParams> </RunParams>
<RequiredPackages Count="1"> <RequiredPackages Count="1">
<Item1> <Item1>
@ -32,11 +37,11 @@
<Unit0> <Unit0>
<Filename Value="helloworld.lpr"/> <Filename Value="helloworld.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<EditorIndex Value="2"/>
<CursorPos X="46" Y="20"/> <CursorPos X="46" Y="20"/>
<TopLine Value="1"/>
<EditorIndex Value="0"/>
<UsageCount Value="27"/> <UsageCount Value="27"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="frm_main.pas"/> <Filename Value="frm_main.pas"/>
@ -45,19 +50,20 @@
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="frm_Main"/> <UnitName Value="frm_Main"/>
<CursorPos X="23" Y="44"/> <IsVisibleTab Value="True"/>
<TopLine Value="23"/> <TopLine Value="24"/>
<EditorIndex Value="4"/> <CursorPos X="78" Y="43"/>
<UsageCount Value="27"/> <UsageCount Value="27"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1> </Unit1>
<Unit2> <Unit2>
<Filename Value="uni_regcommon.pas"/> <Filename Value="uni_regcommon.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="uni_RegCommon"/> <UnitName Value="uni_RegCommon"/>
<CursorPos X="16" Y="37"/> <EditorIndex Value="3"/>
<TopLine Value="19"/> <CursorPos X="11" Y="18"/>
<EditorIndex Value="2"/> <UsageCount Value="20"/>
<UsageCount Value="13"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit2> </Unit2>
<Unit3> <Unit3>
@ -67,39 +73,34 @@
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="frm_Readme"/> <UnitName Value="frm_Readme"/>
<CursorPos X="4" Y="3"/>
<TopLine Value="1"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<CursorPos X="4" Y="3"/>
<UsageCount Value="27"/> <UsageCount Value="27"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit3> </Unit3>
<Unit4> <Unit4>
<Filename Value="frm_readme.lfm"/> <Filename Value="frm_readme.lfm"/>
<CursorPos X="1" Y="1"/>
<TopLine Value="1"/>
<UsageCount Value="9"/>
<SyntaxHighlighter Value="LFM"/> <SyntaxHighlighter Value="LFM"/>
<UsageCount Value="9"/>
</Unit4> </Unit4>
<Unit5> <Unit5>
<Filename Value="frm_main.lfm"/> <Filename Value="frm_main.lfm"/>
<EditorIndex Value="-1"/>
<CursorPos X="21" Y="9"/> <CursorPos X="21" Y="9"/>
<TopLine Value="1"/>
<EditorIndex Value="5"/>
<UsageCount Value="13"/> <UsageCount Value="13"/>
<Loaded Value="True"/> <DefaultSyntaxHighlighter Value="LFM"/>
<SyntaxHighlighter Value="LFM"/>
</Unit5> </Unit5>
<Unit6> <Unit6>
<Filename Value="../../source/onguard.pas"/> <Filename Value="../../source/onguard.pas"/>
<UnitName Value="onguard"/> <EditorIndex Value="4"/>
<CursorPos X="3" Y="1993"/> <TopLine Value="2078"/>
<TopLine Value="1991"/> <CursorPos X="92" Y="2114"/>
<EditorIndex Value="3"/>
<UsageCount Value="13"/> <UsageCount Value="13"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit6> </Unit6>
</Units> </Units>
<JumpHistory Count="2" HistoryIndex="1"> <JumpHistory Count="18" HistoryIndex="16">
<Position1> <Position1>
<Filename Value="frm_main.pas"/> <Filename Value="frm_main.pas"/>
<Caret Line="44" Column="23" TopLine="26"/> <Caret Line="44" Column="23" TopLine="26"/>
@ -108,13 +109,76 @@
<Filename Value="uni_regcommon.pas"/> <Filename Value="uni_regcommon.pas"/>
<Caret Line="37" Column="16" TopLine="19"/> <Caret Line="37" Column="16" TopLine="19"/>
</Position2> </Position2>
<Position3>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="1990" Column="60" TopLine="1990"/>
</Position3>
<Position4>
<Filename Value="../../source/onguard.pas"/>
</Position4>
<Position5>
<Filename Value="frm_main.pas"/>
<Caret Line="23" Column="24" TopLine="23"/>
</Position5>
<Position6>
<Filename Value="frm_main.pas"/>
</Position6>
<Position7>
<Filename Value="uni_regcommon.pas"/>
<Caret Line="37" Column="80" TopLine="19"/>
</Position7>
<Position8>
<Filename Value="uni_regcommon.pas"/>
<Caret Line="30" Column="3" TopLine="19"/>
</Position8>
<Position9>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="565" Column="11" TopLine="547"/>
</Position9>
<Position10>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="2114" Column="92" TopLine="2114"/>
</Position10>
<Position11>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="570" Column="31" TopLine="565"/>
</Position11>
<Position12>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="2155" Column="86" TopLine="2155"/>
</Position12>
<Position13>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="2114" Column="92" TopLine="2078"/>
</Position13>
<Position14>
<Filename Value="uni_regcommon.pas"/>
<Caret Line="37" TopLine="19"/>
</Position14>
<Position15>
<Filename Value="frm_main.pas"/>
<Caret Line="42" Column="62" TopLine="24"/>
</Position15>
<Position16>
<Filename Value="frm_main.pas"/>
<Caret Line="40" Column="15" TopLine="24"/>
</Position16>
<Position17>
<Filename Value="frm_main.pas"/>
<Caret Line="42" Column="48" TopLine="24"/>
</Position17>
<Position18>
<Filename Value="uni_regcommon.pas"/>
<Caret Line="18" Column="11"/>
</Position18>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="8"/> <Version Value="11"/>
<Parsing> <Parsing>
<SyntaxOptions> <SyntaxOptions>
<IncludeAssertionCode Value="True"/> <IncludeAssertionCode Value="True"/>
<UseAnsiStrings Value="False"/>
</SyntaxOptions> </SyntaxOptions>
</Parsing> </Parsing>
<CodeGeneration> <CodeGeneration>
@ -135,9 +199,6 @@
</Win32> </Win32>
</Options> </Options>
</Linking> </Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions> </CompilerOptions>
<Debugging> <Debugging>
<Exceptions Count="2"> <Exceptions Count="2">

15
components/onguard/examples/regdemo/rcg_main.lfm
View File

@ -1,16 +1,16 @@
object rcgMain: TrcgMain object rcgMain: TrcgMain
Left = 354 Left = 354
Height = 322 Height = 308
Top = 246 Top = 246
Width = 363 Width = 344
HorzScrollBar.Page = 362 HorzScrollBar.Page = 362
VertScrollBar.Page = 321 VertScrollBar.Page = 321
ActiveControl = edtAppKey ActiveControl = edtAppKey
AutoSize = True AutoSize = True
BorderStyle = bsDialog BorderStyle = bsDialog
Caption = 'Release Code Generator' Caption = 'Release Code Generator'
ClientHeight = 322 ClientHeight = 308
ClientWidth = 363 ClientWidth = 344
ShowHint = True ShowHint = True
LCLVersion = '2.3.0.0' LCLVersion = '2.3.0.0'
object lblAppKey: TLabel object lblAppKey: TLabel
@ -144,7 +144,7 @@ object rcgMain: TrcgMain
Left = 8 Left = 8
Height = 23 Height = 23
Top = 241 Top = 241
Width = 299 Width = 295
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 8 BorderSpacing.Left = 8
BorderSpacing.Top = 2 BorderSpacing.Top = 2
@ -250,11 +250,12 @@ object rcgMain: TrcgMain
AnchorSideTop.Control = edtReleaseCode AnchorSideTop.Control = edtReleaseCode
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = edtMachineMod AnchorSideRight.Control = edtMachineMod
Left = 311 AnchorSideRight.Side = asrBottom
Left = 307
Height = 26 Height = 26
Top = 239 Top = 239
Width = 30 Width = 30
Anchors = [akTop] Anchors = [akTop, akRight]
Glyph.Data = { Glyph.Data = {
26040000424D2604000000000000360000002800000012000000120000000100 26040000424D2604000000000000360000002800000012000000120000000100
180000000000F003000000000000000000000000000000000000FFFFFFFFFFFF 180000000000F003000000000000000000000000000000000000FFFFFFFFFFFF

8
components/onguard/examples/regdemo/registration.lpi
View File

@ -59,8 +59,6 @@
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<IsVisibleTab Value="True"/> <IsVisibleTab Value="True"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<TopLine Value="51"/>
<CursorPos X="42" Y="62"/>
<UsageCount Value="20"/> <UsageCount Value="20"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
@ -96,7 +94,7 @@
<DefaultSyntaxHighlighter Value="LFM"/> <DefaultSyntaxHighlighter Value="LFM"/>
</Unit4> </Unit4>
</Units> </Units>
<JumpHistory Count="5" HistoryIndex="4"> <JumpHistory Count="6" HistoryIndex="5">
<Position1> <Position1>
<Filename Value="reg_main.pas"/> <Filename Value="reg_main.pas"/>
<Caret Line="77" Column="26" TopLine="63"/> <Caret Line="77" Column="26" TopLine="63"/>
@ -117,6 +115,10 @@
<Filename Value="reg_main.pas"/> <Filename Value="reg_main.pas"/>
<Caret Line="61" Column="42" TopLine="50"/> <Caret Line="61" Column="42" TopLine="50"/>
</Position5> </Position5>
<Position6>
<Filename Value="reg_main.pas"/>
<Caret Line="51" Column="64" TopLine="51"/>
</Position6>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>

2
components/onguard/examples/regdemo/uni_regcommon.pas
View File

@ -34,7 +34,7 @@ begin
System.Delete(ReleaseCodeString, pos(' ', ReleaseCodeString), 1); System.Delete(ReleaseCodeString, pos(' ', ReleaseCodeString), 1);
// Calculate the release code based on the serial number and the calculated machine modifier // Calculate the release code based on the serial number and the calculated machine modifier
InitSerialNumberCode(MachineKey, SerialNumber, Expires, CalculatedReleaseCode); InitSerialNumberCode(MachineKey, SerialNumber, Expires, CalculatedReleaseCode{%H-});
// Compare the two release codes // Compare the two release codes
result := AnsiUpperCase(ReleaseCodeString) = AnsiUpperCase(BufferToHex(CalculatedReleaseCode, sizeof(CalculatedReleaseCode))); result := AnsiUpperCase(ReleaseCodeString) = AnsiUpperCase(BufferToHex(CalculatedReleaseCode, sizeof(CalculatedReleaseCode)));

138
components/onguard/examples/stampexe/stampexe.lpi
View File

@ -39,7 +39,7 @@
<MinVersion Major="1" Valid="True"/> <MinVersion Major="1" Valid="True"/>
</Item1> </Item1>
</RequiredPackages> </RequiredPackages>
<Units Count="8"> <Units Count="9">
<Unit0> <Unit0>
<Filename Value="stampexe.lpr"/> <Filename Value="stampexe.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
@ -57,9 +57,6 @@
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="STAMPEX1"/> <UnitName Value="STAMPEX1"/>
<IsVisibleTab Value="True"/>
<TopLine Value="34"/>
<CursorPos X="29" Y="43"/>
<UsageCount Value="20"/> <UsageCount Value="20"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
@ -71,9 +68,11 @@
</Unit2> </Unit2>
<Unit3> <Unit3>
<Filename Value="..\..\source\ogproexe.pas"/> <Filename Value="..\..\source\ogproexe.pas"/>
<TopLine Value="696"/> <EditorIndex Value="2"/>
<CursorPos Y="633"/> <TopLine Value="181"/>
<CursorPos X="35" Y="208"/>
<UsageCount Value="11"/> <UsageCount Value="11"/>
<Loaded Value="True"/>
</Unit3> </Unit3>
<Unit4> <Unit4>
<Filename Value="..\..\source\ONGUARD.INC"/> <Filename Value="..\..\source\ONGUARD.INC"/>
@ -99,12 +98,133 @@
<TopLine Value="324"/> <TopLine Value="324"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit7> </Unit7>
<Unit8>
<Filename Value="..\..\source\onguard.pas"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="3"/>
<TopLine Value="79"/>
<CursorPos Y="108"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit8>
</Units> </Units>
<JumpHistory Count="1"> <JumpHistory Count="30" HistoryIndex="29">
<Position1> <Position1>
<Filename Value="stampex1.pas"/> <Filename Value="..\..\source\onguard.pas"/>
<Caret Line="46" Column="11" TopLine="10"/> <Caret Line="20" Column="14"/>
</Position1> </Position1>
<Position2>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="538" Column="19" TopLine="508"/>
</Position2>
<Position3>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1872" Column="3" TopLine="1870"/>
</Position3>
<Position4>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="520" TopLine="520"/>
</Position4>
<Position5>
<Filename Value="..\..\source\onguard.pas"/>
</Position5>
<Position6>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1228" Column="20" TopLine="1228"/>
</Position6>
<Position7>
<Filename Value="..\..\source\onguard.pas"/>
</Position7>
<Position8>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1838" TopLine="1838"/>
</Position8>
<Position9>
<Filename Value="..\..\source\onguard.pas"/>
</Position9>
<Position10>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="538" TopLine="508"/>
</Position10>
<Position11>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1320" TopLine="1302"/>
</Position11>
<Position12>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1316" TopLine="1302"/>
</Position12>
<Position13>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1345" TopLine="1327"/>
</Position13>
<Position14>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1357" TopLine="1341"/>
</Position14>
<Position15>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1394" TopLine="1360"/>
</Position15>
<Position16>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1411" TopLine="1395"/>
</Position16>
<Position17>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1456" TopLine="1423"/>
</Position17>
<Position18>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1641" TopLine="1629"/>
</Position18>
<Position19>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1685" TopLine="1671"/>
</Position19>
<Position20>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1707" TopLine="1691"/>
</Position20>
<Position21>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1724" TopLine="1710"/>
</Position21>
<Position22>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1746" TopLine="1730"/>
</Position22>
<Position23>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1763" TopLine="1748"/>
</Position23>
<Position24>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1800" Column="8" TopLine="1786"/>
</Position24>
<Position25>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1828" TopLine="1812"/>
</Position25>
<Position26>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="109" Column="63" TopLine="86"/>
</Position26>
<Position27>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="101" Column="20" TopLine="91"/>
</Position27>
<Position28>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1830" Column="33" TopLine="1815"/>
</Position28>
<Position29>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1812" Column="22" TopLine="1812"/>
</Position29>
<Position30>
<Filename Value="..\..\source\onguard.pas"/>
</Position30>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>

2
components/onguard/source/ogfirst.pas
View File

@ -147,8 +147,6 @@ end;
{$ENDIF} {$ENDIF}
{$IFDEF WINDOWS} {$IFDEF WINDOWS}
function GetMutexName : string; function GetMutexName : string;
var var

16
components/onguard/source/ogproexe.pas
View File

@ -101,7 +101,7 @@ type
{property methods} {property methods}
function GetAbout : string; {!!.08} function GetAbout : string; {!!.08}
procedure SetAbout(const Value : string); {!!.08} procedure SetAbout(const {%H-}Value : string); {!!.08}
protected protected
procedure DoOnChecked(Status : TExeStatus); procedure DoOnChecked(Status : TExeStatus);
@ -143,6 +143,8 @@ type
end; end;
function ExeStatusToStr(AStatus: TExeStatus): String;
function IsExeTampered(CheckSize : Boolean) : TExeStatus; function IsExeTampered(CheckSize : Boolean) : TExeStatus;
{-return one of the possible TExeResult states} {-return one of the possible TExeResult states}
function ProtectExe(const FileName : string ; EraseMarker : Boolean) : Boolean; function ProtectExe(const FileName : string ; EraseMarker : Boolean) : Boolean;
@ -207,6 +209,18 @@ const
$b3667a2e, $c4614ab8, $5d681b02, $2a6f2b94, $b40bbe37, $c30c8ea1, $5a05df1b, $2d02ef8d); $b3667a2e, $c4614ab8, $5d681b02, $2a6f2b94, $b40bbe37, $c30c8ea1, $5a05df1b, $2d02ef8d);
function ExeStatusToStr(AStatus: TExeStatus): String;
begin
case AStatus of
exeSuccess : Result := 'EXE file is OK';
exeSizeError : Result := 'EXE file size has changed';
exeIntegrityError : Result := 'EXE Integrity Error';
exeNotStamped : Result := 'EXE file is not stamped';
else
Result := 'Unknown error';
end;
end;
{*** TOgProtectExe ***} {*** TOgProtectExe ***}
constructor TOgProtectExe.Create(AOwner : TComponent); constructor TOgProtectExe.Create(AOwner : TComponent);

67
components/onguard/source/onguard.pas
View File

@ -105,7 +105,6 @@ type
TKeyType = (ktRandom, ktMessageDigest, ktMessageDigestCS); TKeyType = (ktRandom, ktMessageDigest, ktMessageDigestCS);
{order must match order for key generation combobox string list} {order must match order for key generation combobox string list}
type
{contexts} {contexts}
TTMDContext = array [0..279] of Byte; TTMDContext = array [0..279] of Byte;
@ -178,7 +177,7 @@ type
function GetAbout : string; {!!.08} function GetAbout : string; {!!.08}
procedure SetCode(const Value : string); procedure SetCode(const Value : string);
procedure SetModifier(const Value : string); procedure SetModifier(const Value : string);
procedure SetAbout(const Value : string); {!!.08} procedure SetAbout(const {%H-}Value : string); {!!.08}
protected protected
procedure Loaded; procedure Loaded;
@ -263,7 +262,7 @@ type
{property methods} {property methods}
function GetAbout : string; {!!.08} function GetAbout : string; {!!.08}
procedure SetAbout(const Value : string); {!!.08} procedure SetAbout(const {%H-}Value : string); {!!.08}
public public
constructor Create(AOwner : TComponent); constructor Create(AOwner : TComponent);
@ -312,7 +311,7 @@ type
{property methods} {property methods}
function GetAbout : string; {!!.08} function GetAbout : string; {!!.08}
procedure SetAbout(const Value : string); {!!.08} procedure SetAbout(const {%H-}Value : string); {!!.08}
public public
constructor Create(AOwner : TComponent); constructor Create(AOwner : TComponent);
@ -538,7 +537,6 @@ type
function GetInvalidCountValue(const Key : TKey; const Code : TCode) : LongInt; function GetInvalidCountValue(const Key : TKey; const Code : TCode) : LongInt;
procedure DecInvalidCountCode(const Key : TKey; var Code : TCode); procedure DecInvalidCountCode(const Key : TKey; var Code : TCode);
function GetCodeType(const Key : TKey; const Code : TCode) : TCodeType; function GetCodeType(const Key : TKey; const Code : TCode) : TCodeType;
{-return the type of code} {-return the type of code}
function GetExpirationDate(const Key : TKey; const Code : TCode) : TDateTime; function GetExpirationDate(const Key : TKey; const Code : TCode) : TDateTime;
@ -729,7 +727,7 @@ type
end; end;
TBlock2048 = array [0..255] of Byte; TBlock2048 = array [0..255] of Byte;
procedure InitTMD(var Context : TTMDContext); procedure InitTMD(out Context : TTMDContext);
var var
ContextEx : TMDContextEx absolute Context; ContextEx : TMDContextEx absolute Context;
begin begin
@ -815,7 +813,6 @@ procedure HashTMD(var Digest; DigestSize : LongInt; const Buf; BufSize : LongInt
var var
Context : TTMDContext; Context : TTMDContext;
begin begin
Context := Default(TTMDContext);
InitTMD(Context); InitTMD(Context);
UpdateTMD(Context, Buf, BufSize); UpdateTMD(Context, Buf, BufSize);
FinalizeTMD(Context, Digest, DigestSize); FinalizeTMD(Context, Digest, DigestSize);
@ -848,7 +845,7 @@ var
hRPCTR4 : THandle; {!!.11} hRPCTR4 : THandle; {!!.11}
UuidCreateSequential : TUuidCreateSequential; {!!.11} UuidCreateSequential : TUuidCreateSequential; {!!.11}
I : DWord; I : DWord;
RegKey : HKEY; RegKey : HKEY = 0;
GUID1 : TGUID; GUID1 : TGUID;
GUID2 : TGUID; GUID2 : TGUID;
Drive : AnsiChar; Drive : AnsiChar;
@ -859,6 +856,8 @@ var
iController, iDrive, maxController : Integer; iController, iDrive, maxController : Integer;
BufStr : AnsiString; BufStr : AnsiString;
begin begin
Result := 0;
InitTMD(Context); InitTMD(Context);
{include user specific information} {include user specific information}
@ -1137,7 +1136,7 @@ end;
function GenerateStringModifierPrim(const S : string) : LongInt; function GenerateStringModifierPrim(const S : string) : LongInt;
var var
I : Integer; {!!.06} I : Integer; {!!.06}
Sig : array [0..4] of AnsiChar; Sig : array [0..4] of AnsiChar = (#0, #0, #0, #0, #0);
S2 : string; {!!.06} S2 : string; {!!.06}
begin begin
FillChar(Sig, SizeOf(Sig), 0); FillChar(Sig, SizeOf(Sig), 0);
@ -1202,7 +1201,6 @@ end;
function TOgCodeBase.DoOnGetCode : TCode; function TOgCodeBase.DoOnGetCode : TCode;
begin begin
Result := Default(TCode);
if FStoreCode then if FStoreCode then
Result := FCode Result := FCode
else begin else begin
@ -1254,7 +1252,6 @@ var
Work : TCode; Work : TCode;
begin begin
Result := '$' + BufferToHex(FCode, SizeOf(FCode)); Result := '$' + BufferToHex(FCode, SizeOf(FCode));
Work := Default(TCode);
if not HexToBuffer(Result, Work, SizeOf(Work)) then if not HexToBuffer(Result, Work, SizeOf(Work)) then
Result := ''; Result := '';
@ -1314,12 +1311,11 @@ end;
function TOgDateCode.CheckCode(Report : Boolean) : TCodeStatus; function TOgDateCode.CheckCode(Report : Boolean) : TCodeStatus;
var var
ACode : TCode; ACode : TCode;
Key : TKey; Key : TKey = (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0);
AModifier : LongInt; AModifier : LongInt;
begin begin
Result := ogValidCode; Result := ogValidCode;
Key := Default(TKey);
DoOnGetKey(Key); DoOnGetKey(Key);
ACode := DoOnGetCode; ACode := DoOnGetCode;
AModifier := DoOnGetModifier; AModifier := DoOnGetModifier;
@ -1342,10 +1338,9 @@ end;
function TOgDateCode.GetValue : TDateTime; function TOgDateCode.GetValue : TDateTime;
var var
ACode : TCode; ACode : TCode;
Key : TKey; Key : TKey = (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0);
AModifier : LongInt; AModifier : LongInt;
begin begin
Key := Default(TKey);
DoOnGetKey(Key); DoOnGetKey(Key);
ACode := DoOnGetCode; ACode := DoOnGetCode;
AModifier := DoOnGetModifier; AModifier := DoOnGetModifier;
@ -1357,10 +1352,9 @@ end;
function TOgDateCode.GetInvalidCount: LongInt; function TOgDateCode.GetInvalidCount: LongInt;
var var
ACode : TCode; ACode : TCode;
Key : TKey; Key : TKey = (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0);
AModifier : LongInt; AModifier : LongInt;
begin begin
Key := Default(TKey);
DoOnGetKey(Key); DoOnGetKey(Key);
ACode := DoOnGetCode; ACode := DoOnGetCode;
AModifier := DoOnGetModifier; AModifier := DoOnGetModifier;
@ -1375,12 +1369,11 @@ end;
function TOgDaysCode.CheckCode(Report : Boolean) : TCodeStatus; function TOgDaysCode.CheckCode(Report : Boolean) : TCodeStatus;
var var
ACode : TCode; ACode : TCode;
Key : TKey; Key : TKey = (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0);
AModifier : LongInt; AModifier : LongInt;
begin begin
Result := ogValidCode; Result := ogValidCode;
Key := Default(TKey);
DoOnGetKey(Key); DoOnGetKey(Key);
ACode := DoOnGetCode; ACode := DoOnGetCode;
AModifier := DoOnGetModifier; AModifier := DoOnGetModifier;
@ -1398,8 +1391,6 @@ begin
if GetInvalidCountValue(Key,ACode)=1 then Result := ogCodeExpired; if GetInvalidCountValue(Key,ACode)=1 then Result := ogCodeExpired;
end; end;
if Report then if Report then
DoOnChecked(Result); DoOnChecked(Result);
end; end;
@ -1415,10 +1406,9 @@ procedure TOgDaysCode.Decrease;
var var
ACode : TCode; ACode : TCode;
Work : TCode; Work : TCode;
Key : TKey; Key : TKey = (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0);
AModifier : LongInt; AModifier : LongInt;
begin begin
Key := Default(TKey);
DoOnGetKey(Key); DoOnGetKey(Key);
ACode := DoOnGetCode; ACode := DoOnGetCode;
Work := ACode; Work := ACode;
@ -1444,10 +1434,9 @@ end;
function TOgDaysCode.GetValue : LongInt; function TOgDaysCode.GetValue : LongInt;
var var
ACode : TCode; ACode : TCode;
Key : TKey; Key : TKey = (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0);
AModifier : LongInt; AModifier : LongInt;
begin begin
Key := Default(TKey);
DoOnGetKey(Key); DoOnGetKey(Key);
ACode := DoOnGetCode; ACode := DoOnGetCode;
AModifier := DoOnGetModifier; AModifier := DoOnGetModifier;
@ -1460,10 +1449,9 @@ end;
function TOgDaysCode.GetInvalidCount : LongInt; function TOgDaysCode.GetInvalidCount : LongInt;
var var
ACode : TCode; ACode : TCode;
Key : TKey; Key : TKey = (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0);
AModifier : LongInt; AModifier : LongInt;
begin begin
Key := Default(TKey);
DoOnGetKey(Key); DoOnGetKey(Key);
ACode := DoOnGetCode; ACode := DoOnGetCode;
AModifier := DoOnGetModifier; AModifier := DoOnGetModifier;
@ -1648,14 +1636,13 @@ end;
function TOgRegistrationCode.CheckCode(Report : Boolean) : TCodeStatus; function TOgRegistrationCode.CheckCode(Report : Boolean) : TCodeStatus;
var var
ACode : TCode; ACode : TCode;
Key : TKey; Key : TKey = (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0);
AModifier : LongInt; AModifier : LongInt;
{RegStr : string;} {!!.02} {RegStr : string;} {!!.02}
begin begin
Result := ogValidCode; Result := ogValidCode;
FRegString := DoOnGetRegString; {!!.02} FRegString := DoOnGetRegString; {!!.02}
Key := Default(TKey);
DoOnGetKey(Key); DoOnGetKey(Key);
ACode := DoOnGetCode; ACode := DoOnGetCode;
AModifier := DoOnGetModifier; AModifier := DoOnGetModifier;
@ -1693,12 +1680,11 @@ end;
function TOgSerialNumberCode.CheckCode(Report : Boolean) : TCodeStatus; function TOgSerialNumberCode.CheckCode(Report : Boolean) : TCodeStatus;
var var
ACode : TCode; ACode : TCode;
Key : TKey; Key : TKey = (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0);
AModifier : LongInt; AModifier : LongInt;
begin begin
Result := ogValidCode; Result := ogValidCode;
Key := Default(TKey);
DoOnGetKey(Key); DoOnGetKey(Key);
ACode := DoOnGetCode; ACode := DoOnGetCode;
AModifier := DoOnGetModifier; AModifier := DoOnGetModifier;
@ -1716,10 +1702,9 @@ end;
function TOgSerialNumberCode.GetValue : LongInt; function TOgSerialNumberCode.GetValue : LongInt;
var var
ACode : TCode; ACode : TCode;
Key : TKey; Key : TKey = (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0);
AModifier : LongInt; AModifier : LongInt;
begin begin
Key := Default(TKey);
DoOnGetKey(Key); DoOnGetKey(Key);
ACode := DoOnGetCode; ACode := DoOnGetCode;
AModifier := DoOnGetModifier; AModifier := DoOnGetModifier;
@ -1734,12 +1719,11 @@ end;
function TOgSpecialCode.CheckCode(Report : Boolean) : TCodeStatus; function TOgSpecialCode.CheckCode(Report : Boolean) : TCodeStatus;
var var
ACode : TCode; ACode : TCode;
Key : TKey; Key : TKey = (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0);
AModifier : LongInt; AModifier : LongInt;
begin begin
Result := ogValidCode; Result := ogValidCode;
Key := Default(TKey);
DoOnGetKey(Key); DoOnGetKey(Key);
ACode := DoOnGetCode; ACode := DoOnGetCode;
AModifier := DoOnGetModifier; AModifier := DoOnGetModifier;
@ -1757,10 +1741,9 @@ end;
function TOgSpecialCode.GetValue : LongInt; function TOgSpecialCode.GetValue : LongInt;
var var
ACode : TCode; ACode : TCode;
Key : TKey; Key : TKey = (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0);
AModifier : LongInt; AModifier : LongInt;
begin begin
Key := Default(TKey);
DoOnGetKey(Key); DoOnGetKey(Key);
ACode := DoOnGetCode; ACode := DoOnGetCode;
AModifier := DoOnGetModifier; AModifier := DoOnGetModifier;
@ -1775,11 +1758,10 @@ end;
function TOgUsageCode.CheckCode(Report : Boolean) : TCodeStatus; function TOgUsageCode.CheckCode(Report : Boolean) : TCodeStatus;
var var
ACode : TCode; ACode : TCode;
Key : TKey; Key : TKey = (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0);
AModifier : LongInt; AModifier : LongInt;
begin begin
Result := ogValidCode; Result := ogValidCode;
Key := Default(TKey);
DoOnGetKey(Key); DoOnGetKey(Key);
ACode := DoOnGetCode; ACode := DoOnGetCode;
@ -1815,10 +1797,9 @@ procedure TOgUsageCode.Decrease;
var var
ACode : TCode; ACode : TCode;
Work : TCode; Work : TCode;
Key : TKey; Key : TKey = (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0);
AModifier : LongInt; AModifier : LongInt;
begin begin
Key := Default(TKey);
DoOnGetKey(Key); DoOnGetKey(Key);
ACode := DoOnGetCode; ACode := DoOnGetCode;
Work := ACode; Work := ACode;
@ -1842,10 +1823,9 @@ end;
function TOgUsageCode.GetValue : LongInt; function TOgUsageCode.GetValue : LongInt;
var var
ACode : TCode; ACode : TCode;
Key : TKey; Key : TKey = (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0);
AModifier : LongInt; AModifier : LongInt;
begin begin
Key := Default(TKey);
DoOnGetKey(Key); DoOnGetKey(Key);
ACode := DoOnGetCode; ACode := DoOnGetCode;
AModifier := DoOnGetModifier; AModifier := DoOnGetModifier;
@ -2235,7 +2215,6 @@ end;
initialization initialization
{record our baseline date} {record our baseline date}
BaseDate := Trunc(EncodeDate(1996, 1, 1)); BaseDate := Trunc(EncodeDate(1996, 1, 1));

3
components/onguard/source/qonguard4.pas
View File

@ -96,9 +96,8 @@ end;
procedure TEditProductFrm.InfoChanged(Sender: TObject); procedure TEditProductFrm.InfoChanged(Sender: TObject);
var var
Work : TKey; Work : TKey = (0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0);
begin begin
Work := Default(TKey);
OKBtn.Enabled := (Length(ProductEd.Text) > 0) and OKBtn.Enabled := (Length(ProductEd.Text) > 0) and
(HexToBuffer(KeyEd.Text, Work, SizeOf(Work))); (HexToBuffer(KeyEd.Text, Work, SizeOf(Work)));
end; end;