home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C!T ROM 2
/
ctrom_ii_b.zip
/
ctrom_ii_b
/
PROGRAM
/
PASCAL
/
RKPLUS33
/
RKPDEMO2
/
SAMPLE2.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-10-19
|
6KB
|
234 lines
Program Sample2;
{
This is a demonstration program using RkPlus.
It uses 2 registration levels (0 and 1).
If a Level 1 key has expired, it will be treated as Level 0.
If a Level 0 key has expired, it will be treated as Unregistered.
This is a very simple program that doesn't actually do anything, but it
should demonstrate some of what can be done with RkPlus.
It is identical to Sample1, except that it also contains a built-in
registration routine, instead of using an external registration program
(such as Register). It uses the same keys as Sample1, which can be created
with the GenKey programme.
Sample2 uses the Rkp2Enc unit to cause RkPlus to maintain version
2.x/compatible keys.
}
Uses
Crt,
RkPlus,
Rkp2Enc;
Const
MonthNames : Array[1..12] of String[3]
= ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec');
Var
kc : Char;
lcv : Byte;
Procedure BadRegBeep;
Begin
Sound(1200);
Delay(200);
Sound(600);
Delay(200);
Sound(1200);
Delay(200);
Sound(600);
Delay(200);
NoSound;
End;
Procedure NotRegBeep;
Begin
Sound(600);
Delay(200);
Sound(1200);
Delay(200);
NoSound;
End;
Procedure DoView;
Begin
WriteLn('Sample data :');
WriteLn;
WriteLn('4.465536 7.918270 0.118373 5.367233');
WriteLn('1.396349 4.868343 7.079323 4.783021');
WriteLn('3.947924 8.864673 8.846264 2.999999');
WriteLn('8.490832 6.874378 5.338329 3.729270');
WriteLn('6.839882 8.873478 6.750373 7.018948');
WriteLn('5.034784 3.003763 3.253290 4.892387');
WriteLn('3.874378 8.314159 9.880869 3.987842');
WriteLn('2.764947 9.265358 4.013002 9.903278');
End;
Procedure DoCalc;
Begin
If Rkp.Registered then Begin
Write('The calculated result is ');
WriteLn(4.465536+7.918270+0.118373+5.367233+1.396349+4.868343+7.079323+4.783021
+3.947924+8.864673+8.846264+2.999999+8.490832+6.874378+5.338329+3.729270
+6.839882+8.873478+6.750373+7.018948+5.034784+3.003763+3.253290+4.892387
+3.874378+8.314159+9.880869+3.987842+2.764947+9.265358+4.013002+9.903278);
End Else
WriteLn('Only available in registered version!');
End;
Procedure DoTest;
Begin
If Rkp.Registered then Begin
If (Rkp.Level > 0) then Begin
Write('Performing tests...');
Delay(300);
WriteLn;
WriteLn('All tests passed.');
End Else
WriteLn('Not available in demo version!');
End Else
WriteLn('Only available in registered version!');
End;
Procedure DoRegister;
Begin
Write('Enter name of person to register : ');
ReadLn(Rkp.Name1);
WriteLn;
Write('Enter the registration key : ');
ReadLn(Rkp.Key);
WriteLn;
Rkp.ID := '(c) Serious Cybernetics';
Rkp.Message := 'Sample2';
Rkp.Name2 := '';
Rkp.Name3 := '';
Rkp.Level := 0;
VerifyKey;
If Not Rkp.Registered then Begin
Rkp.Level := 1;
VerifyKey;
End;
If Not Rkp.Registered then
WriteLn('Invalid key!')
Else Begin
SaveRegInfo;
If RkpOK then
WriteLn(KeyFileName,' created.')
Else
WriteLn('Error ',RkpError,' creating file.');
End;
End;
Begin
If BadSystemDate then Begin
WriteLn('You must correctly set your system clock to run Sample2!');
BadRegBeep;
Halt(1);
End;
OwnerCode := 'ArgleBarbWotsLeeb';
ProgramCode := 'Sample';
SetKeyFile('Sample');
GetRegInfo;
Write('Sample2');
If Not RkpOK then
WriteLn(' [invalid]')
Else If Rkp.Registered and (Rkp.Level > 0) then
WriteLn(' [registered]')
Else If Rkp.Registered then
WriteLn(' [demo]')
Else
WriteLn(' [unregistered]');
WriteLn('Sample of RkPlus method 3 (using version 2.x/compatible keys)');
WriteLn('See RKPLUS.DOC for more info');
WriteLn;
If (RkpError = InvalidFile) or (RkpError = InvalidKey) then Begin
WriteLn(KeyFileName,' has been altered!');
BadRegBeep;
Halt(1);
End Else If (RkpError = ExpiredKey) then Begin
If (Rkp.Level > 0) then Begin
WriteLn('Your registration key has expired!');
WriteLn('You will be given access at the DEMO level.');
NotRegBeep;
Rkp.Level := 0;
End Else Begin
WriteLn('Your demo key has expired!');
WriteLn('You will be given access at the UNREGISTERED level.');
NotRegBeep;
Rkp.Registered := False;
End;
End Else If Rkp.Registered then Begin
If (Rkp.Level > 0) then Begin
WriteLn('This version of Sample2 is registered to ',Rkp.Name1);
If (Rkp.ExpYear <> 0) and (Rkp.ExpMonth <> 0) then
WriteLn('This registration will expire ','1-',MonthNames[Rkp.ExpMonth],'-',Rkp.ExpYear,'.');
WriteLn('Thank you for registering!');
End Else Begin
WriteLn('This version of Sample2 is a limited use demo for ',Rkp.Name1);
If (Rkp.ExpYear <> 0) and (Rkp.ExpMonth <> 0) then
WriteLn('This demo will expire ','1-',MonthNames[Rkp.ExpMonth],'-',Rkp.ExpYear,'.');
WriteLn('Don''t forget to register!');
End;
End Else If Not RkpOK then Begin
WriteLn('Unexpected error ',RkpError,'!');
Halt(255);
End Else Begin
WriteLn('This version of Sample2 is unregistered.');
WriteLn('Contact TrendSoft, Inc. to register or obtain a limited use Sample key.');
NotRegBeep;
Delay(500);
End;
WriteLn;
WriteLn('Sample2 Menu');
WriteLn;
WriteLn('[V]iew sample data');
Write('[C]alculate');
If Not Rkp.Registered then
WriteLn(' (only available in registered version)')
Else
WriteLn;
Write('[T]est results');
If Not Rkp.Registered then
WriteLn(' (only available in registered version)')
Else If (Rkp.Level <= 0) then
WriteLn(' (not available in demo version)')
Else
WriteLn;
WriteLn('[R]egister');
WriteLn;
Write('Selection : ');
kc := UpCase(ReadKey);
WriteLn;
WriteLn;
Case kc of
'V' :
DoView;
'C' :
DoCalc;
'T' :
DoTest;
'R' :
DoRegister;
Else
WriteLn('Invalid selection!');
End;
End.