| ︙ | | |
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
|
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
|
-
+
|
*-------------------------------------------------------------------
*/
int CipherInfo(Tcl_Interp *interp, Tcl_Obj *nameObj) {
const EVP_CIPHER *cipher;
Tcl_Obj *resultObj, *listObj;
unsigned long flags, mode;
char *modeName = NULL;
char *name = Tcl_GetStringFromObj(nameObj, (Tcl_Size *) NULL);
char *name = Tcl_GetString(nameObj);
/* Get cipher */
cipher = EVP_get_cipherbyname(name);
if (cipher == NULL) {
Tcl_AppendResult(interp, "Invalid cipher \"", name, "\"", (char *) NULL);
return TCL_ERROR;
|
| ︙ | | |
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
|
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
|
-
+
|
*
*-------------------------------------------------------------------
*/
int DigestInfo(Tcl_Interp *interp, Tcl_Obj *nameObj) {
const EVP_MD *md;
Tcl_Obj *resultObj, *listObj;
unsigned long flags;
char *name = Tcl_GetStringFromObj(nameObj, (Tcl_Size *) NULL);
char *name = Tcl_GetString(nameObj);
/* Get message digest */
md = EVP_get_digestbyname(name);
if (md == NULL) {
Tcl_AppendResult(interp, "Invalid digest \"", name, "\"", (char *) NULL);
return TCL_ERROR;
|
| ︙ | | |
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
|
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
|
-
+
|
* None.
*
*-------------------------------------------------------------------
*/
int MacInfo(Tcl_Interp *interp, Tcl_Obj *nameObj) {
Tcl_Obj *resultObj;
int res = TCL_OK;
char *name = Tcl_GetStringFromObj(nameObj, (Tcl_Size *) NULL);
char *name = Tcl_GetString(nameObj);
if (strcmp(name, "cmac") != 0 && strcmp(name, "hmac") != 0) {
Tcl_AppendResult(interp, "Invalid MAC \"", name, "\"", (char *) NULL);
return TCL_ERROR;
}
/* Get properties */
|
| ︙ | | |
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
|
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
|
-
+
|
* None.
*
*-------------------------------------------------------------------
*/
int PkeyInfo(Tcl_Interp *interp, Tcl_Obj *nameObj) {
Tcl_Obj *resultObj;
int res = TCL_OK;
char *name = Tcl_GetStringFromObj(nameObj, (Tcl_Size *) NULL);
char *name = Tcl_GetString(nameObj);
EVP_PKEY *pkey = NULL;
if (pkey == NULL) {
Tcl_AppendResult(interp, "Invalid public key method \"", name, "\"", (char *) NULL);
return TCL_ERROR;
}
|
| ︙ | | |
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
|
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
|
-
+
|
/* Validate arg count */
if (objc != 2) {
Tcl_WrongNumArgs(interp, 1, objv, "name");
return TCL_ERROR;
}
name = Tcl_GetStringFromObj(objv[1], NULL);
name = Tcl_GetString(objv[1]);
if (!OSSL_PROVIDER_try_load(NULL, (const char *) name, 1)) {
Tcl_AppendResult(interp, GET_ERR_REASON(), (char *) NULL);
return TCL_ERROR;
}
return TCL_OK;
}
|
| ︙ | | |