TUTORIAL KOMPUTER
  • 10 Virus Komputer Paling Mematikan Di Dunia
  • Kunci Mempercepat Acces Komputer
  • MENGENAL SISTEM KOMPUTER
  • Sejarah Perkembangan Komputer
  • Informasi computer terkini
  • Mengenal System Software
  • Mengupas Masalah Motherboard
  • Mengupas Detail Tentang CPU
  • Kode Mempercepat Editing Paragraf
  • Memproteksi Folder Dengan Password
  • Macam-Macam Perintah Pada Run Commands
  • Mempercepat Waktu Shutdown
  • Ubah Tampilan Windows
  • Kode Akses Siemens
  • Kode Akses Samsung
  • Kode Akses Sony Ericsson
  • Kode Akses Nokia
  • Seni Photoshop ( Angan Merokok )
  • Menyembunyikan Menu Help Pada Start Menu
  • Menyembunyikan Menu Document Pada Start Menu
  • Menyembunyikan menu Find pada Start Menu
  • Mengembalikan Folder Documents Yang Hilang
  • Memproteksi File
  • Mengganti Icon Drive
  • Mengganti Alignment Pada Drop Down Menu
  • Disable Klik Kanan Pada Taskbar
  • Disable Klik Kanan Pada Dekstop & Explorer
  • Menyembunyikan Menu Start Menu
  • Persentasi Antara Flash Dan Power Point
  • Mengganti Screen Saver Lewat Registry
  • Menghilangkan Username Pada Start Menu
  • Menampilkan Administrator Di Welcome Screen
  • Menyembunyikan My Recent Documents
  • TUTORIAL HACKER
  • Bad Unicode
  • Cara Skip Win Registrasi XP
  • Craking Dengan F.A.R.A.B.I
  • DoS, Serangan yang Belum Tertangkal
  • Hack Dan Prinsip Dasar Psikologis Hack
  • Hacking NT Server Melalui Remote Data Service
  • 95% Web Server Di Dunia has been dead
  • Hacking Web Site with cart32.exe installed
  • Konsep Lain Menjebol Server Webfroot Shutbox
  • Istilah Teknologi Informasi Bahasa Indonesia
  • Mendapatkan account ISP gratis!
  • Mendapatkan Serial Number WinZip 8.1
  • Menghilangkan Password Bios
  • Mengintip Password Linux
  • Menjebol Apache Web Server Melalui Test-Cgi
  • Menjebol Server Melalui Service FTP
  • Pembobolan 1000 Kredit Card di Step-up
  • Penjebolan Server Melalui FTP
  • Hati-hati DLM Mengetikkan Klikbca.Com
  • VIRUS M HEART
  • Bongkar Password Microsoft Acces
  • BUG TELKOMSEL & (FREE Phone ke-CYPRUS
  • Cara Efisien Mendapatkan Puluhan Ribu Email
  • Cara Sederhana membuat virus PHP
  • Cara Singkat Menginfeksi Openssh-3.4p1 Z
  • Cracking GateKeeperm
  • HACKING FOR BEGINNER
  • Hack Windows NT2000XP Admin Password
  • Melewati pembatasan hak akses warnet
  • Melindungi Data dari SQL Injection
  • memainkan fungsi tombol HP
  • Membedah Teknik SQL Injection
  • Bongkar key Windows Dengan @ stake LC4
  • Meminimalkan Biaya Saat menelpon Di Wartel
  • Menangani Virus Lohan
  • MENGACAK-ACAK REGISTRY WARNET
  • Mengelabui Pengejar Hacker
  • Meng-Hack Pesawat Telepon Yang Terkunci
  • Meng-hack PHP-BUg's
  • Kelemahan pasword & login yahoo pd Cgi
  • Trik Penjebolan Sites
  • Ragam Hacking Menggunakan Google
  • Rahasia Teknik Serangan SQL Injenction
  • Teknik Pembuatan Virus Makro Pd XP
  • Seni Internet, Googlingg
  • Situs Hacker Yang Ikut Bermasalah
  • Teknik Hacking Situs KPU Dr segla arah
  • Teknik Menyusup Ke TNP Center KPU
  • Tip N Trik Telephon Gratis Musso
  • Trik Mereset Password Windows 9x
  • TUTORIAL BLOG
  • Menuliskan Script di Blog
  • Membuat Artikel Terkait/Berhubungan
  • Membuat Feed di Blog Dengan Javascript
  • Membuat Navigasi Breadcrumb di Blog
  • Membuat Meta Deskripsi di Halaman Blog
  • Membuat Readmore Versi 1
  • Membuat Read More Otomatis di Blog
  • Membuat Read More Versi 2
  • Membuat Tabs Menu Horizontal
  • Membuat Menu Tab View
  • Membuat Menu Vertikal
  • Cara Memasang Musik Pada Blog
  • Membuat Template Blog Hasil Buatan Sendiri
  • Buat Threaded Comment dgn Intense Debate
  • Membuat Menu DTree
  • Membuat Tab Menu Dengan Banyak Style
  • Menambah Toolbar Baru di Blogspot
  • Cara Membuat Tabel di Blog
  • Cara Membuat Tulisan Berjalan
  • Melakukan Backup Website atau Blog
  • Mendapatkan Free Hosting
  • Membuat Widget Status Twitter pada Blog
  • Manampilkan Profil Facebook di Website (blog)
  • Membuat Avatar Komentar Pada Blogger
  • Membuat Halaman Contact Me pada Blogspot
  • Cara Membuat Status Yahoo Messenger di Blog
  • Mendapatkan Layanan Google Friend Connect
  • Membuat Nomor Page Posting Di Blog
  • Tips dan Trik Menambah Kolom Di Blog
  • Mengatasi "Invalid Widget ID" pada Blogger
  • Membuat Slide Show Album Foto di Blog
  • Membuat Kotak Komentar dibawah Posting
  • Cara Membuat Kotak Link Exchange
  • Membuat Link Download
  • Cara Membuat Dropdown Menu
  • Cara Membuat Buku Tamu
  • Trik Memproteksi Blog
  • Cara Membuat Search Engine
  • Membuat Kategori / Label di Blogger
  • Menghilangkan Navbar (Navigation Bar)
  • Memasang Emoticon di Kotak Komentar
  • Menambah Emoticon di Shoutbox
  • Pasang Jam di Sidebar
  • Memasang Pelacak IP Address
  • Mengganti Tulisan "Older Post / Newer Post"
  • Memasang Alexa Traffic Rank
  • Memasang Tombol Google Buzz
  • Cara Membuat Cursor Animasi
  • Menyembuyikan Buku Tamu
  • 5 Cara Terbaik Mendapatkan Uang Dari Blog
  • Blogging Cepat Dengan BlogThis!
  • 21 Posts Separator Images
  • Mengganti Link Read More Dgn Gambar
  • Cara Menampilkan 10 Artikel Di Recent Posts
  • Offline Blogging Dgn Windows Live Writer
  • Cara Memasang Jadwal Sholat
  • Cara Membuat Daftar Isi Blog Otomatis
  • Membuat Daftar Isi Blog Manual
  • Iklan Google Adsense Di Tengah Artikel
  • Membuat Link Warna - Warni
  • Meletakkan Widget Di Bawah Header
  • Membuat Kotak Scrollbar
  • Memasang Video Di Artikel
  • Kode Warna HTML
  • Home » » Bongkar Password Microsoft Acces

    Bongkar Password Microsoft Acces

    Artikel ini berisi tentang bagaimana cara membongkar password Microsoft Access. mudah-mudahan dapat menambah ilmu dan pengalaman kepada rekan-rekan.

    '***************************************************************************
    '
    ' Visual Basic Source Code
    ' Membongkar Password Ms.Access 97/2000/XP dengan Visual
    Basic
    ' http://www.vbbego.cjb.net
    '
    ' mail42me@telkom.net
    ' vbbego@vbbego.cjb.net
    '
    ' Author: CyberBoy - BEGO
    ' Forum: http://groups.yahoo.com/group/vb_bego
    '
    ' VIVA PROGRAMMER INDONESIA
    '
    '***************************************************************************
    Option Explicit

    Function GetMs97(Filename As String) As String
    'di procedure ini kita akan mencoba mengetahui password untuk
    'ms.access 97 terlebih dahulu

    'kita buat variable array sebanyak 20 dengan tipe byte.
    'kenapa harus 20? Ini disebabkan panjang maximal password
    'access adalah 20.

    Dim data(0 To 19) As Byte, Pwd As String Dim Hasil As String
    'Sekarang kita buka dan ambil data dari file yang akan di crack
    'passwordnya. Open Filename For Binary As #1
    'Kita ambil data mulai dari posisi 67.
    'kenapa harus pd posisi 67? Ini dikarenakan password yang  disimpan
    'oleh ms.access ada pada posisi tersebut Get #1, 67, data Close #1

    Dim MaxSize, I As Integer, TempPwd
    Dim EncDec As String, nKey

    'untuk enskripsi dibawah ini, saya tidak bisa menjelaskannya.
    'Karena terlalu panjang utk dijelaskan. Enskripsi ini hasil
    penelitian saya
    'jadi anda tinggal pake aja OK!

    'Panjang keseluruhan enskripsi ini tentunya sama dengan panjang max password (20).
    'Kemudian kita split ke variable nKey.
    EncDec = "86 FB EC 37 5D 44 9C FA C6 5E 28 E6 13 B6 8A 60 54 94 7B 36" nKey = Split(EncDec, " ")

    Dim spos As Integer
    'Nah sekarang kita gunakan metode/fungsi XOR untuk mendapatkan password aslinya
    'Nilai yang ada pada variable data, dibandingkan dengan nilai enskripsinya.
    For I = 0 To 19
    TempPwd = TempPwd & Chr(data(I) Xor ("&H" & nKey(spos)))
    'var ini digunakan untuk mengetahui panjang password yang ada pd file yang dicrack.spos = spos + 1Next I

    'hasilnya kita cetak ke HasilDim inLen As IntegerinLen = InStr(1, TempPwd, Chr(0))
    Hasil = "Nama File: " & Filename & vbCrLf & _
    "Ukuran : " & FileLen(Filename) & " bytes" & vbCrLf & _
    "Panjang password: " & IIf(inLen = 0, 20, inLen - 1) & vbCrLf & _
    "---------------------" & vbCrLf & _ TempPwd GetMs97 = Hasil End Function

    ' EOF For access 97 password

    'Nah sekarang kita coba untuk access 2000/xp Function GetMs2000XP(Filename As String) As String
    'kita buat variable array sebanyak 40 dengan tipe byte.
    'kenapa harus 40? Ini disebabkan panjang maximal password
    'access adalah 20, kemudian dikalikan 2 maka hasilnya 40.

    Dim data(39) As Byte, cek As Byte, Hasil As String Open Filename For Binary As #1
    'Kita ambil data mulai dari posisi 67.
    'kenapa harus pd posisi 67? Ini dikarenakan password yang disimpan
    'oleh ms.access ada pada posisi tersebut
    Get #1, 67, data
    Get #1, 151, cek
    Close #1

    'Sebelum melanjutkan mecrack 2000, kita periksa dahulu versi
    dari file tersebut
    'jika versinya 97 maka kita panggil prosedur GetMs97 dan
    keluar dari rutin 2000
    If cek = 0 Then
    GetMs2000XP = GetMs97(Filename)
    Exit Function
    End If
    'Kita buat var2 pendukung
    Dim EncDec As String
    Dim I As Integer
    Dim H As Integer, nKey
    Dim nHex As String
    Dim Pwd As String

    'untuk enskripsi dibawah ini, saya tidak bisa menjelaskannya.
    'Karena terlalu panjang utk dijelaskan. Enskripsi ini hasil  penelitian saya
    'jadi anda tinggal pake aja OK!

    'Tentunya enskripsi berikut berbeda dengan enskripsi untuk msa97
    EncDec = "00 EC DB 9C 40 28 95 8A D2 7B 73 DF F1 13 49 B1 B2 79 14 7C"
    nKey = Split(EncDec, " ")

    'Kita cari tau panjang passwordnya, dengan metode XOR Dim inLen As Integer For H = 0 To UBound(nKey) If H Mod 2 <> 0 Then
    If (data(H * 2) Xor ("&H" & nKey(H))) = 0 Then inLen = H
    Exit For
    End If
    End If
    Next H

    'Hasil pencariannya kita cetak Hasil
    Hasil = "Nama File: " & Filename & vbCrLf & _
    "Ukuran : " & FileLen(Filename) & " bytes" & vbCrLf & _
    "Panjang password: " & IIf(inLen = 0, 20, inLen) & vbCrLf & _
    "---------------------" & vbCrLf

    'Nah disini kita cari tau passwordnya
    'Kita gunakan looping sampai dengan 255 kal 'ini dilakukan karena kita akan membadingkan mulai karakter pertama sampai karakter terakhir(255) Kelemahan proses ini ialah, belum bisa menampilkan dengan tepat
    'password yang panjangnya sampai 20 karakter jika passwordnya >= 20 maka kesuluruhan kemungkinan akan ditampilkan.

    For I = 0 To 255
    'looping kedua berfungsi untuk membandingkan nilai asli dari file
    'dengan nilai enskripsi For H = 0 To UBound(nKey)
    If H Mod 2 = 0 Then
    'membandingkan nilai
    nHex = Hex((("&H" & nKey(H)) Xor I)) Else nHex = nKey(H)
    End If
    'membandingkan nilai
    Pwd = Pwd & Chr((data(H * 2) Xor ("&H" & nHex))) Next H
    'Cetak hasil enskripsi yang didapat HASIL
    If InStr(1, Pwd, String(20 - inLen, Chr(0))) Then
    If InStr(1, Pwd, String(20, Chr(0))) Then
    Hasil = Hasil & "nggak ada passwordnya" & vbCrLf Else
    Hasil = Hasil & Pwd & vbCrLf
    End If
    ElseIf InStr(1, Pwd, Chr(0)) = 0 Then
    Hasil = Hasil & Pwd & vbCrLf
    End If
    Pwd = ""
    Next I
    GetMs2000XP = Hasil
    End Function


    'Contoh penggunaan funsi tersebut
    MsgBox GetMs2000XP("C:\hackpwd.mdb")

    Semoga membantu.

    Jika Anda menyukai Artikel di blog ini, Silahkan klik disini untuk berlangganan gratis via email, dengan begitu Anda akan mendapat kiriman artikel setiap ada artikel yang terbit di Creating Website

    0 komentar:

    Poskan Komentar

     
    Support : Creating Website | Tutorq Template | Template
    Copyright © 2011. FAROUQ'S - All Rights Reserved
    Template Modify by Creating Website
    Proudly powered by Blogger