… | |
… | |
121 | SV * |
121 | SV * |
122 | new (SV *klass, SV *K, SV *IV = 0) |
122 | new (SV *klass, SV *K, SV *IV = 0) |
123 | CODE: |
123 | CODE: |
124 | { |
124 | { |
125 | STRLEN k_len ; char *k = SvPVbyte (K , k_len ); |
125 | STRLEN k_len ; char *k = SvPVbyte (K , k_len ); |
126 | STRLEN iv_len = 0; char *iv = iv ? SvPVbyte (IV, iv_len) : 0; |
126 | STRLEN iv_len = 0; char *iv = IV ? SvPVbyte (IV, iv_len) : 0; |
127 | RETVAL = alloc_state (klass); |
127 | RETVAL = alloc_state (klass); |
128 | spritz_cipher_xor_init ((spritz_state *)SvPVX (SvRV (RETVAL)), k, k_len, iv, iv_len); |
128 | spritz_cipher_xor_init ((spritz_state *)SvPVX (SvRV (RETVAL)), k, k_len, iv, iv_len); |
129 | } |
129 | } |
130 | OUTPUT: |
130 | OUTPUT: |
131 | RETVAL |
131 | RETVAL |