¿Quién me puede dar una mano con UN PROYECTO DE ORACLE ayuda !!!!?

Hola como estan por favor alguien que me pueda dar una mano con este proyecto no he tenido tiempo de practicar ORACLE alguién que por favor sea un buen samaritano???? YO creo que cuando un humano esta al servicio de los semejantes esta al servicio de Dios.

ALGORITMO DE ENCRIPTACIÓN
Elaborar una función que permita cifrar datos numéricos y alfanuméricos. Como parte de su documento,
debe proporcionar un detalle del algoritmo utilizado para la cifrado de los datos.
PROCEDIMIENTOS Y FUNCIONES DE CADENA
Crear las siguientes funciones y procedimientos para el tratamiento de cadenas.
Procedimientos y funciones de cadena
Procedimiento    Función
Delete       Concat
Insert       Copy
Pos

Procedimiento Delete
Delete borra o elimina una subcadena de una cadena contenida en otra cadena de mayor longitud.
Formato :
Delete (s, posición, número)
S Cadena original o fuente
Posición Expresión entera que indica la posición
del primer carácter a suprimir.
Número Cantidad de caracteres a suprimir.
Si posición es mayor que la longitud de la cadena, no se borra ningún carácter. Si número especifíca más
caracteres que los existentes desde la posición inicial hasta el final de la cadena, sólo se borran tantos caracteres
como estén en la cadena.
Ejemplo :
Cad := 'Tecnológico'
Delete(cad,1,5)
Resulta la cadena 'lógico'
Procemiento Insert

Insert inserta una subcadena en una cadena.
Formato :
Insert (cad1, s, posición)
cad1 cadena a insertar
s cadena donde se inserta
posición carácter a partir del cual se inserta
Ejemplo:
cad:= 'México '
Insert (' lindo y querido',cad,7)
Resulta 'México lindo y querido'
Función Concat
Además del uso de '+' para la concatenación, Turbo Pascal tiene la función concat que permite concatenar una
secuencia de caracteres.
Formato:
Concat (S1,S2,...,Sn)
S1,S2...cadenas o variables de

caracteres (expresión tipo cadena)
Ejemplo :
cad1:='Hola como ';
cad2:='Estas ';
destino:=Concat(cad1,cad2,', estoy bien')
Esto produce una cadena destino igual a 'Hola como estas, estoy bien'
Función Copy
Esta función devuelve una cadena de caracteres (subcadena) extraída de una cadena.
Formato:
Copy(s,posición,número)
s cadena (fuente)
posición primer carácter a extraer (tipo entero)
número total de caracteres a extraer (tipo entero)
Si posición es mayor que la longitud de S, se devuelve una cadena vacía; si número especifíca más caracteres que
los indicados desde posición, sólo se devuelve el resto de la cadena.
Ejemplo:

cad := 'Instituto Tecnológico de La Paz';
cad2 := Copy(cad,26,6);
Lo que produce la cadena 'La Paz' contenida en cad2.
Función Pos
Esta función permite determinar si una cadena está contenida en otra. En este caso, la función devuelve la
posición donde comienza la cadena buscada en la cadena fuente, si la cadena no existe, se devuelve el resultado
0.
Formato :
Pos (cadena buscada, cadena fuente)
Ejemplo:
cad:= 'uno dos tres cuatro cinco seis';
Pos('dos',cad);
{Resulta 5 que es la posición de 'd'}
Pos('ocho',cad);
{Resulta 0 no existe la cadena 'ocho'}