Loader Decompilado! CloudSec

@Coder.Anonymous é pra vc!
huehuehue

Code:

'Form1

<DebuggerStepThrough()> _
Private Sub InitializeComponent()
    Me.components = New Container()
    Dim listviewitem1 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem(New String() {"CloudSec Extreme 4.0", "Combat Arms BR", "CyraxSector", "SLA", "SLA"}, -1)
    Dim componentresourcemanager1 As ComponentResourceManager = New ComponentResourceManager(GetType((CloudSec_Loader_.Form1))
    Me.Timer3 = New System.Windows.Forms.Timer(Me.components)
    Me.ListView1 = New System.Windows.Forms.ListView()
    Me.ColumnHeader1 = New System.Windows.Forms.ColumnHeader()
    Me.ColumnHeader2 = New System.Windows.Forms.ColumnHeader()
    Me.ColumnHeader3 = New System.Windows.Forms.ColumnHeader()
    Me.Button1 = New System.Windows.Forms.Button()
    Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
    Me.Label1 = New System.Windows.Forms.Label()
    Me.PictureBox1 = New System.Windows.Forms.PictureBox()
    Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
    Me.Timer2 = New System.Windows.Forms.Timer(Me.components)
    Me.Label2 = New System.Windows.Forms.Label()
    Me.Label3 = New System.Windows.Forms.Label()
    Me.Label4 = New System.Windows.Forms.Label()
    Me.Label5 = New System.Windows.Forms.Label()
    Me.PictureBox1.BeginInit()
    Me.SuspendLayout()
    Me.ListView1.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader1, Me.ColumnHeader2, Me.ColumnHeader3})
    Me.ListView1.FullRowSelect = True
    Me.ListView1.Items.AddRange(New System.Windows.Forms.ListViewItem() {listviewitem1})
    Me.ListView1.Location = New System.Drawing.Point(11, 81)
    Me.ListView1.Name = "ListView1"
    Me.ListView1.Size = New System.Drawing.Size(436, 92)
    Me.ListView1.TabIndex = 14
    Me.ListView1.UseCompatibleStateImageBehavior = False
    Me.ListView1.View = System.Windows.Forms.View.Details
    Me.ColumnHeader1.Text = "Nome"
    Me.ColumnHeader1.Width = 139
    Me.ColumnHeader2.Text = "Jogo"
    Me.ColumnHeader2.Width = 154
    Me.ColumnHeader3.Text = "Programador"
    Me.ColumnHeader3.Width = 139
    Me.Button1.Location = New System.Drawing.Point(355, 179)
    Me.Button1.Name = "Button1"
    Me.Button1.Size = New System.Drawing.Size(93, 26)
    Me.Button1.TabIndex = 15
    Me.Button1.Text = "Load Cheat"
    Me.Button1.UseVisualStyleBackColor = True
    Me.ProgressBar1.Location = New System.Drawing.Point(12, 211)
    Me.ProgressBar1.Name = "ProgressBar1"
    Me.ProgressBar1.Size = New System.Drawing.Size(436, 23)
    Me.ProgressBar1.TabIndex = 16
    Me.Label1.AutoSize = True
    Me.Label1.Location = New System.Drawing.Point(320, 244)
    Me.Label1.Name = "Label1"
    Me.Label1.Size = New System.Drawing.Size(139, 13)
    Me.Label1.TabIndex = 17
    Me.Label1.Text = "Copyright © 2015 CloudSec"
    Me.PictureBox1.Image = DirectCast(componentresourcemanager1.GetObject("PictureBox1.Image"), System.Drawing.Image)
    Me.PictureBox1.Location = New System.Drawing.Point(11, 12)
    Me.PictureBox1.Name = "PictureBox1"
    Me.PictureBox1.Size = New System.Drawing.Size(436, 63)
    Me.PictureBox1.TabIndex = 18
    Me.PictureBox1.TabStop = False
    Me.Label2.AutoSize = True
    Me.Label2.Location = New System.Drawing.Point(15, 179)
    Me.Label2.Name = "Label2"
    Me.Label2.Size = New System.Drawing.Size(96, 13)
    Me.Label2.TabIndex = 19
    Me.Label2.Text = "Ultima atualização:"
    Me.Label3.AutoSize = True
    Me.Label3.ForeColor = System.Drawing.Color.Crimson
    Me.Label3.Location = New System.Drawing.Point(107, 179)
    Me.Label3.Name = "Label3"
    Me.Label3.Size = New System.Drawing.Size(61, 13)
    Me.Label3.TabIndex = 20
    Me.Label3.Text = "Checking..."
    Me.Label4.AutoSize = True
    Me.Label4.Location = New System.Drawing.Point(15, 195)
    Me.Label4.Name = "Label4"
    Me.Label4.Size = New System.Drawing.Size(40, 13)
    Me.Label4.TabIndex = 21
    Me.Label4.Text = "Status:"
    Me.Label5.AutoSize = True
    Me.Label5.ForeColor = System.Drawing.Color.DarkGreen
    Me.Label5.Location = New System.Drawing.Point(50, 195)
    Me.Label5.Name = "Label5"
    Me.Label5.Size = New System.Drawing.Size(61, 13)
    Me.Label5.TabIndex = 22
    Me.Label5.Text = "Checking..."
    Me.AutoScaleDimensions = New System.Drawing.SizeF(6, 13)
    Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
    Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
    Me.ClientSize = New System.Drawing.Size(459, 266)
    Me.Controls.Add(Me.Label5)
    Me.Controls.Add(Me.Label4)
    Me.Controls.Add(Me.Label3)
    Me.Controls.Add(Me.Label2)
    Me.Controls.Add(Me.PictureBox1)
    Me.Controls.Add(Me.Label1)
    Me.Controls.Add(Me.ProgressBar1)
    Me.Controls.Add(Me.Button1)
    Me.Controls.Add(Me.ListView1)
    Me.Icon = DirectCast(componentresourcemanager1.GetObject("$this.Icon"), System.Drawing.Icon)
    Me.Name = "Form1"
    Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
    Me.Text = "CloudSec Loader"
    Me.PictureBox1.EndInit()
    Me.ResumeLayout(False)
    Me.PerformLayout()
End Sub

'Form2

<DebuggerStepThrough()> _
Private Sub InitializeComponent()
    Me.components = New Container()
    Dim componentresourcemanager1 As ComponentResourceManager = New ComponentResourceManager(GetType((CloudSec_Loader_.Form2))
    Me.Label1 = New System.Windows.Forms.Label()
    Me.Label2 = New System.Windows.Forms.Label()
    Me.TextBox1 = New System.Windows.Forms.TextBox()
    Me.TextBox2 = New System.Windows.Forms.TextBox()
    Me.Button1 = New System.Windows.Forms.Button()
    Me.PictureBox1 = New System.Windows.Forms.PictureBox()
    Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
    Me.WebBrowser1 = New System.Windows.Forms.WebBrowser()
    Me.PictureBox2 = New System.Windows.Forms.PictureBox()
    Me.PictureBox3 = New System.Windows.Forms.PictureBox()
    Me.LinkLabel1 = New System.Windows.Forms.LinkLabel()
    Me.PictureBox1.BeginInit()
    Me.PictureBox2.BeginInit()
    Me.PictureBox3.BeginInit()
    Me.SuspendLayout()
    Me.Label1.AutoSize = True
    Me.Label1.Location = New System.Drawing.Point(36, 9)
    Me.Label1.Name = "Label1"
    Me.Label1.Size = New System.Drawing.Size(46, 13)
    Me.Label1.TabIndex = 0
    Me.Label1.Text = "Usuário:"
    Me.Label2.AutoSize = True
    Me.Label2.Location = New System.Drawing.Point(36, 46)
    Me.Label2.Name = "Label2"
    Me.Label2.Size = New System.Drawing.Size(41, 13)
    Me.Label2.TabIndex = 1
    Me.Label2.Text = "Senha:"
    Me.TextBox1.Location = New System.Drawing.Point(35, 25)
    Me.TextBox1.Name = "TextBox1"
    Me.TextBox1.Size = New System.Drawing.Size(100, 20)
    Me.TextBox1.TabIndex = 2
    Me.TextBox2.Location = New System.Drawing.Point(35, 62)
    Me.TextBox2.Name = "TextBox2"
    Me.TextBox2.PasswordChar = 42
    Me.TextBox2.Size = New System.Drawing.Size(100, 20)
    Me.TextBox2.TabIndex = 3
    Me.Button1.Location = New System.Drawing.Point(81, 88)
    Me.Button1.Name = "Button1"
    Me.Button1.Size = New System.Drawing.Size(54, 23)
    Me.Button1.TabIndex = 4
    Me.Button1.Text = "Entrar"
    Me.Button1.UseVisualStyleBackColor = True
    Me.PictureBox1.Image = DirectCast(componentresourcemanager1.GetObject("PictureBox1.Image"), System.Drawing.Image)
    Me.PictureBox1.Location = New System.Drawing.Point(141, 12)
    Me.PictureBox1.Name = "PictureBox1"
    Me.PictureBox1.Size = New System.Drawing.Size(115, 94)
    Me.PictureBox1.TabIndex = 5
    Me.PictureBox1.TabStop = False
    Me.WebBrowser1.Location = New System.Drawing.Point(339, 12)
    Me.WebBrowser1.MinimumSize = New System.Drawing.Size(20, 20)
    Me.WebBrowser1.Name = "WebBrowser1"
    Me.WebBrowser1.ScriptErrorsSuppressed = True
    Me.WebBrowser1.Size = New System.Drawing.Size(264, 82)
    Me.WebBrowser1.TabIndex = 6
    Me.WebBrowser1.Url = New Uri("http://cloudsec.forumbom.com/login", UriKind.Absolute)
    Me.WebBrowser1.Visible = False
    Me.PictureBox2.Image = DirectCast(componentresourcemanager1.GetObject("PictureBox2.Image"), System.Drawing.Image)
    Me.PictureBox2.Location = New System.Drawing.Point(3, 25)
    Me.PictureBox2.Name = "PictureBox2"
    Me.PictureBox2.Size = New System.Drawing.Size(26, 20)
    Me.PictureBox2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
    Me.PictureBox2.TabIndex = 7
    Me.PictureBox2.TabStop = False
    Me.PictureBox3.Image = DirectCast(componentresourcemanager1.GetObject("PictureBox3.Image"), System.Drawing.Image)
    Me.PictureBox3.Location = New System.Drawing.Point(3, 62)
    Me.PictureBox3.Name = "PictureBox3"
    Me.PictureBox3.Size = New System.Drawing.Size(26, 20)
    Me.PictureBox3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
    Me.PictureBox3.TabIndex = 8
    Me.PictureBox3.TabStop = False
    Me.LinkLabel1.AutoSize = True
    Me.LinkLabel1.LinkColor = System.Drawing.Color.Red
    Me.LinkLabel1.Location = New System.Drawing.Point(9, 93)
    Me.LinkLabel1.Name = "LinkLabel1"
    Me.LinkLabel1.Size = New System.Drawing.Size(66, 13)
    Me.LinkLabel1.TabIndex = 9
    Me.LinkLabel1.TabStop = True
    Me.LinkLabel1.Text = "Cadastrar-se"
    Me.AutoScaleDimensions = New System.Drawing.SizeF(6, 13)
    Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
    Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
    Me.ClientSize = New System.Drawing.Size(271, 118)
    Me.Controls.Add(Me.LinkLabel1)
    Me.Controls.Add(Me.PictureBox3)
    Me.Controls.Add(Me.PictureBox2)
    Me.Controls.Add(Me.WebBrowser1)
    Me.Controls.Add(Me.PictureBox1)
    Me.Controls.Add(Me.Button1)
    Me.Controls.Add(Me.TextBox2)
    Me.Controls.Add(Me.TextBox1)
    Me.Controls.Add(Me.Label2)
    Me.Controls.Add(Me.Label1)
    Me.Icon = DirectCast(componentresourcemanager1.GetObject("$this.Icon"), System.Drawing.Icon)
    Me.Name = "Form2"
    Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
    Me.Text = "CloudSec Extreme Loader"
    Me.PictureBox1.EndInit()
    Me.PictureBox2.EndInit()
    Me.PictureBox3.EndInit()
    Me.ResumeLayout(False)
    Me.PerformLayout()
End Sub

'Form3

<DebuggerStepThrough()> _
Private Sub InitializeComponent()
    Dim componentresourcemanager1 As ComponentResourceManager = New ComponentResourceManager(GetType((CloudSec_Loader_.Form3))
    Me.GroupBox1 = New System.Windows.Forms.GroupBox()
    Me.Label4 = New System.Windows.Forms.Label()
    Me.Label3 = New System.Windows.Forms.Label()
    Me.Label2 = New System.Windows.Forms.Label()
    Me.Label1 = New System.Windows.Forms.Label()
    Me.GroupBox2 = New System.Windows.Forms.GroupBox()
    Me.Button1 = New System.Windows.Forms.Button()
    Me.Button2 = New System.Windows.Forms.Button()
    Me.Button3 = New System.Windows.Forms.Button()
    Me.Button4 = New System.Windows.Forms.Button()
    Me.GroupBox1.SuspendLayout()
    Me.GroupBox2.SuspendLayout()
    Me.SuspendLayout()
    Me.GroupBox1.Controls.Add(Me.Label4)
    Me.GroupBox1.Controls.Add(Me.Label3)
    Me.GroupBox1.Controls.Add(Me.Label2)
    Me.GroupBox1.Controls.Add(Me.Label1)
    Me.GroupBox1.Location = New System.Drawing.Point(12, 12)
    Me.GroupBox1.Name = "GroupBox1"
    Me.GroupBox1.Size = New System.Drawing.Size(360, 84)
    Me.GroupBox1.TabIndex = 0
    Me.GroupBox1.TabStop = False
    Me.GroupBox1.Text = "Informação"
    Me.Label4.AutoSize = True
    Me.Label4.ForeColor = System.Drawing.Color.Crimson
    Me.Label4.Location = New System.Drawing.Point(82, 47)
    Me.Label4.Name = "Label4"
    Me.Label4.Size = New System.Drawing.Size(61, 13)
    Me.Label4.TabIndex = 3
    Me.Label4.Text = "Checking..."
    Me.Label3.AutoSize = True
    Me.Label3.ForeColor = System.Drawing.Color.DarkGreen
    Me.Label3.Location = New System.Drawing.Point(59, 20)
    Me.Label3.Name = "Label3"
    Me.Label3.Size = New System.Drawing.Size(61, 13)
    Me.Label3.TabIndex = 2
    Me.Label3.Text = "Checking..."
    Me.Label2.AutoSize = True
    Me.Label2.Location = New System.Drawing.Point(6, 47)
    Me.Label2.Name = "Label2"
    Me.Label2.Size = New System.Drawing.Size(70, 13)
    Me.Label2.TabIndex = 1
    Me.Label2.Text = "Hardware ID:"
    Me.Label1.AutoSize = True
    Me.Label1.Location = New System.Drawing.Point(7, 20)
    Me.Label1.Name = "Label1"
    Me.Label1.Size = New System.Drawing.Size(46, 13)
    Me.Label1.TabIndex = 0
    Me.Label1.Text = "Usuario:"
    Me.GroupBox2.Controls.Add(Me.Button3)
    Me.GroupBox2.Controls.Add(Me.Button2)
    Me.GroupBox2.Controls.Add(Me.Button1)
    Me.GroupBox2.Location = New System.Drawing.Point(12, 103)
    Me.GroupBox2.Name = "GroupBox2"
    Me.GroupBox2.Size = New System.Drawing.Size(360, 68)
    Me.GroupBox2.TabIndex = 1
    Me.GroupBox2.TabStop = False
    Me.GroupBox2.Text = "Ferramentas"
    Me.Button1.Location = New System.Drawing.Point(10, 29)
    Me.Button1.Name = "Button1"
    Me.Button1.Size = New System.Drawing.Size(75, 23)
    Me.Button1.TabIndex = 0
    Me.Button1.Text = "Clear Logs"
    Me.Button1.UseVisualStyleBackColor = True
    Me.Button2.Location = New System.Drawing.Point(138, 29)
    Me.Button2.Name = "Button2"
    Me.Button2.Size = New System.Drawing.Size(75, 23)
    Me.Button2.TabIndex = 1
    Me.Button2.Text = "Problenas?"
    Me.Button2.UseVisualStyleBackColor = True
    Me.Button3.Location = New System.Drawing.Point(260, 29)
    Me.Button3.Name = "Button3"
    Me.Button3.Size = New System.Drawing.Size(75, 23)
    Me.Button3.TabIndex = 2
    Me.Button3.Text = "Sair"
    Me.Button3.UseVisualStyleBackColor = True
    Me.Button4.Location = New System.Drawing.Point(297, 177)
    Me.Button4.Name = "Button4"
    Me.Button4.Size = New System.Drawing.Size(75, 23)
    Me.Button4.TabIndex = 2
    Me.Button4.Text = "Loader ->"
    Me.Button4.UseVisualStyleBackColor = True
    Me.AutoScaleDimensions = New System.Drawing.SizeF(6, 13)
    Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
    Me.ClientSize = New System.Drawing.Size(384, 209)
    Me.Controls.Add(Me.Button4)
    Me.Controls.Add(Me.GroupBox2)
    Me.Controls.Add(Me.GroupBox1)
    Me.Icon = DirectCast(componentresourcemanager1.GetObject("$this.Icon"), System.Drawing.Icon)
    Me.Name = "Form3"
    Me.Text = "Step 2"
    Me.GroupBox1.ResumeLayout(False)
    Me.GroupBox1.PerformLayout()
    Me.GroupBox2.ResumeLayout(False)
    Me.ResumeLayout(False)
End Sub

Code:

'Form1

Public Const MEM_COMMIT As Int32 = 4096
Public Const PAGE_READWRITE As Int32 = 4
Public Const PROCESS_CREATE_THREAD As Int32 = 2
Public Const PROCESS_VM_OPERATION As Int32 = 8
Public Const PROCESS_VM_READ As Int32 = 16
Public Const PROCESS_VM_WRITE As Int32 = 32
Public Const TH32CS_SNAPPROCESS As Int32 = 2

Private wb As System.Net.WebClient
Private ExeName As String
Private Link As String
Private pfnStartAddr As Int32
Private Processo As String
Private pszLibFileRemote As String
Private TargetBufferSize As Int32
Private TargetProcessHandle As Int32

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)
    If (Me.ListView1.FocusedItem.Text <> "CloudSec Extreme 4.0" = 0) Then
        Me.Processo = "Engine"
        Me.Link = "url do cyraxsectorponto3eewebpontocom/User/CursosChange.dll"
        System.Windows.Forms.MessageBox.Show("CloudSec Extreme 4.0, Selecionado!")
    End If
    If (Me.ListView1.FocusedItem.Text <> "GBCheats 1.0" = 0) Then
        Me.Processo = "Engine"
        Me.Link = ""
        System.Windows.Forms.MessageBox.Show("GBCheats 1.0 Selecionado!")
    End If
    Me.Timer2.Start()
    Me.Timer1.Start()
    Me.Timer1.Interval = 50
    Me.Downloading()
End Sub

Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs)
    If (Me.wb.DownloadString("url do cyraxsectorponto3eewebpontocom/Offline.txt") <> "Offline - Em Atualização..." = 0) Then
        Interaction.MsgBox("O programa está sendo atualizado, por favor, volte mais tarde!", MsgBoxStyle.Exclamation, "Aviso")
        Me.Label3.Text = "Offline - Em Atualização..."
        Me.Label5.Text = "Offline - Em Atualização..."
        System.Windows.Forms.Application.Exit()
    Else
        Me.Label3.Text = Me.wb.DownloadString("url do cyraxsectorponto3eewebpontocom/Date.txt")
        Me.Label5.Text = Me.wb.DownloadString("url do cyraxsectorponto3eewebpontocom/Status.txt")
    End If
End Sub

Private Sub Inject()
    Dim array1 As Process() = Process.GetProcessesByName(Me.Processo)
    Try
        Me.TargetProcessHandle = OpenProcess(2035711, 0, array1(0).Id)
        Me.pszLibFileRemote = "C:\Windows\Cursors\MyCursors.dll"
        Me.pfnStartAddr = GetProcAddress(GetModuleHandle("Kernel32"), "LoadLibraryA")
        Me.TargetBufferSize = (1 + Strings.Len(Me.pszLibFileRemote))
        Dim num1 As Integer = VirtualAllocEx(Me.TargetProcessHandle, 0, Me.TargetBufferSize, 4096, 4)
        Dim num2 As Integer = WriteProcessMemory(Me.TargetProcessHandle, num1, Me.pszLibFileRemote, Me.TargetBufferSize, 0)
        CreateRemoteThread(Me.TargetProcessHandle, 0, 0, Me.pfnStartAddr, num1, 0, #intptr1)
        If (IntPtr.op_Equality(0, System.IntPtr.Zero)) Then
        End If
        System.Windows.Forms.Application.Exit()
        Process.Start("****site da coudsec ****/")
    
    Catch exception1 As Exception
    End Try
End Sub

Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs)
    Me.ProgressBar1.Increment(1)
    If (Me.ProgressBar1.Value = Me.ProgressBar1.Maximum) Then
    End If
    If (System****.File.Exists("C:\Windows\Cursors\MyCursors.dll")) Then
        If (Process.GetProcessesByName(Me.Processo).Length() <> 0) Then
            Me.Inject()
        End If
    End If
End Sub

Private Sub Timer2_Tick(ByVal sender As Object, ByVal e As EventArgs)
    Me.ProgressBar1.Increment(1)
    If (Me.ProgressBar1.Value = Me.ProgressBar1.Maximum) Then
        Dim array1 As Process() = Process.GetProcessesByName(Me.Processo)
        Me.Timer2.Stop()
        Interaction.MsgBox("Cheat Carregado!, Abra o Game!", MsgBoxStyle.Information, Nothing)
    End If
End Sub

'Form2

Private Logado As Boolean

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)
    Me.Logado = False
    If (Not Me.Logado) Then
        Me.Logar(Me.WebBrowser1, Me.TextBox1, Me.TextBox2)
        Me.VerificarSiFoiLogado()
        Me.Timer1.Start()
    End If
End Sub

Public Sub DeleteSystemFile(ByVal action As .FileToDelete)
    Dim str1 As String = ""
    str1 = "InetCpl.cpl,ClearMyTracksByProcess " & Conversions.ToString(action)
    Dim process1 As Process = Nothing
    Dim processstartinfo1 As ProcessStartInfo = New ProcessStartInfo()
    processstartinfo1.FileName = Environment.GetFolderPath(SpecialFolder.System).ToString() & "\Rundll32.exe"
    If (Environment.OSVersion.Version.Major >= 6) Then
        processstartinfo1.Verb = "runas"
    End If
    processstartinfo1.Arguments = str1
    processstartinfo1.WindowStyle = ProcessWindowStyle.Hidden
    processstartinfo1.UseShellExecute = True
    Try
        process1 = Process.Start(processstartinfo1)
    
    Catch exception1 As Exception
    
    Finally
        If (process1 Is Not Nothing) Then
            process1.Dispose()
        End If
    End Try
End Sub

Public Function IsAdmin() As Boolean
    Return New System.Security.Principal.WindowsPrincipal(System.Security.Principal.WindowsIdentity.GetCurrent()).IsInRole(System.Security.Principal.WindowsBuiltInRole.Administrator)
End Function

Private Sub Form2_Load(ByVal sender As Object, ByVal e As EventArgs)
    My.MyProject.Computer.Audio.Play(My.Resources.Resources.music, AudioPlayMode.BackgroundLoop)
    If (Me.IsAdmin()) Then
        Interaction.MsgBox("Seja Bem Vindo!, Cadastre-se para ter acesso ao LOADER", MsgBoxStyle.Exclamation, Nothing)
        Process.Start("****url da coudsec register****")
    Else
        Interaction.MsgBox("Programa deve ser aberto em modo administrador", MsgBoxStyle.Critical, Nothing)
        Me.Close()
    End If
End Sub

Private Sub LinkLabel1_LinkClicked(ByVal sender As Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)
    Process.Start("****url da coudsec register****")
End Sub

Public Sub Logar(ByVal web As System.Windows.Forms.WebBrowser, ByVal usuario As System.Windows.Forms.TextBox, ByVal Senha As System.Windows.Forms.TextBox)
    Dim htmlelementcollection1 As System.Windows.Forms.HtmlElementCollection = web.Document.GetElementsByTagName("Input")
    Try
        Dim ienumerator1 As System.Collections.IEnumerator = htmlelementcollection1.GetEnumerator()
        Do While (ienumerator1.MoveNext()) 
            Dim htmlelement1 As System.Windows.Forms.HtmlElement = DirectCast(ienumerator1.Current, System.Windows.Forms.HtmlElement)
            If (htmlelement1.GetAttribute("id").ToString() <> "username" = 0) Then
                htmlelement1.SetAttribute("Value", usuario.Text)
            End If
        
        Loop
    
    Finally
        If (TypeOf ienumerator1 Is System.IDisposable) Then
            (TypeOf ienumerator1 Is System.IDisposable).Dispose()
        End If
    End Try
    htmlelementcollection1 = web.Document.GetElementsByTagName("Input")
    Try
        Dim ienumerator2 As System.Collections.IEnumerator = htmlelementcollection1.GetEnumerator()
        Do While (ienumerator2.MoveNext()) 
            Dim htmlelement2 As System.Windows.Forms.HtmlElement = DirectCast(ienumerator2.Current, System.Windows.Forms.HtmlElement)
            If (htmlelement2.GetAttribute("id").ToString() <> "password" = 0) Then
                htmlelement2.SetAttribute("Value", Senha.Text)
            End If
        
        Loop
    
    Finally
        If (TypeOf ienumerator2 Is System.IDisposable) Then
            (TypeOf ienumerator2 Is System.IDisposable).Dispose()
        End If
    End Try
    htmlelementcollection1 = web.Document.GetElementsByTagName("Input")
    Try
        Dim ienumerator3 As System.Collections.IEnumerator = htmlelementcollection1.GetEnumerator()
        Do While (ienumerator3.MoveNext()) 
            Dim htmlelement3 As System.Windows.Forms.HtmlElement = DirectCast(ienumerator3.Current, System.Windows.Forms.HtmlElement)
            If (htmlelement3.GetAttribute("value").Equals("Login")) Then
                htmlelement3.InvokeMember("click")
            End If
        
        Loop
    
    Finally
        If (TypeOf ienumerator3 Is System.IDisposable) Then
            (TypeOf ienumerator3 Is System.IDisposable).Dispose()
        End If
    End Try
End Sub

Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs)
    If (Me.WebBrowser1.ReadyState = 4) Then
        Me.TextBox1.Enabled = True
        Me.TextBox2.Enabled = True
    End If
End Sub

Public Sub VerificarSiFoiLogado()
    If (Not Me.Logado) Then
        If (Me.WebBrowser1.DocumentText.Contains("O nome de usuário ou senha está incorreto, desativado ou equivocado.")) Then
            Interaction.MsgBox("Usuario Incorreto ou Senha Incorreto", MsgBoxStyle.OkOnly, Nothing)
            Me.Logado = True
        End If
        If (Me.WebBrowser1.DocumentText.Contains("Bem Vindo, ")) Then
            Interaction.MsgBox("Logado com Sucesso!", MsgBoxStyle.OkOnly, Nothing)
            Me.Logado = True
            Me.Hide()
            Me.DeleteSystemFile(FileToDelete.Cookies)
            My.MyProject.Forms.Form1.Show()
        End If
    End If
End Sub

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)
    Me.Button1.Enabled = True
End Sub

'Form3

Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs)
    Process.Start("www.cloudsec.forumbom.com")
End Sub

Private Sub Button3_Click(ByVal sender As Object, ByVal e As EventArgs)
    System.Windows.Forms.Application.Exit()
End Sub

Private Sub Button4_Click(ByVal sender As Object, ByVal e As EventArgs)
    Me.Hide()
    My.MyProject.Forms.Form1.Show()
End Sub

Private Sub Form3_Load(ByVal sender As Object, ByVal e As EventArgs)
    Me.Label3.Text = Conversions.ToString(Operators.ConcatenateObject(Operators.ConcatenateObject("Logado com sucesso Login: ", NewLateBinding.LateGet(Me.TextBox1, Nothing, "Text", New Object(-1) {}, Nothing, Nothing, Nothing)), ""))
    Me.Label4.Text = Conversions.ToString(My.MyProject.Computer.Info.TotalPhysicalMemory) & Conversions.ToString(My.MyProject.Computer.Info.TotalVirtualMemory)
End Sub

Nego sabe usar um .NET Reflector

ó ó ó ele sabe usar o reflector, parabens cara !!

Decompilado?, tipo e só abrir no .net disassembly ou em outro programa, ai ele já ira mostra a source toda, nem segura tem o loader, ele foi feito para injetar a dll e dar uns membros para um amigo, nossa que mega coder vc em, manja muito das "Eng. Reversa", me ensina ? quer ser meu professor.
ow me senti muito mal agora nossa, não pera pela proteção da dll não passa nê ? bjs. (apesar de ser ruim)

kkkkk vc manja net reflector em !! !

Pô se ensinar o @Coder.Anonymous vai ter que me ensinar tbm kk

tipo assim, e so abrir o programa dos "mega codi" .NET Reflector, ai ele já da a source? ah e vdd ele esta desprotegido...
ensina pra eu ppfv!! quero ser um grande "codi" como você. help meeeeeeeee

So pode ser brincadeira o cara nem manja das plataformas .NET e sai por ai compartilhando coisas quem dele é , essa é boa

Cheetara: Vou descompilar este projeto, manjo muito de "Eng. Reversa".

Cheetara: Sou foda!, consegui!!!!

Aqui é um programador melhor que o outro,
1º Criam um loader mal feito sem segurança alguma.
2º Postar código "descompilado" só pra se aparecer.
.................................................. ........
Essa é pros dois "Programadores":
"Quando for fazer alguma coisa, Faça bem Feito!"

Originally Posted by Werner Heisenberg

Aqui é um programador melhor que o outro,
1º Criam um loader mal feito sem segurança alguma.
2º Postar código "descompilado" só pra se aparecer.
.................................................. ........
Essa é pros dois "Programadores":
"Quando for fazer alguma coisa, Faça bem Feito!"

pra que eu vou me dar trabalho pra assegurar algo publico?, não estou ganhando nada, então dane-se.

Rapas do sél

Loader Decompilado! CloudSec

Similar Threads

Tags for this Thread