132 lines
3.3 KiB
Factor
Executable File
132 lines
3.3 KiB
Factor
Executable File
! Copyright (C) 2007 Elie CHAFTARI
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
!
|
|
! Tested with OpenSSL 0.9.8a_0 on Mac OS X 10.4.9 PowerPC
|
|
!
|
|
! export LD_LIBRARY_PATH=/opt/local/lib
|
|
|
|
USING: alien alien.syntax combinators kernel system ;
|
|
|
|
IN: openssl.libcrypto
|
|
|
|
<<
|
|
"libcrypto" {
|
|
{ [ win32? ] [ "libeay32.dll" "cdecl" ] }
|
|
{ [ macosx? ] [ "libcrypto.dylib" "cdecl" ] }
|
|
{ [ unix? ] [ "libcrypto.so" "cdecl" ] }
|
|
} cond add-library
|
|
>>
|
|
|
|
C-STRUCT: bio-method
|
|
{ "int" "type" }
|
|
{ "void*" "name" }
|
|
{ "void*" "bwrite" }
|
|
{ "void*" "bread" }
|
|
{ "void*" "bputs" }
|
|
{ "void*" "bgets" }
|
|
{ "void*" "ctrl" }
|
|
{ "void*" "create" }
|
|
{ "void*" "destroy" }
|
|
{ "void*" "callback-ctrl" } ;
|
|
|
|
C-STRUCT: bio
|
|
{ "void*" "method" }
|
|
{ "void*" "callback" }
|
|
{ "void*" "cb-arg" }
|
|
{ "int" "init" }
|
|
{ "int" "shutdown" }
|
|
{ "int" "flags" }
|
|
{ "int" "retry-reason" }
|
|
{ "int" "num" }
|
|
{ "void*" "ptr" }
|
|
{ "void*" "next-bio" }
|
|
{ "void*" "prev-bio" }
|
|
{ "int" "references" }
|
|
{ "ulong" "num-read" }
|
|
{ "ulong" "num-write" }
|
|
{ "void*" "crypto-ex-data-stack" }
|
|
{ "int" "crypto-ex-data-dummy" } ;
|
|
|
|
: BIO_NOCLOSE HEX: 00 ; inline
|
|
: BIO_CLOSE HEX: 01 ; inline
|
|
|
|
: RSA_3 HEX: 3 ; inline
|
|
: RSA_F4 HEX: 10001 ; inline
|
|
|
|
: BIO_C_SET_SSL 109 ; inline
|
|
: BIO_C_GET_SSL 110 ; inline
|
|
|
|
LIBRARY: libcrypto
|
|
|
|
! ===============================================
|
|
! bio.h
|
|
! ===============================================
|
|
|
|
FUNCTION: bio* BIO_new_file ( char* filename, char* mode ) ;
|
|
|
|
FUNCTION: int BIO_printf ( bio* bio, char* format ) ;
|
|
|
|
FUNCTION: long BIO_ctrl ( void* bio, int cmd, long larg, void* parg ) ;
|
|
|
|
FUNCTION: void* BIO_new_socket ( int fd, int close-flag ) ;
|
|
|
|
FUNCTION: void* BIO_new ( void* method ) ;
|
|
|
|
FUNCTION: int BIO_set ( void* bio, void* method ) ;
|
|
|
|
FUNCTION: int BIO_free ( void* bio ) ;
|
|
|
|
FUNCTION: void* BIO_push ( void* bio, void* append ) ;
|
|
|
|
FUNCTION: int BIO_read ( void* b, void* buf, int len ) ;
|
|
|
|
FUNCTION: int BIO_gets ( void* b, char* buf, int size ) ;
|
|
|
|
FUNCTION: int BIO_write ( void* b, void* buf, int len ) ;
|
|
|
|
FUNCTION: int BIO_puts ( void* bp, char* buf ) ;
|
|
|
|
FUNCTION: ulong ERR_get_error ( ) ;
|
|
|
|
FUNCTION: char* ERR_error_string ( ulong e, void* buf ) ;
|
|
|
|
FUNCTION: void* BIO_f_buffer ( ) ;
|
|
|
|
! ===============================================
|
|
! evp.h
|
|
! ===============================================
|
|
|
|
! Initialize ciphers and digest tables
|
|
FUNCTION: void OpenSSL_add_all_ciphers ( ) ;
|
|
|
|
FUNCTION: void OpenSSL_add_all_digests ( ) ;
|
|
|
|
! Clean them up before exiting
|
|
FUNCTION: void EVP_cleanup ( ) ;
|
|
|
|
FUNCTION: void* EVP_get_digestbyname ( char* name ) ;
|
|
|
|
FUNCTION: void EVP_MD_CTX_init ( void* ctx ) ;
|
|
|
|
FUNCTION: void* PEM_read_bio_DHparams ( void* bp, void* x, void* cb,
|
|
void* u ) ;
|
|
|
|
! ===============================================
|
|
! md5.h
|
|
! ===============================================
|
|
|
|
FUNCTION: uchar* MD5 ( uchar* d, ulong n, uchar* md ) ;
|
|
|
|
! ===============================================
|
|
! rsa.h
|
|
! ===============================================
|
|
|
|
FUNCTION: void* RSA_generate_key ( int num, ulong e, void* callback,
|
|
void* cb_arg ) ;
|
|
|
|
FUNCTION: int RSA_check_key ( void* rsa ) ;
|
|
|
|
FUNCTION: void RSA_free ( void* rsa ) ;
|
|
|
|
FUNCTION: int RSA_print_fp ( void* fp, void* x, int offset ) ;
|