Código em ASP que gera o Numero de Verificação para o Mastercard e o Diners. Com este código não é necessário comunicar com nenhum componente e nem é necessário a instalação do JDK para que o numero de verificação do Redecard seja Gerado. O código estava em PHP (Gerado por: Renato Elias) e foi convertido para ASP (Fred Maielo). Este código foi implementado e esta Homologado junto à Operadora do cartão.

function CodVer(NumFiliacao,Valortotal,Numip) Data = Now() segundosAgora = Second(Data) segundosAgoraCodificados = 0 Select Case segundosAgora case 0: segundosAgoraCodificados = 11 case 1: segundosAgoraCodificados = 17 case 2: segundosAgoraCodificados = 21 case 3: segundosAgoraCodificados = 31 case 4: segundosAgoraCodificados = 56 case 5: segundosAgoraCodificados = 34 case 6: segundosAgoraCodificados = 42 case 7: segundosAgoraCodificados = 3 case 8: segundosAgoraCodificados = 18 case 9: segundosAgoraCodificados = 13 case 10: segundosAgoraCodificados = 12 case 11: segundosAgoraCodificados = 18 case 12: segundosAgoraCodificados = 22 case 13: segundosAgoraCodificados = 32 case 14: segundosAgoraCodificados = 57 case 15: segundosAgoraCodificados = 35 case 16: segundosAgoraCodificados = 43 case 17: segundosAgoraCodificados = 4 case 18: segundosAgoraCodificados = 19 case 19: segundosAgoraCodificados = 14 case 20: segundosAgoraCodificados = 9 case 21: segundosAgoraCodificados = 20 case 22: segundosAgoraCodificados = 23 case 23: segundosAgoraCodificados = 33 case 24: segundosAgoraCodificados = 58 case 25: segundosAgoraCodificados = 36 case 26: segundosAgoraCodificados = 44 case 27: segundosAgoraCodificados = 5 case 28: segundosAgoraCodificados = 24 case 29: segundosAgoraCodificados = 15 case 30: segundosAgoraCodificados = 62 case 31: segundosAgoraCodificados = 25 case 32: segundosAgoraCodificados = 34 case 33: segundosAgoraCodificados = 59 case 34: segundosAgoraCodificados = 37 case 35: segundosAgoraCodificados = 45 case 36: segundosAgoraCodificados = 6 case 37: segundosAgoraCodificados = 25 case 38: segundosAgoraCodificados = 16 case 39: segundosAgoraCodificados = 27 case 40: segundosAgoraCodificados = 63 case 41: segundosAgoraCodificados = 26 case 42: segundosAgoraCodificados = 35 case 43: segundosAgoraCodificados = 60 case 44: segundosAgoraCodificados = 38 case 45: segundosAgoraCodificados = 46 case 46: segundosAgoraCodificados = 7 case 47: segundosAgoraCodificados = 26 case 48: segundosAgoraCodificados = 17 case 49: segundosAgoraCodificados = 28 case 50: segundosAgoraCodificados = 14 case 51: segundosAgoraCodificados = 36 case 52: segundosAgoraCodificados = 2 case 53: segundosAgoraCodificados = 39 case 54: segundosAgoraCodificados = 47 case 55: segundosAgoraCodificados = 8 case 56: segundosAgoraCodificados = 29 case 57: segundosAgoraCodificados = 22 case 58: segundosAgoraCodificados = 55 case 59: segundosAgoraCodificados = 33 End Select segundosAgora = segundosAgoraCodificados pad = "" if segundosAgora < 10 Then pad = "0" else  pad = "" End If tamIP = len(ip) total = cint(replace(Valortotal,".",",")) numfil = NumFiliacao i5 = total + segundosAgora i6 = segundosAgora + tamIP i7 = segundosAgora * numfil i8 = len(i7) CodVer = i7 & i5 & i6 &"-"& i8 & pad & segundosAgora End Function

Quebra-Linha

Colaborador..: FREDERICO AUGUSTO MAIELO
Categoria(s).: ASP;
Versão.......: 1.0
Data.........: 14/05/2008 23:53:10
Visualizado..: 4670 vezes
Fonte........: Frederico Maielo