Delphi - Kreiranje i distribucija shareware aplikacija (V deo)

Nakon "povećeg" uvoda u problematiku kreiranja shareware aplikacija stigli smo i do programskog dela. Odmah ćemo krenuti sa programskim kodom, s tim da napomenemo samo da vam je za potpunu realizaciju ovog projekta potrebna i freeware programska biblioteka, koju možete pronaći na više lokacija na Internetu, a mi ćemo vam ukazati na jednu od [lokacija]. Inače, biblioteka se nalazi u ZIP pakovanju, a sadrži oko 150 vrlo korisnih funkcija (za Delphi, C++Builder i Java-u), koje je vredno sakupio Stefan Boethe. U komentaru programskog koda navešćemo kada smo koristili koju funkciju iz ove biblioteke.

unit SharewareProgram;

interface

function RegistrovanaKopija: Boolean;
function Sifrovanje(const S: String;
  Key: Int64{Word}): String;
function Desifrovanje
  (const S: String; Key: Int64{Word}): String;

const
  crlf = #13#10;                 {taster Enter}
  SEZDBReg = 'EZDB.RegVal'; 
  {naziv registracionog fajla}
  sRegVred=
  'SportsDefinition_RunJumpSweatAndSmashIntoThings';
  MAGICNI_BROJ = 1958;

  { C1 i C2 vrednosti dobijene
  funkcijama strDecrypt i strEncrypt
  iz biblioteke XProc}
  C1 = 52845;
  C2 = 22719;

resourcestring
  sPrednostRegistracije =
   'Registrovanje ovog programa omogucice'+crlf+
'vam da stampate sadrzaj baza podataka.'+crlf+
   'Radi registracije posaljite upit na sledecu'+crlf+
'adresu:'+crlf+crlf+

    'e-mail@nesto.com'+crlf+crlf+

   'Nakon placanja 25$, bice vam poslat'+crlf+
'fajl kojim cete otkljucati mogucnost stampanja'+crlf+
'u vasem programu. Ne zaboravite da u upitu'+crlf+
'navedete i vasu e-mail adresu';
{ string za dijalog u vezi sa registracijom}