PACKAGE BODY: APPS.XDP_CRYPT_TOOLS

Source

1 PACKAGE BODY XDP_CRYPT_TOOLS AS
2 /* $Header: XDPCRPTB.pls 120.2 2006/04/10 23:20:30 dputhiye noship $ */
3 
4 
5 Function getprivatekey return varchar2;
6 
7 Function Convbin(c1 in char) return char
8 IS
9  loop1 number;
10  value number;
11  divis number;
12  r1 varchar2(30);
13 
14 BEGIN
15  r1 := '';
16  value := ascii(c1);
17  divis := 128;
18   for loop1 in 0..7 loop
19    if trunc(value/divis) = 1 then
20      r1 := r1 || '1';
21    else
22    r1 := r1 || '0';
23    end if;
24   value := value mod divis;
25   divis := divis / 2;
26  end loop;
27  return r1;
28 END Convbin;
29 
30 Function getprivatekey  return varchar2
31 IS
32  haha varchar2(40);
33  huh varchar2(40);
34  temp varchar2(80);
35  gee varchar2(80);
36 
37 BEGIN
38    haha := 'WOANGIRUNSO';
39    gee := '897456HE89FDGN8945';
40    gee := '789Y45GBNR57IBFY89';
41    huh := 'KJGIHNDFSDOIJG';
42 
43    temp := haha || huh;
44    return temp;
45 END getprivatekey;
46 
47 Function XORBIN(c1 in char, c2 in char) return char
48 IS
49  loop1 number;
50  loop11 number;
51  r1 varchar2(8);
52  r2 varchar2(8);
53  r3 number;
54  result varchar2(40);
55  divis number;
56 
57 BEGIN
58  result := '';
59   for loop1 in 1..length(c1) loop
60    r1 := convbin(substr(c1,loop1,1));
61    r2 := convbin(substr(c2,loop1,1));
62    divis := 128;
63    r3 := 0;
64     for loop11 in 1..8 loop
65      if to_number(substr(r1,loop11,1))+to_number(substr(r2,loop11,1))=1
66      then
67        r3 := r3 + divis;
68      end if;
69      divis := divis / 2;
70     end loop;
71    result := result || fnd_global.local_chr(r3);
72   end loop;
73  return(result);
74 end XORBIN;
75 
76 
77 
78 
79 Function GetKey(key in varchar2)  return varchar2
80 IS
81  temp varchar2(80);
82  hmm varchar2(40);
83  uhuh varchar2(40);
84 
85  gee varchar2(80);
86 
87  hehe varchar2(80);
88 BEGIN
89  hmm := 'MGDGDDNDFGDIUH';
90 
91  /* this is ajust junk */
92  gee := 'GKFDFKJKDKJDFKDFGD';
93  gee := '89NJIGF78GFDB89DF';
94  uhuh := 'JKDFIUHTER';
95  gee := 'JBG9854NGDF789TDF';
96  /* This is just junk man */
97 
98  hehe := hmm || uhuh;
99  if key = hehe then
100     temp := getprivatekey;
101  else
102     temp := NULL;
103  end if;
104 
105  return temp;
106    return temp;
107 END GetKey;
108 
109 
110 Function Encrypt(target in varchar2, key in varchar2) return varchar2
111 IS
112 result varchar2(100);
113 
114 BEGIN
115  if target is NULL then
116     return NULL;
117  end if;
118  result := XORBIN(target,key);
119  return result;
120 END Encrypt;
121 
122 
123 
124 end xdp_crypt_tools;