عبداللطيف بتاريخ: 17 مارس 2004 تقديم بلاغ مشاركة بتاريخ: 17 مارس 2004 تحياتي لكم للمهتمين في عمليات التحويل وامكانية استخدمها في عمليات التشفير لي ولكم الفائدة ان شاء الله ، فلا تنسو الدعاء لي وللجميعتحياتي محبكمTofeee====== convert betwen hexadecimal values and decimal/integer values. CREATE OR REPLACE PROCEDURE dec2hex (in_num IN NUMBER, out_hex OUT VARCHAR2) IS TYPE vc2tab_type IS TABLE OF VARCHAR2(1) INDEX BY BINARY_INTEGER; hextab vc2tab_type; v_num NUMBER; v_hex VARCHAR2(200); /* Author: Jonas Nordstrom */ BEGIN IF in_num IS NULL THEN RETURN NULL; END IF; hextab (0) := '0'; hextab (1) := '1'; hextab (2) := '2'; hextab (3) := '3'; hextab (4) := '4'; hextab (5) := '5'; hextab (6) := '6'; hextab (7) := '7'; hextab (8) := '8'; hextab (9) := '9'; hextab (10) := 'A'; hextab (11) := 'B'; hextab (12) := 'C'; hextab (13) := 'D'; hextab (14) := 'E'; hextab (15) := 'F'; v_num := in_num; WHILE v_num >= 16 LOOP v_hex := hextab (MOD (v_num, 16)) || v_hex; v_num := TRUNC (v_num / 16); END LOOP; v_hex := hextab (MOD (v_num, 16)) || v_hex; out_hex := v_hex; END; -- dec2hex / CREATE OR REPLACE FUNCTION hextointeger (h VARCHAR2) RETURN PLS_INTEGER IS BEGIN IF NVL (LENGTH (h), 1) = 1 THEN RETURN INSTR ('0123456789ABCDEF', h) - 1; ELSE RETURN 16 * hextointeger (SUBSTR (h, 1, LENGTH (h) - 1)) + INSTR ('0123456789ABCDEF', SUBSTR (h, -1)) - 1; END IF; END hextointeger; / CREATE OR REPLACE FUNCTION integertohex (n pls_integer) RETURN VARCHAR2 IS BEGIN IF n > 0 THEN RETURN integertohex (TRUNC (n / 16)) || SUBSTR ('0123456789ABCDEF', MOD (n, 16) + 1, 1); ELSE RETURN NULL; END IF; END integertohex; / والمثال بالملف المرفق dec2hex.sql اقتباس رابط هذا التعليق شارك المزيد من خيارات المشاركة
khaled بتاريخ: 17 مارس 2004 تقديم بلاغ مشاركة بتاريخ: 17 مارس 2004 مشكور اخ tofeee على الكود و الى الامام اقتباس رابط هذا التعليق شارك المزيد من خيارات المشاركة
salama11433 بتاريخ: 17 مارس 2004 تقديم بلاغ مشاركة بتاريخ: 17 مارس 2004 شكراٌ و الى الامام يارب اقتباس رابط هذا التعليق شارك المزيد من خيارات المشاركة
salama11433 بتاريخ: 17 مارس 2004 تقديم بلاغ مشاركة بتاريخ: 17 مارس 2004 اليك هذا الـLINK من هنا اقتباس رابط هذا التعليق شارك المزيد من خيارات المشاركة
John بتاريخ: 17 مارس 2004 تقديم بلاغ مشاركة بتاريخ: 17 مارس 2004 أخ Tofeee مشكور طبعا و لكن نريد فورم جاهزة تنفذ هذا ... اقتباس رابط هذا التعليق شارك المزيد من خيارات المشاركة
imad2 بتاريخ: 23 ديسمبر 2004 تقديم بلاغ مشاركة بتاريخ: 23 ديسمبر 2004 شكراً جزيلاً على المعلومات القيمة اقتباس رابط هذا التعليق شارك المزيد من خيارات المشاركة
Recommended Posts
انضم إلى المناقشة
يمكنك المشاركة الآن والتسجيل لاحقاً. إذا كان لديك حساب, سجل دخولك الآن لتقوم بالمشاركة من خلال حسابك.