Program başlıktan da anlaşılacağı üzere .txt dosyasını .exe'ye, .exe'yi .txt'e dönüştürmeye yarıyor. Kanımca cryptography kütüphanesi eklenerek pek çok şekilde geliştirmesi yapılabilir. Bu sayede antivirüsler kolay kolay görmez. En azından scan time denilen aşama atlatılmış olur...
Gerekenler;
Bir adet buton ekleyelim ve değişkene göre istenilen kodu gireceğiz.
İlk önce kütüphanemizi ekleyelim;
Şimdi gelelim kodlara;
Exe'yi metin belgesine çeviren kod;
Metin Belgesini exe'ye çeviren kod;
Kullanımı;
Buton içerisine;
Metin belgesini exe'ye çevirmek için
Veya
Exe'yi metin belgesine çevirmek için
Gerekenler;
Bir adet buton ekleyelim ve değişkene göre istenilen kodu gireceğiz.
İlk önce kütüphanemizi ekleyelim;
Imports System.IO
Şimdi gelelim kodlara;
Exe'yi metin belgesine çeviren kod;
Kod:
Sub ExeToText(ByVal ExePath As String, ByVal TextPath As String)
Using fs As FileStream = New FileStream(ExePath, FileMode.Open)
Using br As BinaryReader = New BinaryReader(fs)
Dim bin As Byte() = br.ReadBytes(fs.Length)
Using tWriter As TextWriter = New StreamWriter(TextPath)
tWriter.Write(Convert.ToBase64String(bin)) 'base64string
tWriter.Flush()
tWriter.Close()
End Using
End Using
End Using
End Sub
Metin Belgesini exe'ye çeviren kod;
Kod:
Sub TextToExe(ByVal ExePath As String, ByVal TextPath As String)
Using tReader As TextReader = New StreamReader(TextPath)
Dim bin As Byte() = Convert.FromBase64String(tReader.ReadToEnd())
Using fs2 As FileStream = New FileStream(ExePath, FileMode.Create)
Using bw As BinaryWriter = New BinaryWriter(fs2)
bw.Write(bin)
End Using
End Using
tReader.Close()
End Using
End Sub
Kullanımı;
Buton içerisine;
Metin belgesini exe'ye çevirmek için
Kod:
TextToExe("D:\örnekyolumdeneme.exe", "D:\örnekyolumdeneme.txt")
Veya
Exe'yi metin belgesine çevirmek için
Kod:
ExeToText("D:\örnekyolumdeneme.exe", "D:\örnekyolumdeneme.txt")