数据加密与解密

原创 2006年06月05日 18:01:00

提供一种简单的数据加密与解密方法, 以下为实现函数, 其中一个为数据加密, 另一个对加密的数据解密.

--加密

create or replace function encrypt(p_in in varchar2)
return varchar2
as
    v_string_in varchar2(78);
    v_string_out varchar2(39);
    v_offset number(2);
    v_outpass varchar2(30);
begin
    v_offset:=to_number(to_char(sysdate,'ss')) mod 39;
    v_string_in:='YN8K1JOZVYRB3MDETS5GPL27AXWIHQ94C6F0#$_';
    v_string_out:='_$#ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789';
    v_outpass:=substr(v_string_in,v_offset,1);
    v_string_in:=v_string_in||v_string_in;
    v_string_in:=substr(v_string_in,v_offset,39);
    v_outpass:=v_outpass||translate(upper(p_in),v_string_in,v_string_out);

    return v_outpass;
end;
/

 

--解密

create or replace function decrypt(p_in in varchar2)
return varchar2
as
    v_string_in varchar2(78);
    v_string_out varchar2(39);
    v_offset number(2);
    v_outpass varchar2(30);
begin
   
    v_string_in:='YN8K1JOZVYRB3MDETS5GPL27AXWIHQ94C6F0#$_';
    v_string_out:='_$#ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789';
    --v_offset:=to_number(to_char(sysdate,'ss')) mod 39;
    v_offset:=instr(v_string_in,substr(p_in,1,1));
    --v_outpass:=substr(v_string_in,v_offset,1);
    v_string_in:=v_string_in||v_string_in;
    v_string_in:=substr(v_string_in,v_offset,39);
    v_outpass:=v_outpass||translate(upper(p_in),v_string_in,v_string_out);
    v_outpass:=translate(upper(substr(p_in,2)),v_string_out,v_string_in);
    return v_outpass;
end;

 

#   Dinya  

基于C#的数据加密、解密示例

  • 2012年01月05日 21:45
  • 14KB
  • 下载

DES数据加密解密(已测试)

  • 2011年02月24日 17:02
  • 3KB
  • 下载

C语言直接对数据加密解密

/*根据密码表进行数据加密/解密的代码(纯C书写)*/ /* 数据加密, 解密程序 by Flying Blue 081130 */ /* 这个程序是为我的游戏进行数据加密用的, 现在...

JAVA数据加密解密的实例+Java源码

  • 2016年07月19日 16:49
  • 10KB
  • 下载

常用数据加密和解密方法汇总

一、            数据加密的概念 1、  基本概念 2、  基本功能 3、  加密形式  二、            数据加密的项目应用和学习 1、  媒体加密:DRM 2、  ...

JAVA数据加密解密的实例+

  • 2016年06月14日 13:33
  • 11KB
  • 下载

常用的数据加密和解密方法汇总

ASP.NET(C#)常用数据加密和解密方法汇总  一、            数据加密的概念 1、  基本概念 2、  基本功能 3、  加密形式  二、            数据加密的项目应用和...

.net数据加密解密案例

  • 2013年01月31日 13:28
  • 37KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:数据加密与解密
举报原因:
原因补充:

(最多只允许输入30个字)