sub sha256 
{
				my $state = _shaopen('256') or return;
				for (@_) { _shawrite($_, length($_) << 3, $state) }
				_shafinish($state);
				_sha($state);
}
push(@EXPORT_OK, 'sha256');