Algoritmia - Digito de chequeo

Necesito calcular el numero de chequeo de un nit o rut... la estrucutura es la siguiente:

455899456 X

este valor X es el que deso calcular, se supone que es ql que me permite verificar que el numero (455899456) del nit o rut esta bien digitado.

Mil gracias.
JH

La sgte es una rutina de dig. de chequeo hecha en PL/SQL (Oracle)
Nota: Ignora la funcion PUNTO, solo valida que no existan letras en el nit.

FUNCTION digito (nit_actual in varchar2) RETURN char IS
i number;
j number;
acum number(16);
dig number;
p number;
pesos char(24);
long number;
digito char(1);
BEGIN
if nit_actual is not null then
if punto(nit_actual) then
acum:=0;
pesos:='030713171923293741434753';
long:=length(nit_actual);
For i in 1..long loop
j := 2*i-1;
p := nvl(to_number(substr(pesos,j,2)),1);
j := long-i+1;
dig := to_number(substr(nit_actual,j,1));
acum := acum + dig*p;
End Loop;
acum:=acum mod 11;
if (acum != 0 and acum != 1) then
acum:=11-acum;
end if;
digito:=to_char(acum);
return(digito);
else
return('*');
end if;
else
return('*');
end if;
End;