30 April 2006

Mengubah Pass User di Windows


Jika anda berpikir untuk membuat modul mengganti password windows secara remote, maka ini adalah function yang anda perlukan. Di artikel ini disharing source code function yang bekerja dengan API dari windows untuk mengganati password user.

To the point, untuk para teman-teman yang ada di Jasakom saya ingin membagikan sedikit tips bagaimana mengganti password dari user-user yang ada di Windows. Adapun tools ini dibuat dari Visual Basic 6 Dimana Tools ini dapat mengganti password dari Administrator,guest,etc secara remote atau
beda komputer Dengan tools ini maka kita bisa mengakses komputer orang lain setelah password admin nya kita ganti...smoga ilmu ini tidak
disalah gunakan

Tools ini bekerja dengan memakai komponen yang telah disediakan oleh windows yaitu "Netapi32.dll",
Berikut ini saya serta kan source dari tools ini:

===============================================================
'Copyright by x-vb@jhie
'http://www.vbbego.cjb.net
'Penulis: x-vb@jhie - 7/21/2004

Option Explicit
Private Declare Function NetUserChangePassword Lib "Netapi32.dll" _
(Domain As Any, User As Any, OldPass As Byte, NewPass As Byte) As Long

Private Sub Command1_Click()
Dim H As Long
Dim bServer() As Byte, bUsername() As Byte
Dim bold() As Byte, bNew() As Byte

' Masukan nama computer yg akan diganti passwordnya
bServer = "\\192.168.0.1" & vbNullChar

'Nama user yg akan diganti passwornya
bUsername = "Administrator" & vbNullChar 'Password lama bold = "123" & _
vbNullChar 'Password Baru bNew = "root" & _
vbNullChar H = NetUserChangePassword(bServer(0), bUsername(0), bold(0), bNew(0))
If H = 0 Then
MsgBox "Password telah diganti dengan yang baru",64
Else
MsgBox "penggantian password gagal",16
End If

End Sub
==============================================================

Posted by R4ngg4 on Sunday, April 30, 2006

=============================================================================================================