Verilen bir kredi karti numarasi'nin gecerli olup olmadiginin kontrolü

Delphi Verilen bir kredi karti numarasi'nin gecerli olup olmadiginin kontrolü Programlama Dilleri hakkında bilgi paylaş; Verilen bir kredi karti numarasi'nin gecerli olup olmadiginin kontrolü ************************* Verilen bir kredi karti numarasi'nin gecerli olup olmadiginin kontrolü {------------------------------------------------- ...
Cevapla
WebMasTer SiTeSi
 
Seçenekler
  #1  
Arama 01-12-2007, 10:18
egitimbilgisi - ait Kullanıcı Resmi (Avatar)

Üyelik Tarihi: 20/11/07
Mesajlar: 1.759
 
     WS-Ticareti: (3)
Blog Yazıları: 3
Teşekkürleri: 48
375 Msg. 450 Tşkr.
Rep Gücü: 100 egitimbilgisi has a brilliant futureegitimbilgisi has a brilliant futureegitimbilgisi has a brilliant futureegitimbilgisi has a brilliant futureegitimbilgisi has a brilliant futureegitimbilgisi has a brilliant futureegitimbilgisi has a brilliant futureegitimbilgisi has a brilliant futureegitimbilgisi has a brilliant futureegitimbilgisi has a brilliant futureegitimbilgisi has a brilliant future

Verilen bir kredi karti numarasi'nin gecerli olup olmadiginin kontrolü

Verilen bir kredi karti numarasi'nin gecerli olup olmadiginin kontrolü
*************************
Verilen bir kredi karti numarasi'nin gecerli olup olmadiginin kontrolü

{-------------------------------------------------
Credit card validator

Returns:

0 : Card is invalid or unknown
1 : Card is a valid AmEx
2 : Card is a valid Visa
3 : Card is a valid MasterCard

-------------------------------------------------}

function Vc(c: string): integer;
var
card: string[21];
Vcard: array[0..21] of byte absolute card;
Xcard: integer;
Cstr: string[21];
y, x: integer;
begin
Cstr := ";
fillchar(Vcard, 22, #0);
card := c;
for x := 1 to 20 do
if (Vcard[x] in [48..57]) then
Cstr := Cstr + chr(Vcard[x]);
card := ";
card := Cstr;
Xcard := 0;
if not odd(length(card)) then
for x := (length(card) - 1) downto 1 do
begin
if odd(x) then
y := ((Vcard[x] - 48) * 2)
else
y := (Vcard[x] - 48);
if (y >= 10) then
y := ((y - 10) + 1);
Xcard := (Xcard + y)
end
else
for x := (length(card) - 1) downto 1 do
begin
if odd(x) then
y := (Vcard[x] - 48)
else
y := ((Vcard[x] - 48) * 2);
if (y >= 10) then
y := ((y - 10) + 1);
Xcard := (Xcard + y)
end;
x := (10 - (Xcard mod 10));
if (x = 10) then
x := 0;
if (x = (Vcard[length(card)] - 48)) then
Vc := ord(Cstr[1])-ord('2')
else
Vc := 0
end;
__________________
en güncel blogunuz adan zye hersey bu blogta
Alıntı ile Cevapla
Cevapla
Arama Etiketleri: , , , , , , ,



Seçenekler


Benzer Konular
Konu Konu Açanlar Forum Cevaplar Güncel Mesajlar
1000 Gösterim Başı 0.50 $ Minumum Ödeme 2 $ Turkiye Trafigi Geçerli ( E-gold | Paypal ) hakanakkus Reklam Veren Firmalar 1 07-07-2008 08:21
Türkiye'ye verilen sözün arkasındayız sema Haberler 0 17-06-2008 08:41
Adres, Geçerli Postalama nedir kadınca Webmaster Sözlügü 0 27-02-2008 08:44
Leadtek, grafik karti sektorunden cekiliyor LeaveMeALoNe Donanım Haberleri 0 20-11-2007 07:09
Ekran Karti kadınca Dahili Bileşenler 0 03-11-2007 11:41


Webmaster web tasarım online reviews ~ Kadınlar blogu ~ Apple iPhone, iPod Touch ( iTouch ) Forum ~ iPhone