Commit f5e52803b68f832080c0de06b63bf80960a4b1a8 - libcryptx-perl

OCB - blocksize is obsolete Karel Miko 6 years ago

2 changed file(s) with 6 addition(s) and 14 deletion(s). Raw diff Collapse all Expand all

-13

inc/CryptX_AuthEnc_OCB.xs.inc less more

73	73	RETVAL = newSVpvn("", 0);
74	74	}
75	75	else {
76		if (in_data_len % (&self->state)->block_len) {
77		croak ("FATAL: sizeof(data) should be multiple of blocksize (%d)", (&self->state)->block_len);
	76	if (in_data_len % 16) {
	77	croak ("FATAL: sizeof(data) should be multiple of 16");
78	78	}
79	79	RETVAL = NEWSV(0, in_data_len);
80	80	SvPOK_only(RETVAL);

134	134	RETVAL = newSVpvn("", 0);
135	135	}
136	136	else {
137		if (in_data_len % (&self->state)->block_len) {
138		croak ("FATAL: sizeof(data) should be multiple of blocksize (%d)", (&self->state)->block_len);
	137	if (in_data_len % 16) {
	138	croak ("FATAL: sizeof(data) should be multiple of 16");
139	139	}
140	140	RETVAL = NEWSV(0, in_data_len);
141	141	SvPOK_only(RETVAL);

225	225	}
226	226	}
227	227	}
228
229		int
230		blocksize(Crypt::AuthEnc::OCB self)
231		CODE:
232		{
233		RETVAL = (&self->state)->block_len;
234		}
235		OUTPUT:
236		RETVAL

-1

lib/Crypt/AuthEnc/OCB.pm less more

52	52
53	53	# obsolete, only for backwards compatibility
54	54	sub aad_add { goto &adata_add }
	55	sub blocksize { return 16 }
55	56
56	57	1;
57	58

160	161
161	162	#BEWARE: size of $ciphertext has to be multiple of blocklen (16 for AES)
162	163
163		=head2 encrypt_last
	164	=head2 decrypt_last
164	165
165	166	$plaintext = $ae->decrypt_last($data);
166	167