File: pem_password_cb.c

package info (click to toggle)
haskell-hookup 0.8-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 116 kB
  • sloc: haskell: 832; ansic: 34; makefile: 4
file content (49 lines) | stat: -rw-r--r-- 945 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
#include <stdlib.h>
#include <string.h>

struct CStringLen
{
    char const* ptr;
    int len;
};

void *
hookup_new_userdata(char const* ptr, int len)
{
    struct CStringLen *result = malloc(sizeof *result);

    // The null/error case is handled in hookup_pem_passwd_cb
    if (NULL != result) {
        result->ptr = ptr;
        result->len = len;
    }

    return result;
}

void
hookup_free_userdata(void *ud)
{
        free(ud);
}

int
hookup_pem_passwd_cb(char *buf, int size, int rwflag, void *userdata)
{
    struct CStringLen *password = userdata;

    // hookup_new_userdata failed, so we fail.
    if (NULL == password) { return -1; }

    // password requested when none was provided, so we fail.
    if (0 > password->len) { return -1; }

    // OpenSSL says to truncate the password if it's too long
    if (password->len < size) {
        size = password->len;
    }

    memcpy(buf, password->ptr, size);

    return size;
}