Mensajes

[IndexOf]

Puedes hacer uso de IndexOf para buscar la posición de "=" y "csproj" y luego con substrings obtener la cadena de en medio 

Saludos

Ahora que lo miro detenidamente me doy cuenta de lo sencillo que es 

No es necesario que aprendas vbs, te dejo el code:

Código (vb) [Seleccionar] Expandir

wscript.echo dateadd("d",-1,wscript.arguments(0))

Solamente eso, este script recibe una fecha como parámetro, y le resta un día, para posteriormente mostrarlo en pantalla
Lo que deberías de hacer es dejar el script (*.vbs) en el mismo directorio donde esta el bat (para mayor comodida) o bien llamarlo con la ruta completa agregando una línea más o menos así (en tu bat)

Código (dos) [Seleccionar] Expandir

cscript/nologo fecha.vbs %date% > fecha.txt

Como ves, simplemente lo llamas desde línea de comandos, le pasas una fecha como parámetro, en este caso la de hoy, y el script mostrará en pantalla la fecha -1 día

En tu caso puntualmente deberías de redirigir la salida a un archivo temporal (ej: fecha.txt) como he hecho en el ejemplo, ya que de este modo tendrás la fecha en un archivo al que puedes consultar luego desde tu batch.

Es decir, con esto almacenas la fecha en un archivo, y luego tu te encargas de acceder a el desde el batch y hacer lo que gustes con el contenido 

Espero se haya entendido ...

Saludos


P.D: igualmente y trás ver este ejemplo (siempre y cuando se haya entendido) espero te entren ganas de aprender algo de vbs, ya que como ves con un par de líneas puedes encontrar la solución a un problema

Gracias 

Estoy viendo que otras opciones más le puedo agregar que pueda resultar útil  (al menos a mi XD)

Saludos

La verdad que si es increíble que en ocasiones sea tan sencillo detener un AV, buen trabajo Mad  , y creo que no has elegido mejor AV para la prueba de concepto, ya que esta recien salido del horno y es una apuesta a los "nuevos" AV 

Saludos

[nueva]

Un poco de python 

Entiendo que esto es para la web de elhacker.net verdad?
Como la solicitud a la página es en el mismo momento en que realizas la comparación podrías ver de que la misma sea on the fly, ya que no es necesario crear el archivo "nuevo.txt" 

Y por otra parte veo que se realiza la comparación, pero nunca guardas la nueva página, es decir, revisas que haya una de antes y de haberlo lo comparas, pero luego eliminas el "nuevo.txt" y el "ultimapagina.html" queda igual, así que la próxima comparación sera contra el mismo archivo

Saludos

[Edito]

Buenas ...

Bueno, hace un tiempo y tras una consulta en el sub de seguridad se me ocurrió crear un pequeño script para consultar de manera automática sobre el origen de determinados archivos/librerías, para lo cual hacía uso de la web :http://www.fileinspect.com/, la cual esta en beta para ya muestra tener una buena bbdd

El caso es que en ese momento el script fue resultado de algunos minutos de aburrimiento, pero luego de analizarlo un poco más detenidamente me pareció que me podía resultar útil, así que lo he ido modificando en mi beneficio y lo comparto a continuación

Código (vb) [Seleccionar] Expandir

'by Novlucker
Set objxmlHTTP = CreateObject("Microsoft.XMLHTTP")
Set objfso = Createobject("Scripting.filesystemobject")

If wscript.arguments.count <> 2 then
Ayuda()
End if

Format = Ucase(wscript.arguments(0))

Select case Format
case "/F"
Set FromFolder = objfso.getfolder(wscript.arguments(1))
Set FileList = FromFolder.files
If FileList.count = 0 then
Msgbox "La carpeta seleccionada no contiene ningún archivo", 64, "Informe"
wscript.quit
End if
case "/A"
If objfso.fileexists(wscript.arguments(1)) then
Set FromFile = objfso.opentextfile(wscript.arguments(1),1)
FileList = Split(FromFile.readall,vbnewline)
FromFile.close
Else
Msgbox "El archivo seleccionado no existe", 16, "Informe"
wscript.quit
End if
case "/L"
FileList = Split(wscript.arguments(1),",")
case "/P"
Set Taskmgr = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery ("select * from Win32_Process")
Dim Taskname(): Redim Preserve Taskname(Taskmgr.count-1)
For Each T in Taskmgr
Taskname(n) = T.name
n = n+1
Next
FileList = FilterAray(Taskname)
case else
Ayuda()
End Select

For Each F in FileList

If Format = "/F" then
URLF = "http://www.fileinspect.com/fileinfo/" & LCase(Replace(F.name,".","-"))
F = F.name
Else
URLF = "http://www.fileinspect.com/fileinfo/" & LCase(Replace(F,".","-"))
End if

objxmlHTTP.open "GET", URLF, 0
objxmlHTTP.send()
Do while objxmlHTTP.readystate <> 4
wscript.sleep 200
Loop
response = objxmlHTTP.responsetext

blogcopy = instr(1,response,"id=""blog-copy-text""",1)

If blogcopy > 0 then
Startd = instr(blogcopy, response,">",1)+1
Endd = instr(Startd, response,"<",1)

Definition = mid(Response,Startd,Endd-Startd)
Definition = replace(Definition,"&lt;", "<")
Definition = replace(Definition,"&gt;", ">")
Definition = replace(Definition,"&quot;", """")

wscript.echo Definition
Else
wscript.echo "</p><table cellpadding=""0"" cellspacing=""0"" width=""100%"" bgcolor=#737CA1><tr><td><a style=""color:#000000;font-size:15px;color=white;text-decoration:none;font-family:Arial;border:0px;""<b>" & F & ": Archivo desconocido</b></a></td></tr></table>"
End if

Next

Function FilterAray(Aray)
dim auxAray()
For Each A in Aray
Match = False
On error resume next
Newlength = ubound(auxAray) + 1
If err.number > 0 then
Redim Preserve auxAray(0)
auxAray(0) = A
err.clear
On error goto 0
End if
For Each E in auxAray
If A = E then
Match = True
Exit For
End if
Next
If Match = False then
Redim Preserve auxAray(Newlength)
auxAray(Newlength) = A
End if
Next
FilterAray = auxAray
End Function

Sub ayuda()
wscript.echo vbnewline & "Uso: cscript.exe/nologo " & wscript.scriptname & " [formato] [parametro]" & vbnewline & _
vbnewline & chr(9) & "Formato" & chr(9) & "Parametro" & vbnewline & chr(9) & "/F" & chr(9) & "Ruta Carpeta" & vbnewline & _
chr(9) & "/A" & chr(9) & "Ruta Archivo (Conteniendo listado)" & vbnewline & chr(9) & "/L" & chr(9) & "Lista de archivos separados por coma" & vbnewline & _
chr(9) & "/P" & chr(9) & "Análisis de procesos en ejecución (Cualquier valor)" & vbnewline & vbnewline & "Ejemplos:" & vbnewline & chr(9) & "cscript.exe/nologo " & _
wscript.scriptname & " /F" & " C:\WINDOWS" & vbnewline & chr(9) & "cscript.exe/nologo " & wscript.scriptname & " /A" & _
" C:\Archivos.txt" & vbnewline & chr(9) & "cscript.exe/nologo " & wscript.scriptname & " /L" & " ""mstsc.exe,syskey.exe,appmgr.dll""" & _
vbnewline & chr(9) & "cscript.exe/nologo " & wscript.scriptname & " /P -"
wscript.quit
End Sub

El script debe de lanzarse desde línea de comandos pasando los parámetros correspondientes, los cuales pueden verse en la ayuda (tanto desde ms-dos como con doble click)

Ej:

Código (dos) [Seleccionar] Expandir

C:\Documents and Settings\Novlucker\Escritorio>cscript//nologo "filnspect.vbs" > Reporte.html

Como se ve además hay que redireccionar la salida (>) a un archivo de extensión html

Así se ve el resultado:

Saludos

Post original: Error de permisos al modificar msconfig

Edito:La web bajo la cual se realizaban las consultas, ha cambiado MUCHO la manera en la que se visualizan los archivos, por lo que ha dejado de ser funcional 

Pero si buscas verás que en base al mensaje de el-brujo salieron como 6 post con el error

http://foro.elhacker.net/sugerencias_y_dudas_sobre_el_foro/error_en_nueva_respuestas_a_tus_mesanjes-t250754.0.html

Saludos

De todas formas, no es posible ejecutar *.Bat's completos onthefly ... Al menos no de estas formas...

Ej:

Código (dos) [Seleccionar] Expandir

set /a valor=5
echo %valor%

Para empezar foro libre, donde tienes 6 mensajes 

Saludos

[Mac OS]

Sería bueno crear un subforo de Mac OS 
Ah, perdón, ya existe, pero seguro que pocos saben que está ahí 
Y es un claro ejemplo de lo que ocurre si el número de mensajes que mueve no es suficiente para sustentarlo 

Repito, cuando se comenzó con el post habían 1350 mensajes con la palabra Delphi, ahora hay unos 1400, pero este post influye bastante .... 1.400 en 1.009.011 mensajes totales

http://www.google.es/search?hl=es&q=site%3Aforo.elhacker.net+delphi&btnG=Buscar&meta=

Saludos