Imports System.Windows.Forms
Imports System.Security.Cryptography
 
Public Class Suchen
    ' Daten entschlüsseln
    Public Function DecryptData(ByVal sFile As String) As String
        ' Datei mit verschlüsselten Daten auslesen
        Dim bData() As Byte
        bData = My.Computer.FileSystem.ReadAllBytes("data/" & Me.txtFUNC.Text & _
          ".encrypt")
 
        ' Daten entschlüsseln
        bData = ProtectedData.Unprotect(bData, Nothing, _
          DataProtectionScope.CurrentUser)
 
        ' in String umwandeln und als Funktionswert zurückgeben
        Dim oStream As New IO.MemoryStream(bData)
        With New IO.StreamReader(oStream)
            Return .ReadToEnd()
            .Close()
        End With
    End Function
 
    Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles OK_Button.Click
        Me.DialogResult = System.Windows.Forms.DialogResult.OK
 
        frmLoad.Show()
        If My.Computer.FileSystem.FileExists("data/" & Me.txtFUNC.Text & _
          ".encrypt") Then
            frmLoad.Hide()
            ' verschlüsselten Text aus Datei auslesen und entschlüsseln
            Me.Close()
            Dim sText As String
            sText = DecryptData("data/" & Me.txtFUNC.Text & ".encrypt")
 
            frmMain.txtCODE.Text = sText
        Else
            frmLoad.Hide()
            Me.Close()
            MsgBox("Die Suchanfrage konnte nicht gefunden werden!")
 
        End If
    End Sub
 
    Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Cancel_Button.Click
        Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
        Me.Close()
    End Sub
End Class

Liebe Gr??e,
Danke im voras!

S?ren

Ein guter Rutsch ins neue Jahr!