wie bekommt das Programm den Schlüssel?

  • Allgemein

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Agent.

    wie bekommt das Programm den Schlüssel?

    Hallo,
    mit diesem Code entschlüsselt ein Programm eine XML Datei. Mich würde jetzt interessieren wie das Programm den Schlüssel rausfindet.

    Quellcode

    1. Imports Microsoft.VisualBasic.CompilerServices
    2. Imports System
    3. Imports System.Collections
    4. Imports System.Collections.Specialized
    5. Imports System.IO
    6. Imports System.Security.Cryptography
    7. Imports System.Text
    8. Imports System.Xml
    10. Namespace Plugin
    11. Public Class Settings
    12. Inherits NameValueCollection
    13. ' Methods
    14. Public Shared Function Load(ByVal name As String) As Object
    15. Dim salt As Byte() = Encoding.ASCII.GetBytes(Settings._key)
    16. Dim bytes As DeriveBytes = New Rfc2898DeriveBytes(Settings._key, salt)
    17. Dim managed As New RijndaelManaged
    18. managed.Key = bytes.GetBytes(&H20)
    19. managed.IV = bytes.GetBytes(&H10)
    20. Dim settings As New Settings
    21. settings.File = String.Format("settings/{0}", name)
    22. Dim settings2 As New XmlReaderSettings
    23. Dim settings3 As XmlReaderSettings = settings2
    24. settings3.IgnoreComments = True
    25. settings3.IgnoreProcessingInstructions = True
    26. settings3.IgnoreWhitespace = True
    27. settings3 = Nothing
    28. Try
    29. Using stream As FileStream = New FileStream(settings.File, FileMode.Open, FileAccess.Read, FileShare.Read)
    30. Using stream2 As CryptoStream = New CryptoStream(stream, managed.CreateDecryptor, CryptoStreamMode.Read)
    31. Using reader As XmlReader = XmlReader.Create(stream2, settings2)
    32. Do While reader.Read
    33. If (reader.NodeType = XmlNodeType.Element) Then
    34. Select Case reader.Name
    35. Case "data"
    36. reader.MoveToFirstAttribute
    37. name = reader.Value
    38. Exit Select
    39. Case "value"
    40. settings.Add(name, reader.ReadString)
    41. Exit Select
    42. End Select
    43. End If
    44. Loop
    45. reader.Close
    46. stream2.Close
    47. stream.Close
    48. Return settings
    49. End Using
    50. End Using
    51. End Using
    52. Catch exception1 As Exception
    53. ProjectData.SetProjectError(exception1)
    54. Dim exception As Exception = exception1
    55. ProjectData.ClearProjectError
    56. End Try
    57. Return settings
    58. End Function
    60. Public Sub Save()
    61. If (Me.Count <> 0) Then
    62. Console.WriteLine(Settings._key)
    63. Dim salt As Byte() = Encoding.ASCII.GetBytes(Settings._key)
    64. Dim bytes As DeriveBytes = New Rfc2898DeriveBytes(Settings._key, salt)
    65. Dim managed As New RijndaelManaged
    66. managed.Key = bytes.GetBytes(&H20)
    67. managed.IV = bytes.GetBytes(&H10)
    68. Dim settings As New XmlWriterSettings
    69. Dim settings2 As XmlWriterSettings = settings
    70. settings2.Encoding = Encoding.UTF8
    71. settings2.Indent = True
    72. settings2.IndentChars = " "
    73. settings2 = Nothing
    74. If Not Directory.Exists("Settings") Then
    75. Directory.CreateDirectory("Settings")
    76. End If
    77. Try
    78. Using stream As FileStream = New FileStream(Me.File, FileMode.Create, FileAccess.Write, FileShare.None)
    79. Using stream2 As CryptoStream = New CryptoStream(stream, managed.CreateEncryptor, CryptoStreamMode.Write)
    80. Using writer As XmlWriter = XmlWriter.Create(stream2, settings)
    81. writer.WriteStartDocument
    82. writer.WriteStartElement("CryptLoad")
    83. If (Me.Count > 0) Then
    84. Dim enumerator As IEnumerator
    85. Try
    86. enumerator = Me.Keys.GetEnumerator
    87. Do While enumerator.MoveNext
    88. Dim str As String = Conversions.ToString(enumerator.Current)
    89. writer.WriteStartElement("data")
    90. writer.WriteAttributeString("name", "", str)
    91. writer.WriteElementString("value", Me.Item(str))
    92. writer.WriteEndElement
    93. Loop
    94. Finally
    95. If TypeOf enumerator Is IDisposable Then
    96. TryCast(enumerator,IDisposable).Dispose
    97. End If
    98. End Try
    99. End If
    100. writer.WriteEndElement
    101. writer.WriteEndDocument
    102. writer.Close
    103. stream2.Close
    104. stream.Close
    105. End Using
    106. End Using
    107. End Using
    108. Catch exception1 As Exception
    109. ProjectData.SetProjectError(exception1)
    110. Dim exception As Exception = exception1
    111. ProjectData.ClearProjectError
    112. End Try
    113. End If
    114. End Sub
    117. ' Properties
    118. Public Property File As String
    119. Get
    120. Return Me._File
    121. End Get
    122. Set(ByVal value As String)
    123. Me._File = value
    124. End Set
    125. End Property
    128. ' Fields
    129. Private _File As String
    130. Private Shared _key As String = String.Format("{0}Cryptload", Conversions.ToString(Math.Abs(CInt((Environment.MachineName.GetHashCode + Environment.ProcessorCount.GetHashCode)))))
    131. End Class
    132. End Namespace

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „key“ ()

    Private Shared _key As String = String.Format("{0}Cryptload", Conversions.ToString(Math.Abs(CInt((Environment.MachineName.GetHashCode + Environment.ProcessorCount.GetHashCode)))))
    Gruß, Agent Smith 8-)

    activeFlags = (lazy OR weary)

    Lemgo-Verschwörung | Mathematics | VB-Paradise in blau

Facebook
Telefonspende