40a7012cb7
* bin/hb-func.sh
* include/hbextern.ch
* contrib/Makefile
* source/rtl/Makefile
+ source/rtl/sha1.c
+ source/rtl/sha1.h
+ source/rtl/hbsha1hm.c
+ source/rtl/sha2.c
+ source/rtl/sha2.h
+ source/rtl/hbsha2hm.c
+ source/rtl/sha1hmac.c
+ source/rtl/sha1hmac.h
+ source/rtl/hbsha1.c
+ source/rtl/sha2hmac.c
+ source/rtl/sha2hmac.h
+ source/rtl/hbsha2.c
+ tests/testsha1.prg
+ tests/testsha2.prg
* hbcrypt contrib library merged into the core.
23 lines
460 B
Plaintext
23 lines
460 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/*
|
|
* 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
|