/*
 * $Id: testsha1.prg 11878 2009-07-22 13:53:21Z vszakats $
 */

/*
 * Harbour Project source code:
 *
 * Rewritten from C: Viktor Szakats (harbour.01 syenar.hu)
 * www - http://www.harbour-project.org
 */

PROCEDURE Main()

   ? ">" + hb_sha1( "hello" ) + "<"
   ? ">" + hb_sha1( "hello", .F. ) + "<"
   ? ">" + hb_sha1( "hello", .T. ) + "<"

   ? ">" + hb_hmac_sha1( "hello", "key" ) + "<"
   ? ">" + hb_hmac_sha1( "hello", "key", .F. ) + "<"
   ? ">" + hb_hmac_sha1( "hello", "key", .T. ) + "<"

   RETURN
