替代密码算法的原理是使用替代法进行加密，就是将明文中的字符用其它字符替代 后形成密文。例如：明文字母a、b、c、d ，用D、E、F、G做对应替换后形成密文。

　　这里在Oracle的存储过程，通过替换加密算法来实现密码存入数据库时的加密。

　　1.--------------------------------

　　2.--------------------------------

　　3.--Oracle数据库加密----替代算法---

　　4.--

　　5.--------------------------------

　　6.CREATE OR REPLACE PROCEDURE pro_insert(

　　7. uName IN scott.users.uname%TYPE, --用户名

　　8. uPwd IN scott.users.upwd%TYPE --密码，这个要加密

　　9.) IS

　　10.BEGIN

　　11.

　　12.--定义变量

　　13.DECLARE

　　14. insertSQL nvarchar2(200 ); --一个待构造的sql语句

　　15. key numeric(2); --密钥

　　16. totalLetter numeric(2); --字母的总个数

　　17. targetCode nvarchar2(15); --转化后的字符密码表示

　　18. lengthUpwd numeric(2); --密码长度

　　19. initCodeVal numeric(3); --原始密码每位上字符对应的数值

　　20. targetCodeVal numeric(3);

　　21. BEGIN

　　22.

　　23. key := 3; --密钥赋值

　　24. totalLetter := 26; --字母总数

　　25. targetCode := ''; --转化后的字符

　　26.

　　27.

　　28. --获取初始密钥的长度

　　29. lengthUpwd := LENGTH(uPwd);

　　30. 31. --逐个对初始密钥进行加密

　　32. FOR i IN 1..lengthUpwd

　　33. LOOP

　　34.

　　35. initCodeVal := ASCII(SUBSTR(uPwd,i,1) ) -96 ;

　　36. --如果替代后的字母超过了z

　　37. targetCodeVal := MOD((initCodeVal + key), totalLetter );

　　38.

　　39. --如果是字母z

　　40. IF targetCodeVal = 0 THEN

　　41. targetCodeVal := 26;

　　42. END IF;

　　43.

　　44. targetCodeVal := targetCodeVal + 96;

　　45.

　　46. --将加密后的字符拼装

　　47. targetCode := targetCode || CHR(targetCodeVal);

　　48. END LOOP;

　　49.

　　50. --构造一个sql语句

　　51. insertSQL := 'INSERT INTO users (uName, uPwd ) VALUES('''

　　52. ||uName||''','''||targetCode||''')';

　　53. EXECUTE IMMEDIATE TO_CHAR(insertSQL);

　　54.

　　55. END;

　　56.END pro_insert;