transformar codigo vbsrcipt a jscript

[dbajak]

hola amigos
saben tengo una duda tremenda

necesito convertir este codigo escrito en vbscript a codigo javascript
la funcion es la sigueinte..
espero pueyan ayudarme.. muchas gracias...


Function DigVerifISO(i_sNumero)

Dim i
Dim lSuma
Dim lResto
Dim lFactor
Dim iChar
Dim aChar()
for i=0 to len(i_sNumero)-1
redim preserve aChar(i)
aChar(i)=mid(i_sNumero,i+1,1)
next

For i = 0 To ubound(aChar)
iChar = asc(aChar(i)) - 48
If iChar > 9 Then
iChar = Array(10, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 34, 35, 36, 37, 38) _
(iChar - 17)
End If
lSuma = lSuma + (iChar * 2 ^ i)
Next
lResto = lSuma Mod 11
If lResto = 10 Then lResto = 0
DigVerifISO = CStr(lResto)
End Function

[JavierB]

Hola dbajak

Ayudaría bastante que nos dijeras que es lo que quieres hacer con esa función.

Saludos,

[tunait]

dbajak, qué tipo de dato se pasa como argumento a la función?

es decir, dame un ejemplo de valor para i_sNumero de forma que al ejecutar la fución devuelva algo coherente.

si pruebo la función vbscript tal y como la tienes pasándole cualquier cadena devuelve siempre error.

un saludo

[dbajak]

tunai
es un numero que opasa como parametro....

muchas gracias..