Build & Server Kodlama

[MaxiBae]

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 ;

    Const FileSplitter As String = "|FS|"
    Dim stub,  BuildEdilecekVeri, Xargs() As String

Projenin load kısmına eklenecek 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 Try

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.

        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 If

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.

 

[PratikHack]

sıfırdan biri gelip de uğraşmaz zaten yorum kasmayacaksa az buçuk merakı olan biri bile ilgisi varsa biraz daha temelleri öğrenir zaten basic üzerinden olabildiğnice basit anlatmışsın çok sağol

 

[MaxiBae]

sıfırdan biri gelip de uğraşmaz zaten yorum kasmayacaksa az buçuk merakı olan biri bile ilgisi varsa biraz daha temelleri öğrenir zaten basic üzerinden olabildiğnice basit anlatmışsın çok sağol

Aynen kanka bende artık o konuda biraz sıkıldım dediğin gibi Visual Basic zaten anlaşılabilirliği en kolay dillerden ama bundan baya önce henüz yeni yeni öğrenmeye başladığımda baya araştırmıştım bu konuyu.

 

[06semih0612]

Bu konuyu baya araştırmıştım bilgileriniz için teşekkür ediyorum