[Release] dat tool by ave

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Form2.Show()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Form3.Show()
    End Sub
End Class


Public Class Form2
    Dim Buchstaben As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890()[]{}?!$%&/=*+~,.;:<>-_"
    Dim r As New Random
    Private Function StringtoMD5(ByVal Content As String) As String
        Dim M5 As New System.Security.Cryptography.MD5CryptoServiceProvider
        Dim ByteString() As Byte = System.Text.Encoding.ASCII.GetBytes(Content)
        ByteString = M5.ComputeHash(ByteString)
        Dim FinalString As String = Nothing
        For Each bt As Byte In ByteString
            FinalString &= bt.ToString("x2")
        Next
        Return FinalString
    End Function
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Clear()
        For i As Integer = 1 To NumericUpDown1.Value
            generieren()
        Next
        TextBox2.Clear()
        TextBox2.Text = "*" & StringtoMD5(TextBox1.Text)
        TextBox2.Text = TextBox2.Text.ToUpper
    End Sub
    Private Sub generieren()
        Try
            TextBox1.Text += Buchstaben.Substring(r.Next(1, 86), 1)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
    Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
        My.Computer.Clipboard.SetText(TextBox1.Text)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        NumericUpDown1.Maximum = 2048
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If TextBox1.Text.Length > 0 Then
            Clipboard.SetText(TextBox1.Text)
        Else
            MsgBox("Es wurde kein Passwort generiert", MsgBoxStyle.Critical)
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If TextBox1.Text.Length > 0 Then
            Clipboard.SetText(TextBox2.Text)
        Else
            MsgBox("Es wurde kein Passwort generiert", MsgBoxStyle.Critical)
        End If
    End Sub
End Class


Imports System.IO
Public Class Form3
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim filecreator As System.IO.StreamWriter
        If RichTextBox1.Text = "" Then
            MsgBox("Der Code ist leer.", MsgBoxStyle.Critical)
        End If
        Dim filetype As String
        If rd_dif.Checked = True Then
            filetype = ".dif"
        ElseIf rd_lua.Checked = True Then
            filetype = ".lua"
        ElseIf rd_quest.Checked = True Then
            filetype = ".quest"
        ElseIf rd_py.Checked = True Then
            filetype = ".py"
        ElseIf rd_self.Checked = True Then
            If TextBox2.Text = "" Then
                MsgBox("Die Datei hat keine Endung.", MsgBoxStyle.Critical)
            Else
                filetype = "." & TextBox2.Text
            End If
        End If
        Dim filename As String
        If TextBox1.Text = "" Then
            filename = "Unbenannt"
        Else
            filename = TextBox1.Text
        End If
        filecreator = New StreamWriter("erstellte Dateien/" & filename & filetype)
        filecreator.Write(RichTextBox1.Text)
        filecreator.Close()
    End Sub

    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        System.IO.Directory.CreateDirectory("erstellte Dateien")
    End Sub
End Class