home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / zkuste / Perl / ActivePerl-5.6.0.613.msi / 䆊䌷䈹䈙䏵-䞅䞆䞀㡆䞃䄦䠥 / _f5fc75669b5e31b3812d820933d522a5 < prev    next >
Text File  |  2000-03-23  |  4KB  |  96 lines
  1.  
  2. <HTML>
  3. <HEAD>
  4. <TITLE>C<Business::CreditCard> - Validate/generate credit card checksums/names</TITLE>
  5. <LINK REL="stylesheet" HREF="../../../Active.css" TYPE="text/css">
  6. <LINK REV="made" HREF="mailto:">
  7. </HEAD>
  8.  
  9. <BODY>
  10. <TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=100%>
  11. <TR><TD CLASS=block VALIGN=MIDDLE WIDTH=100% BGCOLOR="#cccccc">
  12. <STRONG><P CLASS=block> C<Business::CreditCard> - Validate/generate credit card checksums/names</P></STRONG>
  13. </TD></TR>
  14. </TABLE>
  15.  
  16. <A NAME="__index__"></A>
  17. <!-- INDEX BEGIN -->
  18.  
  19. <UL>
  20.  
  21.     <LI><A HREF="#name">NAME</A></LI><LI><A HREF="#supportedplatforms">SUPPORTED PLATFORMS</A></LI>
  22.  
  23.     <LI><A HREF="#synopsis">SYNOPSIS</A></LI>
  24.     <LI><A HREF="#description">DESCRIPTION</A></LI>
  25.     <LI><A HREF="#author">AUTHOR</A></LI>
  26. </UL>
  27. <!-- INDEX END -->
  28.  
  29. <HR>
  30. <P>
  31. <H1><A NAME="name">NAME</A></H1>
  32. <P><CODE>Business::CreditCard</CODE> - Validate/generate credit card checksums/names</P>
  33. <P>
  34. <HR>
  35. <H1><A NAME="supportedplatforms">SUPPORTED PLATFORMS</A></H1>
  36. <UL>
  37. <LI>Linux</LI>
  38. <LI>Solaris</LI>
  39. <LI>Windows</LI>
  40. </UL>
  41. <HR>
  42. <H1><A NAME="synopsis">SYNOPSIS</A></H1>
  43. <PRE>
  44.     use Business::CreditCard;
  45. </PRE>
  46. <PRE>
  47.  
  48.     print validate("5276 4400 6542 1319");
  49.     print cardtype("5276 4400 6542 1319");
  50.     print generate_last_digit("5276 4400 6542 131");</PRE>
  51. <P>Business::CreditCard is available at a CPAN site near you.</P>
  52. <P>
  53. <HR>
  54. <H1><A NAME="description">DESCRIPTION</A></H1>
  55. <P>These subroutines tell you whether a credit card number is
  56. self-consistent -- whether the last digit of the number is a valid
  57. checksum for the preceding digits.</P>
  58. <P>The <CODE>validate()</CODE> subroutine returns 1 if the card number provided passes
  59. the checksum test, and 0 otherwise.</P>
  60. <P>The <CODE>cardtype()</CODE> subroutine returns a string containing the type of
  61. card: ``MasterCard'', ``VISA'', and so on.  My list is not complete;
  62. I welcome additions.</P>
  63. <P>The <CODE>generate_last_digit()</CODE> subroutine computes and returns the last
  64. digit of the card given the preceding digits.  With a 16-digit card,
  65. you provide the first 15 digits; the subroutine returns the sixteenth.</P>
  66. <P>This module does <EM>not</EM> tell you whether the number is on an actual
  67. card, only whether it might conceivably be on a real card.  To verify
  68. whether a card is real, or whether it's been stolen, or what its
  69. balance is, you need a Merchant ID, which gives you access to credit
  70. card databases.  The Perl Journal (http://tpj.com/tpj) has
  71. a Merchant ID so that I can accept MasterCard and VISA payments; it
  72. comes with the little pushbutton/slide-your-card-through device you've
  73. seen in restaurants and stores.  That device calculates the checksum
  74. for you, so I don't actually use this module.</P>
  75. <P>These subroutines will also work if you provide the arguments
  76. as numbers instead of strings, e.g. <CODE>validate(5276440065421319)</CODE>.</P>
  77. <P>To install this module, change directories to wherever
  78. your system keeps Perl modules (e.g. <CODE>/usr/local/lib/perl5</CODE>) and
  79. create a <CODE>Business</CODE> directory if there's isn't one already.
  80. Then copy this file there.  That's it!</P>
  81. <P>
  82. <HR>
  83. <H1><A NAME="author">AUTHOR</A></H1>
  84. <P>Jon Orwant</P>
  85. <P>The Perl Journal and MIT Media Lab</P>
  86. <P><A HREF="mailto:orwant@tpj.com">orwant@tpj.com</A></P>
  87. <TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=100%>
  88. <TR><TD CLASS=block VALIGN=MIDDLE WIDTH=100% BGCOLOR="#cccccc">
  89. <STRONG><P CLASS=block> C<Business::CreditCard> - Validate/generate credit card checksums/names</P></STRONG>
  90. </TD></TR>
  91. </TABLE>
  92.  
  93. </BODY>
  94.  
  95. </HTML>
  96.