Exe To Text - Text To Exe [ vb.net ] [kod]

Maveraün Nehr

Katılımcı Üye
25 Haz 2021
973
1,850
41.303921, -81.901693
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;

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")
 

sw1ndler

Katılımcı Üye
29 Şub 2020
592
136
yaptıgı şey exenin base64 kodunu alıp streamwriter ile .txt olarak yazıya dökmek yani bu txt yi exe yapmıyor
ve .txt .jpg. jpeg .png .bmp gibi windowsun orjinal dosya uzantılarına asla virüs gömemezsiniz sadece rlo gibi yöntemler ile aldatmaca yapabilirsiniz ama word pdf gibi şeylere gömülebilir cve silent exploitler gibi
 
Üst

Turkhackteam.org internet sitesi 5651 sayılı kanun’un 2. maddesinin 1. fıkrasının m) bendi ile aynı kanunun 5. maddesi kapsamında "Yer Sağlayıcı" konumundadır. İçerikler ön onay olmaksızın tamamen kullanıcılar tarafından oluşturulmaktadır. Turkhackteam.org; Yer sağlayıcı olarak, kullanıcılar tarafından oluşturulan içeriği ya da hukuka aykırı paylaşımı kontrol etmekle ya da araştırmakla yükümlü değildir. Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz. Türkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Türkhackteam sorumlu değildir. Sitelerinize Türkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.