AccessTr.neT

Tam Versiyon: Bilgisayarın Domain Şifresi İle Giriş
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3
Admin şifresini bilmeden nasıl açılacak ki bilgisayar? Windows admin şifresini linux üzerinden, hem de bir disketle çalıştırılan komut satırlı bir linux sürümüyle kırmak mümkün. Bilgisayarı o disketle açıyorsunuz ve admin şifresini kaldırıyorsunuz. Access ile yapmak için önce bilgisayarı açmak gerektiği için zor bir ihtimal. Ama başka bir yönetici hesabından sistem açılıp da admin şifresine ulaşmak derseniz, birşey diyemem. Denemem lazım. Microsofta sorarsanız imkansız diyorlar. Ama kazın ayağı öyle olmuyor tabii ki. Zamanında da bir karakolun çok önemli verilerinin olduğu bir bilgisayardaki admin şifresiyle korunan dosyaların okunabilmesi için microsoft'tan yardım istediğimizde bunun mümkün olmadığını, kendilerinin de çözemeyeceğini söylediler. Biz oturup bu bilgisayara tekrar sistem kurduk, dosyaları tekrar aynı şifreyle admin dosyaları içine attık. Veri kurtarma programıyla veri kurtarma yaptık, linux üzerinden açmayı denedik falan ama sonuçta şu anda hatırlamamakla beraber verilerin tamamına yakınını almıştık. O yüzden Microsoft'tan imkansız deseler de bazı şeyler yapılabiliyor diye düşünüyorum.
Administrator şifresini kırmak değil öğrenmek daha eylenceli olur sanırım.
Şifre nasıl olsa bi şekilde resetlenebilir ama birebir şifrenin ne olduğunu öğrenmek daha eylenceli olur du Img-grin
O daha zor. Şifreyi çözmek için tonlarca algoritmayı hesaplamak ve görüntülemek lazım. Oysa sıfırlamak ya da kaldırmak nisbeten daha basit. Bahsettiğim yöntemde de zaten linux üzerinden şifre okunmuyor, iptal ediliyor ve değiştiriliyor. Aslını öğrenmek mümkün olmuyor ama...
bu buranın conusu değil seninde vaktini alıyorum ama sam dosyalarını kopyalamak mümkün olsa onların içinde şifreler vardır sanırım.
Neyse kendine çok iyi bak Img-grin
arkadaşlar bunu bir Access uygulamasına nasıl entegre edebiliriz.Yardımcı olursanız çok sevineceğim.
Yani şifre başarılı dedikten sonra uygulamanın devamını açsın başarısız sonucu verince devam etmesin.
Kod:
Public Function ValidatePW(Password As String, Username As String, DomainName As String) As Boolean
' Start by retrieving the user's name
Dim lpBuffer As String, nSize As Long
Dim rv As Long, usrName As String
Dim hToken As Long

' Initialise an empty buffer, 10 characters long (long enough for most user names)
lpBuffer = String(10, Chr(0))
Do
    nSize = Len(lpBuffer)
    rv = GetUserName(lpBuffer, nSize)
    If rv = 0 Then
        ' The function probably failed due to the buffer being too small
        ' nSize holds the required size
        lpBuffer = String(nSize, Chr(0)) ' Resize buffer to accomodate big name
    End If
Loop Until rv <> 0
' Extract user name from buffer
usrName = Left(lpBuffer, nSize - 1)

If usrName <> Username Then

    MsgBox "Kullanıcı adınız yanlış"
    
    Exit Function

End If

If Domain() <> DomainName Then


    MsgBox "Kullanıcı Alan adı yanlış"
    
    Exit Function

End If

' Now validate the password
rv = LogonUser(usrName, vbNullString, Password, LOGON32_LOGON_NETWORK, LOGON32_PROVIDER_DEFAULT, hToken)
If rv <> 0 Then
    ' Password validated successfully
    MsgBox "Şifre Doğrulandı."
    
Else
    ' Username and password failed validation
    MsgBox "Kullanıcı adı ve şifre doğrulaması başarısız oldu."
End If
End Function

kodların son bölümündeki
Kod:
MsgBox "Şifre Doğrulandı."
kodları yerine açtırmak istediğiniz formu açtırın. "MsgBox "Kullanıcı adı ve şifre doğrulaması başarısız oldu."" ifadesinin altına da
Kod:
docmd.quit

yazın olsun bitsin. Formu komutla nasıl açtıracağım derseniz:

DoCmd.OpenForm "form1"

Böylece Form1 adındaki form açılacaktır.

Formun görünüm modu için kodların sonuna

,acNormal

Parametresi eklenebilir . Son komutla formu tasarım modunda açar. Bu görünüm modları şöyle:

acDesign : Tasarım görünümlü form
acFormDS : Veri sayfası görünümlü form
acFormPivotChart: Pivot chart görünümlü form
acFormPivotTable: Pivot tablo görünümlü form
acNormal: Normal görünüm
acPreview: Formu Baskı önizleme görünümü


Kolay gelsin...
Sayfalar: 1 2 3