Listing 1: Retrieval Code for SQL Server 2000

DECLARE @ContentOfEncryptedObject 
   NVARCHAR(4000)
DECLARE @ObjectCodeLength INT

SELECT @ContentOfEncryptedObject = ctext,
       @ObjectCodeLength = 
          DATALENGTH(ctext)/2
FROM syscomments
WHERE id = object_id('dbo.uspMyEncProc')