[Release] dat tool by ave

[Mr. 'Avenue™]

Nein, bin kein Thanks/posthunter.
Ihr müsst mir keine Thanks geben, davon kann ich mir nicht mal ne Schnur kaufen.


Virustotal: (1 / 47)
- Source gibts im Download.


Screen:



Ist aus Langeweile entstanden.
Und jetzt kommt mir bitte nicht mit 'Ich mach voll krass notepad++ auf undso ja, mache speichern als undso ja, schneller als tool ya' .

Special Thanks:
*~.ιηνιη¢ιвℓє.~* - weil Baum :3

[*~.ιηνιη¢ιвℓє.~*]

Da Real Tool !

PS : Ich fehle weil baum in Special Thanks.

[sema1995]

[Splinglol]

Ich check iwie den Sinn dahinter nicht o.O
Was kannst du denn mit dem File-Creator spezielles machen, was du nicht auch mit notepad++ kannst?

Btw, du hast das Tool jz schon mehrmals releast, iwann ist genug, vor allem, wenn es so Zeugs ist..

[Syuki]

Hat das nicht .Remix. schon vor ein paar Tagen released? Finde das Tool unnötig weil Baum und dauert vielleicht 10 Minuten in C#. Danke haste trotzdem, weil es ja 'dat tool' ist.

Werd erwachsen, sorry...

[Lord iRemix]

Originally Posted by Syuki

Hat das nicht .Remix. schon vor ein paar Tagen released? Finde das Tool unnötig weil Baum und dauert vielleicht 10 Minuten in C#. Danke haste trotzdem, weil es ja 'dat tool' ist.

Werd erwachsen, sorry...

Ja hat er mir voll nachgemacht

Das Tool hat jetzt aber 'ne Pw-Generator Funktion..

[Mr. 'Avenue™]

Originally Posted by Splinglol

Ich check iwie den Sinn dahinter nicht o.O
Was kannst du denn mit dem File-Creator spezielles machen, was du nicht auch mit notepad++ kannst?

Btw, du hast das Tool jz schon mehrmals releast, iwann ist genug, vor allem, wenn es so Zeugs ist..

lies mal den letzten, oder vorletzten Satz im Thread :'<

Originally Posted by Syuki

Hat das nicht .Remix. schon vor ein paar Tagen released? Finde das Tool unnötig weil Baum und dauert vielleicht 10 Minuten in C#. Danke haste trotzdem, weil es ja 'dat tool' ist.

Werd erwachsen, sorry...

Hatt' ich das nicht vor .iRemix released? Werd erwachsen, sorry...
PS: Hast 1 Fan (HC'Rynex) cause u hate me, and I hate him, now he's happy

Originally Posted by sema1995

Source:

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

[Splinglol]

ja, hab den schon gelesen, ergibt für mich trotzdem noch keinen sinn

wozu ist denn das tool jetzt da? um vllt die maximal 2 sek schneller zu sein als mit notepad++ ?

versteh mich nicht falsch, will dich nicht iwie schlecht machen, aber der release bereich ist ja eig dafür da, den leuten nützliches weiterzugeben und nicht etwas, was keinen sinn ergibt

[.In¢redible´]

Eigendlich recht unötig.
Aber trodz. danke.

['oShet]

Nein, bin kein Thanks/posthunter.
Ihr müsst mir keine Thanks geben, davon kann ich mir nicht mal ne Schnur kaufen.

damit tust du eh indirekt nach thx betteln :P
nice tool!

[.aNNdii#]

#close