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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

@ -57,19 +57,19 @@
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="EXPROTU"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<TopLine Value="13"/>
<CursorPos Y="32"/>
<TopLine Value="3"/>
<CursorPos Y="35"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
<Unit2>
<Filename Value="../../source/ogproexe.pas"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="2"/>
<TopLine Value="432"/>
<CursorPos Y="453"/>
<TopLine Value="421"/>
<CursorPos X="24" Y="439"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit2>
@ -81,7 +81,7 @@
<DefaultSyntaxHighlighter Value="LFM"/>
</Unit3>
</Units>
<JumpHistory Count="3" HistoryIndex="2">
<JumpHistory Count="14" HistoryIndex="13">
<Position1>
<Filename Value="exprotu.pas"/>
<Caret Line="8" Column="15"/>
@ -94,6 +94,50 @@
<Filename Value="exprotu.pas"/>
<Caret Line="37" Column="21" TopLine="12"/>
</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>
</ProjectOptions>
<CompilerOptions>

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

@ -4,7 +4,7 @@ interface
uses
SysUtils, Classes, Controls, Forms, Dialogs, StdCtrls, Buttons, ExtCtrls,
ogutil, ogproexe;
ogproexe;
type
@ -31,18 +31,8 @@ implementation
{$R *.lfm}
procedure TForm1.OgProtectExe1Checked(Sender: TObject; Status: TExeStatus);
var
S : string;
begin
case Status of
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;
StatusLbl.Caption := ExeStatusToStr(Status);
end;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

@ -40,7 +40,7 @@
<MinVersion Major="1" Valid="True"/>
</Item2>
</RequiredPackages>
<Units Count="3">
<Units Count="4">
<Unit0>
<Filename Value="exslcode.lpr"/>
<IsPartOfProject Value="True"/>
@ -60,7 +60,7 @@
<UnitName Value="Exslcod1"/>
<IsVisibleTab Value="True"/>
<TopLine Value="58"/>
<CursorPos X="26" Y="90"/>
<CursorPos X="49" Y="90"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
@ -71,8 +71,16 @@
<UsageCount Value="10"/>
<DefaultSyntaxHighlighter Value="LFM"/>
</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>
<JumpHistory Count="7" HistoryIndex="6">
<JumpHistory Count="10" HistoryIndex="9">
<Position1>
<Filename Value="exslcod1.pas"/>
<Caret Line="68" Column="34" TopLine="27"/>
@ -101,6 +109,17 @@
<Filename Value="exslcod1.pas"/>
<Caret Line="70" Column="24" TopLine="58"/>
</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>
</ProjectOptions>
<CompilerOptions>

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

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

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

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

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

@ -56,8 +56,8 @@
<UnitName Value="ExSpNamu"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<TopLine Value="46"/>
<CursorPos Y="63"/>
<TopLine Value="37"/>
<CursorPos X="54" Y="55"/>
<UsageCount Value="21"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
@ -76,7 +76,7 @@
<UsageCount Value="10"/>
</Unit3>
</Units>
<JumpHistory Count="4" HistoryIndex="3">
<JumpHistory Count="8" HistoryIndex="7">
<Position1>
<Filename Value="exspnamu.pas"/>
<Caret Line="6" Column="24"/>
@ -93,6 +93,21 @@
<Filename Value="exspnamu.pas"/>
<Caret Line="55" Column="26" TopLine="37"/>
</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>
</ProjectOptions>
<CompilerOptions>

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

@ -60,8 +60,7 @@ end;
procedure TForm1.OgUsageCode2GetCode(Sender: TObject; var Code: TCode);
var
S : string;
L : integer;
S: string;
begin
TheDir := ExtractFilePath(ParamStr(0));
@ -102,7 +101,7 @@ begin
if not (FileExists(TheDir + 'Usage2.ini')) then begin
S := '';
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');
try
IniFile.WriteString('Codes', 'Uses', S);

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

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

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

@ -100,7 +100,7 @@ begin
Ini := TIniFile.Create('ONGUARD.INI');
try
{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}
Ini.WriteString('Codes', 'UsageCode', S);
CodeLbl.Caption := S;

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

@ -37,12 +37,12 @@
<MinVersion Major="1" Valid="True"/>
</Item2>
</RequiredPackages>
<Units Count="12">
<Units Count="16">
<Unit0>
<Filename Value="fixnaf.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="FixNAF"/>
<CursorPos X="3" Y="7"/>
<CursorPos X="102" Y="7"/>
<UsageCount Value="22"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
@ -93,9 +93,11 @@
</Unit5>
<Unit6>
<Filename Value="../../source/onguard.pas"/>
<TopLine Value="1179"/>
<CursorPos X="45" Y="1184"/>
<EditorIndex Value="3"/>
<TopLine Value="834"/>
<CursorPos X="21" Y="852"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit6>
<Unit7>
<Filename Value="../../../../lazarus0915/fpcsrc/rtl/objpas/sysutils/sysutilh.inc"/>
@ -112,7 +114,7 @@
<Unit9>
<Filename Value="../regdemo/frm_main.pas"/>
<UnitName Value="frm_Main"/>
<EditorIndex Value="2"/>
<EditorIndex Value="5"/>
<TopLine Value="24"/>
<CursorPos X="5" Y="60"/>
<UsageCount Value="10"/>
@ -121,83 +123,179 @@
<Unit10>
<Filename Value="../regdemo/frm_readme.pas"/>
<UnitName Value="frm_Readme"/>
<EditorIndex Value="3"/>
<EditorIndex Value="6"/>
<CursorPos Y="35"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit10>
<Unit11>
<Filename Value="../regdemo/rcg_main.pas"/>
<ComponentName Value="rcgMain"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="rcg_Main"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="4"/>
<TopLine Value="122"/>
<EditorIndex Value="8"/>
<TopLine Value="120"/>
<CursorPos X="16" Y="136"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</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>
<JumpHistory Count="15" HistoryIndex="14">
<JumpHistory Count="30" HistoryIndex="28">
<Position1>
<Filename Value="fixnaf.lpr"/>
<Caret Line="8" Column="37"/>
<Filename Value="fixnaf1.pas"/>
<Caret Line="153" TopLine="118"/>
</Position1>
<Position2>
<Filename Value="fixnaf1.pas"/>
<Caret Line="7" Column="72"/>
<Caret Line="6" Column="37"/>
</Position2>
<Position3>
<Filename Value="fixnaf1.pas"/>
<Caret Line="18" Column="28"/>
<Filename Value="fixnaf.lpr"/>
<Caret Line="7"/>
</Position3>
<Position4>
<Filename Value="fixnaf1.pas"/>
<Caret Line="21" Column="39"/>
<Caret Line="14" Column="21"/>
</Position4>
<Position5>
<Filename Value="fixnaf1.pas"/>
<Caret Line="57" TopLine="22"/>
<Caret Line="153" TopLine="117"/>
</Position5>
<Position6>
<Filename Value="fixnaf1.pas"/>
<Caret Line="153" TopLine="118"/>
<Caret Line="54" TopLine="17"/>
</Position6>
<Position7>
<Filename Value="fixnaf1.pas"/>
<Caret Line="6" Column="37"/>
<Filename Value="fixnaf.lpr"/>
<Caret Line="7" Column="3"/>
</Position7>
<Position8>
<Filename Value="fixnaf.lpr"/>
<Caret Line="7"/>
<Filename Value="../regdemo/frm_main.pas"/>
<Caret Line="37"/>
</Position8>
<Position9>
<Filename Value="fixnaf1.pas"/>
<Caret Line="14" Column="21"/>
<Filename Value="../regdemo/frm_main.pas"/>
<Caret Line="20" Column="22"/>
</Position9>
<Position10>
<Filename Value="fixnaf1.pas"/>
<Caret Line="153" TopLine="117"/>
<Filename Value="../regdemo/rcg_main.pas"/>
<Caret Line="94" Column="11" TopLine="58"/>
</Position10>
<Position11>
<Filename Value="fixnaf1.pas"/>
<Caret Line="54" TopLine="17"/>
<Filename Value="../regdemo/rcg_main.pas"/>
<Caret Line="136" Column="16" TopLine="120"/>
</Position11>
<Position12>
<Filename Value="fixnaf.lpr"/>
<Caret Line="7" Column="3"/>
<Caret Line="7" Column="102"/>
</Position12>
<Position13>
<Filename Value="../regdemo/frm_main.pas"/>
<Caret Line="37"/>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="181" Column="30" TopLine="165"/>
</Position13>
<Position14>
<Filename Value="../regdemo/frm_main.pas"/>
<Caret Line="20" Column="22"/>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="266" Column="30" TopLine="249"/>
</Position14>
<Position15>
<Filename Value="../regdemo/rcg_main.pas"/>
<Caret Line="94" Column="11" TopLine="58"/>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="1531" TopLine="1529"/>
</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>
</ProjectOptions>
<CompilerOptions>

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

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

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

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

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

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

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

@ -57,9 +57,6 @@ implementation
{$R *.lfm}
uses
IniFiles;
const
{this applications' key}
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
Left = 383
Height = 143
Top = 289
Width = 367
HorzScrollBar.Page = 366
VertScrollBar.Page = 142
ActiveControl = Button1
Caption = 'Hello World'
ClientHeight = 143
@ -6,14 +12,12 @@ object frmMain: TfrmMain
Font.Height = -13
Font.Name = 'Arial'
OnCreate = FormCreate
PixelsPerInch = 96
HorzScrollBar.Page = 366
VertScrollBar.Page = 142
Left = 383
Height = 143
Top = 289
Width = 367
LCLVersion = '2.3.0.0'
object Label1: TLabel
Left = 4
Height = 41
Top = 16
Width = 359
Alignment = taCenter
AutoSize = False
Caption = 'Hello World!'
@ -21,29 +25,26 @@ object frmMain: TfrmMain
Font.Height = -33
Font.Name = 'Arial'
ParentColor = False
Left = 4
Height = 41
Top = 16
Width = 359
ParentFont = False
end
object Button1: TButton
BorderSpacing.InnerBorder = 4
Caption = 'Close'
OnClick = Button1Click
TabOrder = 0
Left = 280
Height = 25
Top = 88
Width = 75
BorderSpacing.InnerBorder = 4
Caption = 'Close'
OnClick = Button1Click
TabOrder = 0
end
object btnReadme: TButton
BorderSpacing.InnerBorder = 4
Caption = 'Readme...'
OnClick = btnReadmeClick
TabOrder = 1
Left = 16
Height = 25
Top = 88
Width = 75
BorderSpacing.InnerBorder = 4
Caption = 'Readme...'
OnClick = btnReadmeClick
TabOrder = 1
end
end

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

@ -36,8 +36,8 @@ uses
procedure TfrmMain.FormCreate(Sender: TObject);
var
ReleaseCodeString: string;
var SerialNumber : longint;
ReleaseCodeString: string = '';
SerialNumber: longint = 0;
begin
GetRegistrationInformation (ReleaseCodeString, SerialNumber);
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>
<ProjectOptions>
<Version Value="7"/>
<Version Value="12"/>
<General>
<Flags>
<LRSInOutputDirectory Value="False"/>
<CompatibilityMode Value="True"/>
</Flags>
<MainUnit Value="0"/>
<TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="3"/>
</General>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions>
<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>
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</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>
<RequiredPackages Count="1">
<Item1>
@ -32,11 +37,11 @@
<Unit0>
<Filename Value="helloworld.lpr"/>
<IsPartOfProject Value="True"/>
<EditorIndex Value="2"/>
<CursorPos X="46" Y="20"/>
<TopLine Value="1"/>
<EditorIndex Value="0"/>
<UsageCount Value="27"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit0>
<Unit1>
<Filename Value="frm_main.pas"/>
@ -45,19 +50,20 @@
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="frm_Main"/>
<CursorPos X="23" Y="44"/>
<TopLine Value="23"/>
<EditorIndex Value="4"/>
<IsVisibleTab Value="True"/>
<TopLine Value="24"/>
<CursorPos X="78" Y="43"/>
<UsageCount Value="27"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
<Unit2>
<Filename Value="uni_regcommon.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="uni_RegCommon"/>
<CursorPos X="16" Y="37"/>
<TopLine Value="19"/>
<EditorIndex Value="2"/>
<UsageCount Value="13"/>
<EditorIndex Value="3"/>
<CursorPos X="11" Y="18"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
</Unit2>
<Unit3>
@ -67,39 +73,34 @@
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="frm_Readme"/>
<CursorPos X="4" Y="3"/>
<TopLine Value="1"/>
<EditorIndex Value="1"/>
<CursorPos X="4" Y="3"/>
<UsageCount Value="27"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit3>
<Unit4>
<Filename Value="frm_readme.lfm"/>
<CursorPos X="1" Y="1"/>
<TopLine Value="1"/>
<UsageCount Value="9"/>
<SyntaxHighlighter Value="LFM"/>
<UsageCount Value="9"/>
</Unit4>
<Unit5>
<Filename Value="frm_main.lfm"/>
<EditorIndex Value="-1"/>
<CursorPos X="21" Y="9"/>
<TopLine Value="1"/>
<EditorIndex Value="5"/>
<UsageCount Value="13"/>
<Loaded Value="True"/>
<SyntaxHighlighter Value="LFM"/>
<DefaultSyntaxHighlighter Value="LFM"/>
</Unit5>
<Unit6>
<Filename Value="../../source/onguard.pas"/>
<UnitName Value="onguard"/>
<CursorPos X="3" Y="1993"/>
<TopLine Value="1991"/>
<EditorIndex Value="3"/>
<EditorIndex Value="4"/>
<TopLine Value="2078"/>
<CursorPos X="92" Y="2114"/>
<UsageCount Value="13"/>
<Loaded Value="True"/>
</Unit6>
</Units>
<JumpHistory Count="2" HistoryIndex="1">
<JumpHistory Count="18" HistoryIndex="16">
<Position1>
<Filename Value="frm_main.pas"/>
<Caret Line="44" Column="23" TopLine="26"/>
@ -108,13 +109,76 @@
<Filename Value="uni_regcommon.pas"/>
<Caret Line="37" Column="16" TopLine="19"/>
</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>
</ProjectOptions>
<CompilerOptions>
<Version Value="8"/>
<Version Value="11"/>
<Parsing>
<SyntaxOptions>
<IncludeAssertionCode Value="True"/>
<UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<CodeGeneration>
@ -135,9 +199,6 @@
</Win32>
</Options>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Debugging>
<Exceptions Count="2">

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

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

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

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

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

@ -34,7 +34,7 @@ begin
System.Delete(ReleaseCodeString, pos(' ', ReleaseCodeString), 1);
// 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
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"/>
</Item1>
</RequiredPackages>
<Units Count="8">
<Units Count="9">
<Unit0>
<Filename Value="stampexe.lpr"/>
<IsPartOfProject Value="True"/>
@ -57,9 +57,6 @@
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="STAMPEX1"/>
<IsVisibleTab Value="True"/>
<TopLine Value="34"/>
<CursorPos X="29" Y="43"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
@ -71,9 +68,11 @@
</Unit2>
<Unit3>
<Filename Value="..\..\source\ogproexe.pas"/>
<TopLine Value="696"/>
<CursorPos Y="633"/>
<EditorIndex Value="2"/>
<TopLine Value="181"/>
<CursorPos X="35" Y="208"/>
<UsageCount Value="11"/>
<Loaded Value="True"/>
</Unit3>
<Unit4>
<Filename Value="..\..\source\ONGUARD.INC"/>
@ -99,12 +98,133 @@
<TopLine Value="324"/>
<UsageCount Value="10"/>
</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>
<JumpHistory Count="1">
<JumpHistory Count="30" HistoryIndex="29">
<Position1>
<Filename Value="stampex1.pas"/>
<Caret Line="46" Column="11" TopLine="10"/>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="20" Column="14"/>
</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>
</ProjectOptions>
<CompilerOptions>

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

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

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

@ -101,7 +101,7 @@ type
{property methods}
function GetAbout : string; {!!.08}
procedure SetAbout(const Value : string); {!!.08}
procedure SetAbout(const {%H-}Value : string); {!!.08}
protected
procedure DoOnChecked(Status : TExeStatus);
@ -143,6 +143,8 @@ type
end;
function ExeStatusToStr(AStatus: TExeStatus): String;
function IsExeTampered(CheckSize : Boolean) : TExeStatus;
{-return one of the possible TExeResult states}
function ProtectExe(const FileName : string ; EraseMarker : Boolean) : Boolean;
@ -207,6 +209,18 @@ const
$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 ***}
constructor TOgProtectExe.Create(AOwner : TComponent);

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

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

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

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