Program kali ini kita akan belajar untuk mengetahui keaslian nomor kartu
kredit "seseorang", apakah nomornya benar atau hanya nomor asal-asalan.
Jika anda pernah mampir ke dalam sebuah ATM (Mesin Uang), tentu anda
pernah melihat struk pengambilan yang tercecer di lantai, nah
nomor-nomor yang tertera di kertas struk tersebut merupakan nomor kartu
kredit. Dengan nomor yang ada (jika ada sih, beberapa bank tidak
mencetak nomor kartu kredit di struk) mungkin dapat digunakan seseorang
untuk tujuan negatif. Jadi mulai sekarang simpan struk anda saat
melakukan transaksi di ATM, dan ambil struk-struk yang tercecer di
lantai ATM siapa tahu dapat digunakan untuk latihan carding misal
belanja online di internet he..he..
Langsung saja Yang dibutuhkan dalam pembuatan program ini adalah :
1. textbox dengan properti name = txtsimpan
2. dua commandbutton dengan properti name CmdCek dan CmdDelete
3. satu label dengan properti name lblStatus
==============================================
Masukkan semua code di bawah ini ke dalam form
==============================================
Function isEven(n As Integer) As Boolean
isEven = True
If n And 1 Then isEven = False
End Function
Function CheckCard(CCnumber As String) As Boolean
Dim Counter As Integer, TmpInt As Integer
Dim Answer As Integer
Counter = 1
TmpInt = 0
While Counter <= Len(CCnumber) If isEven(Len(CCnumber)) Then TmpInt =
Val(Mid$(CCnumber, Counter, 1)) If Not isEven(Counter) Then TmpInt =
TmpInt * 2 If TmpInt > 9 Then TmpInt = TmpInt - 9
End If
Answer = Answer + TmpInt
Counter = Counter + 1
Else
TmpInt = Val(Mid$(CCnumber, Counter, 1))
If isEven(Counter) Then
TmpInt = TmpInt * 2
If TmpInt > 9 Then TmpInt = TmpInt - 9
End If
Answer = Answer + TmpInt
Counter = Counter + 1
End If
Wend
Answer = Answer Mod 10
If Answer = 0 Then CheckCard = True
End Function
Private Sub CmdCek_Click()
If TxtSimpan.Text = "" Then
LblStatus.Caption = "Isi Dahulu TextBoxnya !"
Else
LblStatus.Caption = CheckCard(TxtSimpan.Text)
End If
End Sub
Private Sub CmdDelete_Click()
TxtSimpan.Text = ""
LblStatus.Caption = "Ketik No Kartu Yang Ingin Di Cek."
End Sub
Private Sub Form_Load()
TxtSimpan.Text = ""
LblStatus.Caption = "Ketik No Kartu Yang Ingin Di Cek."
End Sub
Private Sub TxtSimpan_Change()
If Len(TxtSimpan.Text) < 16 Then LblStatus.Caption = "Nomer Kartu
Kredit Terdiri Dari 16 Angka" End If End Sub Private Sub
TxtSimpan_KeyPress(KeyAscii As Integer) If KeyAscii < 47 Or KeyAscii
> 57 Then KeyAscii = 0
End Sub
=============================
Tidak ada komentar:
Posting Komentar