Builder-Server Bağlantısı [ vb.net ]

Merhabalar, bugün sizlere RAT ve keylogger yazmanızda büyük fayda sağlayacak olan bağlantı çeşitlerinizi konuşacağız. Bu konu sayesinde umarım sizde keylogger ve RAT'ınızı kodlayabilir bu bilgi ve ışıkla daha üstün projeler hazırlarsınız ki ilerleyen zamanlarda bir sorun çıkmaz ise keylogger projesi paylaşacağım.

Bunun ışığında;

› RAT'larınızda IP ve port bağlantısı,

› Anti UAC, Anti Sandbox, Anti Defender gibi isteğe bağlı özelliklerin aktif veya pasif olması,

› Keylogger'larınızda gönderici hedefin mail değişkenliği özelliği,

› Zaman gerektiren durumlarda server.exe'ye değer tanıma özelliği(3 dk., 5 dk. vs.),

› Server.exe uygulamasının içerisinde yer alan değişkenlerin hazır kaynak kod gerektirmeden builder üzerinden değiştirilebiliyor olması gibi avantajlar sağlıyor.

Builder Anlatımı

Formumuza 2 adet textbox ve 1 adet showdialog ögesi 1 adet chechbox, 1 adette buton ekleyelim.

Ekledik ne işe yarıyor?

• Textbox'lar kullanıcı adı ve şifre olacak,
• Dialog ögemiz oluşturulan server'i kaydetmemiz gereken hedefi belirleyecek,
• Checkbox ögemiz yukarıda bahsedilen isteğe bağlı özelliklerin aktif veya pasif olmasını temsil ediyor olacak,
• Buton ise işlemlerin bütününü operasyonel hale getirecek

Import kısmını ekleyelim ve başlayalım.

Imports System.Text

Vb6'da olduğu gibi SPLIT özelliğimiz stub bağlantısı sağlamamızda büyük yardımı dokunacak bunun için kodumuz;

Const FileSplitter = "----FILESPLIT----"

Dim stubBytes As Byte()

Bir buton oluşturalım aşağıdaki kodları girelim;

 Dim filePath As String

    Dim filesaver As New SaveFileDialog

    If filesaver.ShowDialog = Windows.Forms.DialogResult.OK Then

      filePath = filesaver.FileName

      Dim email As String = TextBox1.Text

      Dim sifre As String = TextBox2.Text

      Dim antidefender As String = CheckBox1.Checked.ToString

      Dim fileSystem = My.Computer.FileSystem

      stubBytes = fileSystem.ReadAllBytes(Application.StartupPath & "\Kaynaklar\server.exe")

      fileSystem.WriteAllBytes(filePath, stubBytes, False)

      fileSystem.WriteAllBytes(filePath, Encoding.Default.GetBytes(FileSplitter), True)

      fileSystem.WriteAllBytes(filePath, Encoding.Default.GetBytes(email), True)

      fileSystem.WriteAllBytes(filePath, Encoding.Default.GetBytes(FileSplitter), True)

      fileSystem.WriteAllBytes(filePath, Encoding.Default.GetBytes(sifre), True)

      fileSystem.WriteAllBytes(filePath, Encoding.Default.GetBytes(FileSplitter), True)

      fileSystem.WriteAllBytes(filePath, Encoding.Default.GetBytes(antidefender), True)

      MessageBox.Show("Server oluşturuldu!")

    Else

      MessageBox.Show("Bir hata ile karşılaşıldı!")

    End If

Server Anlatımı

Imports olayını ekleyelim ve başlayalım.

Imports System.Text

Şimdi builder'da yer alan özelliklerimizi gireceğiz ve tanıtacağız bunun için;

Dim Ayarlar(), selfText, email, sifre, antidefender As String

Dim self As Byte()

Şimdi ekledikten sonra aşağıdaki kodları ile gerçekleşecek olayları belirleyelim. " ' " içerisinde detayı bir şekilde anlattım.

 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    self = My.Computer.FileSystem.ReadAllBytes(Application.ExecutablePath)

    selfText = Encoding.Default.GetString(self)

    Ayarlar = Split(selfText, "----FILESPLIT----") 'BUİLDER ile bağlantı kurduk.

    email = Ayarlar(1) ' email şifre olayı, her özellik eklemesi yapılacağında ayarlar değerini arttırmayı unutmayalım

    sifre = Ayarlar(2)

    antidefender = Ayarlar(3)

    Me.TextBox1.Text = email

    Me.TextBox2.Text = sifre

    If antidefender.Equals("True") Then

      Me.CheckBox1.Checked = True 'anti defender özelliğim tıklanmış ise aşağıdaki olayı gerçekleştir kodu.

      Call antidf()

    Else

      Me.CheckBox1.Checked = False

    End If

  End Sub

  Sub antidf()

    MsgBox("Defender'i pasif ettik reis ", MsgBoxStyle.Information, "Server Mesajı")

  End Sub

İşe yarayıp yaramadığını anlamak için debug klasöründen iki uygulamamızı boş bir klasöre koyalım.

Koyduğumuz klasör içerisinde "Kaynaklar" adında alt bir klasör açalım ve içerisine oluşturmuş olduğumuz server.exe'yi atalım.

Builder'i çalıştıralım ve yazalım. Yazdıktan sonra "Oluştur" diyelim örnek server'i uygun bulduğumuz yere kaydedelim.

Oluşturmuş olduğumuz server'i açalım ve değişiklikleri gözlemleyelim.

Maveraün1Nehr

Mavi Takım