Converter PHP para ASP

[Reiner Meirielli Julia 0]

Algume poderia me ajudar na conversão deste código abaixo que é PHP para ASP??

 

 

<?php

function  geradigVerificador($nossonumero){
$coop="3007"; //com 4 caracteres
$codCliente="0000197190"; // com 10 caracteres, preencher com zeros a esquerda
$const="3197"; //constante para cálculo

if (strlen($nossonumero) < 7){
$nossonumero=str_pad($nossonumero,7,"0", STR_PAD_LEFT);
}

$n=str_split($coop.$codCliente.$nossonumero);
$d=str_split($const);
$soma=(    
($n[0]*$d[0]) +
($n[1]*$d[1]) +
($n[2]*$d[2]) +
($n[3]*$d[3]) +
($n[4]*$d[0]) +
($n[5]*$d[1]) +
($n[6]*$d[2]) +
($n[7]*$d[3]) +
($n[8]*$d[0]) +
($n[9]*$d[1]) +
($n[10]*$d[2]) +
($n[11]*$d[3]) +
($n[12]*$d[0]) +
($n[13]*$d[1]) +
($n[14]*$d[2]) +
($n[15]*$d[3]) +
($n[16]*$d[0]) +
($n[17]*$d[1]) +
($n[18]*$d[2]) +
($n[19]*$d[3]) +
($n[20]*$d[0]) );

$resto=$soma%11;

if ($resto==0 || $resto==1){
$dv=0;
} else {
$dv=11-$resto; 
}
echo $dv;

}

geradigVerificador(00000001)

?>

[lex-dmm 1]

Oi... veja ai!!

Não tive tempo pra testar, não sei se declarei todas as variáveis. Peguei um código meio parecido que tenho aqui e adaptei.

Espero que ajude.

Fé e positividade!

<%@ Language=VBScript%>
<%option explicit
response.Buffer=true
Response.Expires = -1
Response.Expiresabsolute = Now() - 1 
Response.AddHeader "pragma","no-cache" 
Response.AddHeader "cache-control","private"
Response.CacheControl = "Private" 

'O codigo = $coop.$codCliente.$nossonumero
'no asp fica
'codigo = coop & codCliente & nossonumero
dim seucodigo

function geradigVerificador(codigo)
  dim x,i
  dim resultado
  dim soma
  dim peso 'varia entre 1 e 2
  dim resto

  soma=0
  peso="3,1,9,7"
  i = 0
  peso = split(peso,",")

  for x=1 to len(codigo)

     'se o peso for igual a 7 então o indice fica zerado para recomeçar no 3
     if cint(0 & peso(i))="7" then
        i = 0
     end if

     'Aqui multiplica cada posição do código pelo peso.
     resultado = cint(mid(codigo,x,1)) * cint(0 & peso(i))
     soma = soma + resultado

     i = i + 1

  next

  'Para retornar o resto da divisão por 11
  resto = soma mod 11
  if resto = 0 or resto = 1 then
     dv = 0
  else
     dv = 11 - resto
  end if

  'Retorno do DV
  geradigVerificador = dv

end function

'mostra o DV na tela quando passar o código por parametro.
seucodigo = "30070000197190111115"
response.Write geradigVerificador(seucodigo)
%>