Neler yeni

Soru sor

Topluluğumuzdan Sorular Sorun ve Cevaplar Alın

Cevap

Soruları Cevaplayın ve Konunuzda Uzman Olun

İletişim Personeli

Uzmanlarımız Sorularınızı Cevaplamaya Hazır

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

Reklam Ver Reklam Ver

MrRoot

Asteğmen
Asteğmen
Katılım
15 Ağu 2021
Mesajlar
126
Tepkime puanı
22
Puanları
18

Reputation:

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;

Kod:
Const FileSplitter = "----FILESPLIT----"
Dim stubBytes As Byte()

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

Kod:
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

Örnek Form Düzeni;



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;

Kod:
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.

Kod:
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

Örnek Forum Düzeni;



İş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.


 

siyahmuahafız

Rektör
Yönetici
Rektör
Katılım
14 Nis 2021
Mesajlar
316
Tepkime puanı
77
Puanları
28

Reputation:

Ellerine sağlık guzel konu
 
Üst