source:
swig/perl/SSL_keyid.c
@
756011e
Last change on this file since 756011e was 756011e, checked in by , 11 years ago | |
---|---|
|
|
File size: 387 bytes |
Rev | Line | |
---|---|---|
[f7040d8] | 1 | #include <stdio.h> |
2 | ||
3 | #include <openssl/x509.h> | |
4 | ||
[756011e] | 5 | char *SSL_keyid(void *ptr) { |
[f7040d8] | 6 | int i; |
[17ec3b0] | 7 | unsigned char sha1_hash[SHA_DIGEST_LENGTH]; |
[f7040d8] | 8 | X509 *x = (X509 *)ptr; |
9 | ||
[17ec3b0] | 10 | X509_pubkey_digest(x, EVP_sha1(), sha1_hash, NULL); |
11 | ||
[f7040d8] | 12 | char *hash = malloc(SHA_DIGEST_LENGTH * 2 + 1); |
13 | for (i = 0; i < SHA_DIGEST_LENGTH; ++i) | |
[17ec3b0] | 14 | sprintf(&hash[2*i], "%02x", sha1_hash[i]); |
[f7040d8] | 15 | |
16 | return hash; | |
17 | } |
Note: See TracBrowser
for help on using the repository browser.