Skip to main content

Encrypt all Stored Proceedure ...

There are situations where we would have written lots of stored procedure for a project. If at all we want to encrypt all the SPs at one shot, as of now we don't have any build-in function or tool to do that. The below SP does that with the help of "Cursor".

This SP is intelligent (!!) enough to encrypt all Stored procs within the current database except itself.

There is no "easy" way to decrypt the encrypted procedures. So it is always advisable to generate scripts of ALL SPs before executing the below piece of code. Also this code snippet would only work for those SPs whose content are within 8000 characters.

Create procedure uspEncryptAllSP
As
Declare @procName varchar(255),
@procContent varchar(8000),
@sqlQuery varchar(8000)

Set nocount on

Declare curEncrypt cursor for
Select
so.name,
sc.text
From
Sysobjects so,
Syscomments sc
Where
sc.id=so.id and
so.type ='p' and
so.category=0 and
so.name <> 'uspEncryptAllSP' and
sc.encrypted=0

Open curEncrypt
Fetch next from curEncrypt into @procName, @procContent

While @@Fetch_Status = 0
Begin

Print 'Encrypting the Stored Procedure: ' + @procName
Execute ('drop procedure ' + @procName)

Set @sqlQuery = Replace(@procContent, 'Create procedure ' + @procName, 'Create procedure ' + @procName + ' With Encryption')
Execute (@sqlQuery)

Fetch next from curEncrypt into @procName, @procContent

End
Close curEncrypt
Deallocate curEncrypt

Print 'Mission Completed !!!'
Go

We can still improve this code by putting the main logic within transaction. So that if at due to some reasons the procedure is deleted but could not be recreated with encryption we could roll back.

Comments

Anonymous said…
Hello,

To remove the 8000 limit could you use varcharmax instead of varchar?

I guess that would only be for SQL Server 2005 and above though
Rich said…
This script will not work with stored procedures which define parameters.
Anonymous said…
This script will not function with stored procedures which define parameters. Replace on ' AS ' with ' with encryption as ' instead.
magnus said…
Dangerous to replace ' AS ' since that can be used in many other places. As in SELECT columnName AS 'otherName'
Unknown said…
This code is not working in procedures having input and ouptut parameters

Popular posts from this blog

Registry manipulation from SQL

Registry Manupulation from SQL Server is pretty easy. There are 4 extended stored procedure in SQL Server 2000 for the purpose of manupulating the server registry. They are: 1) xp_regwrite 2) xp_regread 3) xp_regdeletekey 4) xp_regdeletevalue Let us see each one of them in detail! About xp_regwrite This extended stored procedure helps us to create data item in the (server’s) registry and we could also create a new key. Usage: We must specify the root key with the @rootkey parameter and an individual key with the @key parameter. Please note that if the key doesn’t exist (without any warnnig) it would be created in the registry. The @value_name parameter designates the data item and the @type the type of the data item. Valid data item types include REG_SZ and REG_DWORD . The last parameter is the @value parameter, which assigns a value to the data item. Let us now see an example which would add a new key called " TestKey ", and a new data item under it called TestKeyValue :

Screen scraping using XmlHttp and Vbscript ...

I wrote a small program for screen scraping any sites using XmlHttp object and VBScript. I know I haven't done any rocket science :) still I thought of sharing the code with you all. XmlHttp -- E x tensible M arkup L anguage H ypertext T ransfer P rotocol An advantage is that - the XmlHttp object queries the server and retrieve the latest information without reloading the page. Source code: < html > < head > < script language ="vbscript"> Dim objXmlHttp Set objXmlHttp = CreateObject("Msxml2.XMLHttp") Function ScreenScrapping() URL == "UR site URL comes here" objXmlHttp.Open "POST", url, False objXmlHttp.onreadystatechange = getref("HandleStateChange") objXmlHttp.Send End Function Function HandleStateChange() If (ObjXmlHttp.readyState = 4) Then msgbox "Screenscrapping completed .." divShowContent.innerHtml = objXmlHttp.responseText End If End Function </ script > < head > < body > &l

Script table as - ALTER TO is greyed out - SQL SERVER

One of my office colleague recently asked me why we are not able to generate ALTER Table script from SSMS. If we right click on the table and choose "Script Table As"  ALTER To option would be disabled or Greyed out. Is it a bug? No it isn't a bug. ALTER To is there to be used for generating modified script of Stored Procedure, Functions, Views, Triggers etc., and NOT for Tables. For generating ALTER Table script there is an work around. Right click on the table, choose "Modify" and enter into the design mode. Make what ever changes you want to make and WITHOUT saving it right click anywhere on the top half of the window (above Column properties) and choose "Generate Change Script". Please be advised that SQL Server would drop actually create a new table with modifications, move the data from the old table into it and then drop the old table. Sounds simple but assume you have a very large table for which you want to do this! Then it woul