Codebase list libcryptx-perl / e52909e
RSA/DSA key export nox with PK_PUBLIC|PK_STD Karel Miko 8 years ago
2 changed file(s) with 2 addition(s) and 2 deletion(s). Raw diff Collapse all Expand all
+1
-1
inc/CryptX_PK_DSA.xs.inc less more
174174 }
175175 else if (strnEQ(type, "public", 6)) {
176176 rv = dsa_export(out, &out_len, PK_PUBLIC, &self->key);
177 if (rv != CRYPT_OK) croak("FATAL: dsa_export(PK_PUBLIC) failed: %s", error_to_string(rv));
177 if (rv != CRYPT_OK) croak("FATAL: dsa_export(PK_PUBLIC|PK_STD) failed: %s", error_to_string(rv));
178178 RETVAL = newSVpvn((char*)out, out_len);
179179 }
180180 else {
+1
-1
inc/CryptX_PK_RSA.xs.inc less more
218218 }
219219 else if (strnEQ(type, "public", 6)) {
220220 rv = rsa_export(out, &out_len, PK_PUBLIC, &self->key);
221 if (rv != CRYPT_OK) croak("FATAL: rsa_export(PK_PUBLIC) failed: %s", error_to_string(rv));
221 if (rv != CRYPT_OK) croak("FATAL: rsa_export(PK_PUBLIC|PK_STD) failed: %s", error_to_string(rv));
222222 RETVAL = newSVpvn((char*)out, out_len);
223223 }
224224 else {