/*本次修改增加了unicode的支持，但是加密后依然显示为16进制数据，因为进行RSA加密后所得到的unicode编码是无法显示的，所以密文依然采用16进制数据显示。
需要特别注意：如果要对中文进行加密，那么所选取的两个素数要比较大，两个素数的成绩最好要大于65536，即大于unicode的最大编码值
在SQL SERVER中实现RSA加密算法(第二版)
--判断是否为素数
if object_id(’f_primeNumTest’) is not null
drop function f_primeNumTest
go
create function [dbo].[f_primeNumTest]
(@p int)
returns bit
begin
declare @flg bit,@i int
select @flg=1, @i=2
while @i<sqrt(@p)
begin
if(@p%@i=0 )
begin
set @flg=0
break
end
set @i=@i+1
end
return @flg
end
go
--判断两个数是否互素
if object_id(’f_isNumsPrime’) is not null
drop function f_isNumsPrime
go
create function f_isNumsPrime
(@num1 int,@num2 int)
returns bit
begin
declare @tmp int,@flg bit
set @flg=1
while (@num2%@num1<>0)
begin
select @tmp=@num1,@num1=@num2%@num1,@num2=@tmp
end
if @num1=1
set @flg=0
return @flg
end
go
--产生密钥对
if object_id(’p_createKey’) is not null
drop proc p_createKey
go
create proc p_createKey
@p int,@q int
as
begin
declare @n bigint,@t bigint,@flag int,@d int
if dbo.f_primeNumTest(@p)=0
begin
print cast(@p as varchar)+’不是素数，请重新选择数据’
return
end
if dbo.f_primeNumTest(@q)=0
begin
print cast(@q as varchar)+’不是素数，请重新选择数据’
return
end
print ’请从下列数据中选择其中一对，作为密钥’
select @n=@p*@q,@t=(@p-1)*(@q-1)
declare @e int
set @e=2
while @e<@t
begin
if dbo.f_isNumsPrime(@e,@t)=0
begin
set @d=2
while @d<@n
begin
if(@e*@d%@t=1)
print cast(@e as varchar)+space(5)+cast(@d as varchar)
set @d=@d+1
end
end
set @e=@e+1
end
end
/*加密函数说明，@key 为上一个存储过程中选择的密码中的一个 ,@p ,@q 产生密钥对时选择的两个数。获取每一个字符的unicode值，然后进行加密，产生3个字节的16位数据*/
if object_id(’f_RSAEncry’) is not null
drop function f_RSAEncry
go
create function f_RSAEncry
(@s varchar(100),@key int ,@p int ,@q int)
returns nvarchar(4000)
as
begin
declare @crypt varchar(8000)
set @crypt=’’
while len(@s)>0
责任编辑：小草
