| ︙ | | |
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
|
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
|
-
+
-
|
*-------------------------------------------------------------------
*/
int DigestInitialize(Tcl_Interp *interp, DigestState *statePtr, Tcl_Obj *digestObj,
Tcl_Obj *cipherObj, Tcl_Obj *keyObj, Tcl_Obj *macObj) {
int res = 0, type = statePtr->format & 0xFF0;
const EVP_MD *md = NULL;
const EVP_CIPHER *cipher = NULL;
const void *key = NULL, *iv = NULL, *salt = NULL;
const void *key = NULL;
Tcl_Size key_len = 0;
(void *) macObj;
|
| ︙ | | |
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
|
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
|
-
+
|
dprintf("Called");
switch(statePtr->format & 0xFF0) {
case TYPE_MD:
res = EVP_DigestUpdate(statePtr->ctx, buf, (size_t) read);
break;
case TYPE_HMAC:
res = HMAC_Update(statePtr->hctx, buf, (size_t) read);
res = HMAC_Update(statePtr->hctx, (const unsigned char *) buf, (size_t) read);
break;
case TYPE_CMAC:
res = CMAC_Update(statePtr->cctx, buf, (size_t) read);
break;
}
if (!res && do_result) {
|
| ︙ | | |
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
|
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
|
-
+
+
+
+
|
if (!(statePtr->flags & CHAN_EOF)) {
Tcl_Channel parent = Tcl_GetStackedChannel(statePtr->self);
Tcl_Obj *resultObj;
Tcl_Size written, toWrite;
if (DigestFinalize(statePtr->interp, statePtr, &resultObj) == TCL_OK) {
unsigned char *data = Tcl_GetByteArrayFromObj(resultObj, &toWrite);
written = Tcl_WriteRaw(parent, data, toWrite);
written = Tcl_WriteRaw(parent, (const char *) data, toWrite);
if (written != toWrite) {
/* Error */
}
Tcl_DecrRefCount(resultObj);
}
statePtr->flags |= CHAN_EOF;
}
/* Clean-up */
DigestStateFree(statePtr);
|
| ︙ | | |
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
|
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
|
-
+
|
/* Abort if nothing to process */
if (toWrite <= 0 || statePtr->self == (Tcl_Channel) NULL) {
return 0;
}
/* Update hash function */
if (DigestUpdate(statePtr, buf, (Tcl_Size) toWrite, 0) != TCL_OK) {
if (DigestUpdate(statePtr, (char *) buf, (Tcl_Size) toWrite, 0) != TCL_OK) {
Tcl_SetChannelError(statePtr->self, Tcl_ObjPrintf("Update failed: %s", GET_ERR_REASON()));
*errorCodePtr = EINVAL;
return 0;
}
return toWrite;
}
|
| ︙ | | |
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
|
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
|
-
+
|
*
*-------------------------------------------------------------------
*/
int DigestInstanceObjCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) {
DigestState *statePtr = (DigestState *) clientData;
int fn;
Tcl_Size data_len = 0;
char *data = NULL;
unsigned char *data = NULL;
static const char *instance_fns [] = { "finalize", "update", NULL };
dprintf("Called");
/* Validate arg count */
if (objc < 2 || objc > 3) {
Tcl_WrongNumArgs(interp, 1, objv, "function ?data?");
|
| ︙ | | |
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
|
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
|
-
+
|
data = Tcl_GetByteArrayFromObj(objv[2], &data_len);
} else {
Tcl_WrongNumArgs(interp, 1, objv, "update data");
return TCL_ERROR;
}
/* Update hash function */
if (DigestUpdate(statePtr, data, data_len, 1) != TCL_OK) {
if (DigestUpdate(statePtr, (char *) data, data_len, 1) != TCL_OK) {
return TCL_ERROR;
}
} else {
/* Finalize hash function and calculate message digest */
if (DigestFinalize(interp, statePtr, NULL) != TCL_OK) {
return TCL_ERROR;
|
| ︙ | | |
1030
1031
1032
1033
1034
1035
1036
1037
1038
1039
1040
1041
1042
1043
1044
1045
1046
1047
1048
1049
1050
1051
1052
1053
1054
1055
1056
1057
1058
1059
1060
1061
1062
1063
1064
1065
|
1032
1033
1034
1035
1036
1037
1038
1039
1040
1041
1042
1043
1044
1045
1046
1047
1048
1049
1050
1051
1052
1053
1054
1055
1056
1057
1058
1059
1060
1061
1062
1063
1064
1065
1066
1067
|
-
+
-
+
|
* Side effects:
* Sets result to message digest or error message
*
*-------------------------------------------------------------------
*/
int DigestDataHandler(Tcl_Interp *interp, Tcl_Obj *dataObj, Tcl_Obj *digestObj,
Tcl_Obj *cipherObj, int format, Tcl_Obj *keyObj, Tcl_Obj *macObj) {
char *data;
unsigned char *data;
Tcl_Size data_len;
DigestState *statePtr;
dprintf("Called");
/* Get data */
data = Tcl_GetByteArrayFromObj(dataObj, &data_len);
if (data == NULL) {
Tcl_SetResult(interp, "No data", NULL);
return TCL_ERROR;
}
/* Create state data structure */
if ((statePtr = DigestStateNew(interp, format)) == NULL) {
Tcl_AppendResult(interp, "Memory allocation error", (char *) NULL);
return TCL_ERROR;
}
/* Calc Digest */
if (DigestInitialize(interp, statePtr, digestObj, cipherObj, keyObj, macObj) != TCL_OK ||
DigestUpdate(statePtr, data, data_len, 1) != TCL_OK ||
DigestUpdate(statePtr, (char *) data, data_len, 1) != TCL_OK ||
DigestFinalize(interp, statePtr, NULL) != TCL_OK) {
DigestStateFree(statePtr);
return TCL_ERROR;
}
/* Clean-up */
DigestStateFree(statePtr);
|
| ︙ | | |
1116
1117
1118
1119
1120
1121
1122
1123
1124
1125
1126
1127
1128
1129
1130
|
1118
1119
1120
1121
1122
1123
1124
1125
1126
1127
1128
1129
1130
1131
1132
|
-
+
|
goto done;
}
/* Read file data and update hash function */
while (!Tcl_Eof(chan)) {
Tcl_Size len = Tcl_ReadRaw(chan, (char *) buf, BUFFER_SIZE);
if (len > 0) {
if ((res = DigestUpdate(statePtr, &buf[0], len, 1)) != TCL_OK) {
if ((res = DigestUpdate(statePtr, (char *) &buf[0], len, 1)) != TCL_OK) {
goto done;
}
}
}
/* Finalize hash function and calculate message digest */
res = DigestFinalize(interp, statePtr, NULL);
|
| ︙ | | |