create or replace procedure reg(x varchar2)
as

scap NUMBER(2);
v1 varchar2(200);
v2 varchar2(200);


re VARCHAR2(50) := x;
i number(2):=1;
len NUMBER(2) := LENGTH(SUBSTR(re, 1, instr(re, '_', 1, 1) -1));

phone_no VARCHAR2(10) := SUBSTR(re, instr(re, '_', 1, 1) + 1, instr(re, '_', 1, 2) -1 -instr(re, '_', 1, 1));

bd VARCHAR2(10) := SUBSTR(SUBSTR(re, instr(re, '_', 1, 2) + 1), 1, 2) || '-' || SUBSTR(SUBSTR(re, instr(re, '_', 1, 2) + 1), 3, 2) ||

'-' || SUBSTR(SUBSTR(re, instr(re, '_', 1, 2) + 1), 5, 4);

BEGIN

while i < len LOOP
IF SUBSTR(re, i, 1) = UPPER(SUBSTR(re, i, 1)) THEN
scap := instr(re,SUBSTR(re, i, 1));
end if;
i := i + 1;
END LOOP;
v1:= SUBSTR(re, 1, scap -1) ;
v2:= substr(re,scap,instr(re,'_',1,1) - scap);

INSERT INTO test2 VALUES(v1|| ' '||v2, bd, phone_no);
END;

هذا البرسيجر يعمل على التشفير كيف بدي فك تشفيره طريقة عمل ياخذ كل رمز على حده وياخذ الاسكي كود له وثم يضربه برقم موقعه يعني مثلا
ABC>>>>>65656613267201
يعني ACII CODE CONCATRINATION ASCII CODE *POSITION

تم تعديل 13 نوفمبر 201213 سنة بواسطة mohammad badarneh

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

استخدم خاصية البحث هناك مشاركة سابقة في هذا الموضوع