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