انا بحاجه لخوارزميه بسيطه لتشفير وفك التشفير للباسورد في الاوراكل pl\sql؟

جرب دي هي موجوده معايا في اسكريبت بصراحه ومجربتهاش هي عباره عن باكيدج فيها 2 فانكشن واحده للتشفير والتانيه لالغاء التشفير

CREATE OR REPLACE PACKAGE PASSWORD AS
function encrypt(i_password varchar2) return varchar2;
function decrypt(i_password varchar2) return varchar2;
END PASSWORD;
/
show errors


CREATE OR REPLACE PACKAGE BODY PASSWORD AS


-- key must be exactly 8 bytes long
c_encrypt_key varchar2(8) := 'key45678';

function encrypt (i_password varchar2) return varchar2 is
v_encrypted_val varchar2(38);
v_data		 varchar2(38);

begin
 -- Input data must have a length divisible by eight
 v_data := RPAD(i_password,(TRUNC(LENGTH(i_password)/8)+1)*8,CHR(0));

 DBMS_OBFUSCATION_TOOLKIT.DESENCRYPT(
 input_string	 => v_data,

 key_string	 => c_encrypt_key,
 encrypted_string => v_encrypted_val);
 return v_encrypted_val;
end encrypt;

function decrypt (i_password varchar2) return varchar2 is
v_decrypted_val varchar2(38);

begin
 DBMS_OBFUSCATION_TOOLKIT.DESDECRYPT(
 input_string	 => i_password,
 key_string	 => c_encrypt_key,
 decrypted_string => v_decrypted_val);
 return v_decrypted_val;

end decrypt;


end PASSWORD;
/
show errors

السلام عليكم ورحمة الله وبركاته
http://mahmoudoracle.blogspot.com/2012/05/encrypt-and-decrypt-passworda-in.html
بالتوفيق

السلام عليكم ورحمة الله وبركاته
في دالة بسيطة قمت بإنشائها ممكن تفيدك

CREATE OR REPLACE
FUNCTION AZ123 (P_WORD IN VARCHAR2)
RETURN VARCHAR2 AS
R CHAR;
RR VARCHAR2(100);
BEGIN
 FOR I IN 1 .. LENGTH(P_WORD)
 LOOP
 SELECT CHR(ASCII(SUBSTR(P_WORD,I,1))+100) INTO R FROM DUAL;
 RR:=RR||R;
 END LOOP;
 RETURN RR;
END AZ123;
/

لتنفيذها استخدم الكود التالي

select AZ123('PASSWORD HERE') from dual;

وهذا مثال

select AZ123('ABDELAZIZ') from dual;

الناتج

AZ123('ABDELAZIZ')
------------------
¥¦¨©°¥¾­¾

بالتوفيق

ولعمل العملية العكسية (فك التشفير)
استخدم نفس الدالة ولكن غير الجملة التالية فقط

SELECT CHR(ASCII(SUBSTR(P_WORD,I,1))+100) INTO R FROM DUAL;

بـ

SELECT CHR(ASCII(SUBSTR(P_WORD,I,1))-100) INTO R FROM DUAL;

وهذا عكس المثال السابق

select AZ123('¥¦¨©°¥¾­¾') from dual;

والناتج

AZ123('¥¦¨©°¥¾­¾')
------------------
ABDELAZIZ

تم تعديل 6 نوفمبر 201213 سنة بواسطة az123

الله يجزيك الخير يا اخي العزيز

شكرا كثيرا يا اخي