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


 


Tema destacado:


  Mostrar Mensajes
Páginas: 1 [2] 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
11  Foros Generales / Noticias / Re: 1.000 millones de dispositivos Android están desactualizados en: 16 Noviembre 2017, 20:21
jajajaj. meda risa . bueno yo tengo dos teléfonos android un huawei y300 y un samsung YP-G1 . Al huawei lo tengo desactualizado con android 4.1  y al Samsung que venia originalmente con android 2.2.2 le meti una CarbonRom con android 5.0.  ;D
12  Seguridad Informática / Análisis y Diseño de Malware / Re: Los ejuecutables (.exe , .msi) me salen como aplicaciones html (.hta) en: 16 Noviembre 2017, 20:01
Gracias por la respuesta @NEBIRE .

Ya lo había solucionado, solamente hice esto:


inicio + r  ,  escribí  regedit y presione enter y me fui a HKEY_CURRENT_USER\Software\Classes\.bat   y hay edite el valor que estaba en htafile lo cambie a BAT_auto_file  y listo ya solucione el problema con los .bat .

PD: no creo que esa fuera la manera de hacerlo correctamente pero lo hice , y funciono.

PD2: Con esto que me paso tengo una buena idea para hacer un virus . jejejejeje. ;D
13  Seguridad Informática / Análisis y Diseño de Malware / Re: Los ejuecutables (.exe , .msi) me salen como aplicaciones html (.hta) en: 16 Noviembre 2017, 15:55
descubri que la intentar abrir los programas .exe directamente no sirve pero al abrirlo indirectamente si abren.

por ejemplo abro el programa vlc player no me sirve, pero al abrir un video si abre el vls player.

entonces como el antivirus no me abre directamente , doy click derecho analizar con 360 segurity y si me abrio el antivirus lo puse a analizar la pc y me soluciono el problema que tenia con los .exe y .msi . los detecto como "ANOMALIAS DEL SISTEMA"

YA SOLUCIONE EL PROBLEMA CON LOS EJECUTABLES . PERO EN EL CASO DE LOS ARCHIVOS POR LOTES .BAT Y .CMD SIGUE IGUAL LOS DETECTA COMO SI FUERAN APLICACIONES HTML (.HTA)
14  Seguridad Informática / Análisis y Diseño de Malware / Los ejuecutables (.exe , .msi) me salen como aplicaciones html (.hta) en: 16 Noviembre 2017, 15:35
hola, como dice el titulo no puedo abrir ni el administrador de tareas ya que ahora todos los .exe el windows los lee como .hta y los abre asi:



AQUI DEJO UNA FOTO DE CUANDO REINICIE LA PC:



no solo los .exe tambien los .bat.  :(

todo paso cuando copile un batch y lo abri :

el batch es este bueo no es del todo batch mas bien es una aplicacion html dentro de un batch:

Código
  1. @goto :batch
  2. <html><!--
  3. :batch
  4. @echo off
  5. if /I "%1"=="{AddText}" goto :addtext
  6. if /I "%1"=="{GetText}" goto :gettext
  7. if /I "%1"=="{StripChars}" goto :StripChars
  8. mode con: cols=31 lines=5
  9. title [%~n0]
  10. color 0a
  11. echo.
  12. echo.
  13. echo.          loading ...
  14. reg add HKCU\Software\Classes\%~x0 /d "htafile" /f >nul
  15. start "" mshta.exe "%~dpnx0"
  16. exit
  17. :addtext
  18. for /f "tokens=*" %%A in ('echo.%2') do set "filedir=%%~dpA" & set "filename=%%~nxA"
  19. copy /y %2 "%filedir%\[WithMessage] %filename%" >nul
  20. echo.>>"%filedir%\[WithMessage] %filename%"
  21. echo.>>"%filedir%\[WithMessage] %filename%"
  22. set "txt=%3"
  23. set "txt=%txt:~1%"
  24. set "txt=%txt:~0,-1%"
  25. echo.:#%txt%>>"%filedir%\[WithMessage] %filename%"
  26. echo.[WithMessage] %filename%
  27. exit
  28. :gettext
  29. set /a "linenum=0+0"
  30. for /f "tokens=*" %%A in ('echo.%2') do for /f "tokens=*" %%B in ('type "%%~dpnxA"') do set "msgline=%%B"
  31. for /f "tokens=1,2 delims=#" %%A in ('echo.%msgline%') do (
  32. if "%%A"==":" (
  33. echo.%%B
  34. ) else (
  35. echo.{nomsg}
  36. )
  37. )
  38. exit
  39. :StripChars
  40. set "txt=%2"
  41. set "txt=%txt:~1%"
  42. echo."%txt:~0,-3%"
  43. exit
  44. -->
  45. <head>
  46. <title>Encrypt Messages Into Image-Files</title>
  47. <HTA:APPLICATION ID="ThisApp"
  48. APPLICATIONNAME="Encrypt Messages Into Image-Files"
  49. scroll="no"
  50. icon=""
  51. showintaskbar="no"
  52. sysmenu="yes"
  53. caption="yes"
  54. maximizebutton="no"
  55. minamizebutton="no"
  56. >
  57. </head>
  58. <script language="VBScript">
  59. sub Window_OnLoad
  60. Ext = split(split(ThisApp.commandline,chr(34))(1),".")(ubound(split(split(ThisApp.commandline,chr(34))(1),".")))
  61. createobject("wscript.shell").run "reg add HKCU\Software\Classes\."&Ext&" /d "&chr(34)&Ext&"file"&chr(34)&" /f",0,true
  62. window.resizeto 670,600
  63. end sub
  64. sub addtxt()
  65. buildtxt = ""
  66. for c = 1 to len(document.all.txtmessage.value)
  67. buildtxt = buildtxt& chr(asc(mid(document.all.txtmessage.value,c,1))+4)
  68. next
  69. buildnewfileandgetname = CommandLine("@call "&chr(34)&split(ThisApp.commandline,chr(34))(1)&chr(34) _
  70. &" {AddText} "&chr(34)&document.all.addmsgto.value&chr(34)&" "&chr(34)&buildtxt&chr(34))
  71. msgbox "The JPG-File was copied and the message was injected into the copy. The copy is in the same folder."
  72. end sub
  73. sub readtxt()
  74. rawtxt = CommandLine("@call "&chr(34)&split(ThisApp.commandline,chr(34))(1)&chr(34) _
  75. &" {GetText} "&chr(34)&document.all.getmsgfrom.value&chr(34))
  76. if NOT rawtxt = "{nomsg}" then
  77. decryptmsg = ""
  78. for c = 1 to len(rawtxt)
  79. decryptmsg = decryptmsg& chr(asc(mid(rawtxt,c,1))-4)
  80. next
  81. decryptmsg = CommandLine("@call "&chr(34)&split(ThisApp.commandline,chr(34))(1)&chr(34) _
  82. &" {StripChars} "&chr(34)&decryptmsg&chr(34))
  83. else
  84. decryptmsg = "no message in this file"
  85. end if
  86. msgbox "Hidden Message: "&decryptmsg,0,"Viewing Hidden Message"
  87. end sub
  88. function CommandLine(cmmd)
  89. set clipboard = createobject("htmlfile")
  90. cliptext = clipboard.ParentWindow.ClipboardData.GetData("text")
  91. createobject("wscript.shell").run chr(34)&"%comspec%"&chr(34)&" /d /c "&cmmd&"|clip",0,true
  92. CommandLine = clipboard.ParentWindow.ClipboardData.GetData("text")
  93. if NOT isnull(cliptext) then clipboard.ParentWindow.ClipboardData.SetData "text",cliptext
  94. end function
  95. </script>
  96. <body bgcolor=black style=border:0px;padding:0px;margin:0px;color:black;font-size:0;font-family:arial ><br/><font color=cyan size=2><center><br/>
  97. <font size=4 face=terminal>
  98. <a style=color:red;text-decoration:none target=_blank href=https://hackforums.net/member.php?action=profile&uid=3089494 >by <u>ImDeepWithWindows</u></a>
  99. </font><br/><br/><hr noshade=noshade style=color:purple;border-color:purple;border-style:solid;padding:0px;margin:0px />
  100. <div align=left>encrypt messages inside JPG image-files</div>
  101. <hr noshade=noshade style=color:purple;border-color:purple;border-style:solid;padding:0px;margin:0px /><center><br/><br/>
  102. <fieldset style=width:60%;border-style:solid;border-color:grey;margin:0px;padding:0px;border-width:4px>
  103. <legend style=color:yellow;margin:0px;padding:0px;border-style:solid;border-color:grey;border-width:4px ><b>Hide Message In JPG File</b></legend>
  104. <br/><br/><br/>Browse For JPG-File:
  105. <input type=file value="Select Image File" name=addmsgto style=display:inline-block;border-color:purple;border-style:solid;background-color:black;color:yellow accept="jpg,image/jpg" />
  106. <br/><br/>Message To Hide: <input type=text name=txtmessage style=border-color:grey;border-style:solid;background-color:black;color:yellow /><br/>
  107. <br/><input type=submit value="Hide Message" style=color:#00ff00;background-color:black;border-color:purple;border-style:solid onclick=addtxt() />
  108. <br/><br/><br/></fieldset><br/><br/><br/><fieldset style=width:60%;border-style:solid;border-color:grey;margin:0px;padding:0px;border-width:4px>
  109. <legend style=color:yellow;margin:0px;padding:0px;border-style:solid;border-color:grey;border-width:4px ><b>Read Hidden Message From JPG File</b></legend>
  110. <br/><br/><br/>Browse For JPG-File:
  111. <input type=file value="Select Image File" name=getmsgfrom style=border-color:purple;border-style:solid;background-color:black;color:yellow accept="jpg" /><br/>
  112. <br/><input type=submit value="Read Hidden Message" style=color:#00ff00;background-color:black;border-color:purple;border-style:solid onclick=readtxt() />
  113. <br/><br/><br/></fieldset>



bueno sospecho que este batch me configuro mediante el registro de windows (regedit) para que todos los .exe y .bat se reconocieran como .hta

por que sospecho esto? sospecho esto por el siguiente codigo:

Código
  1. sub Window_OnLoad
  2. Ext = split(split(ThisApp.commandline,chr(34))(1),".")(ubound(split(split(ThisApp.commandline,chr(34))(1),".")))
  3. createobject("wscript.shell").run "reg add HKCU\Software\Classes\."&Ext&" /d "&chr(34)&Ext&"file"&chr(34)&" /f",0,true
  4. window.resizeto 670,600
  5. end sub



en esa parte que es vbs el code toca el registro , mi sospecha es que hay se cofigura para que lea todos los .exe y .bat como si fueran .hta .

Código
  1. reg add HKCU\Software\Classes\%~x0 /d "htafile" /f >nul

me parece que esa parte del code tambien es lo que me esta jodiendo.

PD: ME IMAGINO QUE LA SOLUCIÓN SERIA UN VBS QUE TAMBIEN EDITE EL REGISTRO VOLVIENDO LOS VALORES COMO ESTABAN ANTES.


GRACIAS DE ANTEMANO

MOD: Imagenes adaptadas a lo permitido.
15  Programación / .NET / Re: ayuda en VB.NET en: 13 Noviembre 2017, 17:05
bueno , acepto todo lo que mes has dicho como critica constructiva . de verdad admito que fuy un poco flojo acerca de el titulo.

y acerca del code ya lo he logrado , bueno ha quedado asi:

Código
  1. Const SAFT48kHz16BitStereo = 39
  2.        Const SSFMCreateForWrite = 3
  3.        Dim oFileStream, oVoice
  4.        Dim saveFileDialog2 As New SaveFileDialog()
  5.        saveFileDialog2.Filter = "WAV Sound|*.wav"
  6.        saveFileDialog2.Title = "Save an sound File"
  7.        saveFileDialog2.ShowDialog()
  8.        Try
  9.                oFileStream = CreateObject("SAPI.SpFileStream")
  10.                oFileStream.Format.Type = SAFT48kHz16BitStereo
  11.                oFileStream.Open(saveFileDialog2.FileName, SSFMCreateForWrite)
  12.  
  13.                oVoice = CreateObject("SAPI.SpVoice")
  14.                oVoice.AudioOutputStream = oFileStream
  15.                oVoice.Speak(ben.Text, 3)
  16.  
  17.                oVoice.WaitUntilDone(10000)
  18.  
  19.                oFileStream.Close()
  20.        Catch ex As Exception
  21.            MsgBox(ex.Message)
  22.        End Try
16  Foros Generales / Foro Libre / Re: Los bomberos liberan a un hombre al que se le quedó atrapado el pene en una pesa en: 13 Noviembre 2017, 15:28
si , tienen razón ,tal vez buscaba nuevas experiencias .

pero creo que buscar esa experiencia a través de una pesa es demasiado. Creo que como excusa tonta le diría a los bomberos que el hizo eso para ejercitar su pene. JAJAJA.

bueno lo único que se me viene a la cabeza es esto:

17  Programación / .NET / ayuda en VB.NET en: 13 Noviembre 2017, 15:05
hola a todos.

bueno tengo un pequeño problemilla. tengo el siguiente code:
Código
  1. Const SAFT48kHz16BitStereo = 39
  2. Const SSFMCreateForWrite = 3
  3. Dim oFileStream, oVoice
  4.  
  5. Set oFileStream = CreateObject("SAPI.SpFileStream")
  6. oFileStream.Format.Type = SAFT48kHz16BitStereo
  7. oFileStream.Open "C:\Work\Sample.wav", SSFMCreateForWrite ' Aqui el directorio que quiero cambiar por un SaveFileDialog1.FileName
  8.  
  9. Set oVoice = CreateObject("SAPI.SpVoice")
  10. Set oVoice.AudioOutputStream = oFileStream
  11. oVoice.Speak(ben.Text, 3)
  12.  
  13. oVoice.WaitUntilDone(10000)
  14.  
  15. oFileStream.Close

y lo que quiero es cambiar ese directorio por un SaveFileDialog1.FileName
y me quedaria algo como esto:

Código
  1. Const SAFT48kHz16BitStereo = 39
  2. Const SSFMCreateForWrite = 3
  3. SaveFileDialog1.DefaultExt = ".wav"
  4. Dim oFileStream, oVoice
  5.  
  6.  
  7. Set oFileStream = CreateObject("SAPI.SpFileStream")
  8. oFileStream.Format.Type = SAFT48kHz16BitStereo
  9. oFileStream.Open SaveFileDialog1.FileName, SSFMCreateForWrite
  10.  
  11. Set oVoice = CreateObject("SAPI.SpVoice")
  12. Set oVoice.AudioOutputStream = oFileStream
  13. oVoice.Speak "Hello world", 3
  14.  
  15. oVoice.WaitUntilDone(10000)
  16.  
  17. oFileStream.Close

no se si me explique , en pocas palabras lo que quiero es aplicar el SaveFileDialog1.FileName al primer code que puse , pero no logro hacerlo , disculpen mi ignorancia.   

gracias de antemano.  ;D
18  Programación / Scripting / Re: Problema con condigo If Exist y For en: 11 Noviembre 2017, 03:06
En ese caso como no te has dado cuenta , aqui te lo dejo:  :silbar:

Código
  1. @echo off
  2. for %%i in (*.txt *.pdf *.jpg) do (IF EXIST %%i (goto del) else (goto sla) )
  3.  
  4. :::::::::::::::::::::::::::::
  5. :del
  6. :::::::::::::::::::::::::::::
  7. echo abrira la calculadora
  8. calc.exe
  9. exit
  10.  
  11. :::::::::::::::::::::::::::::
  12. :sla
  13. :::::::::::::::::::::::::::::
  14. echo abrir paint
  15. mspaint.exe
  16. cls
  17. pause

te habia dicho donde estaba el error pero no me has prestado atención , en fin te lo dejo como lo queria en un principio.
 el error era el símbolo ) que pusiste en
Código:
mspaint.exe
)
cls

ese paréntesis es mal ubicado . para la próxima haber si te fijas . XD  :silbar:

                                             Comenta si te funciono.
19  Programación / Scripting / Re: Problema con condigo If Exist y For en: 11 Noviembre 2017, 02:32
un ejemplo de lo que te quiero decir :

Código:
if exist *.txt == (goto del) else (goto sla)
if exist *.pdf == (goto del) else (goto sla)
if exist *.jpg == (goto del) else (goto sla)

este code es lo mismo que for %%i in (*.txt *.pdf *.jpg) como ves ya con la primera linea el batch se salta la segunda y la tercera.

osea le dices : si existe elgun txt te vas a del y si no te vas a sla . y ya con eso el batch no lee las otras dos lineas . no se si me di a entender .
20  Programación / Scripting / Re: Problema con condigo If Exist y For en: 11 Noviembre 2017, 02:26
si, lo querias hacer de esta forma:

Código:
for %%i in (*.txt *.pdf *.jpg) do (
IF EXIST %%i (goto del) else (goto sla)

déjame decirte que el *.pdf *.jpg no tenían ninguna función hay.

ya que el BATCH al verificar si existe algún txt  "*.txt" va a obviar los  *.pdf *.jpg .

no se si me explico . lo que quiero decir es que si quieres que el batch busque *.pdf *.jpg tienes que hacerlo por paso . como el code que te puse . en cambio si lo haces de la forma for %%i in (*.txt *.pdf *.jpg) que de paso esta mal codeado , el batch va a obviar los *.pdf *.jpg osea no los va a buscar.


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