by xyr0x (7 Submissions)
Category: Databases/Data Access/DAO/ADO
Compatability: VB.NET
Difficulty: Unknown Difficulty
Originally Published: Sun 2nd September 2007
Date Added: Mon 8th February 2021
Rating: (1 Votes)
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.
'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
No comments have been posted about Log Credit Card numbers. This code wasn't used for carding, and the author, myself, cannot be respo. Why not be the first to post a comment about Log Credit Card numbers. This code wasn't used for carding, and the author, myself, cannot be respo.