35b3abdcdc
* contrib/hbblat/tests/blatcmd.prg
* contrib/hbblat/tests/blattest.prg
* contrib/hbbz2/tests/test.prg
* contrib/hbcomm/tests/test.prg
* contrib/hbcups/tests/test.prg
* contrib/hbexpat/tests/test.prg
* contrib/hbexpat/tests/tohash.prg
* contrib/hbfbird/tests/simple.prg
* contrib/hbfbird/tests/stress.prg
* contrib/hbfbird/tests/test.prg
* contrib/hbfimage/tests/fitest.prg
* contrib/hbgs/tests/testgs.prg
* contrib/hbhpdf/tests/harupdf.prg
* contrib/hblzf/tests/test.prg
* contrib/hbmagic/tests/hbmagit.prg
* contrib/hbmemio/tests/test.prg
* contrib/hbmxml/tests/custom.prg
* contrib/hbmxml/tests/reminder.prg
* contrib/hbmxml/tests/testmxml.prg
* contrib/hbmysql/tests/test.prg
* contrib/hbmzip/tests/myunzip.prg
* contrib/hbmzip/tests/myzip.prg
* contrib/hbodbc/tests/odbccall.prg
* contrib/hbodbc/tests/odbcdemo.prg
* contrib/hbodbc/tests/testodbc.prg
* contrib/hbpgsql/tests/async.prg
* contrib/hbpgsql/tests/cache.prg
* contrib/hbpgsql/tests/dbf2pg.prg
* contrib/hbpgsql/tests/simple.prg
* contrib/hbpgsql/tests/stress.prg
* contrib/hbpgsql/tests/test.prg
* contrib/hbsms/tests/send.prg
* contrib/hbsqlit3/tests/authoriz.prg
* contrib/hbsqlit3/tests/backup.prg
* contrib/hbsqlit3/tests/blob.prg
* contrib/hbsqlit3/tests/hdbctest.prg
* contrib/hbsqlit3/tests/hooks.prg
* contrib/hbsqlit3/tests/metadata.prg
* contrib/hbsqlit3/tests/pack.prg
* contrib/hbsqlit3/tests/sl3_test.prg
* contrib/hbssl/tests/bio.prg
* contrib/hbssl/tests/crypt.prg
* contrib/hbssl/tests/digest.prg
* contrib/hbssl/tests/encode.prg
* contrib/hbssl/tests/pem.prg
* contrib/hbssl/tests/test.prg
* contrib/hbtip/tests/base64.prg
* contrib/hbtip/tests/dbtohtml.prg
* contrib/hbtip/tests/dnldftp.prg
* contrib/hbtip/tests/ftpadv.prg
* contrib/hbtip/tests/gmail.prg
* contrib/hbtip/tests/httpadv.prg
* contrib/hbtip/tests/loadhtml.prg
* contrib/hbtip/tests/test01.prg
* contrib/hbtip/tests/tipmail.prg
* contrib/hbtip/tests/tipmime.prg
* contrib/hbtip/tests/tipmmail.prg
* contrib/hbtip/tests/tiptest.prg
* contrib/hbtip/tests/tiptime.prg
* contrib/hbtip/tests/upld_ftp.prg
* contrib/hbtpathy/tests/testtp.prg
* contrib/hbunix/tests/testdmn.prg
* contrib/hbunix/tests/testpid.prg
* contrib/hbxdiff/tests/test.prg
* contrib/hbxdiff/tests/test2.prg
* contrib/hbxdiff/tests/test3.prg
* contrib/rddsql/tests/arrayrdd.prg
* contrib/sddsqlt3/tests/test1.prg
* contrib/xhb/tests/compress.prg
* contrib/xhb/tests/dll.prg
* contrib/xhb/tests/testcp.prg
* contrib/xhb/tests/xml1.prg
+ added #require directives, so the tests can now
be run as scripts. It will require a dynamically
built hbrun and contrib dlls. To make them, use:
HB_BUILD_CONTRIB_DYN=yes and rebuild Harbour.
* minor cleanups along the way
; RDDSQL fails in RDDSETDEFAULT().
* contrib/gtwvg/toolbar.prg
! fixed yet another != (disguised as <>) operator on string
52 lines
860 B
Plaintext
52 lines
860 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/*
|
|
* Copyright 2009 Viktor Szakats (harbour syenar.net)
|
|
* www - http://harbour-project.org
|
|
*/
|
|
|
|
#require "hbssl"
|
|
|
|
#include "simpleio.ch"
|
|
|
|
#include "hbssl.ch"
|
|
|
|
PROCEDURE Main()
|
|
|
|
LOCAL ctx
|
|
LOCAL result
|
|
LOCAL encrypted
|
|
LOCAL decrypted
|
|
|
|
SSL_INIT()
|
|
|
|
OpenSSL_add_all_ciphers()
|
|
|
|
ctx := hb_EVP_ENCODE_CTX_create()
|
|
|
|
EVP_EncodeInit( ctx )
|
|
|
|
encrypted := ""
|
|
result := ""
|
|
EVP_EncodeUpdate( ctx, @result, "sample text" )
|
|
encrypted += result
|
|
EVP_EncodeFinal( ctx, @result )
|
|
encrypted += result
|
|
? "ENCRYTPTED", ">" + encrypted + "<"
|
|
|
|
ctx := hb_EVP_ENCODE_CTX_create()
|
|
|
|
EVP_DecodeInit( ctx )
|
|
|
|
decrypted := ""
|
|
result := ""
|
|
EVP_DecodeUpdate( ctx, @result, encrypted )
|
|
decrypted += result
|
|
EVP_DecodeFinal( ctx, @result )
|
|
decrypted += result
|
|
? "DECRYTPTED", ">" + decrypted + "<"
|
|
|
|
RETURN
|