Seven Library

Conteúdo atual do site:
[807] ítens, entre artigos, funções e documentos.
Pesquisa Rápida:

Pesquisa Avançada
Últimos 3 acessos:
Alexandre Neves 03/03/2015 11:08:01 167 acesso(s) alexandre neves 03/03/2015 11:06:42 1 acesso(s) Marcelo Torres 21/01/2015 15:24:53 61 acesso(s)

Opções:
Listagem completa Listagem simples

Ranking Colaboradores:

Adenilton Rodrigues - [304] Alexandre Neves - [61] Douglas Freire - [54] Marcelo Giovanni - [53] Marcelo Torres - [43] Angelita Bernardes - [31] Addy Magalhães Cunha - [28] Manuel Fraguas - [24] Ludmila Valadares - [20] Marcelo Capelo - [18]

:: Programação / ASP

Cheque o número de cartões de crédito

Identifica se o número digitado é: "V" VISA "M" Mastercard/Eurocard "A" American Express "C" Diners Club / Carte Blanche "D" Discover "E" enRoute "J" JCB

================================================== cctest.asp ================================================== <html>     <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <meta name="GENERATOR" content="Microsoft FrontPage 3.0">  <title>Click Online Credit Card Test </title> </head> <body <% response.write "text=""" & textcol1 &_ """ link=""" & textlink &_ """ vlink=""" & textvlink &_ """ alink=""" & textalink &_ """ background=""../images/" &_ bgimgurl & """ bgcolor=""" &_ bgcolor & """" %>> <p><%number=request("number") cctype=request("cctype") if number<>"" then chk=checkcc(number,cctype) response.write "<br>Result: " select case chk case 0 response.write "Card is ok!" case 1 response.write "Wrong card type" case 2 response.write "Wrong length" case 3 response.write "Wrong length and card type" case 4 response.write "Wrong checksum" case 5 response.write "Wrong checksum and card type" case 6 response.write "Wrong checksum and length" case 7 response.write "Wrong checksum, length and card type" case 8 response.write "unknown cardtype" end select else response.write "Please enter a card number" end if%></p> <form method="POST"> <p>Card number: <input type="text" name="number" size="20" value="<%=number%>"></p> <p>Type: <select name="cctype" size="1"> <option value="V" <%if cctype="V" then response.write "selected"%>> VISA</option> <option value="M" <%if cctype="M" then response.write "selected"%>> Mastercard/Eurocard</option> <option value="A" <%if cctype="A" then response.write "selected"%>> American Express</option> <option value="C" <%if cctype="C" then response.write "selected"%>> Diners Club / Carte Blanche</option> <option value="D" <%if cctype="D" then response.write "selected"%>> Discover</option> <option value="E" <%if cctype="E" then response.write "selected"%>> enRoute</option> <option value="J" <%if cctype="J" then response.write "selected"%>> JCB</option> <option value="U" <%if cctype="U" then response.write "selected"%>> unknown cardtype (test)</option> </select></p> <p><input type="submit" value="Test it!" name="B1"></p> </form> <p>© 1998 by <a href="http://www.click-online.de">Click Online</a></p> </body> </html> ================================================== checkcc.inc ================================================== <% ' Credit Card check routine for ASP ' (c) 1998 by Click Online ' You may use these functions only if this header is not removed ' http://www.click-online.de ' info@click-online.de function trimtodigits(tstring) 'removes all chars except of 0-9 s="" ts=tstring for x=1 to len(ts) ch=mid(ts,x,1) if asc(ch)>=48 and asc(ch)<=57 then s=s & ch end if next trimtodigits=s end function function checkcc(ccnumber,cctype) 'checks credit card number for checksum,length and type 'ccnumber= credit card number (all useless characters are ' being removed before check) ' 'cctype: ' "V" VISA ' "M" Mastercard/Eurocard ' "A" American Express ' "C" Diners Club / Carte Blanche ' "D" Discover ' "E" enRoute ' "J" JCB 'returns: checkcc=0 (Bit0) : card valid ' checkcc=1 (Bit1) : wrong type ' checkcc=2 (Bit2) : wrong length ' checkcc=4 (Bit3) : wrong checksum (MOD10-Test) ' checkcc=8 (Bit4) : cardtype unknown ' ctype=ucase(cctype) select case ctype case "V" cclength="13;16" ccprefix="4" case "M" cclength="16" ccprefix="51;52;53;54;55" case "A" cclength="15" ccprefix="34;37" case "C" cclength="14" ccprefix="300;301;302;303;304;305;36;38" case "D" cclength="16" ccprefix="6011" case "E" cclength="15" ccprefix="2014;2149" case "J" cclength="15;16" ccprefix="3;2131;1800" case else cclength="" ccprefix="" end select prefixes=split(ccprefix,";",-1) lengths=split(cclength,";",-1) number=trimtodigits(ccnumber) prefixvalid=false lengthvalid=false for each prefix in prefixes if instr(number,prefix)=1 then prefixvalid=true end if next for each length in lengths if cstr(len(number))=length then lengthvalid=true end if next result=0 if not prefixvalid then result=result+1 end if if not lengthvalid then result=result+2 end if qsum=0 for x=1 to len(number) ch=mid(number,len(number)-x+1,1) 'response.write ch if x mod 2=0 then sum=2*cint(ch) qsum=qsum+(sum mod 10) if sum>9 then qsum=qsum+1 end if else qsum=qsum+cint(ch) end if next 'response.write qsum if qsum mod 10<>0 then result=result+4 end if if cclength="" then result=result+8 end if checkcc=result end function %>

Quebra-Linha

Colaborador..: Alexandre Neves
Categoria(s).: ASP;
Data.........: 11/04/2002 15:30:10
Visualizado..: 3839 vezes
Fonte........: http://www.15seconds.com

Alexandre Neves	ASP
Últimos Artigos deste colaborador Alterando a porta padrão do TS (3389) - 12/05/2010 10:07:50 CTRL-C no Prompt - 31/08/2009 23:21:28 Desabilitando a geração do Thumbs.db - 13/05/2010 12:29:12	Últimos Artigos desta categoria Gerador de Codigo de Verificação REDECARD - 14/05/2008 23:53:10 Gerar um Excel apartir de um ASP - 18/07/2007 14:11:57 LongIP para StringIP - 11/02/2005 18:00:05

60 pessoa(s) on-line neste site.