kredi kartı denemesi

[Trial_Cooder]

bununla ilgili bir program yapmam gerekli ne önerirsiniz ? (herhangi bir web script bulamadım)

[serkan]

sorunuz çok açık olmuş

[lazio]

http://www.garanti.com.tr/e_ticaret/

[Trial_Cooder]

http://www.garanti.com.tr/e_ticaret/

burda bişey bulamadım:S

[ikutluay]

http://www.garanti.com.tr/e_ticaret/

burda bişey bulamadım:S

sorununuzu tam olarak açıklarsanız yardımcı olalım. malum cam küremiz yok:)

[Trial_Cooder]

yazılan kredi kartı numarasını, son kullanma tarihini ve güvenlik kodunu çalışıp çalışmadığını deneyecek bi program yapmak istiyorum.

[ikutluay]

torry.nette bununla ilgili component vardı.

php biliyorsan php-classes.org daki classlarda faydalı olabilir.

http://www.torry.net/vcl/misc/creditcar ... cvalid.zip

bu component open source ancak 2001 yapımı incele istersen

[Trial_Cooder]

biliorum sayılır teşekkürler bakıyorum

[Trial_Cooder]

yanlız delphi 6 içinmiş ve php ile ilgisini görmedim

[mrmarman]

@Trial_Cooder

php biliyorsan php-classes.org daki classlarda faydalı olabilir

.. yani verdiği linktekilerin PHP ile ilişksinisi vermeyip alternatif metod önermiş, kullanmak istersen demiş. "classlarda" deken da eki bitişik yazılınca karıştırdın sanırım.

- Bu işin sağlam ve kurallı çözümü : Kurumsal bir yapı sergiliyorsanız, herhangi bir bankadan SanalPOS başvurusu yapmanız gerekmektedir. Size İsim / Parola ve size özel POS Numarası verilir sonra siz bunları kullanarak bir XML dosya hazırlayıp banka sunucularına gönderince cevap gelecektir.

- Aklıma geldi de yazıyorum : Olur mu olmaz mı bilmiyorum.

- Bulabildiğiniz alışveriş sitelerini inceleyin. Onların servisinden alışveriş yapıyormuş gibi kart no ve son kullanma tarihlerine ilişkin giriş yapın. Sonra cevap olarak dönen onay durumunu kendi yazılımınızda değerlendirip alışveriş olayını iptal edin. Böyle bir deneme yapmadım ama birinden biri size hizmet edecek şekilde bir site bulabilinir belki de..

- Aşağıda @ikutluay'ın gönderdiği linkteki benzeri işi yapan, kendi arşivimden Kredi Kartı Numarası Geçerliyse yaygın olarak kullanılan Visa/MasterCard ve AmericanExpress mi olduğunu söyleyen bir fonksiyon yolluyorum.

Kod: Tümünü seç

function KrediKartiTipi(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
    Result := Ord(Cstr[1])-Ord('2')
  else
    Result := 0
end;

Kullanımı :

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
Var
  No, Tip : String;
begin
  No := '4242424242424242';
  Case KrediKartiTipi(No) of
  0: Tip := 'Geçersiz Kart';
  1: Tip := 'Amerikan Express Kartı';
  2: Tip := 'Visa Kartı';
  3: Tip := 'Mastercard';
  end;
  ShowMessage(Tip);
end;

[Trial_Cooder]

teşekkür bakıyorum tekrar