Re: Encryption function

From: mark tomlinson <micro_at_work.org>
Date: Thu, 28 Jan 1999 00:38:50 GMT
Message-ID: <36afb168.10756332@newshost.us.oracle.com>

Here is a PL/SQL function that you can use:

---

--

• FUNCTION ENCRYPT.sql
  --
  
• simple encryption algorithm to convert
• user name and password into a standard
• 30 character encrypted string
  --
  
• accepts as input palin text user name and plain text
• password. assures that both are between 3 and 30
• characters in length. If not, returns an error code
  --
  
• sample call line: local_answer := encrypt(user_name, password);
  --
  
• written by: Frank Greene
• Knoxville Office
  --
  

  ---

create or replace function encrypt (name_in char, password char) return char as

   l_name varchar2(30);
   l_password varchar2(30);
   l_root     number;
   l_offset   number;
   l_shift    number;
   l_answer   varchar2(30);
   l_char     varchar2(1);
   l_position number;

begin  

---

• verify inout lengths
• must be between 3 and 30 characters
• if not, return an input error code of either
• -1 (too short) or -2 (too long)

  ---

  if length(name_in) < 3 or

     length(password) < 3 then
     return '-1';

  end if;

  if length(name_in) > 30 or

     length(password) > 30 then
     return '-2';

  end if;

• capture locally

  l_name := upper(name_in);
  l_password := upper(password);

---

• make sure all characters are between uppercase A and Z
• if not, artifically convert them to new characters

  ---

  for i in 1..length(l_name) loop

     l_shift := ascii(substr(l_name, i, 1));
     if l_shift < 65 or
        l_shift > 90 then
          l_shift := 65 + mod(l_shift, 24);
     
          l_name := substr(l_name, 1, i-1) ||
                    chr(l_shift)           ||
                    substr(l_name, i+1);
     end if;
   end loop;     

  for i in 1..length(l_password) loop

     l_shift := ascii(substr(l_password, i, 1));
     if l_shift < 65 or
        l_shift > 90 then
          l_shift := 65 + mod(l_shift, 24);
     
          l_password := substr(l_password, 1, i-1) ||
                        chr(l_shift)           ||
                        substr(l_password, i+1);
     end if;

   end loop;

---

• pick up base values

  ---

  l_offset := ascii(substr(l_name, 2, 1));
  l_root   := ascii(substr(l_password, length(l_password)));
  l_shift  := ascii(substr(l_name, length(l_name)));
  l_shift  := mod(l_shift, 13);
  l_answer := l_name || l_password;

  ----------------------

• pad the output string to a length of 30 characters

  ---

  l_position := 1;

  for i in 1..30 loop

     if length(l_answer) >= 30 then
        exit;
     end if;

     l_shift := l_shift + l_offset + i;
     if l_shift > 90 then
        l_shift := mod(l_shift, 24);
        l_shift := l_shift + 65;
     end if;

     l_char := chr(l_shift);

     -- alternately place stuffing characters on 
     -- either end of password

     if l_position = 1 then
        l_answer := l_answer || l_char; 
        l_position := 0;
     else
        l_answer := l_char || l_answer;
        l_position := 1;
     end if;

  end loop;

---

• and convert the 30 character string
• to random characters

  ---

 for i in 1..30 loop

     l_shift := ascii(substr(l_answer, i, 1));

     l_shift := l_shift + l_root + i;

     if l_shift > 90 then
        l_shift := mod(l_shift, 24);
        l_shift := l_shift + 65;
     end if;

     l_answer := substr(l_answer, 1, i-1) ||
                 chr(l_shift)             ||
                 substr(l_answer, i+1);

 end loop;  

---

• thats it. return the encrypted string

  ---

 return l_answer;
end;
/ Received on Wed Jan 27 1999 - 18:38:50 CST