Reset PW &VB

Makasih banyak ya,  atas responnya :)
Cracker ini pula yg saya pakai utk solve masalah saya itu, percisssss sama ...Bedanya, saya download dari http://home.eunet.no/~pnordahl/ntpasswd/
Hiks,...sayangnya, gagal di XP :((( Padahal saya sudah ikuti step by step loh.... Kesimpulannya, cracker tsb (mungkin) manjur di NT dan W2K, tapi tidak di XP.... Terimakasih ya...
At 02:52 AM 6/18/2004 +0100, you wrote:
>beberapa waktu lalu saya pernah mendapatkan pertanyaan tentang cara
>mereset password windows NT dan variant nya . pertama kali anda download dulu file sam2k_edited_by_carsivawfr.zip pada direktori saya di :
><http://www.geocities.com/carsivawfr/2k/>http://www.geocities.com/carsivawfr/2k/
>. tapi perlu diingat software ini bisa digunakan pada semua windows berbasis nt dan bukan hardisk SCSI, tetapi paling manjur untuk windows2000. sedangkan yg lain tergantung settingan anda pada OS installan anda saat menginstall(tapi saya tidak mengerti settingan itu setelah anda mendownload file tersebut ikuti cara berikut :
Pertama :
>- copy file sam2k_edited_by_carsivawfr.zip tadi ke pc yg berbasis nt dan NTFS (win2000 atau winxp), harus. (software ini berbasis mandrake linux yghanya bisa dibaca setelah di unzip pada sistem NTFS bukan FAT (win9x)).
>- siapkan satu disket kosong. unzip atau ekstrak file
>sam2k_edited_by_carsivawfr.zip yg ada pada PC berbasis NT tadi ke disket
>kosong , terserah software apasaja yg anda gunakan.
>sampai disini anda telah mendapatkan sebuah disket untuk meng-crack
>password SAM
>
>Kedua :
>Restart PC anda dan Boot memakai disket tadi. tunggu sampai pembacaan
>selesai (ikuti langkah jangan mencoba coba)
>
>dan muncul mirip seperti berikut :
>
>=========================================================
>. Step ONE: Select disk where the Windows installation is
>=========================================================
>Disks:
>Disk /dev/ide/host0/bus0/target0/lun0/disc: 2147 MB, 2147483648 bytes
>NT partitions found:
>  1 :   /dev/ide/host0/bus0/target0/lun0/part1    2043MB  Boot
>
>Please select partition by number or
>a = show all partitions, d = load new disk drivers
>l = relist NTFS/FAT partitions, q = quit
>Select: [1]
>
>pilihan anda 1 (langsung Enter), maka akan muncul :
>
>Selected 1
>Mounting on /dev/ide/host0/bus0/target0/lun0/part1
>NTFS volume version 3.1.
>Filesystem is: NTFS
>
>=========================================================
>. Step TWO: Select PATH and registry files
>=========================================================
>What is the path to the registry directory? (relative to windows disk)
>
>
>langsung enter saja (kegagalan xp biasanya disini, itu tergantung
>settingan anda sebelumnya
>tapi banyak yg sudah saya coba bisa). maka muncul
>
>[windows/system32/config] :
>-r--------    1 0        0          262144 Jan 12 18:01 SAM
>-r--------    1 0        0          262144 Jan 12 18:01 SECURITY
>-r--------    1 0        0          262144 Jan 12 18:01 default
>-r--------    1 0        0         8912896 Jan 12 18:01 software
>-r--------    1 0        0         2359296 Jan 12 18:01 system
>dr-x------    1 0        0            4096 Sep  8 11:37 systemprofile
>-r--------    1 0        0          262144 Sep  8 11:53 userdiff
>
>Select which part of registry to load, use predefined choices
>or list the files with space as delimiter
>1 - Password reset [sam system security]
>2 - RecoveryConsole parameters [software]
>q - quit - return to previous
>[1] :
>
>pilihan anda 1 (langsung enter)karena anda ingin mengubah password,jangan
>yg lain, lalu muncul :
>
>=========================================================
>. Step THREE: Password or registry edit
>=========================================================
>chntpw version 0.99.2 040105, (c) Petter N Hagen
>
>[.. some file info here ..]
>
>* SAM policy limits:
>Failed logins before lockout is: 0
>Minimum password length        : 0
>Password history count         : 0
>
><>========<> chntpw Main Interactive Menu <>========<>
>
>Loaded hives: <sam> <system> <security>
>
>   1 - Edit user data and passwords
>   2 - Syskey status & change
>   3 - RecoveryConsole settings
>       - - -
>   9 - Registry editor, now with full write support!
>   q - Quit (you will be asked if there is something to save)
>
>
>What to do? [1] -> 1
>
>pilih 1 sesuai keinginan anda, maka muncul :
>
>===== chntpw Edit User Info & Passwords ====
>
>RID: 01f4, Username: <Administrator>
>RID: 01f5, Username: <Guest>, *disabled or locked*
>RID: 03e8, Username: <HelpAssistant>, *disabled or locked*
>RID: 03eb, Username: <pnh>, *disabled or locked*
>RID: 03ea, Username: <SUPPORT_388945a0>, *disabled or locked*
>
>Select: ! - quit, . - list users, 0x<RID> - User with RID (hex)
>or simply enter the username to change:
>
>ketikkan Administrator lalu enter, maka muncul :
>
>===== chntpw Edit User Info & Passwords ====
>
>RID: 01f4, Username: <Administrator>
>RID: 01f5, Username: <Guest>, *disabled or locked*
>RID: 03e8, Username: <HelpAssistant>, *disabled or locked*
>RID: 03eb, Username: <pnh>, *disabled or locked*
>RID: 03ea, Username: <SUPPORT_388945a0>, *disabled or locked*
>
>Select: ! - quit, . - list users, 0x<RID> - User with RID (hex)
>or simply enter the username to change:
>
>ketikkan * jika ingin mengosongkan password, atau password anada sendiri
>untuk mengganti password lalu enter, (disini saya pilih *)maka muncul
>kembali :
>
>Blanking password!
>
>Do you really wish to change it? (y/n) [n] y
>Changed!
>
>
>Select: ! - quit, . - list users, 0x - User with RID (hex)
>or simply enter the username to change:
>
>sampai disini password telah ter reset , langsung ambil disket dan reboot
>langsung dari harddisk.
>
>selamat mencoba.
>
>"semua butuh bukti, bukan omong kosong"
>
untuk pencarian ada 2 cara, yaitu dengan mencari per kata atau per huruf.
jadi caranya adalah :
Ini cara mencari per kata yang akan kita cari, cara ini bisa di gunakan jika
penampilan data menggunakan textbox atau tabel.(dalam hal ini saya gunakan
textbox yg tabel lihat di bawahnya)
Dim kon As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Cmdsearch_Click()
kon.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source=" & App.Path &
"Data.mdb"
rs.Open "Select * From Lesson01 where Nama ='" & txtsearch.Text & "'", kon,
1, 3
    If txtsearch.Text = rs(0) Then
        Call Tampil
        rs.Close
    Else
        MsgBox "Data yang anda cari tidak ada di database", vbInformation,
"informasi"
        rs.MoveFirst
    End If
End Sub
Private Sub Tampil()
    txtnama.Text = rs(0)
    txtalamat.Text = rs(1)
    cmboperator.Text = rs(2)
    txthandphone.Text = rs(3)
    If rs(4) = "Islam" Then
        optIslam.Value = True
    ElseIf rs(4) = "Katolik" Then
        optKatolik.Value = True
    ElseIf rs(4) = "Kristen" Then
        optKristen.Value = True
    ElseIf rs(4) = "Budha" Then
        optBudha.Value = True
    Else
        optHindu.Value = True
    End If
    txtketerangan.Text = rs(5)
End Sub
sedangkan ini cara untuk mencari dengan huruf yg kita masukkan, biasanya
cara ini di gunakan jika kita menggunakan tabel dalam menampilkan data) :
Dim kon As New ADODB.Connection
Dim rs As New ADODB.Recordset
kon.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source=" & App.Path &
"Data.mdb"
rs.Open "Select * From Lesson01 where Nama like '" & txtsearch.Text & "%'"
Set MSHFlexGrid1.DataSource = rs
rs.Close
OK ?! gitu aja dulu, semoga membantu...