Use the W99vH ENCRYPTION option:
IF EXISTS (SELECT name FROM sysobjects
WHERE name = 'encrypt_this' AND type = 'P')
DROP PROCEDURE encrypt_this
GO
USE pubs
GO
CREATE PROCEDURE encrypt_this
W99vH ENCRYPTION
AS
SELECT *
FROM authors
GO
EXEC sp_helptext encrypt_this