19.05.96!!!!
ࠢ .
 ᥢ ਠ  ࠧ  ⨯ ULONG ⮥  
祭 訬 (  ᮢ᪮ ⮫쪮  64)
mathlib.obj   㦥

㭪 DesInit;

     ந  樠.          
஢  室 ஫,    樠  ७
ᨢ ஬ InitVector.

:
        int DesInit( char *Password, char *InitVect, char Crypt );

Pascal:
        function DesInit( Passwrd, IV :pointer; Crypt :byte ):boolean;far;


     Password - 㪠⥫   8    ᨢ  ᮤঠ騩
室 . ⥫쭮 -  뫠 ᨬ쭠 ப.
 易  ⥬  ASCII ᨬ    । 128 
 ⮣   㬥  .  ⥫쭮  ⮡
஫              㭪樨   
ᨬ쭮 ஫ / ᯮ짮 ⢥  
砩 ᥫ.  ⮩ ଠ樥.

     InitVector - 㪠⥫  8   ᨢ  ᮤঠ騩
" 樠樨". 室 ⮫쪮  ० CBC. 
  Password  ⮩ ଠ樥      
।    ⮬  .   ஢    
ᯮᮡ.   ⥩ ਠ     ப
஡,  㫥  ਬ 祭 Password -   
Password    ᨬ祭    -                 
஢/஢.  訩 ᯮᮡ 樨  -  
砩  ᥫ      one   way   hash   function,   ⮥
஭   㭪,    ਬ      ᯮ짮
 MD2 - MD5.

     Crypt - ० ஢/஢.

      砥 㯫᭮ ࠡ 室  믮  㭪
DesInit  ࠧ -  ࠧ묨 祭ﬨ Crypt. ஢
㭪樥  ஢/஢ ࠭ ⤥쭮.

     ᫥ 믮 㭪樨 DesInit    
ᨢ Password  InitVect ﬨ.

       砥  襭  楫⭮  ⠡   DES   㭪
頥 FALSE.  ⮬ 砥 ࠡ   ४饭.



㭪 DesDeInit;

:
        void DesDeInit( void );

Pascal:
        procedure DesDeInit;far;

     ந  樠.      ⮬   ᫥   ࠥ
७    ६.  ⥫쭮  ४
믮 ᫥ 砭 横 ஢/஢.




㭪 Des_Crypt_CBC_Block;

:
        void Des_Crypt_CBC_Block( char *Src, char *Dst, int Size );

Pascal:
        procedure Des_Crypt_CBC_Block( Src, Dest :pointer; Size :word );far;


     ந ஢    ⮤ CBC.


     Src - 㪠⥫ 室  .

     Dst - 㪠⥫  㤠  饭  ஢
.

     Size - ࠧ  .      ஢
 8.     ஢  (    㫥  㯠  
⥬ ).


     Src  Dst  㪠뢠    - .  
砥 室 (ᮤন  Src) 㭨⮦.




㭪 Des_DeCrypt_CBC_Block;

:
        void Des_DeCrypt_CBC_Block( char *Src, char *Dst, int Size );

Pascal:
        procedure Des_DeCrypt_CBC_Block( Src, Dst :pointer; Size :word );far;


     ந ஢   ⮤ CBC.

     Src - 㪠⥫ 室  ஢ .

     Dst - 㪠⥫  㤠  ஢ .

     Size - ࠧ  .      ஢
 8.     ஢  (    㫥  㯠  
⥬ ).


     Src   Dst    㪠뢠        -  .
室 (ᮤন  Src)  㭨⮦.




㭪 Des_Crypt_ECB_Block;


:
  void Des_Crypt_ECB_Block( char *Src, char *Dst, int Size, char Crypt );

Pascal:
  procedure Des_Crypt_ECB_Block( Src, Dst :pointer; Size :word; Crypt :byte );far;

     㭪  ஢/஢  ⮤ ECB.  롮
⢫   ࠬ Crypt.

     Crypt -  0  ந  ஢    .  1
ந ஢  .

     Src - 㪠⥫  室 

     Dst - 㪠⥫  ࠡ⠭ 

     Size - ࠧ .    ⥭ 8     ࠢ
.

     Src  Dst  ᮢ.

     室     㭨⮦.    ⮬  室
᫥ 砭 ஢    室(  ஢
) ﬨ,  ...





㭪  MD5Digest;

:
 void MD5Digest( unsigned char Digest[16],
                 unsigned char *Block,
                 unsigned int Size );

᪠:
 procedure MD5Digest( var Digest :MDigest; var Block; Size :word );


     㭪  -㭪      (ᨬ
64).   頥  ᨢ Digest.  -㭪 
  MD5 ( ४ RFC1321 ).


     Digest - 16  ᨢ 㤠 㤥  饭  १
᫥ -㭪樨.

     Block  -  㪠⥫          ண  
᫨ -㭪.

     Size - ࠧ  .

