trabalho de banco de dados

TRABALHO NP2
REQUISITOS:
O trabalho deve ser entgregue impresso no próximo dia 01/11/2013. E valerá até 2 pontos para a segunda avaliação. Segue o algoritmo: Deve ser feito um script para receber uma matricula que contém 6 dígito e um dígito verificador.
Para exemplificar o processo temos uma matrícula 957123-1. O dígito verificador é calculado em funcão dos seis dígitos e com base na regra definida a seguir.
Calculando o Dígito Verificador

EXECUÇÃO E EXPLICAÇÃO
Deve ser pesquisada a função matemática mod que encontra o resto da divisão de dois números, deve utilizar acumulador, len() e mid().

FAREC – FACULDADE DO RECIFE
CURSO DE GERENCIAMENTO DE REDES DE COMPUTADORES – 2013-2
ALUNOS: ADRIANO DE MOURA VIERA
DATA : 25/10/2013

CRIAÇÃO DO ARQUIVO FUNCOES CRIPTOGRAFIA.VBS

if ValidatematriculaNew(InputBox("Digite a sua matricula.","Informe.")) = False then msgbox "matricula Inválida." else msgbox "matricula Válida." end if

function ValidatematriculaNew(matricula) Dim multiplic1, multiplic2 multiplic1=Array(10, 9, 8, 7, 6, 5, 4, 3, 2) multiplic2=Array(11, 10, 9, 8, 7, 6, 5, 4, 3, 2 ) Dim tempmatricula,digit,sum,remainder,i,RegXP matricula = Trim(matricula) matricula = Replace(matricula,".", "") matricula = Replace(matricula,"-", "") if (Len(matricula) 11) Then ValidatematriculaNew = false else tempmatricula = Left (matricula, 9) sum = 0

Dim intCounter Dim intLen Dim arrChars()

intLen = Len(tempmatricula)-1 redim arrChars(intLen)

For intCounter = 0 to intLen arrChars(intCounter) = Mid(tempmatricula, intCounter + 1,1) Next

i=0 For i = 0 to 8 sum =sum + CInt(arrChars(i)) * multiplic1(i) Next

remainder = sum Mod 11 If (remainder < 2) Then remainder = 0 else