  ----------------------------------------------------------------------------
  Product   ifrtor32
  Version   2.0 beta
  Copyright Petr Z. Gotthard, 1997-98
  Email     xgotha00@stud.fee.vutbr.cz

  Home Page http://www.informacnik.cz
  ----------------------------------------------------------------------------
  This program is free software; you can redistribute it and/or modify
  it under the terms of the GNU General Public License as published by
  the Free Software Foundation; either version 2 of the License, or
  (at your option) any later version.

  This program is distributed in the hope that it will be useful,
  but WITHOUT ANY WARRANTY; without even the implied warranty of
  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  GNU General Public License for more details.
  ----------------------------------------------------------------------------
  1. Distrubuce
  Program je dodvn ve dvou formch.

  a) Jako binrn distrubuce (obsahuje spustiteln soubor a ve potebn k
  prci s programem). Ke sputn je zapoteb 32-bitovch Windows. Program
  byl vytvoen pro systmy Windows NT/95. Bude pracovat i pod Windows 3.11
  s Win32s, mon i XFree86 s Win32.
  
  b) Jako zdrojov distribuce (obsahuje veker zdrojov texty a komponenty
  potebn k peloen programu). K pekladu je teba produktu Borland Delphi
  ve verzi 1.0 (pro Windows 3.1) nebo ve verzi 2.0 (pro Windows NT/95).
  
  2. Uveden do chodu

  a) Binrn distrubuci je teba pouze uloit na pevn disk a spustit.

  b) U zdrojov distribuce je teba nejprve doinstalovat do Delphi komponent
  "bmplbox". Pot u jen sta otevt projekt "Sifrator.dpr" a stisknout RUN.

  2. Funkce
  Program slou k ifrovn textovch zprv pedevm pro ely dtskch
  organizac. V jednoduchm editoru lze vytvoit text nov, nebo lze pout
  text ji vytvoen (ist ASCII text). ifrovn takovho textu se provede
  v editoru textu vbrem pslun ifry z rolety "Zaifruj" a zadn
  ppadnch doplujcch informac.

  3. Implementovan ifry

  3.1 Uivatelsk substituce
  Popis uivatelskch substituc se ukld do souboru unisubst.ini
  Psmeno Ch se v tabulce nhrad nahrazuje znakem 0128 (maleCH) a 
  0129 (velkeCH).

  4. Chyby a pravy
  Vtm jakkoli ciz vylepen i opravy chyb programu. Prosm vak o
  zasln opraven sti kdu na moji adresu. Program tak bude postupem asu
  upravovn a vylepovn.
  Mte-li njakou pipomnku nebo npad na vylepen programu i dokumentace,
  mete mi rovn poslat E-mail.

  5. Tvorba vlastnch ifer
  Program (ob distribuce) akceptuje uivatelsk ifrovac DLL knihovny.
  Knihovna mus exportovat nkter povinn funkce, jak je uvedeno ne.
  Peloen knihovna mus bt umstna v adresi spolen se SIFRATOR.EXE.

  --nepln pklad ifrovac knihovny----------------------------------------

  library NovaSifra;

  uses Forms, Windows, Classes, SifDLLs;

  { Funkce vrac indentifikan etzce }
  Function Identify:Identifikace;export;
  begin
    {Nzev, pod kterm se ifra uke v menu}
    {Nepouvat znak & a ji existujc nzvy}
    Result.Caption:='Nov ifra';

    {etzec pro dkovou npovdu}
    Result.Hint:='Toto je moje nov ifra';

    {Druh vstupu zaifrovan zprvy}
    {  VyText -   ve streamu bude TStringList }
    {  VyBitmap - ve streamu bude TBitmap }
    Result.OutPut:=VyText;
  end;

  { Provd ifrovn
    Ve streamu InOut je uloen TStringList s pvodnm textem
    V Parametry jsou voliteln nastaven
    Po ifrovn se obsah InOut smae a nahrad opt TStringList nebo TBitmap

    Vrac krtk etzec s nzvem ifry v ppad spchu, jinak vrac '' }
  Function Encrypt(var InOut:TMemoryStream;
                   var Parametry:TParametry):string;export;
  begin
    Application.Title := 'Nov ifra';

    InOut.Position:=0;
    Vstup.LoadFromStream(InOut);

    {--}
    {zobrazen okna s dotazy, ifrovn, ...}
    {--}

    InOut.Clear;
    Vystup.SaveToStream(InOut);

    if Uspech then Result:='nov' else Result:='';
  end;

  exports Identify index 1,
          Encrypt index 2;

  begin
  end.
  -----------------------------------------------------------------------konec
