anchor.diff:  function SHA1toHex( const digest: SHA1DigestString ): String;
   
   procedure HMAC_SHA1( const Data; DataLen: Integer;
  -			   const Key;  KeyLen : Integer;
  -			   out   Digest       : SHA1Digest );
  +                     const Key;  KeyLen : Integer;
  +                     out   Digest       : SHA1Digest );
   function  HMAC_SHA1_EX( const Data: String;
                        const Key : String ): String; //overload;
   
  
positive.code: // Keyed SHA1 (HMAC-SHA1), RFC 2104
  
  
  procedure HMAC_SHA1( const Data; DataLen: Integer;
  			   const Key;  KeyLen : Integer;
  			   out   Digest       : SHA1Digest );
  var  k_ipad, k_opad: array[0..64] of Byte;
       Context: SHA1Context;
       i      : Integer;
  
negative.code: end;
  
  function HMAC_SHA1_EX( const Data: String;
                         const Key : String ): String;
  var  Digest: SHA1Digest;
  begin
     HMAC_SHA1( Data[1], length(Data), Key[1], length(Key), Digest );
  