jump to navigation

Microsoft Access can’t start because there is no license for it on this machine Mon - Dec 29, 2003

Posted by supriyatna in All.
Tags: , , ,
add a comment

Mungkin anda pernah berniat menginstall Ms. Access 97 di sebuah komputer yang sebelumnya sudah terinstall Ms. Office 2000 atau Ms. Office XP. Namun yg terjadi adalah munculnya error message “Microsoft Access can’t start because there is no license for it on this machine“. Bingung cari solusinya?, sama ^_^. Pada mulanya saya sama bingungnya tapi ternyata masalah ini bisa diatasi dengan sangat mudah. Yaitu dengan me-rename “hatten.ttf” (font file) yg merupakan biangkerok dari proses installasi Ms. Access 97.

1. Find/Search file hatten.ttf
2. Rename file hatten.ttf tersebut menjadi hatten.xxx (atau terserah anda)
3. Install/Reinstall Ms. Access 97
4. Rename kembali file hatten.xxx mejadi hatten.ttf

Sedangkan jika anda masih menggunakan Sistem Operasi Windows 98, langkah-langkah tersebut diatas tidak perlu anda lakukan. Anda cukup menjalankan file Aclicn97.exe.

Langkah-langkah tersebut sesuai dengan yg tercantum di http://support.microsoft.com/default.aspx?scid=http://support.microsoft.com:80/support/kb/articles/Q191/2/24.ASP&NoWebContent=1

Crack mdb password (Ms. Access 97, 2000) Wed - Jul 31, 2002

Posted by supriyatna in Programming, Windows.
Tags: , , , , , ,
add a comment

Berikut adalah source program untuk mengcrack pasword pada database Ms. Access 97. Gue sendiri belom pernah test apakah berhasil atau tidak. Hanya saja jika source code ini merupakan porting dari source code aslinya yg menggunakan bahasa C.

Saran:
Backup terlebih dahulu databas anda, sebelum mengimplemantasikannya pada production database. Segala kesalahan/kerusakan menjadi tanggung jawab saudara.

Ok! tanpa panjang lebar, berikut potongan source code-nya.

Dim n As Long, s1 As String * 1, s2 As String * 1
Dim lsClave As String
Dim mask As String

mask = Chr(78) & Chr(134) & Chr(251) & Chr(236) & _
  Chr(55) & Chr(93) & Chr(68) & Chr(156) & _
  Chr(250) & Chr(198) & Chr(94) & Chr(40) & Chr(230) & Chr(19)

  'Ini adalah file anda
  Open "c:\protected db.mdb" For Binary As #1
  Seek #1, &H42
  For n = 1 To 14
    s1 = Mid(mask, n, 1)
    s2 = Input(1, 1)
    If (Asc(s1) Xor Asc(s2)) <> 0 Then
      lsClave = lsClave & Chr(Asc(s1) Xor Asc(s2))
    End If
  Next
  Close 1
  MsgBox "The Password Is: " & lsClave

Jika anda masih tidak bisa ngakalin untuk menghilangkan password tersebut, coba gunakan software http://www.lostpassword.com/

Membuka database Access yang terproteksi oleh password (Set Database Password) Sat - Sep 2, 2000

Posted by supriyatna in Programming, Windows.
Tags: , , , , ,
add a comment

Sebagai salah satu cara untuk menjaga keamanan data pada Database Access yaitu dengan cara memberikan password terhadap database yang kita buat (Set database Password …). Berikut adalah contoh mengakses database yang sudah terproteksi oleh database password (password yang diberikan pada database adalah ‘sysadmin‘) dengan menggunakan ActiveX Data Access (ADO) dan menampilkannya pada Kontrol MSFlexGrid.

Berikut listing programmnya:

Option Explicit
Dim Conn As New ADODB.Connection
Dim rs As New ADODB.Recordset

Private Sub cmdOK_Click()
  Unload Me
End Sub

Private Sub Form_Load()
Dim i As Integer, nBaris As Integer
Dim LebarJudul
  ' Inisialisasi dari Variable yang akan digunakan

  LebarJudul = Array(400, 550 * 2, 500 * 4, 500 * 4)
  nBaris = 0
  Label1.Caption = "Menampilkan data kedalam MSFlexGrid " & _
    "dari database yang terproteksi oleh password " & _
    "(Set Database Password ...)"

  Set Conn = New ADODB.Connection
  Conn.ConnectionString = _
    "DRIVER={Microsoft Access Driver (*.mdb)}; " & _
    "DBQ=" & App.Path + "\DB_TEST.mdb" & "; pwd=sysadmin"
  Conn.Open
  Set rs = New ADODB.Recordset
  rs.Open "SELECT * FROM USERS", Conn, _
    adOpenDynamic, adLockOptimistic

  With MSFlexGrid1
    .BackColor = &H80000018
    .Cols = rs.Fields.Count + 1
    ' Tulis judul tiap-tiap kolom dari Grid
    For i = 0 To .Cols - 1
      .ColWidth(i) = LebarJudul(i)
    Next i

    For i = 0 To rs.Fields.Count - 1
      .TextMatrix(0, i + 1) = rs.Fields(i).Name
    Next i

    ' Tampilkan data kedalam MSFlexGrid
    Do While Not rs.EOF
      nBaris = nBaris + 1
      .TextMatrix(.Rows - 1, 0) = Format(nBaris, "#.")
      For i = 0 To rs.Fields.Count - 1
        .TextMatrix(.Rows - 1, i + 1) = rs.Fields(i).Value
      Next i
      rs.MoveNext
      .Rows = .Rows + 1
    Loop
  End With

  ' Tutup semua Object dan buang dari memory
  rs.Close
  Set rs = Nothing
  Conn.Close
  Set Conn = Nothing

End Sub