view release on metacpan or  search on metacpan

lib/Net/SSH/Perl/Key/Ed25519.xs  view on Meta::CPAN

			data[4 * i ] = cdata[i] & 0xff;
		}
		RETVAL = newSVpvn ((char *) data, datalen);
	}
OUTPUT:
	RETVAL

void
ed25519_generate_keypair (secret)
	SV *secret
PPCODE:
	{
		STRLEN secret_l; unsigned char *secret_p;

		unsigned char public_key[32];
		unsigned char private_key[64];

		secret_p = (unsigned char *)SvPVbyte (secret, secret_l);

		if (secret_l != 32)
			croak ("secret has wrong length (!= 32)");