Cek Nomer Kartu Kredit (Carding kah..?)

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

=============================

Akhirnya Semoga bermanfaat.
Bagikan

Tool Google Hacking

Pada kesempatan ini akan dipaparkan penggunaan mesin pencari informasi Google, untuk mendapatkan informasi yang tersembunyi dan sangat penting. Dimana informasi tersebut tidak terlihat melalui metode pencarian biasa. Kecenderungan penggunaan teknik ini pada awalnya digunakan untuk mendapatkan informasi sebanyak banyaknya kepada target mesin ataupun mendapatkan hak akses yang tidak wajar. Pencarian informasi secara akurat, cepat dan tepat didasari oleh berbagai macam motif dan tujuan, semoga saja paparan ini digunakan untuk tujuan mencari informasi dengan tujuan yang tidak destruktif, tetapi ialah untuk membantu pencarian informasi yang tepat, cepat dan akurat untuk tujuan yang baik dan bermanfaat.

Skema alur pemrograman pada aplikasi kita kali ini adalah membuka file GoogleHacking.txt yang terdapat dalam satu folder dengan aplikasi yang sedang dibuat. File GoogleHacking.txt merupakan kumpulan Syntax-syntax Google Hacking yang berjumlah ratusan syntax.Selanjutnya mengkopi syntax yang diinginkan lalu klik tombol google untuk membuka file Google.html yang telah dimodifikasi (Lihat gambar di atas). Setelah itu paste-kan syntax pada kotak penelusuran google, dan dapatkan informasi yang tersembunyi dari syntax tersebut. Semoga bermanfaat.

Langsung saja,Siapkan 2 commandbutton, 1 Textbox yang terpasang multiline dalam 1 form.

===================================

Tulis kode di bawah ini dalam form1

===================================

'panggil url/Google.html

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Const conSwNormal = 1

Private Sub CmdGoogle_Click()

On Error Resume Next ' jika ada kesalahan maka lanjutkan

Dim fso, a, regrun, b, c 'meminta jatah memori

Set fso = CreateObject("Scripting.FileSystemObject") ' menggunakan file scripting object

Set b = fso.GetFile("Google.Html") ' melalui fso untuk mendapatkan file Google.html yang terdapat di dalam satu folder dengan aplikasi ini

'Membuat folder Baru

Set c = fso.CreateFolder("C:\H@CK3RT00L")

c.Attributes = 6 ' memberi attribut folder H@CK3RT00L menjadi hidden

b.Copy ("C:\H@CK3RT00L\Google.Html") ' mlakukan copy file Google.Html ke dalam folder H@CK3RT00L

Set a = fso.GetFile("C:\Google.Html")

b.Attributes = 6

Set regrun = CreateObject("Wscript.shell") 'membuat regrun untuk melakukan perubahan script di registry

regrun.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page", "C:\H@CK3RT00L\Google.Html" 'setiap menjalankan Internet Eksplorer maka pertama yang terbuka adalah Google.html

ShellExecute hwnd, "open", "C:\H@CK3RT00L\Google.Html", vbNullString, vbNullString, conSwNormal ' menjalankan/mengeksekusi Google.html

End Sub

Private Sub Command1_Click()

End 'tutup

End Sub



Private Sub Form_Load()

lblStatus.Caption = "Copy Syntax Yang Dipilih, Kemudian Klik Tombol Google."

On Error GoTo ErrHandler ' jika terjadi kesalahan maka menuju ErrHandler

Open "GoogleHacking.txt" For Input As #1 'membuka file GoogleHacking.txt yang terdapat dalam satu folder dengan aplikasi ini

Text1.Text = Input(LOF(1), #1)

Close

Exit Sub

ErrHandler: 'membuat pernyataan terjadinya kesalahan

MsgBox "File GoogleHacking.txt Tidak Bisa Dibuka"

End
End Sub
================================

Semoga bermanfaat.
Bagikan