Home of Gamehacking - Archiv

   
            'Speichert inhalt der Listbox in einer ini ab.         
            Dim ReadFile As Integer = FreeFile()
            FileOpen(ReadFile, ".\Zwischenspeicher.ini", OpenMode.Output)
            For Each Item In Zwischenspeicher.Items
                PrintLine(ReadFile, Item)
            Next
            FileClose(ReadFile)

            'Liest von der ini den inhalt aus und zeigt den gespeicherten inhalt
             wieder in der listbox an.
            FileOpen(ReadFile, ".\Zwischenspeicher.ini", OpenMode.Input)
            Do While Not EOF(ReadFile)
                Zwischenspeicher.Items.Add(LineInput(ReadFile))
            Loop
            FileClose(ReadFile)        

Imports System.Security.Cryptography
Imports System.Text
Public Class Class1
    'Mit dieser Funktion hat mit den Bytes zu tun, also die Hauptgrundfunktion für Cryptography mit.

    Public Shared Function Methode(ByVal key As String) As TripleDES
        Dim m As MD5 = New MD5CryptoServiceProvider
        Dim d As TripleDES = New TripleDESCryptoServiceProvider
        d.Key = m.ComputeHash(Encoding.Unicode.GetBytes(key))
        d.IV = New Byte(((d.BlockSize / 8)) - 1) {}
        Return d
    End Function
    'Mit dieser Funktion Verschlüsselt man mit Encrypt Methode. 
    Public Shared Function encrypt(ByVal value As String, ByVal key As String) As Byte()
        Dim d As TripleDES = Methode(key)
        Dim c As ICryptoTransform = d.CreateEncryptor
        Dim Input() As Byte = Encoding.Unicode.GetBytes(value)
        Return c.TransformFinalBlock(Input, 0, Input.Length)
    End Function
    'Mit dieser Funktion entschlüsselt man wieder mit decrypt Methode. 
    Public Shared Function decrypt(ByVal value As String, ByVal key As String) As String
        Dim b() As Byte = Convert.FromBase64String(value)
        Dim d As TripleDES = Methode(key)
        Dim c As ICryptoTransform = d.CreateDecryptor
        Dim output() As Byte = c.TransformFinalBlock(b, 0, b.Length)
        Return Encoding.Unicode.GetString(output)
    End Function

End Class

Imports System.IO
Imports PW_Generator.Class1
Public Class Form1

End Class

    Private Sub Speichern_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Speichern.Click

Try
            If TextBox2.TextLength >= 6 Then
                Zwischenspeicher.Items.Add(Passwortholer_TextBox.Text)
                TextBox1.Clear()
                ''Mit Verschlüsselung
                Dim i As Integer
                For i = 0 To Zwischenspeicher.Items.Count - 1
                    TextBox1.Text = TextBox1.Text & Zwischenspeicher.Items(i) & vbCrLf
                    Dim b As String = TextBox1.Text
                    Dim c As Byte() = encrypt(b, a)
                    Dim d As String = Convert.ToBase64String(c)
                    File.WriteAllText("Zwischenspeicher.ini", d)
                Next i
            Else
                MsgBox("Die Zeilenlänge muss bis zu 6 Zeichen mindestens haben, damit es gespeichert werden kann.", MsgBoxStyle.Critical, "Fehler beim speichern!")
            End If
        Catch ex As Exception
        End Try
End Sub

    Private Sub Lade_Direkt_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Try
            'Liest den Inhalt der Datei zb ini in der TextBox1 aus.
            'Ausserdem wird der Inhalt der TextBox in der ListBox importiert.
            Dim b As String = File.ReadAllText("Zwischenspeicher.ini")
            Dim c As String = decrypt(b, a)
            TextBox1.Text = c
            Zwischenspeicher.Items.AddRange(TextBox1.Lines)
            'Damit der Import ohne probleme läuft, wird folgender Code als 
            'Ergänzung noch eingefügt:
            'Verhindert, dass eine Leere Zeile in der ListBox erstellt wird, 
            'wenn von der TextBox1 die als Multiline fungiert und der inhalt 
            'in die Listbox als Items eingelesen werden sollen.
            For i As Integer = 0 To Zwischenspeicher.Items.Count - 1
                If Zwischenspeicher.Items.Item(i) = "" Then
                    Zwischenspeicher.Items.RemoveAt(i)
                End If
            Next
        Catch ex As Exception
        End Try

End Sub

    Private Sub Lösche_alles_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        ''Hier werden unwiderruflich alle Zeilen gelöscht inklusiv TextBox.
        Dim i As Integer
        For i = 0 To Zwischenspeicher.Items.Count - 1
            TextBox1.Clear()
            Zwischenspeicher.Items.Clear()
            Dim b As String = TextBox1.Text
            Dim c As Byte() = encrypt(b, a)
            Dim d As String = Convert.ToBase64String(c)
            File.WriteAllText("Zwischenspeicher.ini", d)
        Next i

    End Sub

    Private Sub Zwischenspeicher_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Zwischenspeicher.KeyUp

        Try
            If e.KeyCode = Keys.Delete Then
                Zwischenspeicher.Items.Remove(Zwischenspeicher.SelectedItem)
                TextBox1.Clear()
            End If
        Catch ex As Exception
        End Try

    End Sub