1 ! Copyright (C) 2007 Elie CHAFTARI, 2009 Maxim Savchenko
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: alien alien.c-types alien.destructors alien.libraries
4 alien.syntax classes.struct combinators system ;
8 LIBRARY-UNIX: libcrypto cdecl "libcrypto.so"
9 LIBRARY-MACOSX: libcrypto cdecl "libcrypto.35.dylib"
10 LIBRARY-WINDOWS: libcrypto cdecl "libcrypto-37.dll"
22 { callback-ctrl void* } ;
24 CONSTANT: BIO_NOCLOSE 0x00
25 CONSTANT: BIO_CLOSE 0x01
28 CONSTANT: RSA_F4 0x10001
30 CONSTANT: BIO_C_SET_CONNECT 100
31 CONSTANT: BIO_C_DO_STATE_MACHINE 101
32 CONSTANT: BIO_C_SET_NBIO 102
33 CONSTANT: BIO_C_SET_PROXY_PARAM 103
34 CONSTANT: BIO_C_SET_FD 104
35 CONSTANT: BIO_C_GET_FD 105
36 CONSTANT: BIO_C_SET_FILE_PTR 106
37 CONSTANT: BIO_C_GET_FILE_PTR 107
38 CONSTANT: BIO_C_SET_FILENAME 108
39 CONSTANT: BIO_C_SET_SSL 109
40 CONSTANT: BIO_C_GET_SSL 110
44 ! ===============================================
46 ! ===============================================
47 STRUCT: crypto_ex_data_st
50 TYPEDEF: crypto_ex_data_st CRYPTO_EX_DATA
52 ! ===============================================
54 ! ===============================================
65 { callback_ctrl void* } ;
66 TYPEDEF: bio_method_st BIO_METHOD
69 { method BIO_METHOD* }
83 { ex-data CRYPTO_EX_DATA } ;
86 FUNCTION: BIO* BIO_new_file ( c-string filename, c-string mode )
88 FUNCTION: int BIO_printf ( BIO* bio, c-string format )
90 FUNCTION: long BIO_ctrl ( void* bio, int cmd, long larg, void* parg )
92 FUNCTION: BIO* BIO_new_socket ( int fd, int close-flag )
94 FUNCTION: BIO* BIO_new_connect ( c-string name )
96 FUNCTION: void* BIO_new ( void* method )
98 FUNCTION: int BIO_set ( void* bio, void* method )
100 FUNCTION: int BIO_free ( void* bio )
102 FUNCTION: void* BIO_push ( void* bio, void* append )
104 FUNCTION: int BIO_read ( BIO* bio, void* buf, int len )
106 FUNCTION: int BIO_gets ( void* b, c-string buf, int size )
108 FUNCTION: int BIO_write ( void* b, void* buf, int len )
110 FUNCTION: int BIO_puts ( BIO* bio, c-string buf )
112 FUNCTION: ulong ERR_get_error ( )
114 FUNCTION: void ERR_clear_error ( )
116 FUNCTION: c-string ERR_error_string ( ulong e, void* buf )
118 FUNCTION: void* BIO_f_buffer ( )
120 ! ===============================================
122 ! ===============================================
124 CONSTANT: EVP_MAX_MD_SIZE 64
135 ! ------------------------------------------------------------------------------
137 ! ------------------------------------------------------------------------------
138 FUNCTION: ulong OpenSSL_version_num ( )
139 FUNCTION: EVP_MD_CTX* EVP_MD_CTX_new ( )
140 FUNCTION: void EVP_MD_CTX_free ( EVP_MD_CTX* ctx )
142 ! ------------------------------------------------------------------------------
143 ! API < 1.1.0, removed in new versions
144 ! ------------------------------------------------------------------------------
145 FUNCTION: void OpenSSL_add_all_ciphers ( )
146 FUNCTION: void OpenSSL_add_all_digests ( )
147 FUNCTION: EVP_MD_CTX* EVP_MD_CTX_create ( )
148 FUNCTION: void EVP_MD_CTX_destroy ( EVP_MD_CTX* ctx )
149 ! ------------------------------------------------------------------------------
151 ! Clean them up before exiting
152 FUNCTION: void EVP_cleanup ( )
154 FUNCTION: EVP_MD* EVP_get_digestbyname ( c-string name )
156 FUNCTION: void EVP_MD_CTX_init ( EVP_MD* ctx )
158 FUNCTION: int EVP_MD_CTX_cleanup ( EVP_MD_CTX* ctx )
159 FUNCTION: int EVP_MD_CTX_copy_ex ( EVP_MD_CTX* out, EVP_MD_CTX* in )
161 FUNCTION: int EVP_DigestInit_ex ( EVP_MD_CTX* ctx, EVP_MD* type, ENGINE* impl )
163 FUNCTION: int EVP_DigestUpdate ( EVP_MD_CTX* ctx, void* d, uint cnt )
165 FUNCTION: int EVP_DigestFinal_ex ( EVP_MD_CTX* ctx, void* md, uint* s )
167 FUNCTION: int EVP_Digest ( void* data, uint count, void* md, uint* size, EVP_MD* type, ENGINE* impl )
169 FUNCTION: int EVP_MD_CTX_copy ( EVP_MD_CTX* out, EVP_MD_CTX* in )
171 FUNCTION: int EVP_DigestInit ( EVP_MD_CTX* ctx, EVP_MD* type )
173 FUNCTION: int EVP_DigestFinal ( EVP_MD_CTX* ctx, void* md, uint* s )
175 FUNCTION: void* PEM_read_bio_DHparams ( void* bp, void* x, void* cb,
178 ! ===============================================
180 ! ===============================================
182 FUNCTION: void* RSA_new ( )
184 FUNCTION: int RSA_generate_key_ex ( void* rsa int bits, void* e, void* cb )
186 FUNCTION: int RSA_check_key ( void* rsa )
188 FUNCTION: void RSA_free ( void* rsa )
190 FUNCTION: int RSA_print_fp ( void* fp, void* x, int offset )
192 ! ===============================================
194 ! ===============================================
196 FUNCTION: int OBJ_sn2nid ( c-string s )
198 ! ===============================================
200 ! ===============================================
202 FUNCTION: int BN_num_bits ( void* a )
204 FUNCTION: void* BN_bin2bn ( void* s, int len, void* ret )
206 FUNCTION: int BN_bn2bin ( void* a, void* to )
208 FUNCTION: void BN_clear_free ( void* a )
209 DESTRUCTOR: BN_clear_free
211 ! ===============================================
213 ! ===============================================
215 CONSTANT: POINT_CONVERSION_COMPRESSED 2
216 CONSTANT: POINT_CONVERSION_UNCOMPRESSED 4
217 CONSTANT: POINT_CONVERSION_HYBRID 6
219 FUNCTION: int EC_GROUP_get_degree ( void* group )
221 FUNCTION: void* EC_POINT_new ( void* group )
223 FUNCTION: void EC_POINT_clear_free ( void* point )
225 FUNCTION: int EC_POINT_point2oct ( void* group, void* point, int form, void* buf, int len, void* ctx )
227 FUNCTION: int EC_POINT_oct2point ( void* group, void* point, void* buf, int len, void* ctx )
229 FUNCTION: void* EC_KEY_new_by_curve_name ( int nid )
231 FUNCTION: void EC_KEY_free ( void* r )
233 FUNCTION: int EC_KEY_set_private_key ( void* key, void* priv_key )
235 FUNCTION: int EC_KEY_set_public_key ( void* key, void* pub_key )
237 FUNCTION: int EC_KEY_generate_key ( void* eckey )
239 FUNCTION: void* EC_KEY_get0_group ( void* key )
241 FUNCTION: void* EC_KEY_get0_private_key ( void* key )
243 FUNCTION: void* EC_KEY_get0_public_key ( void* key )
245 ! ===============================================
247 ! ===============================================
249 FUNCTION: int ECDSA_size ( void* eckey )
251 FUNCTION: int ECDSA_sign ( int type, void* dgst, int dgstlen, void* sig, void* siglen, void* eckey )
253 FUNCTION: int ECDSA_verify ( int type, void* dgst, int dgstlen, void* sig, int siglen, void* eckey )