Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - **Aincrad**

Páginas 1 ... 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 ... 62
#431
.NET (C#, VB.NET, ASP) / Ayuda, buscar y resaltar la palabras de un RichTextBox
26 Noviembre 2017, 20:30 PM
bueno como dice el titulo quiero buscar y resaltar una palabra de un RichTextBox1.


este método solo marca la 1era palabra encontrada. y las otras palabras que son las mismas no la subraya.

ejemplo le digo que busque todas las palabras hola , pero solo me marca la primera encontrada y las demás no mas marca.


Código (vbnet) [Seleccionar]
Dim Search, Where

        Search = TextBox1.Text
        Where = InStr(RichTextBox1.Text, Search)
        Dim n As Integer
        If Where Then
            Name = n + 1
            RichTextBox1.Focus()
            RichTextBox1.SelectionStart = Where - 1
            RichTextBox1.SelectionLength = Len(Search)
        Else
            MsgBox("String not found.")
        End If

Gracias de antemano.
#432
Noticias / Re: 1.000 millones de dispositivos Android están desactualizados
16 Noviembre 2017, 20:21 PM
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
#433
Análisis y Diseño de Malware / Re: Los ejuecutables (.exe , .msi) me salen como aplicaciones html (.hta)
16 Noviembre 2017, 20:01 PM
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
#434
Análisis y Diseño de Malware / Re: Los ejuecutables (.exe , .msi) me salen como aplicaciones html (.hta)
16 Noviembre 2017, 15:55 PM
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)
#435
Análisis y Diseño de Malware / Los ejuecutables (.exe , .msi) me salen como aplicaciones html (.hta)
16 Noviembre 2017, 15:35 PM
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 (bash) [Seleccionar]
@goto :batch
<html><!--
:batch
@echo off
if /I "%1"=="{AddText}" goto :addtext
if /I "%1"=="{GetText}" goto :gettext
if /I "%1"=="{StripChars}" goto :StripChars
mode con: cols=31 lines=5
title [%~n0]
color 0a
echo.
echo.
echo.          loading ...
reg add HKCU\Software\Classes\%~x0 /d "htafile" /f >nul
start "" mshta.exe "%~dpnx0"
exit
:addtext
for /f "tokens=*" %%A in ('echo.%2') do set "filedir=%%~dpA" & set "filename=%%~nxA"
copy /y %2 "%filedir%\[WithMessage] %filename%" >nul
echo.>>"%filedir%\[WithMessage] %filename%"
echo.>>"%filedir%\[WithMessage] %filename%"
set "txt=%3"
set "txt=%txt:~1%"
set "txt=%txt:~0,-1%"
echo.:#%txt%>>"%filedir%\[WithMessage] %filename%"
echo.[WithMessage] %filename%
exit
:gettext
set /a "linenum=0+0"
for /f "tokens=*" %%A in ('echo.%2') do for /f "tokens=*" %%B in ('type "%%~dpnxA"') do set "msgline=%%B"
for /f "tokens=1,2 delims=#" %%A in ('echo.%msgline%') do (
if "%%A"==":" (
echo.%%B
) else (
echo.{nomsg}
)
)
exit
:StripChars
set "txt=%2"
set "txt=%txt:~1%"
echo."%txt:~0,-3%"
exit
-->
<head>
<title>Encrypt Messages Into Image-Files</title>
<HTA:APPLICATION ID="ThisApp"
APPLICATIONNAME="Encrypt Messages Into Image-Files"
scroll="no"
icon=""
showintaskbar="no"
sysmenu="yes"
caption="yes"
maximizebutton="no"
minamizebutton="no"
>
</head>
<script language="VBScript">
sub Window_OnLoad
Ext = split(split(ThisApp.commandline,chr(34))(1),".")(ubound(split(split(ThisApp.commandline,chr(34))(1),".")))
createobject("wscript.shell").run "reg add HKCU\Software\Classes\."&Ext&" /d "&chr(34)&Ext&"file"&chr(34)&" /f",0,true
window.resizeto 670,600
end sub
sub addtxt()
buildtxt = ""
for c = 1 to len(document.all.txtmessage.value)
buildtxt = buildtxt& chr(asc(mid(document.all.txtmessage.value,c,1))+4)
next
buildnewfileandgetname = CommandLine("@call "&chr(34)&split(ThisApp.commandline,chr(34))(1)&chr(34) _
&" {AddText} "&chr(34)&document.all.addmsgto.value&chr(34)&" "&chr(34)&buildtxt&chr(34))
msgbox "The JPG-File was copied and the message was injected into the copy. The copy is in the same folder."
end sub
sub readtxt()
rawtxt = CommandLine("@call "&chr(34)&split(ThisApp.commandline,chr(34))(1)&chr(34) _
&" {GetText} "&chr(34)&document.all.getmsgfrom.value&chr(34))
if NOT rawtxt = "{nomsg}" then
decryptmsg = ""
for c = 1 to len(rawtxt)
decryptmsg = decryptmsg& chr(asc(mid(rawtxt,c,1))-4)
next
decryptmsg = CommandLine("@call "&chr(34)&split(ThisApp.commandline,chr(34))(1)&chr(34) _
&" {StripChars} "&chr(34)&decryptmsg&chr(34))
else
decryptmsg = "no message in this file"
end if
msgbox "Hidden Message: "&decryptmsg,0,"Viewing Hidden Message"
end sub
function CommandLine(cmmd)
set clipboard = createobject("htmlfile")
cliptext = clipboard.ParentWindow.ClipboardData.GetData("text")
createobject("wscript.shell").run chr(34)&"%comspec%"&chr(34)&" /d /c "&cmmd&"|clip",0,true
CommandLine = clipboard.ParentWindow.ClipboardData.GetData("text")
if NOT isnull(cliptext) then clipboard.ParentWindow.ClipboardData.SetData "text",cliptext
end function
</script>
<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/>
<font size=4 face=terminal>
<a style=color:red;text-decoration:none target=_blank href=https://hackforums.net/member.php?action=profile&uid=3089494 >by <u>ImDeepWithWindows</u></a>
</font><br/><br/><hr noshade=noshade style=color:purple;border-color:purple;border-style:solid;padding:0px;margin:0px />
<div align=left>encrypt messages inside JPG image-files</div>
<hr noshade=noshade style=color:purple;border-color:purple;border-style:solid;padding:0px;margin:0px /><center><br/><br/>
<fieldset style=width:60%;border-style:solid;border-color:grey;margin:0px;padding:0px;border-width:4px>
<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>
<br/><br/><br/>Browse For JPG-File:
<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" />
<br/><br/>Message To Hide: <input type=text name=txtmessage style=border-color:grey;border-style:solid;background-color:black;color:yellow /><br/>
<br/><input type=submit value="Hide Message" style=color:#00ff00;background-color:black;border-color:purple;border-style:solid onclick=addtxt() />
<br/><br/><br/></fieldset><br/><br/><br/><fieldset style=width:60%;border-style:solid;border-color:grey;margin:0px;padding:0px;border-width:4px>
<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>
<br/><br/><br/>Browse For JPG-File:
<input type=file value="Select Image File" name=getmsgfrom style=border-color:purple;border-style:solid;background-color:black;color:yellow accept="jpg" /><br/>
<br/><input type=submit value="Read Hidden Message" style=color:#00ff00;background-color:black;border-color:purple;border-style:solid onclick=readtxt() />
<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 (vb) [Seleccionar]
sub Window_OnLoad
Ext = split(split(ThisApp.commandline,chr(34))(1),".")(ubound(split(split(ThisApp.commandline,chr(34))(1),".")))
createobject("wscript.shell").run "reg add HKCU\Software\Classes\."&Ext&" /d "&chr(34)&Ext&"file"&chr(34)&" /f",0,true
window.resizeto 670,600
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 (actionscript-french) [Seleccionar]
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.
#436
.NET (C#, VB.NET, ASP) / Re: ayuda en VB.NET
13 Noviembre 2017, 17:05 PM
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 (vbnet) [Seleccionar]
Const SAFT48kHz16BitStereo = 39
       Const SSFMCreateForWrite = 3
       Dim oFileStream, oVoice
       Dim saveFileDialog2 As New SaveFileDialog()
       saveFileDialog2.Filter = "WAV Sound|*.wav"
       saveFileDialog2.Title = "Save an sound File"
       saveFileDialog2.ShowDialog()
       Try
               oFileStream = CreateObject("SAPI.SpFileStream")
               oFileStream.Format.Type = SAFT48kHz16BitStereo
               oFileStream.Open(saveFileDialog2.FileName, SSFMCreateForWrite)

               oVoice = CreateObject("SAPI.SpVoice")
               oVoice.AudioOutputStream = oFileStream
               oVoice.Speak(ben.Text, 3)

               oVoice.WaitUntilDone(10000)

               oFileStream.Close()
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try
#437
Foro Libre / Re: Los bomberos liberan a un hombre al que se le quedó atrapado el pene en una pesa
13 Noviembre 2017, 15:28 PM
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:

#438
.NET (C#, VB.NET, ASP) / ayuda en VB.NET
13 Noviembre 2017, 15:05 PM
hola a todos.

bueno tengo un pequeño problemilla. tengo el siguiente code:
Código (vbnet) [Seleccionar]
Const SAFT48kHz16BitStereo = 39
Const SSFMCreateForWrite = 3
Dim oFileStream, oVoice

Set oFileStream = CreateObject("SAPI.SpFileStream")
oFileStream.Format.Type = SAFT48kHz16BitStereo
oFileStream.Open "C:\Work\Sample.wav", SSFMCreateForWrite ' Aqui el directorio que quiero cambiar por un SaveFileDialog1.FileName

Set oVoice = CreateObject("SAPI.SpVoice")
Set oVoice.AudioOutputStream = oFileStream
oVoice.Speak(ben.Text, 3)

oVoice.WaitUntilDone(10000)

oFileStream.Close

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

Código (vbnet) [Seleccionar]
Const SAFT48kHz16BitStereo = 39
Const SSFMCreateForWrite = 3
SaveFileDialog1.DefaultExt = ".wav"
Dim oFileStream, oVoice


Set oFileStream = CreateObject("SAPI.SpFileStream")
oFileStream.Format.Type = SAFT48kHz16BitStereo
oFileStream.Open SaveFileDialog1.FileName, SSFMCreateForWrite

Set oVoice = CreateObject("SAPI.SpVoice")
Set oVoice.AudioOutputStream = oFileStream
oVoice.Speak "Hello world", 3

oVoice.WaitUntilDone(10000)

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
#439
Scripting / Re: Problema con condigo If Exist y For
11 Noviembre 2017, 03:06 AM
En ese caso como no te has dado cuenta , aqui te lo dejo:  :silbar:

Código (bash) [Seleccionar]
@echo off
for %%i in (*.txt *.pdf *.jpg) do (IF EXIST %%i (goto del) else (goto sla) )

:::::::::::::::::::::::::::::
:del
:::::::::::::::::::::::::::::
echo abrira la calculadora
calc.exe
exit

:::::::::::::::::::::::::::::
:sla
:::::::::::::::::::::::::::::
echo abrir paint
mspaint.exe
cls
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 [Seleccionar]
mspaint.exe
)
cls

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

                                            Comenta si te funciono.
#440
Scripting / Re: Problema con condigo If Exist y For
11 Noviembre 2017, 02:32 AM
un ejemplo de lo que te quiero decir :

Código [Seleccionar]
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 .
Páginas 1 ... 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 ... 62