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
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
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
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...