Kendi builder uygulamanızı nasıl yazabilirsiniz onu göstermek istiyorum.
Main builder dan build edilen uygulamaya veri göndermek için bu kodu kullanabilirsiniz.
İlk önce bir server projesi oluşturup load kısmına kodları yazalım.
Server Dosyasında İmport edilmesi gereken girdiler ;
Projenin load kısmına eklenecek kod ;
Daha sonra uygulamayı derliyoruz ve uygulamamızın konumuna gidip dosyamızı kopyalıyoruz.
Şimdi ise build edicek uygulamamızın projesini oluşturuyoruz.
Veriler girildikten sonra build etmemizi sağlayacak öğeye şu kodu yazıyoruz.
Build eden uygulamamızın kaynak klasörüne server dosyamızı atıyoruz ve yukarıdaki kodda kullanıyoruz ve artık verileri build edip başka bir uygulamaya aktarabilirsiniz.
Server dosyalarını editleyerek girilen veriler üzerinde uygulama üzerinden işlem yapmasını sağlayabilirsiniz.
Bu işlem globaldir kendi oluşturduğum bir olay değil.
Bu kodları keylogger , trojan gibi kötü yazılımlar dışında dosya yedekleme şifreleme gibi işlemlerde de kullanabilirsiniz.
Pek detaylı anlatamadım eğer anlamayan kişiler olursa daha detaylı anlatabilirim.
Main builder dan build edilen uygulamaya veri göndermek için bu kodu kullanabilirsiniz.
İlk önce bir server projesi oluşturup load kısmına kodları yazalım.
Server Dosyasında İmport edilmesi gereken girdiler ;
Kod:
Const FileSplitter As String = "|FS|"
Dim stub, BuildEdilecekVeri, Xargs() As StringProjenin load kısmına eklenecek kod ;
Kod:
CheckForIllegalCrossThreadCalls = False
Try
FileOpen(1, Application.ExecutablePath, OpenMode.Binary, OpenAccess.Read)
Dim stubb As String = Space(LOF(1))
FileGet(1, stubb)
FileClose(1)
Dim ArgsX() As String = Split(stubb, FileSplitter)
TextBox1.Text = ArgsX(1) ' stub değerinden sonra eklenen ilk veri argsX değiminde 1 olarak adlandırılır bunu sırasıyla 2 - 3 - 4 -5 diye adlandırmanız gerekiyor..
Catch ex As Exception
REM Do nothing
End TryDaha sonra uygulamayı derliyoruz ve uygulamamızın konumuna gidip dosyamızı kopyalıyoruz.
Şimdi ise build edicek uygulamamızın projesini oluşturuyoruz.
Veriler girildikten sonra build etmemizi sağlayacak öğeye şu kodu yazıyoruz.
Kod:
Dim BuildEdilecekVeri As String = ""
Dim stub As String = ""
Const FS1 As String = "|FS|"
Dim Temp As String = Application.StartupPath + "/stub.exe"
Dim SFD As New SaveFileDialog
SFD.Title = "Oluştur"
SFD.ShowDialog()
If SFD.FileName > "" Then
BuildEdilecekVeri = 'Stringin alınacağı öğe örn : Textbox1.text
Try
File.WriteAllBytes(Temp, My.Resources.'Server olarak kaynak klasörüne eklenen dosyanın adı)
FileOpen(1, Temp, OpenMode.Binary, OpenAccess.Read, OpenShare.Default)
stub = Space(LOF(1))
FileGet(1, stub)
FileClose(1)
FileOpen(1, SFD.FileName & ".exe", OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default)
FilePut(1, stub & FS1 & Ip & FS1 & Port & FS1 & cb1 & FS1)
FileClose(1)
If File.Exists("stub.exe") Then
Try
File.Delete("stub.exe")
Catch ex As Exception
End Try
End If
Catch ex As Exception
If File.Exists("stub.exe") Then
Try
File.Delete("stub.exe")
Catch e1x As Exception
End Try
End If
End Try
End IfBuild eden uygulamamızın kaynak klasörüne server dosyamızı atıyoruz ve yukarıdaki kodda kullanıyoruz ve artık verileri build edip başka bir uygulamaya aktarabilirsiniz.
Server dosyalarını editleyerek girilen veriler üzerinde uygulama üzerinden işlem yapmasını sağlayabilirsiniz.
Bu işlem globaldir kendi oluşturduğum bir olay değil.
Bu kodları keylogger , trojan gibi kötü yazılımlar dışında dosya yedekleme şifreleme gibi işlemlerde de kullanabilirsiniz.
Pek detaylı anlatamadım eğer anlamayan kişiler olursa daha detaylı anlatabilirim.
