[ERLEDIGT] Registry Key Verschlüsseln

  • VB.NET

Es gibt 40 Antworten in diesem Thema. Der letzte Beitrag () ist von Lingo.

    [ERLEDIGT] Registry Key Verschlüsseln

    Hallo Zusammen

    Ich schreibe einige Reg Keys in meine Registry:

    VB.NET-Quellcode

    1. Dim RegKey As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("Software\Microsoft\Windows NT\CurrentVersion\Winlogon", True) ' True gibt an, dass im Key geschrieben wird
    2. RegKey.SetValue("AutoAdminLogon", 1, RegistryValueKind.DWord)
    3. RegKey.SetValue("DefaultDomainName", "Domaine", RegistryValueKind.String)
    4. RegKey.SetValue("DefaultUserName", Me.tb_username.Text, RegistryValueKind.String)
    5. RegKey.SetValue("DefaultPassword", Me.tb_password.Text, RegistryValueKind.String)
    6. RegKey.Close()


    Nun möchte ich den letzten Key:

    RegKey.SetValue("DefaultPassword", Me.tb_password.Text, RegistryValueKind.String)
    verschlüsselt hinterlegen. D.h. wenn man die Registry bis zu diesem Key aufmacht , dass man diesen nicht einfach so auslesen kann.

    Würde mich über Hilfe & Anstösse freuen.

    Freundliche Grüsse

    Lingo

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Lingo“ ()

    Schau dir mal die RSA Klasse an, die kann Verschlüßeln. Bzw. kann ich dir gerne den Code mal Posten

    MD-5 ist keine Verschlüsselung, sondern ein Hash, denn du nicht wieder umwandeln kannst, RSA Verschlüßwelungen jedoch schon.
    Meine Projekte Genesis Game Engine | GFX | smartli.me - Der smarte URL shortener

    backtothetoast schrieb:

    MD-5?

    Bitte Hash und Verschlüsselung nicht durcheinander werfen.
    Es war einmal ein kleiner Bär... der wollte eine Geschichte hörn... Da erzählte ihm seine Mutti:
    Es war einmal ein kleiner Bär... der wollte eine Geschichte hörn... Da erzählte ihm seine Mutti:
    Es war einmal ein kleiner Bär... der wollte eine Geschichte hörn... Da erzählte ihm seine Mutti:
    ... Nun solltest es selber wissen. :'D

    Es war einmal ein kleiner Bär... der wollte eine Geschichte hörn... Da erzählte ihm seine Mutti:
    Es war einmal ein kleiner Bär... der wollte eine Geschichte hörn... Da erzählte ihm seine Mutti:
    Es war einmal ein kleiner Bär... der wollte eine Geschichte hörn... Da erzählte ihm seine Mutti:
    ... Nun solltest es selber wissen. :'D

    Nein ist es NICHT.
    Er will die Anmeldedaten von WINDOWS hinterlegen... Und da bringt ihm nen Hash 0,garnix...
    Es war einmal ein kleiner Bär... der wollte eine Geschichte hörn... Da erzählte ihm seine Mutti:
    Es war einmal ein kleiner Bär... der wollte eine Geschichte hörn... Da erzählte ihm seine Mutti:
    Es war einmal ein kleiner Bär... der wollte eine Geschichte hörn... Da erzählte ihm seine Mutti:
    ... Nun solltest es selber wissen. :'D

    ok, müsstest aber ein wenig umbauen. Habe mal so einen String Verschlüßelt und fehlerhaft als Signatur Angesehen. Aber der String wurde dort verschlüßelt und Entschlüßelt.

    VB.NET-Quellcode

    1. Structure keyset
    2. Dim open As String
    3. Dim privat_key As String
    4. End Structure
    6. Public Shared Function createkeys() As keyset
    8. Dim rsaKey As keyset
    9. Dim rsacrypto As New RSACryptoServiceProvider
    11. rsaKey.privat_key = rsacrypto.ToXmlString(True)
    12. rsaKey.open = rsacrypto.ToXmlString(False)
    13. rsacrypto.Dispose()
    15. Return rsaKey
    17. End Function
    19. Public Shared Sub createSignu(path As String, private_Key As String, md5hash As String)
    20. Dim rsacrypto As New RSACryptoServiceProvider
    21. Dim signuByte() As Byte
    22. Dim outstring As String
    26. signuByte = System.Text.Encoding.UTF8.GetBytes(md5hash)
    28. ' Privaten Key Zuweisen
    30. rsacrypto.FromXmlString(private_Key)
    32. ' Signieren
    34. outstring = Convert.ToBase64String(rsacrypto.SignData(signuByte, GetType(SHA1)))
    36. ' Daten Freigeben
    38. rsacrypto.Dispose()
    41. ' Signatur anlegen
    43. Dim writer As New IO.StreamWriter(path & "\signatur.fsx")
    44. writer.WriteLine(outstring)
    45. writer.Close()
    47. 'msg Ausgeben
    49. MsgBox("Signatur Hinzugefügt")
    52. End Sub
    54. Public Shared Function valdiateSignu(path As String, public_key As String, md5hash As String) As Boolean
    55. Dim rsacrypto As New RSACryptoServiceProvider
    56. Dim DataString As String
    57. Dim datavalue As Byte()
    58. Dim SignaturByte As Byte()
    59. Dim valdiate As Boolean
    64. 'Datei Einlesen
    66. Dim fr As New StreamReader(path & "\signatur.fsx")
    67. DataString = fr.ReadToEnd()
    68. fr.Close()
    70. ' md5 in Bytes Umwandeln
    71. datavalue = Encoding.UTF8.GetBytes(md5hash)
    73. ' Signatur in byte Umwandeln
    74. SignaturByte = Convert.FromBase64String(DataString)
    76. ' RSA den Key Zuweisen
    77. rsacrypto.FromXmlString(public_key)
    79. ' Prüfen
    80. valdiate = rsacrypto.VerifyData(datavalue, GetType(SHA1), SignaturByte)
    82. Return valdiate
    86. End Function


    Wobei md5 hash, ein einfacher string ist. Hat in deinem Fall nichts mit md5 zu tuhen.

    Edit:

    Hier mal ein nützlicher link, da wird genau das gemacht was du suchst

    activevb.de/tipps/vbnettipps/tipp0099.html
    Meine Projekte Genesis Game Engine | GFX | smartli.me - Der smarte URL shortener

    @Andy16823

    Hab mir das Beispiel Projekt welches bei deinem Link hinterlegt war gedownloadet und fom Sting "Test" einen Schlüssel gemacht.


    Weisst du jedoch welchen von diesen 3 SChlüsseln ich verwenden muss damit WINDOWS dies beim einloggen erkennt?

    Ich bezweifle dass Windows einen verschlüsselten String als Passwort anerkennt oO
    Es war einmal ein kleiner Bär... der wollte eine Geschichte hörn... Da erzählte ihm seine Mutti:
    Es war einmal ein kleiner Bär... der wollte eine Geschichte hörn... Da erzählte ihm seine Mutti:
    Es war einmal ein kleiner Bär... der wollte eine Geschichte hörn... Da erzählte ihm seine Mutti:
    ... Nun solltest es selber wissen. :'D

    Mich würde interessieren, was dich auf die Idee gebracht hat, dass sowas gehen KÖNNTE...
    Wie schaffst du es denn dich mit einen NICHT-verschlüsselten PW bei Windows anzumelden?!
    Es war einmal ein kleiner Bär... der wollte eine Geschichte hörn... Da erzählte ihm seine Mutti:
    Es war einmal ein kleiner Bär... der wollte eine Geschichte hörn... Da erzählte ihm seine Mutti:
    Es war einmal ein kleiner Bär... der wollte eine Geschichte hörn... Da erzählte ihm seine Mutti:
    ... Nun solltest es selber wissen. :'D

    1. Ich hab hier ein Programm rumliegen welches das kann^^ (Natürlich nicht von mir programmiert-von einer Firma)


    Zu 2. du benötigst nur diese Registry Einträge in HKLM\Software\Microsoft\Windows NT\CurrentVersion\Winlogon\

    VB.NET-Quellcode

    1. RegKey.SetValue("AutoAdminLogon", 1, RegistryValueKind.DWord)
    2. RegKey.SetValue("DefaultDomainName", "Domaine", RegistryValueKind.String)
    3. RegKey.SetValue("DefaultUserName", Me.tb_username.Text, RegistryValueKind.String)
    4. RegKey.SetValue("DefaultPassword", Me.tb_password.Text, RegistryValueKind.String)

    Also so wie ich das sehe wirst da nix mit verschlüsseln machen können. oO
    Zumal das ab Windows Vista anders gelöst wird...
    Es war einmal ein kleiner Bär... der wollte eine Geschichte hörn... Da erzählte ihm seine Mutti:
    Es war einmal ein kleiner Bär... der wollte eine Geschichte hörn... Da erzählte ihm seine Mutti:
    Es war einmal ein kleiner Bär... der wollte eine Geschichte hörn... Da erzählte ihm seine Mutti:
    ... Nun solltest es selber wissen. :'D

    Hab dir nun eine Klasse Geschrieben die das umwandlen übernimmt. Erstelle einfach eine Neue DLL und Bennene die Klasse um zu crypto.vb und füge den Code ein

    VB.NET-Quellcode

    1. Imports System.Security.Cryptography
    3. Public Class Crypto
    5. Public Structure Keys
    7. Dim Open_Key As String
    8. Dim Private_Key As String
    10. End Structure
    12. ''' <summary>
    13. ''' Erstellt ein Neues Schlüßel Paar.
    14. ''' </summary>
    15. ''' <returns></returns>
    16. ''' <remarks></remarks>
    17. Public Function generate_Keys() As Keys
    19. Dim rsaKey As Keys
    20. Dim rsacrypto As New RSACryptoServiceProvider
    22. rsaKey.Private_Key = rsacrypto.ToXmlString(True)
    23. rsaKey.Open_Key = rsacrypto.ToXmlString(False)
    24. rsacrypto.Dispose()
    26. Return rsaKey
    28. End Function
    30. ''' <summary>
    31. ''' Funktion für das Verschlüßeln
    32. ''' </summary>
    33. ''' <param name="Value">Der String der zu verschlüsseln ist</param>
    34. ''' <param name="keys">Das Key Paar</param>
    35. ''' <returns></returns>
    36. ''' <remarks></remarks>
    37. Public Function crypt(Value As String, keys As Keys) As String
    39. ' Service Provider Erstellen
    40. Dim rsa As New RSACryptoServiceProvider()
    41. rsa.FromXmlString(keys.Open_Key)
    43. ' Umwandlen des Values in Bytes
    44. Dim vBytes As Byte() = System.Text.Encoding.UTF8.GetBytes(Value)
    46. ' Erstellen der Verschlüßelungs Bytes
    47. Dim Bytes As Byte() = rsa.Encrypt(vBytes, True)
    49. ' Umwandlend der Bytes zu base64
    50. Return Convert.ToBase64String(Bytes)
    52. End Function
    55. ''' <summary>
    56. ''' Funktion das einen Verschlüßelten String umwandelt zu Klartext
    57. ''' </summary>
    58. ''' <param name="Value">Der Verschlüßelte String</param>
    59. ''' <param name="keys">Das Key Paar</param>
    60. ''' <returns></returns>
    61. ''' <remarks></remarks>
    62. Public Function encrypt(Value As String, keys As Keys) As String
    64. ' Service Provider Erstellen
    65. Dim rsa As New RSACryptoServiceProvider()
    66. rsa.FromXmlString(keys.Private_Key)
    68. ' Umwandeln des Values in Bytes
    69. Dim vBytes As Byte() = Convert.FromBase64String(Value)
    71. ' Entcrypten
    72. Dim Bytes() As Byte = rsa.Decrypt(vBytes, True)
    74. ' ausgeben
    75. Return System.Text.Encoding.Default.GetString(Bytes)
    77. End Function
    79. End Class


    und dann einfach in deiner Anwendung nutzen. Von @jakob1410: habe ich das System.Text.Encoding.Default.GetString(Bytes) das die bytes zu dem String umwandelt.

    Speicher aber die Schlüßel ab, die musst du behalten für das entsclüsseln. Also am besten in eine TXT Datei schreiben lassen. :!:
    Meine Projekte Genesis Game Engine | GFX | smartli.me - Der smarte URL shortener

Facebook
Telefonspende