Cara Mengetahui Isi Password Dibalik Karakter Bintang (* ) dengan Visual Basic 6.0

Cara Mengetahui Isi Password Dibalik Karakter Bintang - Pada saat membuat E-mail , kita diwajibkan untuk mengisi user name dan password yang kita gunakan. Pada kotak pengisian paswword biasanya di tampilkan karakter * (bintang), agar orang lain tidak mengetahui dan membaca isi pasword kita yang kita ketik. Namun bagaimana jika suatu saat kita ingin mengetahui dibalik karakter * untuk mengecek kebenarannya?..

Jawabannya ada pada tip berikut ini, karena dengan tip ini Anda dapat mengetahui karakter-karakter asli di balik karakter  bintang *.

Berikut adalah langkah-langkah dalam pembuatannya :

Cara Mengetahui Isi Password Dibalik Karakter  Bintang '*'

1. Letakan sebuah TextBox dan sebuah Timer pada form. Atur tampilannya dengan memberikan semacam intruksi pada TextBox agar pengguna tidak kebingungan dalam penggunaannya. Tuliskan pada TextBox " Tekan F7 untu mengetahui Password dan kursor harus di atas password"

2. Atur properti  Interval pada Timer dengan interval :100

3.Buka jendela kode dan ketikan kode berikut ini :

Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal Msg As Long, wParam As Any, lParam As Any) As Long
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Const SWP_NOMOVE = &H2, SWP_NOSIZE = &H1
Private Const HWND_TOPMOST = -1, HWND_NOTOPMOST = -2
Private Const VK_F7 = &H76
Private Const WM_GETTEXT = &HD
Private Const WM_SETTEXT = &HC
Private Const WM_GETTEXTLENGTH = &HE

Private Type POINTAPI
x As Long
y As Long
End Type

Dim str1 As String * 100
Dim star As Boolean

Private Sub Form_Load()
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
count1 = 1
star = True
End Sub

Private Sub Timer1_Timer()
Dim wintext As String
Dim slength As Long
Dim retval As Long
Dim tryval As Long
Dim war As POINTAPI
If star = True Then
If GetAsyncKeyState(VK_F7) Then
GetCursorPos war
e = WindowFromPoint(war.x, war.y)
slength = SendMessage(e, WM_GETTEXTLENGTH, ByVal CLng(0), ByVal CLng(0)) + 1
wintext = Space(slength)
ert = slength
retval = SendMessage(e, WM_GETTEXT, ByVal slength, ByVal wintext)
Text1.Text = "Paswordnya adalah:" & wintext
End If
End If
End Sub

4. Simpan hasil pekerjaan Anda dan jalankan program dengan F5.


Untuk menguji apakah progaram tersebut bekerja dengan baik atau tidak.Mari kita buat form baru dengan meletakan  satu buah TextBox dan sebuah Label di form. Pada Label ganti captionnya "Password :". dan sebuah TextBox atur propertiesnya pada bagian PasswordChar: (ketik) *
Lalu simpan dan jalankan kedua program tersebut, lihat gambat dibawah ini:

Lalu pada form yang baru kita buat ketikan password yang Anda kehendaki dan tetap letakan kursur diatas password kemudian tekan F7 hasilnya lihat pada gambar dibawah ini:

Hasil akhir Program

Catatan :Tidak semua kotak pasword dapat diketahui isinya dengan menggunakan program ini seperti kotak password dalam email, karena pembuat websitenya pasti ingin menjaga privasi penggunanya sehingga  brusaha memakai sistem keamanan yang di anggap canggih dan tidak dapat dibobol dengan mudah.

Demikian tip cara Cara Mengetahui Isi Password Dibalik Karakter Bintang. Selamat mencoba semoga sukses berhasil.

Related Post: Aplikasi sederhana