Algoritmia - Validacion CUIT

Necesito un algoritmo para validar el número de CUIT.

Se les agradeceria cualquier informacion.

Atentamente,

Marcelo

Necesitaria que me enviaran un algoritmo de validacion de Nº de CUIT para implementarlo en un programa.
desde ya muchas gracias.

Esta es una funcion escrita en Foxpro que valida el CUIT.
*------------------------------------------------
FUNCTION _ValCUIT
*------------------------------------------------
* Valida número de CUIT o CUIL
* USO: _ValCUIT(<99-99999999-9>)
* RETORNA: Lógico
*------------------------------------------------
LOCAL lnSuma, llRet
IF EMPTY(tcCuit)
llRet = .T.
ELSE
IF TYPE('tcCuit') = 'C' AND LEN(tcCuit) = 13
lnSuma= VAL(SUBS(tcCUIT,11,1))*2 + VAL(SUBS(tcCUIT,10,1))*3 + ;
VAL(SUBS(tcCUIT,9,1))*4 + VAL(SUBS(tcCUIT,8,1))*5 + ;
VAL(SUBS(tcCUIT,7,1))*6 + VAL(SUBS(tcCUIT,6,1))*7 + ;
VAL(SUBS(tcCUIT,5,1))*2 + VAL(SUBS(tcCUIT,4,1))*3 + ;
VAL(SUBS(tcCUIT,2,1))*4 + VAL(SUBS(tcCUIT,1,1))*5
llRet = VAL(SUBS(tcCUIT,13,1)) = ;
IIF(MOD(lnSuma,11)=0 ,0 , 11-MOD(lnSuma,11))
ELSE
*--- No es Char o la cadena no tiene el largo necesario
llRet = .F.
ENDIF
ENDIF
RETURN llRet
ENDFUNC

No se si anda porque no la probe, esta tomada de la pagina de Mundo Fox.
Prueban y me cuentan...